Как заполнить табличную часть на основании документа

7915

Время чтения: 14 мин.

Нет времени читать? Отправить на почту

В форме документа счет-фактура выданный аванс заполнить табличную часть Авансы на основании документа поступление безналичных денежных средств.
Условия:
1) Перед заполнением табличной части документа получить от пользователя подтверждение на это действие;
2) Обработку создания документа сделать внешней и подключаемой к форме документа счет-фактура на аванс выданный;
3) После заполнения табличной части не записывать документ, а разрешить пользователю продолжить редактирование изменной табличной части или самостоятельно записать документ.
Решение:
Пункты 1 и 2 не представляют особой сложности, но пункт 3 заставил меня задуматься и написать, по-моему мнению, топорный, но исправно действующий код.

Понятно, что от нас требуется создать внешнюю обработку вида "ЗаполнениеОбъекта" и подключить её в информационную базу.
Приведу код в модуле обработки:

Код 1C v 8.2 УП

 Функция СведенияОВнешнейОбработке() Экспорт 
      

      

     ПараметрыРегистрации = Новый Структура; 
      

     МассивНазначений = Новый Массив; 
      

     МассивНазначений.Добавить("Документ.СчетФактураВыданныйАванс"); 
      

      

     ПараметрыРегистрации.Вставить("Вид", "ЗаполнениеОбъекта"); 
      

     ПараметрыРегистрации.Вставить("Назначение", МассивНазначений); 
      

     ПараметрыРегистрации.Вставить("Наименование", "Заполнить документ"); 
      

     ПараметрыРегистрации.Вставить("Версия", "1.0"); 
      

     ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина); 
      

     ПараметрыРегистрации.Вставить("Информация", "Дополнительная обработка табличной части к документу счет-фактура выданный аванс"); 
      

      

     ТаблицаКоманд = ПолучитьТаблицуКоманд(); 
      

      

     ДобавитьКоманду(ТаблицаКоманд, 
      

     "Заполнить документ", 
      

     "Заполнить документ", 
      

     "ВызовКлиентскогоМетода", 
      

     Истина); 
      

      

     ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд); 
      

      

     Возврат ПараметрыРегистрации; 
      

     КонецФункции 
      

      

     Функция ПолучитьТаблицуКоманд() 
      

     Команды = Новый ТаблицаЗначений; 
      

     Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка")); 
      

     Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка")); 
      

     Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка")); 
      

     Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево")); 
      

     Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка")); 
      

     Возврат Команды; 
      

     КонецФункции 
      

      

     Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "") 
      

     НоваяКоманда = ТаблицаКоманд.Добавить(); 
      

     НоваяКоманда.Представление = Представление; 
      

     НоваяКоманда.Идентификатор = Идентификатор; 
      

     НоваяКоманда.Использование = Использование; 
      

     НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение; 
      

     НоваяКоманда.Модификатор = Модификатор; 
      

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

Так как нам придется работать с формами объектов мы просто вынуждены использовать метод ВызовКлиентскогоМетода для вызова команды внешней обработки.

Напомню, при использовании ВызовСерверногоМетода с формами объектов работать не получится.

Так как мы использовали ВызовКлиентскогоМетода, то обязательную процедуру, для внешней подключаемой обработки заполнения объектов, ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначенияМассив) Экспорт, необходимо выполнять &НаКлиенте в модуле формы обработки, а значит создадим любую форму обработки, пользователь её всеравно не увидит, и поместим внутрь модуля формы следующий код:

