1С77, 7.7, Создать новый документ, Провести, Записать документ, Поиск по реквизиту в справочнике, НайтиПоРеквизиту, ТекущийЭлемент

1С77, Создать новый документ, Провести, Записать документ, Поиск по реквизиту в справочнике, НайтиПоРеквизиту, ТекущийЭлемент

1С

//Реквизит1, Реквизит2, Реквизит3 - реквизиты документа
//В Реквизит3 (с типом "Справочник.Контрагенты")
//помещается значение из "Справочник.Контрагенты"
НовыйДок = СоздатьОбъект("Документ.Платежка");
НовыйДок.Новый();

НовыйДок.Реквизит1 = "ЗначениеРеквизита1";
НовыйДок.Реквизит2 = "ЗначениеРеквизита2";

СпрКонтрагенты = СоздатьОбъект("Справочник.Контрагенты");
СпрКонтрагенты.НайтиПоРеквизиту("РеквизитГдеИскать", "ТоЧтоШщется", 1);
Если СпрКонтрагенты.Выбран() > 0 Тогда
   НовыйДок.Реквизит3 = СпрКонтрагенты.ТекущийЭлемент();
Иначе
   Сообщить("В СпрКонтрагенты ничего не найдено");
КонецЕсли;

НовыйДок.Записать();
НовыйДок.Провести();

Теги: 1С77, 7.7, Создать новый документ, Провести, Записать документ, Поиск по реквизиту в справочнике, НайтиПоРеквизиту, ТекущийЭлемент