Вызвать процедуру в форме перечисления из модуля формы документа?

Question

[SteepNET]

Добрый день! УТ 11.4
Возможно ли вызвать процедуру &НаКлиенте Процедура Заполнить(Команда) с определенными параметрами из модуля формы документа ПриЗаписи() ?

Располагается это все в форме Заказа клиента, по кнопке "Обеспечение" - "Заполнить обеспечение" выводиться форма "Перечисление.Форма.ИсполнениеЗаказа и в ней процедура Заполнить()
Хочу автоматизировать этот процесс и без открытия всяких форм сразу вызывать эту процедуру..
Это реально?

Форма документа

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

Форма.Перечисления.ВариантыОбеспечения

&НаКлиенте
Процедура Заполнить(Команда)
	
	ПереченьВариантов = Новый Массив();
	Если Отгрузить Тогда
		
		Если Параметры.СписокВыбора = Неопределено
			Или Параметры.СписокВыбора.НайтиПоЗначению(
				ПредопределенноеЗначение("Перечисление.ВариантыОбеспечения.Отгрузить")) <> Неопределено Тогда
			
			ПереченьВариантов.Добавить(ПредопределенноеЗначение("Перечисление.ВариантыОбеспечения.Отгрузить"));
			
		КонецЕсли;
		
		Если Параметры.СписокВыбора = Неопределено
			Или Параметры.СписокВыбора.НайтиПоЗначению(
				ПредопределенноеЗначение("Перечисление.ВариантыОбеспечения.ОтгрузитьОбособленно")) <> Неопределено Тогда
			
			ПереченьВариантов.Добавить(ПредопределенноеЗначение("Перечисление.ВариантыОбеспечения.ОтгрузитьОбособленно"));
			
		КонецЕсли;
		
	КонецЕсли;
	
	Если Резервировать Тогда
		ПереченьВариантов.Добавить(ПредопределенноеЗначение("Перечисление.ВариантыОбеспечения.СоСклада"));
	КонецЕсли;
	
	Если РезервироватьКСроку Тогда
		ПереченьВариантов.Добавить(ПредопределенноеЗначение("Перечисление.ВариантыОбеспечения.ИзЗаказов"));
	КонецЕсли;
	
	Если Обособленно Тогда
		ПереченьВариантов.Добавить(ПредопределенноеЗначение("Перечисление.ВариантыОбеспечения.Обособленно"));
	КонецЕсли;
	
	Если Требуется Тогда
		ПереченьВариантов.Добавить(ПредопределенноеЗначение("Перечисление.ВариантыОбеспечения.Требуется"));
	КонецЕсли;
	
	Если НеТребуется Тогда
		ПереченьВариантов.Добавить(ПредопределенноеЗначение("Перечисление.ВариантыОбеспечения.НеТребуется"));
	КонецЕсли;
	
	Результат = Новый Структура("ПереченьВариантов, ЗаполнятьЦелымиУпаковками");
	Результат.ПереченьВариантов = ПереченьВариантов;
	Результат.ЗаполнятьЦелымиУпаковками = ЗаполнятьЦелымиУпаковками;
	
	Если Параметры.ПроверятьЗаполнение И ПереченьВариантов.Количество() = 0 Тогда		
		Текст = НСтр("ru = 'Для заполнения необходимо установить хотя бы одну отметку'");
		ПоказатьПредупреждение(, Текст);		
	Иначе		
		ОповеститьОВыборе(Результат);		
	КонецЕсли;
КонецПроцедуры

Comments

[Sgr_A]

Разъясните, что именно вам нужно. Без описания процедур и где что располагается. Что в конечном итоге хотите получить?

[SteepNET]

Sgr_A, В документе "Заказ клиента" Еслить на форме кнопка в тч "Обеспечение" и в ней команда "Заполнить обеспечение" По ее нажатию вылезает форма что сделать с товарами в ТЧ "Отгрузить,Обеспечить и.т.д" По ее нажатию строки в ТЧ разбиваются автоматически, если товара достаточно то он ставит статус "Отгрузить" если не достаточно то разбивает и часть ставит отгрузить а часть "К обеспечению" Такое крайне удобное поведение и хочется автоматизировать при "Записи документа"

Answer 1

[SteepNET]

В общем в вопросе намудрил что то=\
Сделал проще ПередЗаписью в модуле формы вызвал процедуру ЗаполнитьОбеспечениеВУстановленномПорядке(ВыбранноеЗначение);
В ВыбранноеЗначение записал нужные мне значения массива.

Answer 2

[Дмитрий Кинаш]

Написано очень сумбурно: 1) В первом абзаце говорите, что хотите програмно заполнять форму перечисления из формы документа; 2) Но уже во втором абзаце пишите, что совсем не хотите открывать форму перечисления.

Базовые вещи, которые должны помочь помочь:

1) Если вы хотите извне некоторого объекта (не важно форма, модуль, обработка, константа и т.д.) вызывать существующую в его модуле процедуру/функцию, то у нее нужно установить признак экспортной.

2) Если есть процедуры в формах, а вы не хотите открывать формы, то нужно их переносить в модули объектов или в общие модули - всё, форма больше не нужна.

Comments

[SteepNET]

Ну в целом хотелось вызывать процедуру "перечисления" из модуля формы документа

В документе "Заказ клиента" Еслить на форме кнопка в тч "Обеспечение" и в ней команда "Заполнить обеспечение" По ее нажатию вылезает форма что сделать с товарами в ТЧ "Отгрузить,Обеспечить и.т.д" По ее нажатию строки в ТЧ разбиваются автоматически, если товара достаточно то он ставит статус "Отгрузить" если не достаточно то разбивает и часть ставит отгрузить а часть "К обеспечению" Такое крайне удобное поведение и хочется автоматизировать при "Записи документа"