Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 1
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Войти | Зарегистрироваться )




>  Ошибка при списании себестоимости по ФИФО
YuraRoss
Отправлено: 22.08.14, 10:13


Общительный
**

Группа: Пользователи
Сообщений: 13
Регистрация: 03.12.13
Пользователь №: 31701


Вот исправленый текст. Там была ошибка изза нечитаемого символа вместо "-" и еще несколько других ошибок.
//Учет ФИФО
    Движения.ОстаткиТоваров.Записывать = Истина;
    Движения.Продажи.Записывать = Истина;
    Если Режим = РежимПроведенияДокумента.Оперативный Тогда
        Движения.ОстаткиТоваров.Записать();
    КонецЕсли;
    Сортировка = " ВОЗР ";
    
    // Устанавливаем блокировку.
    Блокировка = Новый БлокировкаДанных;
    
    ЭлементБлокировки = Блокировка.Добавить("РегистрНакопления.ОстаткиТоваров");
    ЭлементБлокировки.Режим = РежимБлокировкиДанных.Исключительный;
    ЭлементБлокировки.ИсточникДанных = Товары;
    ЭлементБлокировки.ИспользоватьИзИсточникаДанных("Номенклатура", "Товар");
    
    Блокировка.Заблокировать();

    
    // Получаем данные.
    ТекстЗапроса =
    "ВЫБРАТЬ
    | РеализацияТоваровТовары.Товар КАК Товар,
    | СУММА(РеализацияТоваровТовары.Количество) КАК КоличествоВДокументе,
    | СУММА(РеализацияТоваровТовары.Сумма) КАК СуммаВДокументе
    |ПОМЕСТИТЬ ВТ
    |ИЗ
    | Документ.РеализацияТоваров.Товары КАК РеализацияТоваровТовары
    |ГДЕ
    | РеализацияТоваровТовары.Ссылка = &Документ
    |
    |СГРУППИРОВАТЬ ПО
    | РеализацияТоваровТовары.Товар
    |
    |ИНДЕКСИРОВАТЬ ПО
    |    Товар
    |;
    |
    |////////////////////////////////////////////////////////////////////////////////
    |ВЫБРАТЬ
    | ВТ.Товар КАК Товар,
    | ВТ.КоличествоВДокументе КАК КоличествоВДокументе,
    | ВТ.СуммаВДокументе КАК СуммаВДокументе,
    | ОстаткиТоваровОстатки.Партии,
    | ЕСТЬNULL(ОстаткиТоваровОстатки.КоличествоОстаток, 0) КАК Остаток,
    | ЕСТЬNULL(ОстаткиТоваровОстатки.СуммаОстаток, 0) КАК СуммаОстатка
    |ИЗ
    | ВТ КАК ВТ
    |  ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиТоваров.Остатки(
    |    &МоментВремени,
    |    Номенклатура В
    |     (ВЫБРАТЬ
    |      ВТ.Товар
    |     ИЗ
    |      ВТ КАК ВТ)) КАК ОстаткиТоваровОстатки
    |  ПО ВТ.Товар = ОстаткиТоваровОстатки.Номенклатура
    |
    |УПОРЯДОЧИТЬ ПО
    |  ОстаткиТоваровОстатки.Партии.МоментВремени %Сортировка%
    |ИТОГИ
    | МАКСИМУМ(КоличествоВДокументе),
    | МАКСИМУМ(СуммаВДокументе),
    | СУММА(Остаток),
    | СУММА(СуммаОстатка)
    |ПО
    | Товар";
    
    Запрос = Новый Запрос;
    Запрос.Текст = СтрЗаменить(ТекстЗапроса, "%Сортировка%", Сортировка);
    
    Запрос.УстановитьПараметр("МоментВремени", МоментВремени());
    Запрос.УстановитьПараметр("Документ",Ссылка);
    
    // Формируем движения.
    ВыборкаТовары = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
    
    Пока ВыборкаТовары.Следующий() Цикл
        
        Если ВыборкаТовары.КоличествоВДокументе > ВыборкаТовары.Остаток Тогда
            Сообщить("По " + ВыборкаТовары.Товар + " требуется " + ВыборкаТовары.КоличествоВДокументе +
            " осталось " + ВыборкаТовары.Остаток + ".");
            
            Отказ = Истина;
        КонецЕсли;
        
        Если Отказ Тогда
            Продолжить;
        КонецЕсли;
        
        // Движения по остаткам товаров.
        
        Себестоимость = 0;
        ОсталосьСписать = ВыборкаТовары.КоличествоВДокументе;
        
        ВыборкаДетЗаписи = ВыборкаТовары.Выбрать();
        Пока ВыборкаДетЗаписи.Следующий() И ОсталосьСписать <> 0 Цикл
            
            КСписанию = Мин(ОсталосьСписать, ВыборкаДетЗаписи.Остаток);
            ОсталосьСписать = ОсталосьСписать - КСписанию;
            
            
            СуммаСписания = КСписанию*ВыборкаДетЗаписи.СуммаОстатка/ВыборкаДетЗаписи.Остаток;
            Себестоимость = Себестоимость + СуммаСписания;
            
            Движение = Движения.ОстаткиТоваров.ДобавитьРасход();
            Движение.Период = Дата;
            Движение.Регистратор = Ссылка;
            Движение.Количество = КСписанию;
            Движение.Номенклатура = ВыборкаДетЗаписи.Товар;
            Движение.Партии = ВыборкаДетЗаписи.Партии;
            Движение.Сумма = СуммаСписания;
            
        КонецЦикла;
        
        // Движения по регистру продажи.
        Движение = Движения.Продажи.Добавить();
        Движение.Период = Дата;
        Движение.Регистратор = Ссылка;
        Движение.Номенклатура = ВыборкаТовары.Товар;
        Движение.Сумма = ВыборкаТовары.СуммаВДокументе;
        Движение.Количество = ВыборкаТовары.КоличествоВДокументе;
        Движение.Себестоимость = Себестоимость;    
        
        
    КонецЦикла;
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #90508 · Ответов: 8 · Просмотров: 3730
 

