sava1 @ 10.06.19, 15:48
,
Не хочи добавляти субконто Дт , допоможіть будь-ласка. Помилки не видає, поля добавляє, суму, рахунки, а субконто ні.
&НаСервере
Процедура СоздатьДокументНаСервере()
ДокОперация = Документы.ОперацияБух.СоздатьДокумент();
ДокОперация.Дата = КонПериода;
ДокОперация.Организация = Организация;
ДокОперация.Ответственный = ПараметрыСеанса.ТекущийПользователь;
ДокОперация.Содержание = "створено програмно, Розподіл: " + НомГрупаГотова;
ДокОперация.Комментарий = "Комментарий";
//ДокОперация.СуммаОперации = Объект.ХозрасчетныйНаборЗаписей.Итог("Сумма");
ДокОперация.Записать();
ДокОперацияСсылка = ДокОперация.Ссылка;
// Добавляем в хозрастчет.
РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
РегХозрасчетный.Отбор.Регистратор.Значение = ДокОперацияСсылка;
Для Каждого Строка из Объект.ТабличнаяЧасть1 Цикл
РегЗапись = РегХозрасчетный.Добавить();
РегЗапись.Период = КонПериода;
РегЗапись.Регистратор = ДокОперацияСсылка;
РегЗапись.Организация = Организация;
РегЗапись.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("231");
РегЗапись.Сумма = Строка.Сумма;
РегЗапись.НалоговоеНазначениеДт = Строка.НалогНазнач;
БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт,РегЗапись.СубконтоДт, "НоменклатурныеГруппы", Строка.НоменкГрупа);
РегЗапись.СчетКт = КТ;
//РегЗапись = РегХозрасчетный.Добавить();
//РегЗапись.Сумма = -1 * Строка.Сумма;
КонецЦикла;
РегХозрасчетный.Записать();
КонецПроцедуры