Код 1C v 8.2 УП

 &НаКлиенте 
      

     Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначенияМассив) Экспорт 
      

     //Спросим у пользователя разрешение на продолжение обработки 
      

     Режим = РежимДиалогаВопрос.ДаНет; 
      

     Текст = "Текущие данные документа будут заменены новыми без возможности восстановления. 
      

     |Продолжить?"; 
      

     Ответ = Вопрос(Текст, Режим, 0); 
      

     Если Ответ = КодВозвратаДиалога.Да Тогда 
      

      

     //Если пользователь дал разрешение на продолжение, то начнем перебирать все 
      

     //документы, у которых мы планируем заполнить табличную часть 
      

     Для каждого Элемент из ОбъектыНазначенияМассив Цикл 
      

      

     //Зададим ключ поиска документа, из которого вызвана данная обработка, 
      

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

     //функции ОткрытьФорму() 
      

     КлючПоиска = Новый Структура("Ключ", Элемент); 
      

      

     //Но нам не надо открывать новую форму (окно) для изменяемого документа, а 
      

     //Нам надо все изменения показать в уже открытых у клиента окнах 
      

     Окна = ПолучитьОкна(); 
      

     Для каждого Окно из Окна Цикл 
      

      

     //Окно изменяемого документа будет точно не основным, а вспомогательным, поэтому 
      

     //сразу пропускаем основное окно, а далее идем на не очень хороший способ поиска открытого окна 
      

     //изменяемого документа. Мы просто переберем все окна, а в заголовке, которых будет встречаться 
      

     //Наименование, номер и дата нужного документа - будем изменять 
      

     Если НЕ Окно.Основное 
      

     И Найти(Окно.Заголовок, Элемент) Тогда 
      

     //Передадим ключ поиска (можно сказать ссылку на объект) и данные о найденном открытом окне 
      

     //в функцию ОткрытьФорму() 
      

     //Код находится в цикле на тот случай, если открытых окон изменяемого документа больше одного 
      

     Форма = ОткрытьФорму("Документ.СчетФактураВыданныйАванс.Форма.ФормаДокумента",КлючПоиска,,,Окно); 
      

      

     //Далее мы получаем объект только, что повторно открытой формы и помещаем её в переменную 
      

     //В объекте содержатся все реквизиты (элементы) формы 
      

     НовыйОбъект = Форма.Объект; 
      

      

     //Мы помещаем объект формы в переменную, 
      

     //так как должны передать её в процедуру на сервере, 
      

     //где нельзя изменять объект формы, зато можно править переменную содержащую его 
      

     ЗаполнитьОбъект(НовыйОбъект); 
      

      

     //После выполнения процедуры на сервере мы получаем изменную переменную НовыйОбъект, 
      

     //которую необходимо передать в уже полученную нами форму 
      

     КопироватьДанныеФормы(НовыйОбъект, Форма.Объект); 
      

     КонецЕсли; 
      

     КонецЦикла; 
      

      

     КонецЦикла; 
      

     КонецЕсли; 
      

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

Ниже приведу код, который у вас может быть совершенно другим и делать, какие-либо другие манипуляции с объектом формы:

Код 1C v 8.2 УП

 &НаСервере 
      

     Функция ЗаполнитьОбъект(НовыйОбъект) 
      

      

     Если ТипЗнч(НовыйОбъект.ДокументОснование) = Тип("ДокументСсылка.ПоступлениеБезналичныхДенежныхСредств") Тогда 
      

      

     Если НовыйОбъект.ДокументОснование.РасшифровкаПлатежа.Количество() > 0 Тогда 
      

     НовыйОбъект.Авансы.Очистить(); 
      

     КонецЕсли; 
      

      

     Для каждого СтрокаТЧ из НовыйОбъект.ДокументОснование.РасшифровкаПлатежа Цикл 
      

     НоваяСтрока = НовыйОбъект.Авансы.Добавить(); 
      

     Если ЗначениеЗаполнено(СтрокаТЧ.СчетНаОплату) Тогда 
      

     НоваяСтрока.Содержание = "Предварительная оплата" + ФормированиеПечатныхФорм.СформироватьЗаголовокДокумента(СтрокаТЧ.СчетНаОплату, НСтр("ru=' по счету на оплату'")); 
      

     КонецЕсли; 
      

     НоваяСтрока.Сумма = СтрокаТЧ.Сумма; 
      

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

     ТекПроцентНДС = ЦенообразованиеКлиентСервер.ПолучитьСтавкуНДСЧислом(НоваяСтрока.СтавкаНДС); 
      

     НоваяСтрока.СуммаНДС = ЦенообразованиеКлиентСервер.РассчитатьСуммуНДС(НоваяСтрока.Сумма, ТекПроцентНДС); 
      

     КонецЦикла; 
      

     КонецЕсли; 
      

      

     КонецФункции