>  Ошибка при списании себестоимости по ФИФО
YuraRoss
Отправлено: 06.08.14, 15:39


Общительный
**

Группа: Пользователи
Сообщений: 13
Регистрация: 03.12.13
Пользователь №: 31701


Думаю тему можно закрывать. Ответа не нашел, но задание мне нужно было выполнить к концу дня. Спасибо за внимание.
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #89782 · Ответов: 8 · Просмотров: 3730
 

>  Ошибка при списании себестоимости по ФИФО
YuraRoss
Отправлено: 06.08.14, 13:17


Общительный
**

Группа: Пользователи
Сообщений: 13
Регистрация: 03.12.13
Пользователь №: 31701


Цитата(ignsv @ 06.08.14, 14:13) *
Пока ВыборкаДетЗаписи.Следующий() И ОсталосьСписать 0 Цикл


">" - пропустили походу
я бы рекомендовал сайт Чистова, там люды выкладывают свои решения и они рабочие. Здесь не понятно или Вы синтакс.ошибок наделали или там где качали.

Спасибо не заметил этого. Там где я качал так же без ">".
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #89777 · Ответов: 8 · Просмотров: 3730
 

>  Ошибка при списании себестоимости по ФИФО
YuraRoss
Отправлено: 06.08.14, 13:08


Общительный
**

Группа: Пользователи
Сообщений: 13
Регистрация: 03.12.13
Пользователь №: 31701


Цитата(pablo @ 06.08.14, 14:02) *
Что здесь делает <> ?

Я так понимаю что "<>" таким способом програма показывакт место где есть ошибка. Потому что я скинул кроме текста ошибок и сам текст программы и если вы вниманетельно посмотрите, то увидите что в тексте нету такого "<>".
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #89774 · Ответов: 8 · Просмотров: 3730
 

>  Ошибка при списании себестоимости по ФИФО
YuraRoss
Отправлено: 06.08.14, 11:50


Общительный
**

Группа: Пользователи
Сообщений: 13
Регистрация: 03.12.13
Пользователь №: 31701


