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

   Док.Записать();
3 Жан Пердежон
 
13.09.11
11:36
многие тут знают
4 План счетов
 
13.09.11
11:41
еще понадобится:

ДБ=СоздатьОбъект("XBase");
   
   Попытка
       ДБ.ОткрытьФайл(Каталог+"\"+ИмяФайла);
   Исключение    
       Предупреждение("Ошибка при открытии файла-источника.");
       Возврат;        
   КонецПопытки;        
   Если ДБ.Открыта()=1 Тогда
       ДБ.КодоваяСтраница(1);


и т.д.
5 Astra TLB
 
13.09.11
13:43
Сэнкс aka MIK и Плану счетов. Моя ошибка была : Создатьобъект(Документ.Операция),согласно структуре объектов в Конф.
С праздником!