В начало

Заполнение реквизитов при создании документа

 

            Необходимо из справочника «Партнеры» создать документ «Соглашение о рассрочке платежа» с заполненными реквизитами «УК», «ЛС» и «Сумма долга». Реквизиты заполнения берутся из справочника «Партнеры» и передаются как параметры формы.

Рис. Форма элемента справочника «Партнеры»

 

Листинг. Модуль формы элемента справочника «Партнеры»,
процедура команды «Создать_ДокументРассрочки»

&НаКлиенте

Процедура Создать_ДокументРассрочки(Команда)  

           

            ПараметрыФормы = Новый Структура;

            ЗначенияЗаполнения = Новый Структура;

            ЗначенияЗаполнения.Вставить("УК", Объект.F1_УправляющаяКомпания);

            ЗначенияЗаполнения.Вставить("ЛС", Объект.Ссылка);

 

            Если Строка(Объект.F1_Город) = "Королев" Тогда

                        ЗначенияЗаполнения.Вставить("СуммаДолга", Объект.F1_ДолгСПениУК + Объект.F1_ДолгСПениРСОвк + Объект.F1_ДолгСПениРСОтс);

            КонецЕсли;              

 

            ПараметрыФормы.Вставить("ЗначенияЗаполнения", ЗначенияЗаполнения);

           

            Форма = ПолучитьФорму("Документ.F1_СоглашениеОРассрочкеПлатежа.Форма.ФормаДокумента", ПараметрыФормы,

            Элементы.ДокументыРассрочки);

           

            Форма.Открыть();

           

КонецПроцедуры

 

 

Листинг. Модуль объекта документа «Соглашение о рассрочке платежа»,

Обработка заполнения

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, ТекстЗаполнения, СтандартнаяОбработка)

           

            Если ТипЗнч(ДанныеЗаполнения) = Тип("Структура") Тогда              

                       

                        СтандартнаяОбработка = Ложь;               

                       

                        Должник1 = Неопределено;                      

                        Если ДанныеЗаполнения.Свойство("ЛС", Должник1) Тогда                           

                                   Должник = Должник1;                                                      

                        КонецЕсли;  

                       

                        УК1 = Неопределено;                     

                        Если ДанныеЗаполнения.Свойство("УК", УК1) Тогда                          

                                   УК = УК1;                                                               

                        КонецЕсли;        

                       

                        СуммаДолга1 = Неопределено;                 

                        Если ДанныеЗаполнения.Свойство("СуммаДолга", СуммаДолга1) Тогда                              

                                   СуммаДолга = СуммаДолга1;                                                       

                        КонецЕсли;                          

                       

            КонецЕсли;

КонецПроцедуры

 

Рис. Форма созданного документа «Соглашение о рассрочке платежа»

 

            Проверяем: реквизиты «ЛС», «УК» и «Сумма долга» заполнены.

 

            ПРИМЕЧАНИЕ: https://its.1c.ru/db/metod8dev/content/3550/hdoc