Получить значения реквизитов формы на сервере

Задача заключается в том, чтобы получить реквизит от ссылочного значения, хранящегося в реквизите формы. Например у документа Накладная есть реквизит ссылочного типа – Поставщик. Необходимо получить ИНН этого поставщика:

Мы находимся в модуле формы на клиенте. В контексте клиента ссылочные типы очень сильно ограничены в своих возможностях. В частности, нельзя получить значение реквизита от ссылки «через точку». Это можно сделать только в контексте сервера.

Поэтому для решения этой задачи в модуле формы создадим серверную внеконтекстную функцию, которую вызовем с клиента и передадим в нее ссылку на поставщика. В теле функции, на сервере, мы получим ИНН поставщика и вернем его на клиента.

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

&НаКлиенте
Процедура ПолучитьИННПоставщика(Команда)

   ИННПоставщика = ПолучитьИНННаСервере(Объект.Поставщик);

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

А функцию ПолучитьИНННаСервере() опишем здесь же, в модуле формы:

&НаСервереБезКонтекста
Функция ПолучитьИНННаСервере(СсылкаНаПоставщика)

   Возврат СсылкаНаПоставщика.ИНН;

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

Таким образом на сервере мы сразу же получаем значение реквизита «через точку» от полученной ссылки и возвращаем его на клиента.

Важно заметить, что функция ПолучитьИНННаСервере() не использует контекст формы (директива компиляции &НаСервереБезКонтекста). Потому что все, что нужно передать на сервер, – это только ссылка, и мы передаем ее в параметре функции. Использовать контекстный вызов и передавать на сервер весь контекст формы только ради того, чтобы на сервере взять из него значение одного реквизита формы, — это слишком расточительно.

Содержание:

1.    Реквизиты объекта и реквизиты формы в 1С

2.    Как получить значения из элементов формы 1С  

1.    Реквизиты объекта и реквизиты формы в 1С

В обычном приложении у элемента формы 1С 8.3 было свойство «Значение», доступное как для чтения, так и для записи. Какой аналог в управляемом приложении?

Если читать значения реквизитов в клиентской процедуре, то код для 1С Предприятия будет следующий:

Все бы хорошо: мы получили на клиенте значения реквизитов объекта 1С и формы, но – не значения элементов формы 1С. На клиенте значение элементов формы 1С получить нельзя. 

2.    Как получить значения из элементов формы 1С

Чтобы получить значения из элементов формы 1С, нам потребуется серверный вызов:

…либо из Формы, которая имеет тип ФормаКлиентскогоПриложения:

Форма и ее элементы не видны на сервере без контекста. То есть код для 1С:Предприятия выдаст множество ошибок.

Также Форму нельзя передать как параметр в процедуру и функцию на сервер или в общий модуль.

            Еще хочется разобрать момент, когда нам возможно увидеть состояние различающихся значений в элементе форме 1С и в объекте. Это возможно в событии элемента ОбработкаВыбора.
Например, при значении поля Контрагент — Ассоль, мы выбрали контрагента Бакалея:

Новое значение доступно как параметр процедуры ВыбранноеЗначение.

Система дает шанс что-то сделать в этой ситуации.

Специалист компании ООО «Кодерлайн»

Добрыгин Михаил

29.05.14 — 19:01

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

1 — 29.05.14 — 19:14

Это очень сложный и топовый вопрос. Его задают здесь каждый день вместо того что бы пользоваться поиском.

РеквизитФормыВЗначение

2 — 29.05.14 — 19:28

3 — 29.05.14 — 19:29

(2) заставь себя написать в конце ЗначениеВРеквизитФормыБлеать()

4 — 29.05.14 — 19:31

Вместо:

Документ = РеквизитФормыВЗначение(«Объект»);

можно написать

Документ = Объект

5 — 29.05.14 — 19:33

(3) даже боюсь спрашивать — ты такой злой ) где в конце то? у меня ошибка в  Запрос.УстановитьПараметр(«ТорговаяТочка», ТорговаяТочка);

6 — 29.05.14 — 19:34

(4) что это изменит? Мне так сам конеткст докумнта не нужен, мне тупо реквизит нужен для фильтра в запросе….

7 — 29.05.14 — 19:35

Я так понимаю я в переменную ТорговаяТочка херню какую то пишу, хотя там СправочникСсылка

8 — 29.05.14 — 19:36

(4) можно, но результат будет совсем другим

(5) текст ошибки ты предлагаешь угадать?

9 — 29.05.14 — 19:37

(8)

{Документ.Пересменок.Форма.ФормаДокумента.Форма(34)}: Ошибка при вызове метода контекста (Выполнить)

    РезультатЗапроса = Запрос.Выполнить();

по причине:

{(6, 50)}: Неверные параметры «РегистрНакопления.Остатки.Остатки, 0»

РегистрНакопления.Остатки.Остатки(ТорговаяТочка <<?>>= &ТорговаяТочка) КАК ОстаткиОстатки

