Добавить проводки программно

[xdto]

Друзья подскажите как добавить проводки в документе опериция программно конф Бух 3,0
скриншот ниже
заполнить поля данными программно
знаю как шапку документа заполнить даными программно
А вот как дальше не знаю подскажите кому не лень
Списибо

[cska-fanat-kz]

у документа есть коллекция движений, соответственно Движения.
программно ее заполняете, в итоге автоматом заполнится ТЧ на форме документа.

[xdto]

Это нужно сделать через внешнюю обработку не меняя конф

Добавлено: 22 июл 2016, 11:24

       

Код Выделить Развернуть

НовыйДокумент = Документы.ОперацияБух.СоздатьДокумент();
НовыйДокумент.Дата = "28.12.2015  0:00:00";
НовыйДокумент.Организация = Справочники.Организации.НайтиПоКоду("00-000008");
НовыйДокумент.СуммаОперации = "1 740,00";
НовыйДокумент.Содержание = "МПО Политюк В.И.";
НовыйДокумент.СпособЗаполнения = "Вручную";
НовыйДокумент.Ответственный = Справочники.Пользователи.НайтиПоНаименованию("Алексей");
НовыйДокумент.Записать();
Сообщить(НовыйДокумент);
Так создаю документ программно через обработку
а как дальше не знаю

[cska-fanat-kz]

Проводка = НовыйДокумент.Движения.Типовой.Добавить();
...

[xdto]

Проводку добавлять перед записью документа?? или как

[cska-fanat-kz]

если они вам нужны, то перед,
если не нужны, то после.

[xdto]

блин что та не сработывает

Код Выделить Развернуть

НовыйДокумент = Документы.ОперацияБух.СоздатьДокумент();
НовыйДокумент.Дата = "24.11.2015  0:00:00";
НовыйДокумент.Организация = Справочники.Организации.НайтиПоКоду("00-000001");
НовыйДокумент.СуммаОперации = "1 740,00";
НовыйДокумент.Содержание = "МПО Политюк В.И.";
НовыйДокумент.СпособЗаполнения = "Вручную";
НовыйДокумент.Ответственный = Справочники.Пользователи.НайтиПоНаименованию("Алексей");
Проводка = НовыйДокумент.Движения.Хозрасчетный.Добавить();
Проводка.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("76 .10.3");
        Проводка.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("76.10.1");
Проводка.СубконтоДт1 = Справочники.ФизическиеЛица.НайтиПоКоду("00-0000004");
Проводка.СубконтоКт1 = Справочники.ФизическиеЛица.НайтиПоКоду("00-0000521");
Проводка.Сумма = "1 000,00";
Проводка.СуммаНУДт = "1 000,00";
Проводка.СуммаНУКт = "1 000,00";
НовыйДокумент.Записать();
Сообщить(НовыйДокумент);

[cska-fanat-kz]

ну как бы пока нормально все...

[xdto]

Всего ничего работает записывает документ с движениям
но поле это не найдено СуконтоКт1

[boris_mef]

1. Вместо Проводка.СубконтоДт1 (и Проводка.СубконтоКт1) надо писать Проводка.СубконтоДт.РаботникиОрганизаций (я так понимаю, это субконто на ваших счетах).
2. Суммы указывайте числом, а не строкой.
3. Перед записью документа добавьте "НовыйДокумент.Движения.Хозрасчетный.Записывать = Истина;"