Я начинающий программист 1С. Получил такую задачу – добавить возможность ведения учета товаров по ФИФО, партией будет документ поступление товаров. Для написания текста пользовался статьей – http://programmist1s.ru/primer-resheniya-z...ativnyiy-uchet/ . Но при проверке модуля есть 3 ошибки в которых не могу разобраться.
{Документ.ПоступлениеТоваров.МодульОбъекта(148,82)}: Очікується символ ‘)’
Сообщение.Текст = “Не хватает ” + Строка(ВыборкаНоменклатура.КоличествоВДокументе<> – ВыборкаНоменклатура.КоличествоОстаток) + ” единиц номенклатуры ” + ВыборкаНоменклатура.Номенклатура + “. Проведение невозможно.”; (Перевірка: Сервер)
{Документ.ПоступлениеТоваров.МодульОбъекта(185,35)}: Очікується ключове слово ‘КонецЦикла’ (‘EndDo’)
ОсталосьСписать = ОсталосьСписать <>– КСписанию; (Перевірка: Сервер)
{Документ.ПоступлениеТоваров.МодульОбъекта(189,1)}: Очікується ключове слово ‘КонецПроцедуры’ (‘EndProcedure’)
<>КонецЦикла; (Перевірка: Сервер)
По первой там проверял количество открытых и закрытых скобок, но причина не в этом. А 2 и 3 так же не понимаю потому что цикл и процедура закрыты.
А вот сам текст -
Запрос=Новый Запрос;
Запрос.Текст=
“ВЫБРАТЬ
| ПоступлениеТоваровТовары.Номенклатура,
| СУММА(ПоступлениеТоваровТовары.Количество) КАК Количество,
| СУММА(ПоступлениеТоваровТовары.Сумма) КАК Сумма
|ПОМЕСТИТЬ ВТ
|ИЗ
| Документ.ПоступлениеТоваров.Товары КАК ПоступлениеТоваровТовары
|ГДЕ
| ПоступлениеТоваровТовары.Ссылка = &Ссылка
|
|СГРУППИРОВАТЬ ПО
| ПоступлениеТоваровТовары.Номенклатура
|;
|ВЫБРАТЬ
| ВТ.Номенклатура КАК Номенклатура,
| ВТ.Количество КАК КоличествоВДокументе,
| ВТ.Сумма КАК ВДокументе,
| ОстаткиТоваровОстатки.Партии,
| ЕСТЬNULL(ОстаткиТоваровОстатки.КоличествоОстаток, 0) КАК КоличествоОстаток,
| ЕСТЬNULL(ОстаткиТоваровОстатки.СуммаОстаток, 0) КАК СуммаОстаток
|ИЗ
| ВТ КАК ВТ
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиТоваров.Остатки(
| &МоментВремени,
| Номенклатура В
| (ВЫБРАТЬ
| ВТ.Номенклатура
| ИЗ
| ВТ КАК ВТ)) КАК ОстаткиТоваровОстатки
| ПО ВТ.Номенклатура = ОстаткиТоваровОстатки.Номенклатура
|
|УПОРЯДОЧИТЬ ПО
| ОстаткиТоваровОстатки.Партия.МоментВремени ВОЗР
|ИТОГИ
| МАКСИМУМ(КоличествоВДокументе),
| МАКСИМУМ(СуммаВДокументе),
| СУММА(КоличествоОстаток),
| СУММА(СуммаОстаток)
|ПО
| Номенклатура”;
Запрос.УстановитьПараметр(“МоментВремени”, МоментВремени());
Запрос.УстановитьПараметр(“Ссылка”,Ссылка);

ВыборкаНоменклатура = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

Пока ВыборкаНоменклатура.Следующий() Цикл

Если ВыборкаНоменклатура.КоличествоОстаток < ВыборкаНоменклатура.КоличествоВДокументе Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Не хватает " + Строка(ВыборкаНоменклатура.КоличествоВДокументе – ВыборкаНоменклатура.КоличествоОстаток) + " единиц номенклатуры " + ВыборкаНоменклатура.Номенклатура + ". Проведение невозможно.";
Сообщение.Сообщить();
Отказ = Истина;
КонецЕсли;

Если Отказ Тогда
Продолжить;
КонецЕсли;

ОсталосьСписать = ВыборкаНоменклатура.КоличествоВДокументе;

ВыборкаДетЗаписи = ВыборкаНоменклатура.Выбрать();
Пока ВыборкаДетЗаписи.Следующий() И ОсталосьСписать 0 Цикл

КСписанию = Мин(ОсталосьСписать, ВыборкаДетЗаписи.КоличествоОстаток);

СуммаСписания = ?(ВыборкаДетЗаписи.КоличествоОстаток =КСписанию,
ВыборкаДетЗаписи.СуммаОстаток,
ВыборкаДетЗаписи.СуммаОстаток/ВыборкаДетЗаписи.КоличествоОстаток * КСписанию);

