1с в модуле объекта получить значение реквизита формы в 1с

Установка значения в модуле формы и получение его в модуле объекта

Я
   NIGHTHUNTER

15.09.21 — 09:04

Внешний отчет. Устанавливаю значение в модуле формы, и значение реквизита формы и значение реквизита объекта.

Но потом в модуле объекта, в этом реквизите нет значения. Как правильно его там получить?

Установка в модуле формы:

    ЭтотОбъект.ИмяМакетаРеквФ    = РезультатВыбора.Значение;

    //

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

    ВнешнийОтчет.ИмяМакетаРеквОб = РезультатВыбора.Значение;

Получение в модуле объекта:

Как получить эти значения в модуле объекта внешнего отчета?

  

Партнерская программа EFSOL Oblako

   NIGHTHUNTER

1 — 15.09.21 — 09:05

В модуле объекта,

ЭтотОбъект.ИмяМакетаРеквОб

пусто, хотя устанавливалось в модуле формы.

   Ненавижу 1С

2 — 15.09.21 — 09:11

ЭтотОбъект.Отчет.ИмяМакетаРеквФ    = РезультатВыбора.Значение;

    //

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

    ПолучаемоеЗначение = ВнешнийОтчет.ИмяМакетаРеквОб;

   acht

3 — 15.09.21 — 09:20

(2) ИмяМакетаРеквФ, ИмяМакетаРеквОб — какая, в сущности, разница. Сейчас мы его взорвем =)

В форме на сервере:

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

ВнешнийОтчет.МоеЗначение = РезультатВыбора.Значение;

ВнешнийОтчет.МойМетод();

В модуле отчета:

Перем МоеЗначение Экспорт

Процедура МойМетод()

    Сообщить(МоеЗначение);

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

   NIGHTHUNTER

4 — 15.09.21 — 09:25

(2) В модуле объекта там пусто.

То есть при открытии формы. В модуле формы там устанавливается значение. А потом при нажатии кнопки в открытой уже форме,

в модуле объекта, в этом значении пусто.

   Ненавижу 1С

5 — 15.09.21 — 09:35

(4) короче, надо заполнять реквизит именно объекта

(3) не заметил, что у него они называются по разному

   acht

6 — 15.09.21 — 09:37

   NIGHTHUNTER

7 — 15.09.21 — 09:46

вот, провожу тест.

При открытии внешнего отчета, в модуле формы, —

http://joxi.ru/KAx3R4VTvwYQL2

