Док=СоздатьОбъект("Документ");
Если Док.НайтиДокумент(ВыбРасходнаяНакладная)=1 Тогда
Док=СоздатьОбъект("Документ");
Если Док.НайтиДокумент(БухСправка)=1 Тогда
ТЗ_Мэппинг.ВыбратьСтроки();
Док.УдалитьСтроки();
Пока ТЗ_Мэппинг.ПолучитьСтроку() = 1 Цикл
Док.НоваяСтрока();
Док.СчетДт = ТЗ_Мэппинг.СчетДт;
Док.СубконтоДт1 = ТЗ_Мэппинг.СубконтоДт1;
Док.СубконтоДт2 = ТЗ_Мэппинг.СубконтоДт2;
Док.СубконтоДт3 = ТЗ_Мэппинг.СубконтоДт3;
Док.СчетКт = ТЗ_Мэппинг.СчетКт;
Док.СубконтоКт1 = ТЗ_Мэппинг.СубконтоКт1;
Док.СубконтоКт2 = ТЗ_Мэппинг.СубконтоКт2;
Док.СубконтоКт3 = ТЗ_Мэппинг.СубконтоКт3;
Док.Сумма = ТЗ_Мэппинг.Начисление;
Док.Записать();
КонецЦикла;
Конецесли;
ОткрытьФорму(Док);
i | последний... |
ОткрытьФорму(Док.ТекущийДокумент());
! | Для тех кто в танке последний на панели с картинками |
табдок
! | Правила, п. 3,6 Не надо все лепить в одну тему. |
ОткрытьФорму("Документ.БухгалтерскаяСправка",ТЗ);
ОткрытьФорму("Документ.БухгалтерскаяСправка",ТЗ);