НовоеДвижение = Движения.ОстаткиНоменклатуры.ДобавитьРасход();
НовоеДвижение.Период = Дата;
НовоеДвижение.Регистратор = Ссылка;
НовоеДвижение.Количество = КСписанию;
НовоеДвижение.Номенклатура = ВыборкаДетЗаписи.Номенклатура;
НовоеДвижение.Партия = ВыборкаДетЗаписи.Партия;
НовоеДвижение.Сумма = СуммаСписания;

НовоеДвижение = Движения.Продажи.Добавить();
НовоеДвижение.Активность = Истина;
НовоеДвижение.Период = Дата;
НовоеДвижение.Регистратор = Ссылка;
НовоеДвижение.Номенклатура = ВыборкаДетЗаписи.Номенклатура;
НовоеДвижение.Сумма = ВыборкаДетЗаписи.СуммаВДокументе;

НовоеДвижение.Количество = КСписанию;
НовоеДвижение.Себестоимость = СуммаСписания;
ОсталосьСписать = ОсталосьСписать – КСписанию;

КонецЦикла;

КонецЦикла;
КонецПроцедуры

Буду благодарен за помощь.


 ! 

Правила, п.12
 
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #89769 · Ответов: 8 · Просмотров: 3730
 

>  Обмен данными между УТ и Бухгалтерией.
YuraRoss
Отправлено: 21.01.14, 13:51


Общительный
**

Группа: Пользователи
Сообщений: 13
Регистрация: 03.12.13
Пользователь №: 31701


Цитата(lena77 @ 15.01.14, 20:23) *
http://its.1c.ua/db/metod81u#content:471:1 Я пробовала, обмен работает. Правда пробовала односторонний. УТ 3 - БУ