потом в модуле объекта, внешнего отчета там пусто (((

http://joxi.ru/YmEbex8CBLezg2

   NIGHTHUNTER

8 — 15.09.21 — 09:48

(7) ну то есть ЭтотОбъект.ИмяМакетаРеквФ — там не доступен, а в ЭтотОбъект.ИмяМакетаРеквОб — пусто

   NIGHTHUNTER

9 — 15.09.21 — 09:50

Если тут все заполнилось

http://joxi.ru/KAx3R4VTvwYQL2

Как это получить в модуле объекта?

   acht

10 — 15.09.21 — 09:52

(9) Об этом тебе расскажут в части «Взаимодействие модуля формы с модулями объектов и менеджеров» курса.

   ДенисЧ

11 — 15.09.21 — 09:52

Вот смотри. Ты реквизитФормыВЗначение() сделал, данные написал. А обратно объект кто будет пихать? Откуда взял, туда и положи, раз уж так перанусно ходишь…

   NIGHTHUNTER

12 — 15.09.21 — 09:53

(2) ЭтотОбъект.Отчет — тут вообще нет никаких реквизитов

   NIGHTHUNTER

13 — 15.09.21 — 09:54

(11) Рк, сейчас попробую.

   NIGHTHUNTER

14 — 15.09.21 — 09:56

(11) Так ли будет?

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

    ВнешнийОтчет.ИмяМакетаРеквОб = РезультатВыбора.Значение;

    ЗначениеВРеквизитФормы(ВнешнийОтчет.ИмяМакетаРеквОб, «ИмяМакетаРеквОб»);

   acht

15 — 15.09.21 — 09:58

(11) Ну все, Денис. Взялся — возись =]

   NIGHTHUNTER

16 — 15.09.21 — 09:59

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

    ВнешнийОтчет.ИмяМакетаРеквОб = РезультатВыбора.Значение;

    ЗначениеВРеквизитФормы(ВнешнийОтчет, «Отчет»);

    //ЗначениеВРеквизитФормы(ВнешнийОтчет.ИмяМакетаРеквОб, «ИмяМакетаРеквОб»);

ошибку выдает

по причине:

Недопустимое значение параметра (параметр номер ‘2’)

вроде же все правильно!

   acht

17 — 15.09.21 — 10:01

Андрей, у тебя ж в этом году юбилей —  30 лет. Сколько из них ты уже с 1С мучаешся?

Может, пока не поздно, ну его, а?

   Ненавижу 1С

18 — 15.09.21 — 10:06

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

сразу в форме заполняй реквизит объекта:

ЭтотОбъект.Отчет.ИмяМакетаРеквОб = …

   acht

19 — 15.09.21 — 10:16

Я бы вообще дополнительные свойства настроек компоновщика использовал. Они, собственно, для этого и предназначены.

   ptiz

20 — 15.09.21 — 10:19

(0)  РеквизитФормыВЗначение(«Отчет») — этот код создаёт из Данных формы Новый экземпляр Объекта. Ты или должен его обратно превратить Объект в Данные формы, либо тут же, в этой же процедуре использовать этот экземпляр объекта. По-твоему коду непонятно — что ты дальше делаешь с этим экземпляром.

   NIGHTHUNTER

21 — 15.09.21 — 10:31

(18) тут нет никаких реквизитов http://joxi.ru/DrlGP4NfGdevLA

   NIGHTHUNTER

22 — 15.09.21 — 10:33

(20) Я задал реквизиту значение, затем хочу сохранить его

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

ВнешнийОтчет.ИмяМакетаРеквОб = РезультатВыбора.Значение;

ЗначениеВРеквизитФормы(ВнешнийОтчет, «Отчет»);

что не так в этой инструкции

ЗначениеВРеквизитФормы(ВнешнийОтчет, «Отчет»);

   NIGHTHUNTER

23 — 15.09.21 — 10:34

(20) как будет правильно превратить, Объект в данные формы?

   vicof

24 — 15.09.21 — 10:42

Поколдовать, епта

   NIGHTHUNTER

25 — 15.09.21 — 10:44

(20) я же так и делаю, но идет ошибка

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

ВнешнийОтчет.ИмяМакетаРеквОб = РезультатВыбора.Значение;

ЗначениеВРеквизитФормы(ВнешнийОтчет, «Отчет»);

по причине:

Недопустимое значение параметра (параметр номер ‘2’)

   NIGHTHUNTER

26 — 15.09.21 — 10:47

(11) я вот делаю в (25), как правильно?

   ptiz

27 — 15.09.21 — 10:49

(25) Какие типы значений у ВнешнийОтчет.ИмяМакетаРеквОб и РезультатВыбора.Значение ? Посмотри в отладчике.

   runoff_runoff

28 — 15.09.21 — 10:50

(0) ответ в (19)

   NIGHTHUNTER

29 — 15.09.21 — 10:55

(27) строка, это название макета

http://joxi.ru/BA08ePMCvqdXYA

   NIGHTHUNTER

30 — 15.09.21 — 10:56

(28) Мне они не известны, делаю пока по найденному примеру, но столкнулся что в нем не все работает.

Пробую разрешить это.

А (19) вообще не знакомо.

   runoff_runoff

31 — 15.09.21 — 11:01

(30) структура Отчет.КомпоновщикНастроек.ДополнительныеСвойства

   NIGHTHUNTER

32 — 15.09.21 — 11:20

(31) пустая структура, или даже 3 структуры, что с ними делать?

http://joxi.ru/RmznO4eijV71Xm

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

   NIGHTHUNTER

33 — 15.09.21 — 11:23

вот есть пример, он работает http://joxi.ru/bmo5Q4kU7lwa0A

почему мой код не работает ?

   hhhh

34 — 15.09.21 — 11:25

(33) в этом примере реквизиты не присваиваются.

   NIGHTHUNTER

35 — 15.09.21 — 11:57

(34) вот это не работает

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

ВнешнийОтчет.ИмяМакетаРеквОб = РезультатВыбора.Значение;

ЗначениеВРеквизитФормы(ВнешнийОтчет, «Отчет»);

как последнюю строку задать что бы работала?

Там задается значение реквизита. Как мне сделать что бы увидеть результат?

   runoff_runoff

36 — 15.09.21 — 12:01

Отчет.КомпоновщикНастроек.ДополнительныеСвойства.Вставить(«ИмяМакетаРеквОб», «ФакинЧикенШит»);

   NIGHTHUNTER

37 — 15.09.21 — 12:05

(36) Так, так , так …. сойчас испробую. Спасибо вам. За продвижение вопроса!!!! Буду испытывать!

   NIGHTHUNTER

38 — 15.09.21 — 12:08

(36) Один момент, — такого нет Отчет.КомпоновщикНастроек.ДополнительныеСвойства

Есть

Отчет.КомпоновщикНастроек.Настройки.ДополнительныеСвойства

Отчет.КомпоновщикНастроек.ПользовательскиеНастройки.ДополнительныеСвойства

Отчет.КомпоновщикНастроек.ФиксированныеНастройки.ДополнительныеСвойства

прав ли я что ваш пример вызовет ошибку?

   NIGHTHUNTER

39 — 15.09.21 — 12:08

(36) в какую структуру все же вставлять?

   Вафель

40 — 15.09.21 — 12:10

(39) ну возьми первую

   NIGHTHUNTER

41 — 15.09.21 — 12:10

(40) пробую!

   NIGHTHUNTER

42 — 15.09.21 — 13:03

При открытии отчета, в структуру значение прописалось

http://joxi.ru/eAObaQlC6GqRQ2

но при формировании, в модуле объекта, нет этого значения ((((

http://joxi.ru/n2Yl73nC70dKRm

   Kassern

43 — 15.09.21 — 13:11

(42) нда…Только что спецом даже проверил. Все работает!

Скорее всего у тебя в коде при компановке настройки сбрасываются или переопределяются.

   NIGHTHUNTER

44 — 15.09.21 — 13:15

(43) понятно, как бы это определить!

   Kassern

45 — 15.09.21 — 13:17

   NIGHTHUNTER

46 — 15.09.21 — 13:18

(43) Спасибо, да это работает. В самый конец перенес строку

    ИсточникНастроек   = Новый ИсточникДоступныхНастроекКомпоновкиДанных(АдресВремХран);

    Отчет.КомпоновщикНастроек.Инициализировать(ИсточникНастроек);

    Отчет.КомпоновщикНастроек.ЗагрузитьНастройки(СКД.НастройкиПоУмолчанию);

    //

    Отчет.КомпоновщикНастроек.Настройки.ДополнительныеСвойства.Вставить(«ИмяМакета», РезультатВыбора.Значение);    

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

   Kassern

47 — 15.09.21 — 13:18

(44) ну так встань ты точкой останова в начале процедуры и посмотри передается или нет)

   Kassern

48 — 15.09.21 — 13:18

(46) ну вот

   NIGHTHUNTER

49 — 15.09.21 — 13:37

(48) да они там перетирались видимо у меня.

Да это работает.

То есть выявилось. что создаешь хоть реквизит формы, хоть реквизит объекта, в модуле объекта его не увидеть?

   Kassern

50 — 15.09.21 — 13:44

(49) ну так всегда и было, реквизиты формы доступны лишь на форме. Модуль объекта о них ни слухом ни духом.

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

Создаешь реквизит, на форме Отчет.ТвойРеквизит=»Бла бла бла»;

Потом в модуле объекта просто обращаешься ТвойРеквизит, он будет твое значение содержать.

   Kassern

51 — 15.09.21 — 13:45

(50) реквизит создаешь у объекта, а не на форме, чтобы так работало.

   Kassern

52 — 15.09.21 — 13:45

(49) в итоге выяснилось, что у вас большие проблемы с УФ)

   hhhh

53 — 15.09.21 — 14:19

(51) не работает так. там реально пусто в процедуре ПриКомпоновкеРезультата. Потому что это 2 разных объекта.

   Kassern

54 — 15.09.21 — 14:25

(53) я только что проверял, все работает

   Kassern

55 — 15.09.21 — 14:29

   hhhh

56 — 15.09.21 — 14:43

(54) Тогда что не так у тс? Родился под несчастливой звездой?

   Kassern

57 — 15.09.21 — 14:53

(56) да хз что там у него. Значит как то не так заполняет либо плавает в понятиях.

   NIGHTHUNTER

58 — 15.09.21 — 15:39

   Kassern

59 — 15.09.21 — 15:43

(58) сравни свое обращение к реквизиту объекта и мое и найди различие

   NIGHTHUNTER

60 — 15.09.21 — 15:57

(59)

задавать я смог только так

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

    ВнешнийОтчет.ИмяМакетаРеквОб = РезультатВыбора.Значение;

и потом его нет в при компоновке результата в модуле объекта

а вы просто задаете Отчет.Тестовый =

у меня в Отчет. нет реквизита моего, хлотя он есть у объекта http://joxi.ru/BA08ePMCvqXJYA

   Kassern

61 — 15.09.21 — 15:59

(60) по кнопке на форме на сервере ты же можешь тупо написать Отчет.ИмяМакетаРеквОб =»Бла бла» ?

А дальше при компоновке просто обратиться к ИмяМакетаРеквОб

   Kassern

62 — 15.09.21 — 16:01

(60) в твоем случае основной реквизит формы это отчет? Он жирным выделен в реквизитах формы. Для внешнего отчета у него тип ВнешнийОтчет.ИмяОтчета.

   Kassern

63 — 15.09.21 — 16:02

вот к нему и обращаешься на форме чтобы заполнить реквизит объекта. А в модуле объекта на прямую обращаешься к реквизитам объекта.

   NIGHTHUNTER

64 — 15.09.21 — 16:18

(61) нет там в Отчет. реквизитов

   NIGHTHUNTER

65 — 15.09.21 — 16:21

(62) ну да http://joxi.ru/8AnQDeGsoKk4K2

Только Отчет как у вас не содержит реквизитов там

   NIGHTHUNTER

66 — 15.09.21 — 16:25

http://joxi.ru/krDbeX8CgdXVJ2

тестовый , как у вас Отчет.Тестовый =

тут не присвоится.

   runoff_runoff

67 — 15.09.21 — 16:29

(66) у него форма своя, а не общая.. для общей не работает..

   Kassern

68 — 15.09.21 — 16:30

(67) а он общую форму ковырял?) Я думал вообще у него своя форма со своим блекджеком и….

   NIGHTHUNTER

69 — 15.09.21 — 16:31

(67) Ясно.

(68) По примеру делаю. Там нужно было взять общую форму БСП.

  

NIGHTHUNTER

70 — 15.09.21 — 16:33

Ну тогда в общей форме решается через,

Отчет.КомпоновщикНастроек.Настройки.ДополнительныеСвойства.Вставить(«ИмяМакета», РезультатВыбора.Значение)

Skip to content

1С, получить из модуля объекта элемент формы

Получить из модуля объекта элемент формы

В разработке иногда возникает следующая ситуация:

  • Из модуля объекта требуется получить реквизит формы элемента;
  • При этом реквизит формы элемента (который необходимо получить) не сохраняется в реквизиты объекта;

План действий для решения задачи

  • Создать реквизит объекта «АдресВХ», тип строка неограниченной длины;

  • В свойствах формы элемента добавим обработчик «Перед записью»:

  • В обработчик добавим следующий программный код:
&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
	Объект.АдресВХ = ПоместитьВоВременноеХранилище(ТабДок);
КонецПроцедуры

В нашем случае во временной хранилище мы помещаем «ТабДок», данный реквизит будем получать в модуле объекта;

  • Переходим в модуль объекта и создаем процедуру «Перед записью», добавляем код:
Процедура ПередЗаписью(Отказ)
	ТабДок = ПолучитьИзВременногоХранилища(АдресВХ);    
КонецПроцедуры

В результате мы передали элемент из формы в модуль объекта, хоть и добавили в дерево метаданных вспомогательный реквизит «АдресВХ»;

Связанные статьи

Как обратиться к реквизитам формы

Автор Алексей_1985_06, 18 июн 2021, 11:32

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

Уважаемые программисты, подскажите как из модуля объекта (справочника) обратиться к реквизитам формы?
Необходимо сделать записи в РС, и при установлении отбора по периоду возникает ошибка:

Процедура ПриЗаписи(Отказ)
НаборЗаписейПаспорт = РегистрыСведений.ПаспортныеДанные.СоздатьНаборЗаписей();
НаборЗаписейПаспорт.Отбор.Сотрудник.Установить(Ссылка);
НаборЗаписейПаспорт.Отбор.Период.Установить(ДатаВыдачиПаспорта); // ДатаВыдачиПаспорта - сохраняемый реквизит формы
КонецПроцедуры

Ошибка: {Справочник.Сотрудники.МодульОбъекта(69,45)}: Переменная не определена (ДатаВыдачиПаспорта)
НаборЗаписейПаспорт.Отбор.Период.Установить(<<?>>ДатаВыдачиПаспорта); // Устанавливаем отбор по периоду (указываем дату выдачи паспорта) (Проверка: Сервер)


в модуле объекта — ни как,
меняйте логику
на форме сделайте кнопку: Сохранить паспортные данные
обработка начинается  в форме на клиенте
затем переходите в процедуру &НаСервере
все это в контексте формы
и вот в этом случае вам доступны все реквизиты формы

создаете свой набор записей, заполняете, записываете

если помогло нажмите: Спасибо!


Цитата: LexaK от 18 июн 2021, 12:45
в модуле объекта — ни как,
меняйте логику
на форме сделайте кнопку: Сохранить паспортные данные
обработка начинается  в форме на клиенте
затем переходите в процедуру &НаСервере
все это в контексте формы
и вот в этом случае вам доступны все реквизиты формы

создаете свой набор записей, заполняете, записываете

LexaK громадное ВАМ СПАСИБО!!! Все получилось как надо! :ooifh::ooifh::ooifh:


gvk2009 подробно и доходчиво описал разницу методов, за что ему огромное спасибо:

В Синтаксис-Помощнике очень скупо написано о процедуре ДанныеФормыВЗначение(), чуть побольше — о РеквизитФормыВЗначение(). И совсем нет примеров использования. Попробуем с этим разобраться.

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

Является методом управляемой формы, компилируется только &НаСервере, контекст формы является для него необходимым, поэтому компиляция &НаСервереБезКонтекста недоступна. На клиенте не работает, поскольку в результате получаем прикладной объект.

Где и когда его нужно использовать?

Метод РеквизитФормыВЗначение() необходим, если требуется из модуля формы вызвать стандартный метод объекта или метод (процедуру, функцию) из модуля объекта, из общего модуля.

Этот метод будет отрабатывать с данными, взятыми из формы, т.е. еще не записанными в базу.

Для того, чтобы измененные данные вернуть на форму, используется метод ЗначениеВРеквизитФормы().

Вторым параметром метода РеквизитФормыВЗначение является тип значения. Это необязательный параметр. Если обрабатываемый реквизит не является составным типом, то тип будет автоматически получен из реквизита формы. Иначе генерируется исключение времени выполнения.

Примеры:

Код 1C v 8.2 УП

 // 1)
&НаСервере
Процедура ЗаполнитьТЧПоДаннымПоследнегоДокумента(Контрагент)
            ДокОбъект = РеквизитФормыВЗначение("Объект");
            ДокОбъект.ЗаполнитьТЧПоДаннымПоследнегоДокумента(Контрагент);
            ЗначениеВРеквизитФормы(ДокОбъект, "Объект");
КонецПроцедуры

// 2)
&НаСервере
Процедура ОчиститьСтрокиСПустойЦенойНаСервере()
ДокОбъект = РеквизитФормыВЗначение("Объект");
ДокОбъект.ОчиститьСтрокиСПустойЦеной();
ЗначениеВРеквизитФормы(ДокОбъект, "Объект");
КонецПроцедуры

//3)
&НаСервере
Функция ОбъектЗаполнен()
Возврат РеквизитФормыВЗначение("Объект").ПроверитьЗаполнение();
КонецФункции

В указанных выше случаях метод РеквизитФормыВЗначение() похож на метод ПолучитьОбъект(). Разница в том, что первый получает объект, заполненный данными формы, а второй — объект с данными из базы.

ДанныеФормыВзначение()

В отличие от метода управляемой формы РеквизитФормыВЗначение(), процедура глобального контекста ДанныеФормыВЗначение() может работать без контекста формы, но именно поэтому, в частности, ей необходимо указывать тип конвертируемых данных.

Обратной процедурой является ЗначениеВДанныеФормы().

Примеры:

Код 1C v 8.2 УП

 // 1)
   &НаСервере
       // Инициализация набора констант
       НаборКонстантОбъект = ДанныеФормыВЗначение(НаборКонстант, Тип("КонстантыНабор"));
       НаборКонстантОбъект.Прочитать();
       ЗначениеВДанныеФормы(НаборКонстантОбъект, НаборКонстант);

// 2)
  &НаСервере  
       НаборФорма = Объект.Движения.РегистрУправленческий;
       Набор = ДанныеФормыВЗначение(НаборФорма, Тип("РегистрБухгалтерииНаборЗаписей.РегистрУправленческий"));
       Если Набор.Количество()=0 Тогда
              Возврат;
       КонецЕсли; 
       Набор.УстановитьАктивность(НЕ Набор[0].Активность);
       ЗначениеВДанныеФормы(Набор, НаборФорма);

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

Код 1C v 8.2 УП

 // 3)
&НаКлиенте
Процедура Заполнить(Команда)
       ОснРеквизит = Объект;
       ВыполнитьНаСервереБезКонтекста(ОснРеквизит);
       КопироватьДанныеФормы(ОснРеквизит,Объект)
КонецПроцедуры

&НаСервереБезКонтекста
Процедура ВыполнитьНаСервереБезКонтекста(ОснРеквизит)
       ОбъектЗначение = ДанныеФормыВЗначение(ОснРеквизит, Тип("ДокументОбъект.АктСверкиВзаиморасчетов"));
       //...Выполнение операций с Объектом "ОбъектЗначение"
       ЗначениеВДанныеФормы(ОбъектЗначение, ОснРеквизит);
КонецПроцедуры

В этом примере на клиент возвращается ОснРеквизит, содержащий измененные данные. Но его еще нужно «запихать» в отображаемую форму. Для этого используем процедуру глобального контекста КопироватьДанныеФормы().

В большинстве случаев процедуры ДанныеФормыВзначение() и РеквизитФормыВЗначение() взаимозаменяемы. При этом РеквизитФормыВЗначение проще в использовании. Но если требуется использование &НаСервереБезКонтекста — тогда только ДанныеФормыВЗначение.

В качестве иллюстрации взаимозаменяемости Пример 2 еще в двух вариантах:

Код 1C v 8.2 УП

 // ВАРИАНТ 1
&НаКлиенте
Процедура Активность(Команда)

       ОснРеквизитДвижения = Объект.Движения.РегистрУправленческий;
       АктивностьНаСервереБезКонтекста(ОснРеквизитДвижения);
       КопироватьДанныеФормы(ОснРеквизитДвижения,Объект.Движения.РегистрУправленческий);

КонецПроцедуры // Активность()

&НаСервереБезКонтекста
Процедура АктивностьНаСервереБезКонтекста(ОснРеквизитДвижения)

       Набор = ДанныеФормыВЗначение(ОснРеквизитДвижения, Тип("РегистрБухгалтерииНаборЗаписей.РегистрУправленческий"));
       Если Набор.Количество()=0 Тогда
              Возврат;
       КонецЕсли; 
       Набор.УстановитьАктивность(НЕ Набор[0].Активность);
       ЗначениеВДанныеФормы(Набор, ОснРеквизитДвижения);

КонецПроцедуры // АктивностьНаСервереБезКонтекста()

// ВАРИАНТ 2
&НаСервере
Процедура АктивностьНаСервере()

       НаборФорма = РеквизитФормыВЗначение("Объект");
       Набор = НаборФорма.Движения.РегистрУправленческий;

       Если Набор.Количество()=0 Тогда
              Возврат;
       КонецЕсли; 

       Набор.УстановитьАктивность(НЕ Набор[0].Активность);
       ЗначениеВРеквизитФормы(НаборФорма, "Объект");

КонецПроцедуры // АктивностьНаСервере()

Содержание:

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

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

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

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

Элементы формы 1С 8.3 могут содержать реквизиты двух видов: реквизиты объекта 1С и реквизиты формы.

Красным помечен реквизит объекта 1С Контрагент, а зеленым – реквизит формы в 1С.

Интерактивно выберем эти элементы в пользовательском режиме 1С и попробуем прочитать их «программно» кнопкой «Прочитать».

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


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

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

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

Именно на сервере у элемента формы 1С 8.3 становится доступно свойство ПутьКДанным, по которому его можно извлечь либо из Объекта, который имеет тип ДанныеФормыСтруктура:

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


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

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


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


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


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

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

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

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


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

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

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

&НаКлиенте
Процедура ПолучитьИННПоставщика(Команда)
   ИННПоставщика = ПолучитьИНННаСервере(Объект.Поставщик);
КонецПроцедуры 

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

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

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

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

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

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

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

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

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

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

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

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

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

Пример:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Это табличное поле!! ВыданныеАвансы
=======================
НомерСтроки 1
ДокументАванса Расходный кассовый ордер ТК000000004 от 15.02.2007 19:24:03
СуммаДокументаАванса 300
ВалютаДокументаАванса USD
Выдано 300
Сумма 174

 Такое двойное сканирование удобно использовать для быстрой проверки того, что все колонки таб части формы имеют связь с реквизитами таб части объекта. Если такой связи у какой-либо колонки нет, система сгенерирует ошибку.

Понравилась статья? Поделить с друзьями:

Другие крутые статьи на нашем сайте:

0 0 голоса
Рейтинг статьи
Подписаться
Уведомить о
guest

0 комментариев
Старые
Новые Популярные
Межтекстовые Отзывы
Посмотреть все комментарии