10 — 29.05.14 — 19:38

Отладчик предлагали?

11 — 29.05.14 — 19:40

(10) в отладчике значение есть

ТорговаяТочка    Точка1     СправочникСсылка.ТорговыеТочки

12 — 29.05.14 — 19:40

(9) измерения такого нет у регистра, параметр тут ни при чем

13 — 29.05.14 — 19:40

Это после этой строчки

ТорговаяТочка = Документ.ТорговаяТочка; (на сервере)

14 — 29.05.14 — 19:41

(12) Есть. Это первое что я перепроверил. Запрос конструктором делал

15 — 29.05.14 — 19:42

А может сначала период нужно задать?

16 — 29.05.14 — 19:44

(15) да мне тупо остатки нужны какие есть. До периода я еще не дошел ) К слову без фильтра по ТТ запрос работатет.

17 — 29.05.14 — 19:44

Точнее можно и не задавать. попробуй магический знак припинания вызвать

18 — 29.05.14 — 19:45

(17) Что? ))

19 — 29.05.14 — 19:46

И вообще юзай конструктор запроса. Он оградит тебя от незнания пунктуации при описании параметров виртуальных таблиц

20 — 29.05.14 — 19:47

(19) я в 14 сообщении и написал что делал констуруктором!

21 — 29.05.14 — 19:47

Есть игра такая «Найди 2 отличия»

|    РегистрНакопления.Остатки.Остатки(ТорговаяТочка = &ТорговаяТочка) КАК ОстаткиОстатки»;

|    РегистрНакопления.Остатки.Остатки(&МоментВремени, ТорговаяТочка = &ТорговаяТочка) КАК ОстаткиОстатки»;

22 — 29.05.14 — 19:49

(20) Гагага! Харошь заливать. Каким конструтором? Лего что ль?

1Совский конструктор запросов комментарии не оставляет

23 — 29.05.14 — 19:50

Все я понял. Спасибо

24 — 29.05.14 — 19:50

пустой парамерт забыл передать

Я слелал констурктором, потом корректировал его руками

25 — 29.05.14 — 19:52

26 — 29.05.14 — 19:52

Ладно, не усмотрел. теперь буду думать как вернуть данные в таблицу формы…..

27 — 29.05.14 — 19:54

28 — 29.05.14 — 20:46

29 — 29.05.14 — 20:46

А может так?

ТорговаяТочка = РеквизитФормыВЗначение(«ТорговаяТочка»);

30 — 29.05.14 — 21:30

(14) заставь себя и условие тоже конструктором задатьблеать

31 — 29.05.14 — 22:34

(29) харе прикалываться. Тип СправочникСсылка существует и не объекте и на сервере. Не нужно здесь  РеквизитФормыВЗначение.

32 — 29.05.14 — 22:35

Запрос.УстановитьПараметр(«ТорговаяТочка», Объект.ТорговаяТочка);

33 — 29.05.14 — 23:19

(31) Без приколов. Я УФ еще не знаю. А тут пишу что бы поддерживать диалог и чего то цеплять для себя.

34 — 29.05.14 — 23:27

(31) пля, да при чем тут?..

проблема в (2) и (9) от того, что у виртуальной таблицы два параметра и в первом конструкция «что-то = что-то еще» недопустима.

35 — 29.05.14 — 23:54

(34) ну это понятно, уже ведь объяснили автору

36 — 30.05.14 — 00:06

Вот двоешники емае.

37 — 30.05.14 — 00:06

38 — 30.05.14 — 00:07

А вот если в модуле объекта тогда да — нужно все передавать через структуру параметров.

39 — 30.05.14 — 00:08

40 — 30.05.14 — 00:10

41 — 30.05.14 — 11:57

42 — 30.05.14 — 12:05

Лефмихалыч, ты как Йода )) не понимаю что ты говоришь. Какое условие? В конструкторе я на виртуальную таблицу наложил условие по торговой точке и по периоду. Это видно по закомментированным строкам в листинге. С ТТ разобрались, а моментвремени() из модуля формы пока хз как вызвать (ну типа актуальные остатки нужны)

Сейчас пытаюсь вникнуть как теперь вернуть номенклатуруколичество в форму ))) После 7.7 туго все идет. Это клиент серверное взаимодействие

(40) ты бы вник сначала в (9) там блеать видно что закомментирована строка сгенерированная конструктором из-за проблемы с периодом, скопировал ее и убрал момент времени. Запятую не подумал оставить (точнее не подумал что параметр дата по любому идет первым). Ты там сидишь за компом, самоутвержаешься, а в реале за такие необоснованные слова тебе бы уже е.бальник разбили. Глазки в пол и побежал. М.удила )

Фунции отвечающие за обмен данных с формой на сервере.

 &НаСервере

Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)

	
	ДокументОбъект = РеквизитФормыВЗначение("Объект");

	ПеречитатьДанныеПоСертификатам(ДокументОбъект);

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

 // При изменении реквизитов

