Как программно создать справочник или документ в 1С Предприятие 7.7

Продолжаем знакомство с платформой 1С:Предприятие 7.7. В этой статье мы рассмотрим, как программно создать элемент справочника или документа и заполнить его реквизиты и табличную часть (которая на платформе 7.7. может быть только одна).

Процесс создания будем рассматривать на примере документа ОплатаЖКУ, справочники создаются аналогично.

Итак, создаем элемент:

ДокОбъект=СоздатьОбъект("Документ.ОплатаЖКУ");
ДокОбъект.Новый();

Устанавливаем дату документа:

ДокОбъект.ДатаДок = Дата(2018, 2, 26);
//или устанавливаем текущую дату
ДокОбъект.ДатаДок = ТекущаяДата();

Значения реквизитов с примитивными типами устанавливается просто (дату мы рассмотрели выше):

ДокОбъект.ОтноситьПереплатуНаАванс = 1; //тип - булево, значение - истина
ДокОбъект.Комментарий = "Тут должен быть текст"; // строка

Устанавливаем значения реквизитов ссылочных типов:

СпрВариантОплаты = СоздатьОбъект("Справочник.ВариантыОплатыЖКУ"); //создаем переменную с типом ссылки на справочник
СпрВариантОплаты.НайтиПоНаименованию("Банк",0); // находим нужный элемент по наименованию (есть другие варианты поиска)

Если СпрВариантОплаты.Выбран()=1 ТОгда // Если элемент найден
Док.ВариантОплаты=СпрВариантОплаты.ТекущийЭлемент(); // присваиваем значение реквизиту документа
КонецЕсли;

Работа с реквизитами табличной части в 1С 7.7. довольно проста. Поскольку табличная часть может быть только одна, а имена ее реквизитов должны отличаться от реквизитов объекта, то нужно только указать добавление новой строки, а потом заполнить реквизиты так, как это делалось выше.

ДокОбъект.НоваяСтрока(); // создаем новую строку табличной части
Док.Сумма=2000; // присваиваем значение реквизита табличной части

В конце нужно объект записать и провести (проведение, естественно, доступно только для документов).

 ДокОбъект.Записать();
ДокОбъект.Провести();

 

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

1 × 3 =