v8: Формирование документа на основании

 Процедура КнопкаВыполнитьНажатие(Кнопка)

  Для каждого стр из доки цикл

  Если стр.ПКО = Документы.ПриходныйКассовыйОрдер.ПустаяСсылка() тогда

  ДокРоз = стр.Розница.ПолучитьОбъект();

  ДокРоз.Записать(РежимЗаписиДокумента.Запись);

  Док = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();

  ЗаполнитьЗначенияСвойств(Док, ДокРоз, , "Номер, Дата");

  новстр = док.РасшифровкаПлатежа.Добавить();

  новстр.СуммаВзаиморасчетов = док.СуммаДокумента;

  новстр.СуммаПлатежа = док.СуммаДокумента;

  новстр.СтавкаНДС = Перечисления.СтавкиНДС.НДС20;

  новстр.КратностьВзаиморасчетов = 1;

  Новстр.КурсВзаиморасчетов = 1;

  СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.ДоходОтРозницы;

  ФормаДокумента = Док.ПолучитьФорму("ФормаДокумента");

  ФормаДокумента.Открыть();	

  КонецЕсли;

  КонецЦикла;	

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

 //Создаем документ Выплата, Документ будет создан и показан пользователю, Но НЕ ЗАПИСАН

НовДок = Документы.ЗарплатаКВыплатеОрганизаций.ПолучитьФормуНовогоДокумента(); 

НовДок.Дата=ТекущаяДата();

НовДок.Организация=Организация;

НовДок.ПериодРегистрации=ПериодРегистрации;

НовДок.ответственный= глЗначениеПеременной("глТекущийПользователь");

НовДок.Комментарий="Выплата за "+МесяцСтрока;

НовДок.ЭлементыФормы.Комментарий.Доступность=Ложь; 

Для Каждого ТекущаяСтрока Из ТаблицыЗначений Цикл  // заполним табличную часть документа, из ТаблицыЗначений

НС=НовДок.зарплата.добавить();	

нс.Авторасчет=истина;

нс.Физлицо = ТекущаяСтрока.Физлицо;

нс.ВыплаченностьЗарплаты=Перечисления.ВыплаченностьЗарплаты.НеВыплачено;

нс.сумма=ТекущаяСтрока.Результат; 

КонецЦикла;

НовДок.Открыть(); 



//Для создания и записи документа используется следующий код:

НовДок = Документы.РасходнаяНакладная.СоздатьДокумент();

НовДок.Дата=ТекущаяДата();

НовыйДок.УстановитьНовыйНомер();

НовДок.Организация=Организация;

НовДок.ПериодРегистрации=ПериодРегистрации;

НовДок.ответственный= глЗначениеПеременной("глТекущийПользователь");

НовДок.Комментарий="Выплата за "+МесяцСтрока;

НовДок.ЭлементыФормы.Комментарий.Доступность=Ложь; 

Для Каждого ТекущаяСтрока Из ТаблицыЗначений Цикл  // заполним табличную часть документа, из ТаблицыЗначений

НС=НовДок.зарплата.добавить();	

нс.Авторасчет=истина;

нс.Физлицо = ТекущаяСтрока.Физлицо;

нс.ВыплаченностьЗарплаты=Перечисления.ВыплаченностьЗарплаты.НеВыплачено;

нс.сумма=ТекущаяСтрока.Результат; 

КонецЦикла;

НовДок.Записать();