&НаСервере

Процедура ПриИзмененииПартнераСервер()

	
	СправочникОбъект = РеквизитФормыВЗначение("Объект");

	СправочникОбъект.ЗаполнитьУсловияПродажПоУмолчанию();

	ЗначениеВРеквизитФормы(СправочникОбъект, "Объект");

	
	УстановитьВидимостьЭлементовПоРегулярностиСервер();

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

 &НаСервере

Функция НовыйЭлементСправочника()


	СправочникОбъект = ДанныеФормыВЗначение(Объект, Тип("СправочникОбъект.Номенклатура"));	

	СправочникОбъект.Записать();

............................

 &НаСервере

Процедура НовыйЧекНаСервере()

	
	НовыйЧек = Документы.ЧекККМ.СоздатьДокумент();

	НовыйЧек.Партнер = Справочники.Партнеры.РозничныйПокупатель;

	НовыйЧек.ОбработкаЗаполнения(Новый Структура("КассаККМ", Объект.КассаККМ), Истина);

	
	ЗначениеВДанныеФормы(НовыйЧек, Объект);

Получить ( установить) значение реквизита управляемой формы.

Автор nataliya_vl, 07 сен 2016, 19:51

0 Пользователей и 1 гость просматривают эту тему.

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

Если реквизит объекта «вытащен» на форму, то реквизит формы можно получить через объект ЭлементыФормы, который содержит коллекцию элементов формы, сканируя ее в цикле:

ДокСсылка = СсылкаНаДокумент(ТипДокумента, НомерДок);
ДокОбъект = ДокСсылка.ПолучитьОбъект();
 
ФормаОбъекта = ДокОбъект.ПолучитьФорму();
Для Каждого Элемент Из ФормаОбъекта.ЭлементыФормы Цикл
        Сообщить(Элемент);
КонецЦикла;     
 

Этот цикл позволяет просмотреть имена а так же типы всех реквизитов формы, в том числе такие реквизиты как надписи, командные панели и тд.

Реквизиты формы могут быть различных типов. Поставив фильтр в виде типа реквизита мы можем просмотреть реквизиты определенного типа.

Если реквизит формы имеет тип «ТабличноеПоле», то можно такой элемент просканировать во вложенном цикле и узнать имена колонок таблицы:

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

Как получить значение отдельного реквизита формы?

Чаще требуется получать не массив реквизитов формы,  а значение отдельных конкретных реквизитов формы. Например реквизиты «Шапки» или «Подвала» формы документа.

Пример:

 
ФормаОбъекта = ДокОбъект.ПолучитьФорму("ФормаДокумента");
Поставщик = ФормаОбъекта.ЭлементыФормы.Поставщик;
Поставщик = ФормаОбъекта.ЭлементыФормы.Получатель;
Сообщить(ФормаОбъекта.ЭлементыФормы.ТаблПоле.Колонки.Количество());
 

Реквизиты шапки могут иметь различные типы: Дата, СправочникСсылка, ЧекБокс, элемент раскрывающегося списка и др.

Как получить значение элементов табличной части формы?

Доступ к табличной части формы через объект

Доступ к табличной части формы (например: Товары) можно получить через объект:

 
  ДокОбъект = Док.ПолучитьОбъект(); //здесь Док - ссылка на объект
  //просканируем построчно таб часть документа
  Для Каждого Стр из ДокОбъект.Товары Цикл
      Номенклатура = Стр.Номенклатура;
      Стр.Коэффициент = 1;
  КонецЦикла;
 

Здесь ДокОбъект.Товары — это табличная часть «Товары» объекта. Далее в цикле табличная часть построчно сканируется!
В каждой итерации цикла можно получить доступ к любому полю строки указав через точку имя этого поля:

      Номенклатура = Стр.Номенклатура;

Доступ к табличной части формы через ЭлементыФормы

Табличная часть объекта и табличная часть формы объекта — это не одно и то же!

Для того, чтобы код работал правильно, надо чтобы колонка формы табчасти объекта в свойстве данные ссылалась на реквизит табличной части объекта. Этим определяется тип колонки таб части формы.

То есть должна быть установлена связь между реквизитом табчасти объекта и реквизитом табчасти формы. Форм у объекта метаданных может быть много мы знаем. Табличную часть формы объекта можно получить через объект ЭлементыФормы:

Объект ЭлементыФормы используется для доступа к элементам управления, расположенным на форме, в частности к таб части документа.

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

Результат для документа Авансовый отчет:

Это табличное поле!! Товары
Количество строк: 4
Женские ботфорты коричневые
Ботинки женские демисезонные
Ботинки женские натуральная кожа
Женские босоножки       

Если надо получить значение всех колонок всех строк, то организуем дважды вложенный цикл:
Во внешнем цикле сканируются строки, во внутреннем — колонки:

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

Результат для документа Авансовый отчет: