0
antiteror91
19.08.13
✎
17:08
|
Создал докумен. Для него пытаюсь сделать проводки. Процедура формирования проводок описанна ниже.
ДатаДока = СтруктураШапкиДокумента.Дата;
ПроводкиБУ = Движения.Хозрасчетный;
Для каждого СтрокаТаблицы Из ТабличнаяЧастьТитульная Цикл
Если НЕ СтрокаТаблицы.СуммаСбораКУплате = 0 Тогда
Проводка = ПроводкиБУ.Добавить();
Проводка.Период = ДатаДока;
Проводка.Организация = СтруктураШапкиДокумента.Организация;
Проводка.Содержание = "Оплата " + БухгалтерскийУчет.ПолучитьНазваниеОбъекта(СтрокаТаблицы.СчетДебит) + " по вх.д." + Номер + " от " + Формат(Дата, "ДЛФ=Д");
Проводка.СчетДт = СтрокаТаблицы.СчетДебит;
ОбщегоНазначения.УстановитьСубконто(Проводка.СчетДт,Проводка.СубконтоДт,1, СтрокаТаблицы.СубконтоДт1,, Заголовок);
ОбщегоНазначения.УстановитьСубконто(Проводка.СчетДт,Проводка.СубконтоДт,2, СтрокаТаблицы.СубконтоДт2,, Заголовок);
ОбщегоНазначения.УстановитьСубконто(Проводка.СчетДт,Проводка.СубконтоДт,3, СтрокаТаблицы.СубконтоДт3,, Заголовок);
Проводка.СчетКт = СтрокаТаблицы.СчетКредит;
ОбщегоНазначения.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,1, СтрокаТаблицы.СубконтоКт1,, Заголовок);
ОбщегоНазначения.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,2, СтрокаТаблицы.СубконтоКт2,, Заголовок);
ОбщегоНазначения.УстановитьСубконто(Проводка.СчетКт,Проводка.СубконтоКт,3, СтрокаТаблицы.СубконтоКт3,, Заголовок);
Проводка.Сумма = СтрокаТаблицы.СуммаСбораКУплате;
Проводка.Регистратор = Ссылка;
КонецЕсли;
КонецЦикла;
Подскажите пожалуйста почему проводки не делаются???
|
|