Создания документа со стороны профи

[Akimov_aleks]

Добрый вечер всем. Вопрос для профи. Покажите код как программно создать документ реализация тмз и услуг с заполненными по умолчанию полями. Не прописывая без договора счёт итд что и так заполняется автоматом ?

[alex0402]

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

НовыйДокумент = Документы.ИмяДокумента.СоздатьДокумент();
НовыйДокумент.Заполнить();

ну собственно две строчки.

Все остальное - специфика каждой задачи.

[Akimov_aleks]

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

НовыйДокумент = Документы.ИмяДокумента.СоздатьДокумент();
НовыйДокумент.Заполнить();

ну собственно две строчки.

Все остальное - специфика каждой задачи.

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


НовыйДокумент = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
НовыйДокумент.Заполнить();



{ВнешняяОбработка.ВнешняяОбработка2.Форма.Форма.Форма(8)}: Недостаточно фактических параметров
НовыйДокумент.Заполнить();



Добавлено: 18 мая 2018, 09:59

Ребята я имел виду как сократить данный код

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


НовыйДокумент = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
НовыйДокумент.Дата = ТекущаяДата();
НовыйДокумент.Организация = Справочники.Организации.НайтиПоКоду(000000001);
НовыйДокумент.Склад =  Справочники.Склады.НайтиПоРеквизиту("Основной склад");
НовыйДокумент.Контрагент = Справочники.Контрагенты.НайтиПоНаименованию("Частное Лицо");
НовыйДокумент.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.НайтиПоНаименованию("Без договора");
НовыйДокумент.ОтражатьВБухгалтерскомУчете = Истина;
НовыйДокумент.ОтражатьВУправленческомУчете = Истина;
НовыйДокумент.Записать();



[alex0402]

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

НовыйДокумент.Заполнить();
я ошибся в том, что нужно обязательно передавать ДанныеЗаполнения.

можно вызвать НовыйДокумент.Заполнить(Неопределено);

Это и есть сокращение кода

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

НовыйДокумент = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
    НовыйДокумент.Дата = ТекущаяДата();
    НовыйДокумент.Организация = Справочники.Организации.НайтиПоКоду(000000001);
    НовыйДокумент.Склад =  Справочники.Склады.НайтиПоРеквизиту("Основной склад");
    НовыйДокумент.Контрагент = Справочники.Контрагенты.НайтиПоНаименованию("Частное Лицо");
    НовыйДокумент.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.НайтиПоНаименованию("Без договора");
    НовыйДокумент.ОтражатьВБухгалтерскомУчете = Истина;
    НовыйДокумент.ОтражатьВУправленческомУчете = Истина;
    НовыйДокумент.Записать();

в том случае, если код прописан в ОбработкаЗаполнения в модуле документа.

если этого нет, то код собственно сократить не возможно.

если вызывается в разных местах, то можно оформить процедурой.