Каталог решений - Отладка обработки по заполнению табличной части в конфигурации под замком. 1С 8.3

В БСП типовых конфигураций есть функционал по внедрению внешних отчетов и обработок в конфигурацию. Но отладка, например, обработок по заполнению табличных частей объектов конфигураций, находящихся под "замком", вызывает затруднения.

Здесь предлагается вариант небольшой доработки отлаживаемой обработки без необходимости снимать конфигурацию с замка. Это позволяет отлаживать обработку на рабочей базе, а не на копии, где данные могут быть неактуальны.

Для доработки надо:

• Добавить 2 реквизита формы: ВидОбработки (тип строка) и Назначение (тип Список значений с типом Строка)
   
• Добавить следующий код в процедуры модуля формы обработки:
   

1. Процедура ПриСозданииНаСервере
    

   
   &НаСервере
   Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
   	
   	// прочитаем сведения о внешней обработке
   	Об = РеквизитФормыВЗначение("Объект");
   	Попытка
   	// заполняются реквизиты для поиска открытого окна объекта, для которого предназначена обработка
   		СведОбр = Об.СведенияОВнешнейОбработке();
   		ВидОбработки = СведОбр.Вид;
   		Для каждого ОбНаз из СведОбр.Назначение Цикл
   			мд = Метаданные.НайтиПоПолномуИмени(ОбНаз);
   			Назначение.Добавить(ОбНаз, ?(ЗначениеЗаполнено(мд.ПредставлениеОбъекта), мд.ПредставлениеОбъекта, мд.Синоним));
   		КонецЦикла;
   	Исключение
   	КонецПопытки;
   	
   КонецПроцедуры
   
   

2. Процедура ПриОткрытии
    

   
   &НаКлиенте
   Процедура ПриОткрытии(Отказ)
   	
   	Если ВладелецФормы = Неопределено Тогда
   		// этот код выполняется, когда форма открыта не из документа (используется для отладки кода обработки через Файл - Открыть)
   		Окна = ПолучитьОкна();
   		Для каждого тОкно из Окна Цикл
   			//Окно изменяемого документа будет точно не основным, а вспомогательным, поэтому
   			//сразу пропускаем основное окно, а далее идем на не очень хороший способ поиска открытого окна
   			//изменяемого документа. Мы просто переберем все окна, а в заголовке какого встретится
   			//Наименование нужного документа - будем его изменять
   			Если НЕ тОкно.Основное Тогда
   				Нашли = Ложь;
   				Для каждого ОбНаз из Назначение Цикл
   					Если Найти(тОкно.Заголовок, ОбНаз.Представление) Тогда
   						ОбНаз.Пометка = Истина;
   						Нашли = Истина;
   						Прервать;
   					КонецЕсли;
   				КонецЦикла;
   				Если Нашли Тогда
   					//Код находится в цикле на тот случай, если открытых окон изменяемого документа больше одного
   					
   					//Далее мы получаем объект найденной открытой формы и помещаем её в переменную
   					//В объекте содержатся все реквизиты (элементы) формы
   					Объект.Ссылка = тОкно.Содержимое[0].Объект.Ссылка;
   					Прервать;
   				КонецЕсли;
   			КонецЕсли;
   		КонецЦикла;
   	КонецЕсли;
   	
   КонецПроцедуры
   
   

3. Процедура ВыполнитьЗаполнение (вызывается по кнопке формы)
    

   
   &НаКлиенте
   Процедура ВыполнитьЗаполнение(Команда)
   	
   	Если Не ВладелецФормы = Неопределено Тогда
   		НовыйОбъект = ВладелецФормы.Объект;
   	ИначеЕсли НЕ Объект.Ссылка.Пустая() Тогда
   		Для каждого ОбНаз из Назначение Цикл
   			Если ОбНаз.Пометка Тогда
   				ИмяОб = ОбНаз.Значение;
   				Прервать;
   			КонецЕсли;
   		КонецЦикла;
   		ВладелецФормы = ОткрытьФорму(ИмяОб+".Форма.ФормаДокумента", Новый Структура("Ключ", Объект.Ссылка));
   		НовыйОбъект = ВладелецФормы.Объект;
   	Иначе
   		Сообщить("Не выбран документ!");
   		Возврат;
   	КонецЕсли;	
   	
   	ДопПарам = Новый Структура("НовыйОбъект", НовыйОбъект);
   	
   	ОповещСогласияЗаполнить = Новый ОписаниеОповещения("ОбработкаСогласияЗаполнить", ЭтотОбъект, ДопПарам);
   	ПоказатьВопрос(ОповещСогласияЗаполнить, "Табличная часть документа будет очищена. Продолжить", РежимДиалогаВопрос.ДаНет);
   КонецПроцедуры
   
   

При создании на сервере формы обработки заполняются добавленные реквизиты формы видом обработки и списком документов, для которых предназначена обработка.

В процедуре ПриОткрытии проверяется заполненность параметра ВладелецФормы, который всегда заполнен для подключенной в конфигурацию обработки, поэтому добавленный код будет выполняться только когда обработка открывается интерактивно через меню Файл — Открыть. Если обработка открыта интерактивно, то выполняется поиск открытого окна заполняемого документа и при совпадении начала заголовка окна документа с представлением документа, сохраненного в списке Назначение, Ссылка на документ из найденного окна сохраняется в основном реквизите формы обработки Объект.Ссылка, а для позиции списка устанавливается пометка.

Для отладки обработки надо в режиме предприятия открыть окно формы документа, для которого предназначена отлаживаемая обработка, и затем открыть саму обработку. Ссылка открытого документа будет перехвачена в отлаживаемую обработку заполнения.

В процедуре ВыполнитьЗаполнение для отлаживаемой обработки осуществляется поиск имени объекта в списке реквизита Назначение, для которого была установлена пометка в процедуре ПриОткрытии, и открывается форма этого документа.

После заполнения документа выполняется функция
 

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

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

Если надо заполнять не только ТЧ документов, но и других объектов, то несложно допилить код обработки самостоятельно.