Перейти к контенту
Перейти в раздел примеры кода 1С 8.3:
1С 8.3 БСП ЗначениеРеквизитаОбъекта. Возвращает значения реквизита, прочитанного из информационной базы по ссылке на объект. Рекомендуется использовать вместо обращения к реквизитам объекта через точку от ссылки на объект для быстрого чтения отдельных реквизитов объекта из базы данных. Функция доступна только на сервере, но если нужно получить реквизит на клиенте, то я ищу модуль ВызовCервера, например, в БП 3.0 это ОбменСКонтрагентамиСлужебныйВызовСервера.ЗначениеРеквизитаОбъекта/
Примера кода от rayastar
&НаКлиенте
Процедура ЗначениеРеквизитаОбъекта(Команда)
// Использование на клиенте.
СтранаПроисхождения = ОбщегоНазначенияРТВызовСервера.ЗначениеРеквизитаОбъекта(Номенклатура,«СтранаПроисхождения»);
// Использование на сервере
СтранаПроисхождения = СтранаПроисхождения();
КонецПроцедуры
&НаСервере
Функция СтранаПроисхождения()
Возврат ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Номенклатура, «СтранаПроисхождения»);
КонецФункции
// Автор библиотеки: ООО «1С-Софт». Все права защищены © 2021
// Типовая конфигурация Библиотека стандартных подсистем (далее — БСП)
// Код БСП распространяется по лицензии Attribution 4.0 International (CC BY 4.0):
// ссылка на лицензию: https://creativecommons.org/licenses/by/4.0/legalcode
Функция БСП
Функция ЗначениеРеквизитаОбъекта(Ссылка, ИмяРеквизита, ВыбратьРазрешенные = Ложь) Экспорт
Если ПустаяСтрока(ИмяРеквизита) Тогда
ВызватьИсключение
НСтр(«ru = ‘Неверный второй параметр ИмяРеквизита в функции ОбщегоНазначения.ЗначениеРеквизитаОбъекта:
|- Имя реквизита должно быть заполнено'»);
КонецЕсли;
Результат = ЗначенияРеквизитовОбъекта(Ссылка, ИмяРеквизита, ВыбратьРазрешенные);
Возврат Результат[СтрЗаменить(ИмяРеквизита, «.», «»)];
КонецФункции
// Автор библиотеки: ООО «1С-Софт». Все права защищены © 2021
// Типовая конфигурация Библиотека стандартных подсистем (далее — БСП)
// Код БСП распространяется по лицензии Attribution 4.0 International (CC BY 4.0):
// ссылка на лицензию: https://creativecommons.org/licenses/by/4.0/legalcode
Функция на клиенте
ОбщегоНазначенияУТВызовСервера.ЗначенияРеквизитовОбъекта(Ссылка, ИмяРеквизита, ВыбратьРазрешенные);
Copyright©, «Программист 1С в г.Минске», 07.06.2021
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник
УФ. Как получить данные через элемент управления на клиенте? |
Я |
18.02.14 — 12:23
Есть ссылка на поле ввода формы справочника, источником данных у которого — реквизит справочника (ссылочного типа).
Как можно на клиенте получить значение этого реквизита справочника (ссылку) без серверных вызовов? Или это невозможно?
Зная имя реквизита, могу сделать это напрямую: Объект.ИмяРеквизита.
А если есть только ссылка на поле ввода? ПутьКДанным непонятно какого рожна только на сервере доступен…
1 — 18.02.14 — 12:44
Ммм?
2 — 18.02.14 — 12:45
>>Есть ссылка на поле ввода формы справочника
дальше можно не читать
3 — 18.02.14 — 12:55
>>дальше можно не читать
Ага. Давай, до свиданья.
4 — 18.02.14 — 12:57
(3) Это ты зря.
Что сделать то хочешь, напиши словами без привязки к формам 1С
5 — 18.02.14 — 13:00
(0) если элементы управления именовать согласованно, то объект[f(Элемент.Имя)]
6 — 18.02.14 — 13:12
На клиенте доступна ТОЛЬКО ССЫЛКА. Все остальное — на сервере.
7 — 18.02.14 — 13:28
(6) да ладно?
8 — 18.02.14 — 13:33
(7) а что есть способ получить значение реквизита объекта прямо таки на клиенте?!
9 — 18.02.14 — 13:44
(7) Ну-ка, продемонстрируй.
10 — 18.02.14 — 13:47
Автор, если тебе нужно получить Реквизит реквизита, то это сделать можно на клиенте, если заранее знаешь, какой реквизит реквизита тебе нужен. Создай элемент управления с источником данных — реквизит реквизита. И вуаля, после создания формы у тебя в элементе управления значение реквизита реквизита.
Но если тебе заранее не известно — тогда не получится.
11 — 18.02.14 — 13:52
(0) В любом серверном общем модуле:
Функция ПолучитьРеквизит(Ссылка, Реквизит) Экспорт
Возврат Ссылка[Реквизит];
КонецФункции
Только тс-с-с. Я тебе этого не говорил.
12 — 18.02.14 — 14:25
(11) не бойся, мы не кому не скажем, что ты читать не умеешь. Вопрос был в том, как это сделать, НЕ ВЫЗЫВАЯ СЕРВЕР. Но мы, повторяю, никому не скажем, что ты не умеешь читать.
13 — 18.02.14 — 14:31
(12) ты читаешь не лучше, вопрос совсем не про вызов сервера
14 — 18.02.14 — 14:57
(12) Ах-ах. Мне-то казалось, что то, что нельзя получить произвольный реквизит без вызова сервера, уже выяснили. Ну да ладно.
15 — 18.02.14 — 15:17
(14) Я только присел на плотную разработку под УФ. Раньше по-мелочам приходилось. Поэтому не все шишки еще набиты.
Ну что ж… Еще одна несуразность в копилку…
16 — 18.02.14 — 15:20
Если сабж неясно изложен, поясню с другого бока:
Есть поле ввода на форме, через которое происходит редактирование реквизита справочника. Реквизит хранит ссылку на элемент другого справочника.
Можно ли получить значение этой ссылки, зная имя элемента управления на форме без обращения к серверу?
Как я понял — нельзя.
17 — 18.02.14 — 15:24
Чорд. Все равно могут неправильно понять… Итак:
1) есть справочники «Номенклатура» и «Категория»
2) в справочнике «Номенклатура» есть реквизит «Категория» и поле ввода на форме с именем «ВыборКатегории», которое его редактирует
3) можно ли зная имя поля ввода («ВыборКатегории») получить ссылку на категорию без обращению к серверу?
18 — 18.02.14 — 16:18
(17) Посмотри в отладчике Форма.ВыборКатегории.ТекущиеДанные, на сервере туда записана ссылка на справочник Категории. Аналогично будет Объект.Категория — та же ссылка.
&НаКлиенте можно получить ссылку, но полноценно работать с оной не получится, если только передать как параметр куда нить.
19 — 18.02.14 — 16:27
(18) ТекущиеДанные у поля ввода?
(17) в (5) не ответ? если имена менять нельзя — можно соответствие хранить имяэлемента-имяреквизита, костыль конечно…
20 — 18.02.14 — 16:41
Да лажанулся, через форму ссылку получить не получится, можно только через Объект.
21 — 18.02.14 — 16:47
(19) Я просто не могу придумать ни одного логического объяснения тому, что свойство «ПутьКДанным» не транслируется на клиента. Это же гребанная строка! Думал, может я не вкуриваю чего. Оказалось — таки просто еще одна милая фича.
22 — 18.02.14 — 19:16
(13) см. (0) строка 2 «без серверных вызовов». И тоже учись читать. )))
23 — 18.02.14 — 19:24
(21) Это только начало пути УФ. Еще много подобного придется понять и простить … или ругаться на форуме. 
24 — 18.02.14 — 19:26
Да, пока они не поймут, что нужно иметь возможность с клиента обращаться к любому объекту на сервере, как это сделано через указатели на нормальных системах — будет ещё много сюрпризов и огорчений.
25 — 18.02.14 — 19:45
(24) В толстом клиенте таких проблем вообще нет. Проблема только в тонком и web. И то, что так сделано в некотором смысле может быть логичным. Тащить все поля на клиента через кучу промежуточных узлов и тормозных каналов неправильно.
26 — 18.02.14 — 19:52
(25) Тащить надо то, что нужно.
Просто, в нормальных системах есть «Proxy-объекты» для таких целей.
27 — 18.02.14 — 19:53
(24) Была такая возможность. И все (ну, почти все) то и дело ОБРАЩАЛИСЬ К ОБЪЕКТУ НА СЕРВЕРЕ. А потом плакали, что у них 1с тормозит.
Поэтому разрабы неявные вызовы сервера сделали явными.
Но не волнуйтесь — тяжело только первые полгода. Дальше все на автомате пойдет.
28 — 18.02.14 — 19:56
(26) Ну так и делай себе прокси. Сам руками именно то, что нужно. Дернул сервер — он тебе в ответ структуру со всеми реквизитами переданной ссылки. Ты данные на клиенте в кеш положил и пользуешься когда надо. Нормальный взрослый принцип, когда ты сам думаешь, а не система за тебя.
29 — 18.02.14 — 19:58
(28) Ну, тогда, быть может, вместо рисования формы тоже самому думать — тогда зачем 1С.
30 — 18.02.14 — 20:00
(29) Вот тут соглашусь, конечно. Возможностей по управлению внешним видом управляемых форм частенько не хватает.
Torquader
31 — 18.02.14 — 20:06
(30) Да там вообще мало чего хватает — хочешь данные — пихай в хранилище — передавай и там обрабатывай — а то, что это «матрёшка» и размер растёт — это никому не важно.
Опять же, события с сервера на клиента — а это в идеологию не вписывается — то есть в html-5 Web-сокеты вписываются, а у 1С — ещё не вписывается.
Как обратиться к реквизиты из ссылки
Автор Алексей_1985_06, 20 сен 2020, 16:39
0 Пользователей и 1 гость просматривают эту тему.
Подскажите пжл. как получить обратиться к реквизиту который помещен из объекта (ссылка) в ТЧ.
Примитивно: надо рассчитать сумму т.е количество*цена, при выборе номенклатура цена подставляется из соответствующего справочника «Номенклатура» в котором есть реквизит «Цена», помогите, как обратится к этому полю?
код такой:
&НаКлиенте
Процедура РасчетСуммы ()
СтрокаТЧ = Элементы.СписокНоменклатуры.ТекущиеДанные;
СтрокаТЧ.Сумма = СтрокаТЧ.Номенклатура.Цена*СтрокаТЧ.Количество; // Здесь поле "Цена" не отдельный реквизит, а "перетащена" из ссылки поля "Номенклатура"
КонецПроцедуры
&НаКлиенте
Процедура СписокНоменклатурыКоличествоПриИзменении(Элемент)
РасчетСуммы ();
КонецПроцедуры
На клиенте не получится (если только в толстом), обращайтесь к реквизитам на сервере.
Цитата: antoneus от 20 сен 2020, 17:45
На клиенте не получится (если только в толстом), обращайтесь к реквизитам на сервере.
Вы имеете ввиду так сделать:
&НаСервере
Процедура РасчетСуммы ()
СтрокаТЧ = Элементы.СписокНоменклатуры.ТекущиеДанные;
СтрокаТЧ.Сумма = СтрокаТЧ.Номенклатура.Цена*СтрокаТЧ.Количество; // Здесь поле "Цена" не отдельный реквизит, а "перетащена" из ссылки поля "Номенклатура"
КонецПроцедуры
В этом случае выдает ошибку, что текущие данные таблицы недоступны на сервере
&НаКлиенте
Процедура РасчетСуммы ()
СтрокаТЧ = Элементы.СписокНоменклатуры.ТекущиеДанные;
СтрокаТЧ.Сумма = ЦенаНоменклатуры(СтрокаТЧ.Номенклатура) * СтрокаТЧ.Количество;
КонецПроцедуры
&НаСервере
Функция ЦенаНоменклатуры(Номенклатура)
Возврат Номенклатура.Цена
КонецФункции
Цитата: antoneus от 20 сен 2020, 21:34
&НаКлиенте
Процедура РасчетСуммы ()
СтрокаТЧ = Элементы.СписокНоменклатуры.ТекущиеДанные;
СтрокаТЧ.Сумма = ЦенаНоменклатуры(СтрокаТЧ.Номенклатура) * СтрокаТЧ.Количество;
КонецПроцедуры&НаСервере
Функция ЦенаНоменклатуры(Номенклатура)
Возврат Номенклатура.Цена
КонецФункции
Большое Вам спасибо!
Теги:
- Форум 1С
-
►
Форум 1С — ПРЕДПРИЯТИЕ 8.0 8.1 8.2 8.3 8.4 -
►
Конфигурирование, программирование в 1С Предприятие 8 -
►
Как обратиться к реквизиты из ссылки
Похожие темы (5)
Поиск
Как получить доступ к реквизитам объекта?
Статья носит справочный характер. Предназначена для начинающих программистов.
Получить массив реквизитов объекта можно при помощи самого объекта:
ДокСсылка = СсылкаНаДокумент(ТипДокумента, НомерДок);
ДокОбъект = ДокСсылка.ПолучитьОбъект();
МассивРеквизитовОбъекта = ДокОбъект.Метаданные().Реквизиты;
Получив массив реквизитов, можно организовать Цикл для просмотра имен реквизитов:
Для каждого Реквизит Из ДокОбъект.Метаданные().Реквизиты Цикл
Сообщить(Реквизит.Имя + " :" + Реквизит.Представление());
КонецЦикла;
Для того, чтобы получить значения реквизитов объекта вообще говоря надо обратиться с запросом к БД, типа:
Запрос = "ВЫБРАТЬ
| ИмяРеквизита,
|ИЗ
| Объект.ТипОбъекта КАК ОбъектТипОбъекта
|ГДЕ
| ОбъектТипОбъекта.Ссылка = &СсылкаНаОбъект
Запрос.УстановитьПараметр("СсылкаНаОбъект", СсылкаНаОбъект);
В запрос надо передать ссылку на объект и имя реквизита. Запрос вернет таблицу или выборку со значением реквизита.
Удобнее конечно для поиска значений реквизитов воспользоваться готовыми решениями, например фунцией ПолучитьЗначенияРеквизитов() общего модуля ОбщегоНазначения.
// Возвращает структуру, содержащую значения реквизитов прочитанные из информационной базы
// по ссылке на объект.
//
// Если доступа к одному из реквизитов нет, возникнет исключение прав доступа.
// Если необходимо зачитать реквизит независимо от прав текущего пользователя,
// то следует использовать предварительный переход в привилегированный режим.
//
// Параметры:
// Ссылка - ссылка на объект, - элемент справочника, документ, ...
// ИменаРеквизитов - Строка или Структура - Если Строка, то имена реквизитов,
// перечисленные через запятую, в формате требований к свойствам структуры.
// Например, "Код, Наименование, Родитель".
// Если Структура, то в качестве ключа передается псевдоним поля для
// возвращаемой структуры с результатом, а в качестве значения (опционально)
// - фактическое имя поля в таблице.
// Если значение не определено, то имя поля берется из ключа.
//
// Возвращаемое значение:
// Структура - содержит список свойств, как список имен в строке
// ИменаРеквизитов, со значениям реквизитов, прочитанных
// из информационной базы.
//
Функция ПолучитьЗначенияРеквизитов(Ссылка, ИменаРеквизитов) Экспорт
Если ТипЗнч(ИменаРеквизитов) = Тип("Структура") Тогда
СтруктураРеквизитов = ИменаРеквизитов;
ИначеЕсли ТипЗнч(ИменаРеквизитов) = Тип("Строка") Тогда
СтруктураРеквизитов = Новый Структура(ИменаРеквизитов);;
Иначе
ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Неверный тип второго параметра ИменаИлиСтруктураРеквизитов: %1'"),
Строка(ТипЗнч(ИменаРеквизитов)));
КонецЕсли;
ТекстПолей = "";
Для каждого КлючИЗначение Из СтруктураРеквизитов Цикл
ИмяПоля = ?(ЗначениеЗаполнено(КлючИЗначение.Значение), СокрЛП(КлючИЗначение.Значение), СокрЛП(КлючИЗначение.Ключ));
Псевдоним = СокрЛП(КлючИЗначение.Ключ);
ТекстПолей = ТекстПолей + ?(ПустаяСтрока(ТекстПолей), "", ",") + "
| " + ИмяПоля + " КАК " + Псевдоним;
КонецЦикла;
Запрос = Новый Запрос(
"ВЫБРАТЬ
|" + ТекстПолей + "
|ИЗ
| " + Ссылка.Метаданные().ПолноеИмя() + " КАК ПсевдонимЗаданнойТаблицы
|ГДЕ
| ПсевдонимЗаданнойТаблицы.Ссылка = &Ссылка
|");
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
Выборка.Следующий();
Результат = Новый Структура;
Для каждого КлючИЗначение Из СтруктураРеквизитов Цикл
Результат.Вставить(КлючИЗначение.Ключ);
КонецЦикла;
ЗаполнитьЗначенияСвойств(Результат, Выборка);
Возврат Результат;
КонецФункции
Значение реквизитов в этой функции получено через запрос к БД. Возвращаемое значение — структура (ключ-значение). Пример использования:
ДокСсылка = СсылкаНаДокумент(ТипДокумента, НомерДок);
СтруктураНастроек = Новый Структура;
//инициируем структуру настроек именами реквизитов
Для каждого Реквизит Из ДокОбъект.Метаданные().Реквизиты Цикл
СтруктураНастроек.Вставить(Реквизит.Имя, Реквизит.Имя);
КонецЦикла;
ЗначенияРеквизитов = ПолучитьЗначенияРеквизитов(ДокСсылка , СтруктураНастроек);
СканПростойСтруктуры(ЗначенияРеквизитов); //вывести структуру для просмотра
Поскольку в функцию ПолучитьЗначенияРеквизитов() во второй параметр надо передать структуру, то мы создали структуру и организовали Цикл ее инициализации данными из массива имен реквизитов объекта. Возвращает функция так же структуру (ключ-значение), с которой удобно работать. Для просмотра этой структуры можно воспользоваться циклом, либо вызвать функцию СканПростойСтруктуры(), которой передать структуру для просмотра.
Функция СканПростойСтруктуры(Структура)
Для каждого Элемент из Структура Цикл
Сообщить(Элемент.Ключ + ": " + Элемент.Значение);
КонецЦикла;
КонецФункции
Если исследуемый объект использует так же еще и общие реквизиты, и их необходимо найти, то можно воспользоваться функцией МассивИменРеквизитовОбъекта(), которая находит не только реквизиты объекта но и общие и даже стандартные реквизиты, которые использует объект:
// Возвращает массив имен всех реквизитов переданного объекта
//
Функция МассивИменРеквизитовОбъекта(Объект) Экспорт
МассивИменРеквизитов = Новый Массив;
Если ТипЗнч(Объект) = Тип("ОбъектМетаданных") Тогда
МетаданныеОбъекта = Объект;
Иначе
МетаданныеОбъекта = Метаданные.НайтиПоТипу(ТипЗнч(Объект));
Если МетаданныеОбъекта = Неопределено Тогда
Возврат МассивИменРеквизитов;
КонецЕсли;
КонецЕсли;
Для индекс = 0 по 1 Цикл
// КоллекцияРеквизитов = ?(индекс = 0, МетаданныеОбъекта.СтандартныеРеквизиты, МетаданныеОбъекта.Реквизиты);
КоллекцияРеквизитов = МетаданныеОбъекта.Реквизиты;
Для каждого Реквизит Из КоллекцияРеквизитов Цикл
МассивИменРеквизитов.Добавить(Реквизит.Имя);
КонецЦикла;
КонецЦикла;
Для каждого ОбщийРеквизит Из Метаданные.ОбщиеРеквизиты Цикл
Если ИспользуетсяОбщийРеквизит(ОбщийРеквизит, МетаданныеОбъекта) Тогда
МассивИменРеквизитов.Добавить(ОбщийРеквизит.Имя);
КонецЕсли;
КонецЦикла;
Возврат МассивИменРеквизитов;
КонецФункции
Тогда программа будет выглядеть так:
ДокСсылка = СсылкаНаДокумент(ТипДокумента, НомерДок);
ДокОбъект = ДокСсылка.ПолучитьОбъект();
мМассивИмен = МассивИменРеквизитовОбъекта(ДокОбъект);
СтруктураНастроек = Новый Структура;
Для каждого эл Из мМассивИмен Цикл
СтруктураНастроек.Вставить(эл, эл);
КонецЦикла;
ЗначенияРеквизитов = ОбщегоНазначения.ПолучитьЗначенияРеквизитов(ДокСсылка , СтруктураНастроек);
СканПростойСтруктуры(ЗначенияРеквизитов);
Вспомогательная функция:
// Проверяет используется ли в Объекте указанный общий реквизит
//
Функция ИспользуетсяОбщийРеквизит(ОбщийРеквизит, Объект) Экспорт
Если ТипЗнч(Объект) = Тип("ОбъектМетаданных") Тогда
МетаданныеОбъекта = Объект;
Иначе
МетаданныеОбъекта = Метаданные.НайтиПоТипу(ТипЗнч(Объект));
Если МетаданныеОбъекта = Неопределено Тогда
Возврат Ложь;
КонецЕсли;
КонецЕсли;
Если ТипЗнч(ОбщийРеквизит) = Тип("ОбъектМетаданных") Тогда
МетаданныеОбщегоРеквизита = ОбщийРеквизит;
Иначе
МетаданныеОбщегоРеквизита = Метаданные.ОбщиеРеквизиты.Найти(ОбщийРеквизит);
Если МетаданныеОбщегоРеквизита = Неопределено Тогда
Возврат Ложь;
КонецЕсли;
КонецЕсли;
ЭлементСостава = МетаданныеОбщегоРеквизита.Состав.Найти(МетаданныеОбъекта);
Если ЭлементСостава = Неопределено Тогда
Возврат Ложь;
КонецЕсли;
пИспользованиеОбщегоРеквизита = Метаданные.СвойстваОбъектов.ИспользованиеОбщегоРеквизита;
Если ЭлементСостава.Использование = пИспользованиеОбщегоРеквизита.Использовать Тогда
Возврат Истина;
ИначеЕсли ЭлементСостава.Использование = пИспользованиеОбщегоРеквизита.НеИспользовать Тогда
Возврат Ложь;
Иначе
пАвтоИспользованиеОбщегоРеквизита = Метаданные.СвойстваОбъектов.АвтоИспользованиеОбщегоРеквизита;
Если МетаданныеОбщегоРеквизита.АвтоИспользование = пАвтоИспользованиеОбщегоРеквизита.Использовать Тогда
Возврат Истина;
Иначе
Возврат Ложь;
КонецЕсли;
КонецЕсли;
КонецФункции
Как получить значение отдельного реквизита объекта?
Иногда необязательно получать значения всего массива реквизитов. Программист как правило знает имя реквизита, значение которого необходимо получить. К отдельному реквизиту объекта можно обратиться просто по его имени:
Поставщик = ДокОбъект.Метаданные().Реквизиты.Поставщик;
Получить значение этого реквизита можно так же через запрос, написанный специально для этого реквизита. Но можно воспользоваться все той же функцией ПолучитьЗначенияРеквизитов(). Цикл для настройки структуры в этом случае не нужен, так как нам надо найти значение всего одного элемента:
ДокСсылка = СсылкаНаДокумент(ТипДокумента, НомерДок);
ДокОбъект = ДокСсылка.ПолучитьОбъект();
Организация = Строка(ДокОбъект.Метаданные().Реквизиты.Организация);
СтруктураНастроек = Новый Структура;
СтруктураНастроек.Вставить(Организация, Организация);
ЗначенияРеквизитов = ОбщегоНазначения.ПолучитьЗначенияРеквизитов(ДокСсылка , СтруктураНастроек);
СканПростойСтруктуры(ЗначенияРеквизитов);
Обратите внимание что здесь реквизит который необходимо найти преобразовывается к типу Строка, потому, что в структуру настроек надо передать именно строку.
Как найти имена реквизитов в таб части объекта?
Функция определяет есть ли реквизит в таб части документа:
// Позволяет определить есть ли среди реквизитов табличной части документа
// реквизит с переданным именем.
//
// Параметры:
// ИмяРеквизита - строковое имя искомого реквизита,
// МетаданныеДокумента - объект описания метаданных документа, среди реквизитов которого производится поиск.
// ИмяТабЧасти - строковое имя табличной части документа, среди реквизитов которого производится поиск
//
// Возвращаемое значение:
// Истина - нашли реквизит с таким именем, Ложь - не нашли.
//
Функция ЕстьРеквизитТабЧастиДокумента(ИмяРеквизита, МетаданныеДокумента, ИмяТабЧасти) Экспорт
ТабЧасть = МетаданныеДокумента.ТабличныеЧасти.Найти(ИмяТабЧасти);
Если ТабЧасть = Неопределено Тогда // Нет такой таб. части в документе
Возврат Ложь;
Иначе
Возврат НЕ (ТабЧасть.Реквизиты.Найти(ИмяРеквизита) = Неопределено);
КонецЕсли;
КонецФункции
Пример использования:
ИмяРеквизита = "Номенклатура";
МетаданныеДокумента = ДокОбъект.Метаданные();
ИмяТабЧасти = "Товары";
Если ЕстьРеквизитТабЧастиДокумента(ИмяРеквизита, МетаданныеДокумента, ИмяТабЧасти) Тогда
Сообщить("Реквизит есть!");
Иначе
Сообщить("Реквизита нет");
КонецЕсли;
Сообщить имя реквизитов таб части:
Для каждого Реквизит Из ДокОбъект.Метаданные().ТабличныеЧасти.Найти("Товары").Реквизиты Цикл
Собщить(Реквизит.Имя);
КонецЦикла;
Как найти значение всех реквизитов всех таб частей документа через запрос
Чтобы найти значения всех реквизитов всех табличных частей объекта через запрос воспользуемся функцией
ПолучитьЗначенияРеквизитовТабЧасти().
Функция ПолучитьЗначенияРеквизитовТабчасти(Ссылка, ИменаРеквизитов, ИмяТабЧасти) Экспорт
ИмяТЧ = ИмяТабЧасти;
ПолноеИмя = Ссылка.Метаданные().ПолноеИмя();
Если ТипЗнч(ИменаРеквизитов) = Тип("Структура") Тогда
СтруктураРеквизитов = ИменаРеквизитов;
ИначеЕсли ТипЗнч(ИменаРеквизитов) = Тип("Строка") Тогда
СтруктураРеквизитов = Новый Структура(ИменаРеквизитов);;
Иначе
ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Неверный тип второго параметра ИменаИлиСтруктураРеквизитов: %1'"),
Строка(ТипЗнч(ИменаРеквизитов)));
КонецЕсли;
ТекстПолей = "";
Для Каждого КлючИЗначение Из СтруктураРеквизитов Цикл
ИмяПоля = ?(ЗначениеЗаполнено(КлючИЗначение.Значение), СокрЛП(КлючИЗначение.Значение), СокрЛП(КлючИЗначение.Ключ));
Псевдоним = СокрЛП(КлючИЗначение.Ключ);
ТекстПолей = ТекстПолей + ?(ПустаяСтрока(ТекстПолей), "", ",") + "
| " + ИмяПоля + " КАК " + Псевдоним;
КонецЦикла;
Запрос = Новый Запрос(
"ВЫБРАТЬ
|" + ТекстПолей + "
|ИЗ
| " + ПолноеИмя + "." + ИмяТЧ + " КАК ПсевдонимЗаданнойТаблицы
|ГДЕ
| ПсевдонимЗаданнойТаблицы.Ссылка = &Ссылка
|");
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Результат = Запрос.Выполнить().Выгрузить();
Возврат Результат;
КонецФункции
Пример использования:
ДокСсылка = СсылкаНаДокумент(ТипДокумента, НомерДок);
ДокОбъект = ДокСсылка.ПолучитьОбъект();
МассивТабЧастей = Новый Массив;
Для каждого ТабЧасть Из ДокОбъект.Метаданные().ТабличныеЧасти Цикл
МассивТабЧастей.Добавить(ТабЧасть.Имя);
КонецЦикла;
Для Каждого ТабЧасть Из МассивТабЧастей Цикл
СтруктураНастроек = Новый Структура;
Для каждого Реквизит Из ДокОбъект.Метаданные().ТабличныеЧасти.Найти(ТабЧасть).Реквизиты Цикл
СтруктураНастроек.Вставить(Реквизит.Имя, Реквизит.Имя);
КонецЦикла;
Сообщить("Имя таб части: " + ТабЧасть);
ТабЗнач = ПолучитьЗначенияРеквизитовТабЧасти(ДокСсылка , СтруктураНастроек, ТабЧасть);
ПоказатьТаблицу(ТабЗнач);
КонецЦикла;
Вспомогательная функция:
функция ПоказатьТаблицу(Табл)
Сообщить("///Функция ПоказатьТаблицу///");
Количество = Табл.Колонки.Количество();
Для каждого Строка из Табл Цикл
Для Индекс = 0 По Количество-1 Цикл
Сообщить(СокрЛП(Индекс)+" "+СокрЛП(Табл.Колонки[Индекс].Имя)+ ": " + Строка[СокрЛП(Табл.Колонки[Индекс].Имя)]);
КонецЦикла;
КонецЦикла;
Сообщить("///Конец Функция ПоказатьТаблицу///");
КонецФункции
Результат для документа «Реализация товаров услуг»:
Имя таб части: Товары
///Функция ПоказатьТаблицу///
0 ЕдиницаИзмерения: шт
1 ЕдиницаИзмеренияМест:
2 Качество: Новый
3 Количество: 1
4 КоличествоМест: 0
5 Коэффициент: 1
6 Номенклатура: Вентилятор настольный
7 ПроцентСкидкиНаценки: 0
8 СерияНоменклатуры: Н-908, С-890 от 01.01.2003
9 СпособСписанияОстаткаТоваров: Со склада
10 СтавкаНДС: Без НДС
11 Сумма: 445,5
12 СуммаНДС: 0
13 ХарактеристикаНоменклатуры:
14 Цена: 450
15 Склад: Магазин «Бытовая техника»
16 ПроцентАвтоматическихСкидок: 1
17 УсловиеАвтоматическойСкидки: По виду дисконтных карт
18 ЗначениеУсловияАвтоматическойСкидки: Серебряная карта
19 КлючСтроки: 3
20 КлючСвязи: 0
21 ЗаказПокупателя: Заказ покупателя ТД000000001 от 08.06.2008 12:00:00
0 ЕдиницаИзмерения: шт
1 ЕдиницаИзмеренияМест:
2 Качество: Новый
3 Количество: 1
4 КоличествоМест: 0
5 Коэффициент: 1
6 Номенклатура: Набор вентиляторов
7 ПроцентСкидкиНаценки: 0
8 СерияНоменклатуры:
9 СпособСписанияОстаткаТоваров: Со склада
10 СтавкаНДС: Без НДС
11 Сумма: 1948,32
12 СуммаНДС: 0
13 ХарактеристикаНоменклатуры:
14 Цена: 1968
15 Склад: Магазин «Бытовая техника»
16 ПроцентАвтоматическихСкидок: 1
17 УсловиеАвтоматическойСкидки: По виду дисконтных карт
18 ЗначениеУсловияАвтоматическойСкидки: Серебряная карта
19 КлючСтроки: 4
20 КлючСвязи: 0
21 ЗаказПокупателя: Заказ покупателя ТД000000001 от 08.06.2008 12:00:00
///Конец Функция ПоказатьТаблицу///
Имя таб части: ВозвратнаяТара
///Функция ПоказатьТаблицу///
///Конец Функция ПоказатьТаблицу///
Имя таб части: Услуги
///Функция ПоказатьТаблицу///
///Конец Функция ПоказатьТаблицу///
Имя таб части: СоставНабора
///Функция ПоказатьТаблицу///
0 Номенклатура: Вентилятор BINATONE ALPINE 160вт, напольный ,
1 ХарактеристикаНоменклатуры:
2 СерияНоменклатуры: 01234/11020/7654321, БОЛГАРИЯ
3 Количество: 1
4 ЕдиницаИзмерения: шт
5 Склад: Магазин «Бытовая техника»
6 Качество: Новый
7 СпособСписанияОстаткаТоваров: Со склада
8 КлючСтроки: 4
9 Цена: 1068
10 КлючСвязи: 0
0 Номенклатура: Вентилятор JIPONIC (Тайв.),
1 ХарактеристикаНоменклатуры:
2 СерияНоменклатуры: 11234/11020/7654321, ТАЙВАНЬ (КИТАЙ)
3 Количество: 1
4 ЕдиницаИзмерения: шт
5 Склад: Магазин «Бытовая техника»
6 Качество: Новый
7 СпособСписанияОстаткаТоваров: Со склада
8 КлючСтроки: 4
9 Цена: 900
10 КлючСвязи: 0
///Конец Функция ПоказатьТаблицу///
Имя таб части: СерийныеНомера
///Функция ПоказатьТаблицу///
///Конец Функция ПоказатьТаблицу///
Имя таб части: СерийныеНомераСоставНабора
///Функция ПоказатьТаблицу///
///Конец Функция ПоказатьТаблицу///
Имя таб части: ДокументыРасчетовСКонтрагентом
///Функция ПоказатьТаблицу///
///Конец Функция ПоказатьТаблицу///
Полезные функции при работе с управляемыми формами
06 Oct
При работе с управляемыми формами есть нюансы, которые полезно знать, чтобы не изобретать свой велосипед.
Как получить значение перечисления в тонком клиенте?
ПредопределенноеЗначение(«Перечисление.ВидыДнейПроизводственногоКалендаря.Суббота»);
При этом следует обратить внимание на последнюю букву в слове «ПеречислениЕ».
Как передать результат запроса с сервера на клиент?
В большенстве типовых конфигураций есть:
Возврат ОбщегоНазначения.ТаблицаЗначенийВМассив(Результат.Выгрузить());
или
Возврат ОбщегоНазначения.СтрокаТаблицаЗначенийВСтруктуру(ВыборкаДетальныеЗаписи);
Как получить значение реквизита на клиенте?
ОбщегоНазначенияЗК.ПолучитьЗначениеРеквизита(Объект, «ДоговорКонтрагента»);
Как привязать сообщение к реквизиту на форме?
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = «Не заполен контрагент»;
Сообщение.Поле = «Объект.Контрагент»;
Сообщение.Сообщить();