0
Astra TLB
13.09.11
✎
11:33
|
Всем привет! Может кто знает, как программно заполнить, записать, провести документ "Операция". Задача в заполнении из DBF файла документа "Операции , введенные вручную" . Многострочный файл с нужными данными сформирован, в документе столько же, сколько строк, проводок. Данные для проводок из диалога и из строк файла DBF.
|
|
2
aka MIK
13.09.11
✎
11:35
|
Док=СоздатьОбъект("Операция");
Док.Новая();
Док.ДатаОперации=ВыбДата;
Док.Содержание="Корректировка партий";
Ит.ВыбратьСубконто(ВидыСубконто.ТМЦ);
Пока Ит.ПолучитьСубконто(ВидыСубконто.ТМЦ) = 1 Цикл
Док.НоваяПроводка();
Док.Дебет.Счет = СчетПоКоду("023");
Док.Дебет.Субконто(1, ВыбСубконто1);
Док.Дебет.Субконто(2, Ит.Субконто(ВидыСубконто.ТМЦ));
Док.Дебет.Субконто(3, Ит.Субконто(ВидыСубконто.Партии));
Док.Сумма = -Ит.СКД(1);
Док.Количество = -Ит.СКД(3);
Док.НашаФирма = РазделительУчета;
КонецЦикла;
КонецЕсли;
КонецЦикла;
Док.Записать();
|
|