4
DSatan
29.11.11
✎
14:21
|
как-то так
Проводка = ОбъектДокумента.Движения.Хозрасчетный.Добавить();
Проводка.Организация = Организация;
Проводка.Период = ТекСтрокаДокумент.ДатаДокумента;
Проводка.СчетДт = ТекСтрока.СчетДт;
Проводка.ПодразделениеДт = ТекСтрока.ПодразделениеДт;
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт,Проводка.СубконтоДт,1,ТекСтрока.СубконтоДт1);
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт,Проводка.СубконтоДт,2,ТекСтрока.СубконтоДт2);
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт,Проводка.СубконтоДт,3,ТекСтрока.СубконтоДт3);
Проводка.СчетКт = ТекСтрока.СчетКт;
Проводка.ПодразделениеКт = ТекСтрока.ПодразделениеКт;
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,1,ТекСтрока.СубконтоКт1);
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,2,ТекСтрока.СубконтоКт2);
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,3,ТекСтрока.СубконтоКт3);
Проводка.Содержание = ТекСтрока.Содержание;
Проводка.Сумма = ТекСтрока.Сумма;
Проводка.СуммаНУДт = ТекСтрока.Сумма;
Проводка.СуммаНУКт = ТекСтрока.Сумма;
|
|