Спасибо, теперь все работает!
  Форум: Управление торговлей для Украины редакция 3 (Уп... · Просмотр сообщения: #80638 · Ответов: 4 · Просмотров: 6022
 

>  Обмен данными между УТ и Бухгалтерией.
YuraRoss
Отправлено: 14.01.14, 22:28


Общительный
**

Группа: Пользователи
Сообщений: 13
Регистрация: 03.12.13
Пользователь №: 31701


Возникла проблема с настройкой обмена данными между УТ 3.0.5.2 и Бухгалтерией редакции 1.2 конфигурации 1.2.16.2. Я в УТ создавал новый обмен, потом выбирал подключится через обычные каналы связи. Потом через локальный или сетевой каталог и сохранял файл Настройки обмена для БП.xml. Потом зашел в Бухгалтерию режим работы выбирал пользовательский, потом создать настройку обмена используя файл настроек, который был выгружен при настройке обмена в первой базе, потом выбираю общий файловый ресурс, обмен в двух направлениях, потом 2 раза далее и получаю вот такую ошибку. "Ошибка при сохранении настроек обмена данными: {Обработка.ПомощникНастройкиОбменаДанными.МодульОбъекта(1008)}: Поле об`єкту не виявлено (КодУзлаОбмена)". В гугле я нашел похожую ошибку http://fortroff.blogspot.com/2011/04/11-2.html сделал как там скзано, но не помогло. Благодарю за внимание.
  Форум: Управление торговлей для Украины редакция 3 (Уп... · Просмотр сообщения: #80353 · Ответов: 4 · Просмотров: 6022
 

>  Не могу изменить группу плательщика единого налога.
YuraRoss
Отправлено: 04.12.13, 21:24


Общительный
**

Группа: Пользователи
Сообщений: 13
Регистрация: 03.12.13
Пользователь №: 31701


Цитата(Zaval @ 04.12.13, 17:56) *
Доступность поля Группа, скорее всего устанавливается при открытии формы.
Попробуйте установить Единый налог и Записать.
Возможно, что-то не так с реквами Организации - Юр/Физ или еще что-нибудь.
Возможно, программа блокирует изменение группы "не с начала периода" - попробуйте установить на начало квартала или года.

Если не получится - через пару часов посмотрю код, напишу точно, что там проверяется.

Пробовал все перечисленное вами к сожалению ничего не помогло.
  Форум: Управление торговлей для Украины редакция 2 (Уп... · Просмотр сообщения: #78759 · Ответов: 5 · Просмотров: 4746
 

>  Не могу изменить группу плательщика единого налога.
YuraRoss
Отправлено: 04.12.13, 17:32


Общительный
**

Группа: Пользователи
Сообщений: 13
Регистрация: 03.12.13
Пользователь №: 31701


Цитата(Zaval @ 04.12.13, 17:05) *
Не записан после установки "Единый налог"?

Извините я вас не совсем понял. Но скажу что не зависимо от того какую схему налогообложения я выбираю и записываю группу менять у меня нету возможности.
  Форум: Управление торговлей для Украины редакция 2 (Уп... · Просмотр сообщения: #78753 · Ответов: 5 · Просмотров: 4746
 

>  Не могу изменить группу плательщика единого налога.
YuraRoss
Отправлено: 04.12.13, 15:23


Общительный
**

Группа: Пользователи
Сообщений: 13
Регистрация: 03.12.13
Пользователь №: 31701


Не могу изменить группу плательщика единого налога. В настройках налогового учета кнопка "схема налогообложения" работает нормально, а вот "группа плательщика единого налога" не активна и не могу изменить. Автоматично стоит четвертая группа. Какая может быть причина?

  Форум: Управление торговлей для Украины редакция 2 (Уп... · Просмотр сообщения: #78747 · Ответов: 5 · Просмотров: 4746
 

>  Не могу создать договор контрагента.
YuraRoss
Отправлено: 03.12.13, 16:17


Общительный
**

Группа: Пользователи
Сообщений: 13
Регистрация: 03.12.13
Пользователь №: 31701


Цитата(Ardi @ 03.12.13, 16:05) *
В карточке контрагента необходимо сначала выставить галки "Покупатель", "Поставщик".
После этого создавать договор.

Большое спасибо!
  Форум: Управление торговлей для Украины редакция 2 (Уп... · Просмотр сообщения: #78684 · Ответов: 5 · Просмотров: 8865
 

>  Не могу создать договор контрагента.
YuraRoss
Отправлено: 03.12.13, 15:49


Общительный
**

Группа: Пользователи
Сообщений: 13
Регистрация: 03.12.13
Пользователь №: 31701


Цитата(logist @ 03.12.13, 15:16) *
Вы создаете документ Поступление - то вид договора надо указывать с Поставщиком (а не с покупателем)

Да я думал об этом. Но у меня почему то в демо версии в списке "вид договора" есть с поставщиком, комитентом, бартерный и прочее, а в чистой версии с покупателем, комиссионером, бартерный и прочее. Возможно проблема в этом, но я пока не понимаю почему эти списки у меня разные.
  Форум: Управление торговлей для Украины редакция 2 (Уп... · Просмотр сообщения: #78679 · Ответов: 5 · Просмотров: 8865
 

>  Не могу создать договор контрагента.
YuraRoss
Отправлено: 03.12.13, 15:10


Общительный
**

Группа: Пользователи
Сообщений: 13
Регистрация: 03.12.13
Пользователь №: 31701


1С:Підприємство 8.2 (8.2.19.76)
Конфигурация: "Управление торговлей для Украины", редакция 2.3.
Разработка конфигурации: "ABBYY Ukraine", 2003-2011
(2.3.18.1) (http://v8.1c.ru/regional/RegionalSolutions_UA_UT.htm)
Copyright © ООО "1C", 2003-2011
(http://www.1c.ru)
Я сейчас учусь работать с 1С и у меня возникла проблема. Я не могу создать договор контрагента для документа "поступление товаров и услуг". Когда я делал это в демо базе то все получилось, а в чистой версии мне выдает ошибку. Вот скрин

 ! 

Правила, п.11
 
  Форум: Управление торговлей для Украины редакция 2 (Уп... · Просмотр сообщения: #78673 · Ответов: 5 · Просмотров: 8865
 


Новые сообщения  Открытая тема (есть новые ответы)
Опрос  Опрос (есть новые голоса)
Нет новых сообщений  Открытая тема (нет новых ответов)
Нет новых голосов  Опрос (нет новых голосов)
Популярная тема  Горячая тема (есть новые ответы)
Закрыта  Закрытая тема
Нет новых  Горячая тема (нет новых ответов) Перемещена  Тема перемещена
 

RSS Текстовая версия Сейчас: 05.05.24, 23:43
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!