Автор ApocalypseNTC

Информация взята с сайта http://helpf.pro

Заказать звонок

Сэкономьте время! Оставьте заявку на консультацию специалиста 1С.

Ваше имя

Телефон *

Подтвердите, что вы не робот *

Нажимая на кнопку , Вы даете согласие на обработку своих персональных данных и соглашаетесь с политикой конфиденциальности

Вконтакте

Содержание статьи

Рассылка нашего блога

Электронная почта *

Политика конфиденциальности персональных данных.

Настоящая Политика конфиденциальности персональных данных (далее – Политика) действует в отношении всей информации, которую данный сайт, может получить о Пользователе во время использования (а также его субдоменов), его программ и его продуктов.
1. Определение терминов.
В настоящей Политике используются следующие термины:
– персональные данные – любая информация, относящаяся к прямо или косвенно определенному юридическому или физическому лицу (субъекту персональных данных);
– оператор персональных данных – Администрация сайта (далее – Администрация) – сотрудники, уполномоченные на управление, которые организуют и (или) осуществляют обработку персональных данных, а также определяет цели обработки персональных данных, состав персональных данных, подлежащих обработке, действия (операции), совершаемые с персональными данными;
– обработка персональных данных – любое действие (операция) или совокупность действий (операций), совершаемых с использованием средств автоматизации или без использования таких средств с персональными данными, включая сбор, запись, систематизацию, накопление, хранение, уточнение (обновление, изменение), извлечение, использование, передачу (распространение, предоставление, доступ), обезличивание, блокирование, удаление, уничтожение персональных данных;
– конфиденциальность персональных данных – обязательное для соблюдения оператором или иным получившим доступ к персональным данным лицом требование не допускать их распространения без согласия субъекта персональных данных или наличия иного законного основания.;
– сайт — это совокупность связанных между собой веб-страниц, размещенных в сети Интернет по уникальному адресу (URL), а также его субдоменах;
– субдомены – это страницы или совокупность страниц, расположенные на доменах третьего уровня, принадлежащие сайту, а также другие временные страницы, внизу который указана контактная информация Администрации;
– пользователь сайта (далее Пользователь) – лицо, имеющее доступ к сайту, посредством сети Интернет и использующее информацию, материалы и продукты сайта.
2. Общие положения.
2.1 Назначение политики конфиденциальности.
2.1.1. Настоящая Политика конфиденциальности устанавливает обязательства Администрации по неразглашению и обеспечению режима защиты конфиденциальности персональных данных, которые Пользователь предоставляет .
2.2. Права и обязанности сторон.
2.2.1. Пользователь вправе:
2.2.1.1. Принимать свободное решение о предоставлении своих персональных данных, необходимых для использования сайта, и давать согласие на их обработку.
2.2.1.2. Обновить, дополнить предоставленную информацию о персональных данных в случае изменения данной информации.
2.2.1.3. Пользователь имеет право на получение у Администрации информации, касающейся обработки его персональных данных, если такое право не ограничено в соответствии с федеральными законами. Пользователь вправе требовать от Администрации уточнения его персональных данных, их блокирования или уничтожения в случае, если персональные данные являются неполными, устаревшими, неточными, незаконно полученными или не являются необходимыми для заявленной цели обработки, а также принимать предусмотренные законом меры по защите своих прав.
2.2.2. Администрация обязана:
2.2.2.1. Использовать полученную информацию исключительно для целей, указанных в п. 3 настоящей Политики конфиденциальности.
2.2.2.2. Принять меры для хранения конфиденциальной информации в тайне,
не разглашать без предварительного письменного разрешения Пользователя, а также
не осуществлять продажу, обмен, опубликование, либо разглашение иными
возможными способами переданных персональных данных Пользователя,
за исключением п. 6.3. настоящей Политики Конфиденциальности.
2.2.2.3. Принимать меры предосторожности для защиты конфиденциальности персональных данных Пользователя согласно порядку, обычно используемого для защиты такого рода информации в существующем деловом обороте.
2.2.2.4. Осуществить блокирование персональных данных, относящихся к соответствующему Пользователю, с момента обращения или запроса Пользователя, или его законного представителя либо уполномоченного органа по защите прав субъектов персональных данных на период проверки, в случае выявления недостоверных персональных данных или неправомерных действий.
2.3. Использование сайта Пользователем означает согласие с настоящей Политикой конфиденциальности и условиями обработки персональных данных Пользователя.
2.4. В случае несогласия с условиями Политики конфиденциальности Пользователь должен прекратить использование сайта.
2.5. Настоящая Политика конфиденциальности применяется к сайту.
2.6. Администрация не проверяет достоверность персональных данных, предоставляемых Пользователем.
3. Цели сбора персональных данных.
3.1. Персональные данные Пользователя Администрация может использовать только в связи с заключением договора, стороной которого является субъект персональных данных. Персональные данные не распространяются, а также не предоставляются третьим лицам без согласия субъекта персональных данных и используются оператором исключительно для исполнения указанного договора и заключения договоров с субъектом персональных данных.
4. Правовые основания обработки персональных данных.
Правовым основанием обработки персональных данных является:
– федеральные законы и принятые на их основе нормативные правовые акты, регулирующие отношения, связанные с деятельностью оператора;
– уставные документы оператора;
– договоры, заключаемые между оператором и субъектом персональных данных;
– согласие субъекта на обработку персональных данных;
5. Объем и категории обрабатываемых персональных данных, категории субъектов персональных данных.
5.1. Персональные данные, разрешённые к обработке в рамках настоящей Политики конфиденциальности, предоставляются Пользователем путём заполнения форм на сайте и включают в себя следующую информацию:
5.1.1. имя Пользователя;
5.1.2. контактный телефон Пользователя;
5.1.3. адрес электронной почты (e-mail).
5.2. К категориям субъектов персональных данных относятся работники оператора.
Порядок и условия обработки персональных данных.
6.1. Обработка персональных данных Пользователя осуществляется без ограничения срока, любым законным способом, в том числе в информационных системах персональных данных с использованием средств автоматизации или без использования таких средств.
6.3. Персональные данные Пользователя могут быть переданы уполномоченным органам государственной власти Российской Федерации только по основаниям и в порядке, установленным законодательством Российской Федерации.
6.4. Администрация принимает необходимые организационные и технические меры для защиты персональной информации Пользователя от неправомерного или случайного доступа, уничтожения, изменения, блокирования, копирования, распространения, а также от иных неправомерных действий третьих лиц.
6.5. Администрация совместно с Пользователем принимает все необходимые меры по предотвращению убытков или иных отрицательных последствий, вызванных утратой или разглашением персональных данных Пользователя.
7. Разрешение споров.
7.1. До обращения в суд с иском по спорам, возникающим из отношений между Пользователем и Администрацией, обязательным является предъявление претензии (письменного предложения или предложения в электронном виде о добровольном урегулировании спора).
7.2. Получатель претензии в течение 30 календарных дней со дня получения претензии, письменно или в электронном виде уведомляет заявителя претензии о результатах рассмотрения претензии.
7.3. При не достижении соглашения спор будет передан на рассмотрение Арбитражного суда.
7.4. К настоящей Политике конфиденциальности и отношениям между Пользователем и Администрацией применяется действующее законодательство Российской Федерации.
8. Дополнительные условия.
8.1. Администрация вправе вносить изменения в настоящую Политику конфиденциальности без согласия Пользователя.
8.2. Новая Политика конфиденциальности вступает в силу с момента ее размещения на сайте, если иное не предусмотрено новой редакцией Политики конфиденциальности.

Настройки

Назад к списку

Как заполнить табличную часть на основании документа

Заказать звонок

Рассылка нашего блога

Политика конфиденциальности персональных данных.

Поможем подобрать нужные приложения