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

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

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

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

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

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

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

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

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

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

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

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

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

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

Источник

Перейти к контенту

Перейти в раздел примеры кода 1С 8.3:

1С 8.3 БСП ЗначениеРеквизитаОбъекта. Возвращает значения реквизита, прочитанного из информационной базы по ссылке на объект. Рекомендуется использовать вместо обращения к реквизитам объекта через точку от ссылки на объект для быстрого чтения отдельных реквизитов объекта из базы данных. Функция доступна только на сервере, но если нужно получить реквизит на клиенте, то я ищу модуль ВызовCервера, например, в БП 3.0 это ОбменСКонтрагентамиСлужебныйВызовСервера.ЗначениеРеквизитаОбъекта/

Примера кода от rayastar

&НаКлиенте
Процедура ЗначениеРеквизитаОбъекта(Команда)

// Использование на клиенте.
СтранаПроисхождения = ОбщегоНазначенияРТВызовСервера.ЗначениеРеквизитаОбъекта(Номенклатура,«СтранаПроисхождения»);

// Использование на сервере
СтранаПроисхождения = СтранаПроисхождения();

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

&НаСервере
Функция СтранаПроисхождения()

Возврат ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Номенклатура, «СтранаПроисхождения»);

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

// Типовая конфигурация Библиотека стандартных подсистем (далее — БСП)
// Код БСП распространяется по лицензии Attribution 4.0 International (CC BY 4.0):
// ссылка на лицензию: https://creativecommons.org/licenses/by/4.0/legalcode

Функция БСП

Функция ЗначениеРеквизитаОбъекта(Ссылка, ИмяРеквизита, ВыбратьРазрешенные = Ложь) Экспорт

   Если ПустаяСтрока(ИмяРеквизита) Тогда
       ВызватьИсключение
           НСтр(«ru = ‘Неверный второй параметр ИмяРеквизита в функции ОбщегоНазначения.ЗначениеРеквизитаОбъекта:
                    |- Имя реквизита должно быть заполнено'»);
   КонецЕсли;

Результат = ЗначенияРеквизитовОбъекта(Ссылка, ИмяРеквизита, ВыбратьРазрешенные);
Возврат Результат[СтрЗаменить(ИмяРеквизита, «.», «»)];

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

Функция на клиенте

ОбщегоНазначенияУТВызовСервера.ЗначенияРеквизитовОбъекта(Ссылка, ИмяРеквизита, ВыбратьРазрешенные);

Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник

Источник

Содержание:

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С и в объекте. Это возможно в событии элемента ОбработкаВыбора.
Например, при значении поля Контрагент — Ассоль, мы выбрали контрагента Бакалея:

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

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

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

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

Источник

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

Статья носит справочный характер. Предназначена для начинающих программистов.

Получить массив реквизитов объекта можно при помощи самого объекта:

                ДокСсылка = СсылкаНаДокумент(ТипДокумента, НомерДок);
                ДокОбъект = ДокСсылка.ПолучитьОбъект();
                МассивРеквизитовОбъекта = ДокОбъект.Метаданные().Реквизиты;

Получив массив реквизитов, можно организовать Цикл для просмотра имен реквизитов:

 Для каждого Реквизит Из ДокОбъект.Метаданные().Реквизиты Цикл
                        Сообщить(Реквизит.Имя + " :" + Реквизит.Представление());
КонецЦикла;

Для того, чтобы получить значения реквизитов объекта вообще говоря надо обратиться с запросом к БД, типа:

 
Запрос = "ВЫБРАТЬ
                |       ИмяРеквизита,
                |ИЗ
                |       Объект.ТипОбъекта КАК ОбъектТипОбъекта
                |ГДЕ
                |       ОбъектТипОбъекта.Ссылка = &СсылкаНаОбъект
Запрос.УстановитьПараметр("СсылкаНаОбъект", СсылкаНаОбъект);

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

Удобнее конечно для поиска значений реквизитов воспользоваться готовыми решениями, например фунцией ПолучитьЗначенияРеквизитов() общего модуля ОбщегоНазначения.

 
// Возвращает структуру, содержащую значения реквизитов прочитанные из информационной базы
// по ссылке на объект.
//
//  Если доступа к одному из реквизитов нет, возникнет исключение прав доступа.
//  Если необходимо зачитать реквизит независимо от прав текущего пользователя,
//  то следует использовать предварительный переход в привилегированный режим.
//
// Параметры:
//  Ссылка       - ссылка на объект, - элемент справочника, документ, ...
//  ИменаРеквизитов - Строка или Структура - Если Строка, то имена реквизитов,
//               перечисленные через запятую, в формате требований к свойствам структуры.
//               Например, "Код, Наименование, Родитель".
//               Если Структура, то в качестве ключа передается псевдоним поля для
//               возвращаемой структуры с результатом, а в качестве значения (опционально)
//               - фактическое имя поля в таблице.
//               Если значение не определено, то имя поля берется из ключа.
//
// Возвращаемое значение:
//  Структура    - содержит список свойств, как список имен в строке
//                 ИменаРеквизитов, со значениям реквизитов, прочитанных
//                 из информационной базы.
//
Функция ПолучитьЗначенияРеквизитов(Ссылка, ИменаРеквизитов) Экспорт
        Если ТипЗнч(ИменаРеквизитов) = Тип("Структура") Тогда
                СтруктураРеквизитов = ИменаРеквизитов;
        ИначеЕсли ТипЗнч(ИменаРеквизитов) = Тип("Строка") Тогда
                СтруктураРеквизитов = Новый Структура(ИменаРеквизитов);;
        Иначе
                ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
                        НСтр("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
///Конец Функция ПоказатьТаблицу///

Имя таб части: СерийныеНомера

///Функция ПоказатьТаблицу///
///Конец Функция ПоказатьТаблицу///

Имя таб части: СерийныеНомераСоставНабора

///Функция ПоказатьТаблицу///
///Конец Функция ПоказатьТаблицу///

Имя таб части: ДокументыРасчетовСКонтрагентом

///Функция ПоказатьТаблицу///
///Конец Функция ПоказатьТаблицу///

Источник

Получить все реквизиты и их значения для любого документа

Fanyn

12.08.15 — 13:08

Добрый день.

Мне необходимо получить все реквизиты и их значения для любого, выбранного пользователем, документа. Названия реквизитов я получила. Подскажите, пожалуйста как получить их значения и стоит ли для значений создать отдельный массив или же создать Таблицу Значений?

P.S. кодить на 1с только начала. Почти ничего не знаю Заранее спасибо!

&НаСервере

Функция МассивИменРеквизитовОбъекта(Объект)

МассивИменРеквизитов = Новый Массив;

МетаданныеОбъекта = Метаданные.НайтиПоТипу(ТипЗнч(Объект));

        Для индекс = 0 по 1 Цикл

            КоллекцияРеквизитов = ?(индекс=0, МетаданныеОбъекта.СтандартныеРеквизиты, МетаданныеОбъекта.Реквизиты);

            Для каждого Реквизит из КоллекцияРеквизитов Цикл

                МассивИменРеквизитов.Добавить(Реквизит.Имя);

            КонецЦикла;

        КонецЦикла;

        Для Каждого ТабличнаяЧасть Из Объект.Метаданные().ТабличныеЧасти Цикл

        Для Каждого РеквизитТЧ ИЗ ТабличнаяЧасть.Реквизиты Цикл

                   МассивИменРеквизитов.Добавить(РеквизитТЧ.Имя);

            Сообщить(» — » + РеквизитТЧ.Имя);

        КонецЦикла;

    КонецЦикла;

        Возврат МассивИменРеквизитов;

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

Fanyn

1 — 12.08.15 — 13:09

Для получения названий реквизитов использую выше указанный код.

jsmith82

2 — 12.08.15 — 13:10

Муторно как-то. Лучше звёздочкой

1Сергей

3 — 12.08.15 — 13:12

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

Fanyn

4 — 12.08.15 — 13:13

(2) Извините, я нуб, поэтому нужно разжевать

МассивИменРеквизитов.Добавить(РеквизитТЧ.*);

В данной строке?

jsmith82

5 — 12.08.15 — 13:13

(4) Не-не, ты чо

Fanyn

6 — 12.08.15 — 13:14

(3) Абсолютно согласна, но пока не считаю это таким уж важным, как только получу значения реквизитов, вернусь к данной проблеме

jsmith82

7 — 12.08.15 — 13:14

Запрос = Новый Запрос();

Запрос.Текст = «ВЫБРАТЬ Док.* ИЗ Документ.%ИмяДок КАК Док»;

Запрос.Текст = СтрЗаменить(Запрос.Текст, «%ИмяДок», ИмяДок);

Fanyn

8 — 12.08.15 — 13:15

(5) мне потом эти реквизиты в файл записать нужно будет

jsmith82

9 — 12.08.15 — 13:15

Ну, и в текст запроса можно добавить поля, которых не хватает. Не помню щас, нужно ли табличные отдельно прописывать, но там тоже будет через скобку и *.

jsmith82

10 — 12.08.15 — 13:16

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

magicSan

11 — 12.08.15 — 13:19

Какая страшная логика у человека «МетаданныеОбъекта = Метаданные.НайтиПоТипу(ТипЗнч(Объект));»

jsmith82

12 — 12.08.15 — 13:20

(11) Ну да, проще Объект.Метаданные()

magicSan

13 — 12.08.15 — 13:21

(12) Это логичнее поэтому для нормальных выглядит как проще

magicSan

14 — 12.08.15 — 13:22

ей же написано значения объекта — как вообще до такой уйни можно было додуматся?

Fanyn

15 — 12.08.15 — 13:24

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

Fish

16 — 12.08.15 — 13:25

(14) Может, где-то набор новичков идёт и это у них тестовые задания? Недавно похожее что-то было:

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

jsmith82

17 — 12.08.15 — 13:26

Мтд = Объект.Метаданные();

Массив = Новый Массив();

Запрос = Новый Запрос();

Текст = «ВЫБРАТЬ Док.* ИЗ Документ.%ИмяДок КАК Док»;

Текст = СтрЗаменить(Текст, «%ИмяДок», Мтд.Имя);

Запрос.Текст = Текст;

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

Структура = Новый Структура(«Имя, ТЗ», ТабЧасть.Имя, ТЗ);

Массив.Добавить(Структура);

Для Каждого ТабЧасть из Мтд.ТабличныеЧасти Цикл

Запрос = Новый Запрос();

Текст = «ВЫБРАТЬ Док.* ИЗ Документ.%ИмяДок.%ИмяТабЧасти КАК Док»;

Текст = СтрЗаменить(Текст, «%ИмяДок», ИмяДок);

Текст = СтрЗаменить(Текст, «%ИмяТабЧасти», ТабЧасть.Имя);

Запрос.Текст = Текст;

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

Структура = Новый Структура(«Имя, ТЗ», ТабЧасть.Имя, ТЗ);

Массив.Добавить(Структура);

КонецЦикла;

jsmith82

18 — 12.08.15 — 13:28

Мтд = Объект.Метаданные();

Массив = Новый Массив();

Структура = Новый Структура(«Имя, ТЗ», «Шапка», ТЗ);

Массив.Добавить(Структура);

Для Каждого ТабЧасть из Мтд.ТабличныеЧасти Цикл

Запрос = Новый Запрос();

Текст = «ВЫБРАТЬ Док.* ИЗ Документ.%ИмяДок.%ИмяТабЧасти КАК Док»;

Текст = СтрЗаменить(Текст, «%ИмяДок», Мтд.Имя);

Текст = СтрЗаменить(Текст, «%ИмяТабЧасти», ТабЧасть.Имя);

Запрос.Текст = Текст;

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

Структура = Новый Структура(«Имя, ТЗ», ТабЧасть.Имя, ТЗ);

Массив.Добавить(Структура);

КонецЦикла;

Fanyn

19 — 12.08.15 — 13:33

(18) Ошибка передачи данныых.

{Форма.Форма.Форма(41)}: Ошибка при вызове метода контекста (МассивИменРеквизитовОбъекта)

    МассивРеквиз = МассивИменРеквизитовОбъекта(Док);

по причине:

Ошибка передачи данных между клиентом и сервером. Значение недопустимого типа.

по причине:

Ошибка преобразования данных XDTO:

НачалоСвойства: ret    Форма: Элемент    Тип: {http://www.w3.org/2001/XMLSchema}anyType

по причине:

Ошибка преобразования данных XDTO:

НачалоСвойства: Value    Форма: Элемент    Тип: {http://www.w3.org/2001/XMLSchema}anyType

по причине:

Ошибка отображения типов:

Отсутствует отображение для типа ‘{http://v8.1c.ru/8.1/data/core}ValueTable’

Я с такой сталквалась, если в строке убрать Имя после точки. Я так понимаю, он передает таблицу а ждет массив?

МассивИменРеквизитов.Добавить(РеквизитТЧ.Имя);

jsmith82

20 — 12.08.15 — 13:34

(19) не понял. код выложи функции

Fanyn

21 — 12.08.15 — 13:39

(20) код функции полностью ваш, только добавила строку после цикла

Возврат Массив;

Fanyn

22 — 12.08.15 — 13:42

(20)

&НаКлиенте

Процедура ВыгрузитьФайл(Команда)

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

        типЗнач = ТипЗнч(Док);

        Запись = Новый ЗаписьТекста(Объект.ИмяФайла);

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

    Запись.ЗаписатьСтроку(типЗнач);

    МассивРеквиз = Новый Массив;

    МассивРеквиз = МассивИменРеквизитовОбъекта(Док);

    Для н=0 По МассивРеквиз.Количество()-1 Цикл

                    Запись.Записать(МассивРеквиз[н]+»=»+»|»);

        КонецЦикла;

    Запись.Закрыть();

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

&НаСервере

Функция МассивИменРеквизитовОбъекта(Объект)

Мтд = Объект.Метаданные();

Массив = Новый Массив();

Структура = Новый Структура(«Имя, ТЗ», «Шапка», ТЗ);

Массив.Добавить(Структура);

Для Каждого ТабЧасть из Мтд.ТабличныеЧасти Цикл

Структура = Новый Структура(«Имя, ТЗ», ТабЧасть.Имя, ТЗ);

Массив.Добавить(Структура);

КонецЦикла;

Возврат Массив;

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

jsmith82

23 — 12.08.15 — 13:43

&НаСервере

Функция МассивИменРеквизитовОбъекта(Объект)

Мтд = Объект.Ссылка.Метаданные();

Массив = Новый Массив();

…

jsmith82

24 — 12.08.15 — 13:43

Я написал для ОФ, а для УФ одну строчку изменил

jsmith82

25 — 12.08.15 — 13:44

Хотя тоже непонятно. Что за Объект.Документ

Fanyn

26 — 12.08.15 — 13:45

(25) Документ — это реквизит на форме обработки, документ выбираемый пользователем

jsmith82

27 — 12.08.15 — 13:47

А, понял, ТЗ на клиент идёт

jsmith82

28 — 12.08.15 — 13:47

ValueTable

jsmith82

29 — 12.08.15 — 13:49

Мтд = Объект.Метаданные();

Массив = Новый Массив();

Структура = Новый Структура(«Имя, ТЗ», «Шапка», ТЗ);

Массив.Добавить(Структура);

Для Каждого ТабЧасть из Мтд.ТабличныеЧасти Цикл

Структура = Новый Структура(«Имя, ТЗ», ТабЧасть.Имя, ТЗ);

Массив.Добавить(Структура);

jsmith82

30 — 12.08.15 — 13:50

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

Fanyn

31 — 12.08.15 — 14:02

(30) я пишу внешнюю обработку, функцию в модуль обработки вставила. Где теперь посмотреть имя модуля для вставленной функции (конфигурация не типовая)

jsmith82

32 — 12.08.15 — 14:06

(31) найди в любой типовой. в УТ 11, в Бух 30

щас посмотрю у себя

Fanyn

33 — 12.08.15 — 14:08

(32) нашла, но проблема с переносом данных между клиентом и сервером осталась..

jsmith82

34 — 12.08.15 — 14:09

(33) Такого быть не могёт. Та же ошибка?

jsmith82

35 — 12.08.15 — 14:10

Кинь обработку, если чо

Fanyn

36 — 12.08.15 — 14:13

Могу, куда кинуть?

jsmith82

37 — 12.08.15 — 14:16

Пжжи

jsmith82

38 — 12.08.15 — 14:23

Понял, в чём ошибка. Щас

jsmith82

39 — 12.08.15 — 14:35

Мтд = Док.Метаданные();

Массив = Новый Массив();

    Запрос = Новый Запрос();

    Текст = «ВЫБРАТЬ Док.* ИЗ Документ.%ИмяДок КАК Док»;

    Текст = СтрЗаменить(Текст, «%ИмяДок», Мтд.Имя);

    Запрос.Текст = Текст;

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

    ТЗ1 = ТЗ.Скопировать();

    Для Каждого Колонка Из ТЗ1.Колонки Цикл

        Если ТипЗнч(ТЗ[0][Колонка.Имя]) = Тип(«ТаблицаЗначений») Тогда

            ТЗ.Колонки.Удалить(Колонка.Имя);

        КонецЕсли;

    КонецЦикла;

    ТЗ = ОбщегоНазначения.ТаблицаЗначенийВМассив(ТЗ);

    Структура = Новый Структура(«Имя, ТЗ», «Шапка», ТЗ);

    Массив.Добавить(Структура);

Для Каждого ТабЧасть из Мтд.ТабличныеЧасти Цикл

        Запрос = Новый Запрос();

        Текст = «ВЫБРАТЬ Док.* ИЗ Документ.%ИмяДок.%ИмяТабЧасти КАК Док»;

        Текст = СтрЗаменить(Текст, «%ИмяДок», Мтд.Имя);

        Текст = СтрЗаменить(Текст, «%ИмяТабЧасти», ТабЧасть.Имя);

        Запрос.Текст = Текст;

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

        ТЗ = ОбщегоНазначения.ТаблицаЗначенийВМассив(ТЗ);

        Структура = Новый Структура(«Имя, ТЗ», ТабЧасть.Имя, ТЗ);

        Массив.Добавить(Структура);

    КонецЦикла;

Возврат Массив;

jsmith82

40 — 12.08.15 — 14:35

Запрос табличные части выгружал как таблицы значений. Надо было их удалить

jsmith82

41 — 12.08.15 — 14:36

Ну, конечно, сам сабж довольно спорен, в т.ч. под вопросом передача на клиент. Задача не ясна точно, но код рабочий

magicSan

42 — 12.08.15 — 14:42

Какие ужасы ….. может

об=Документы.ЗаказНаряд.НайтиПоНомеру(«ПА0000050363»);

для каждого й из об.Метаданные().Реквизиты цикл

Сообщить(«»+й.имя+ » «+об[й.имя]);

конеццикла;

для каждого й из об.Метаданные().ТабличныеЧасти цикл

Сообщить(» «+й.имя);

тз=об[й.имя].выгрузить() //тч

конеццикла

jsmith82

43 — 12.08.15 — 14:45

(42) шо это было? О_о

magicSan

44 — 12.08.15 — 14:47

(43) Все реквизиты со значениями и тз табличных частей а чо ты там нагородил я хз — вырви глаз какой-то

jsmith82

45 — 12.08.15 — 14:54

(44) Ну ты скажешь тоже. Вывалил в окно служебных сообщений и празднуешь?

У меня хотя бы в удобоваримый класс пакуется, с которым работать можно

magicSan

46 — 12.08.15 — 14:58

(45) я хз куда там покавать и в каком виде это не приницпиально.

после такого

Текст = «ВЫБРАТЬ Док.* ИЗ Документ.%ИмяДок КАК Док»;

    Текст = СтрЗаменить(Текст, «%ИмяДок», Мтд.Имя);

    Запрос.Текст = Текст;

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

надо руки отрезать ……

jsmith82

47 — 12.08.15 — 15:00

(46) чо те не нравится?

magicSan

48 — 12.08.15 — 15:02

(47) нахера брать все значения табличных частей документов типа объекта???

jsmith82

49 — 12.08.15 — 15:05

(48) Ессно нахера. Я же не экзамен сдаю ёптить. Написал от балды, чтобы тупо работало.

jsmith82

50 — 12.08.15 — 15:06

У тя так вообще хрен пойми чо написано. Вывалил в стек и доволен

jsmith82

51 — 12.08.15 — 15:06

)

magicSan

52 — 12.08.15 — 15:08

(50)     дерево=новый ДеревоЗначений;дерево.Колонки.Добавить(«имя»);дерево.Колонки.Добавить(«зн»);

    об=Документы.ЗаказНаряд.НайтиПоНомеру(«ПА0000050363»);

    для каждого й из об.Метаданные().Реквизиты цикл

        Сообщить(«»+й.имя+ » «+об[й.имя]);

        стр=дерево.Строки.Добавить();стр.имя=й.имя;стр.зн=об[й.имя];

    конеццикла;

    для каждого й из об.Метаданные().ТабличныеЧасти цикл

        Сообщить(» «+й.имя);

        тз=об[й.имя].выгрузить(); //тч

        стр=дерево.Строки.Добавить();стр.имя=й.имя;стр.зн=тз;

конеццикла

magicSan

53 — 12.08.15 — 15:09

(50) У меня 4 быстро работоющих строчки а твое Уг зависает…

jsmith82

54 — 12.08.15 — 15:09

(52) И что ты хотел этим доказать?

У меня ещё на клиент передаётся, а у тебя вырубится с ошибкой. Это тоже было в требованиях от ТС

jsmith82

55 — 12.08.15 — 15:10

Почему зависает-то? И там, и тут обращение к серверу. Кэшируется как-то круче у тебя?

jsmith82

56 — 12.08.15 — 15:11

Короче, раскритиковал мой код, сам ничё не предложил, чтобы отвечало требованиям, и раздулся от важности )

magicSan

57 — 12.08.15 — 15:13

(54) то вывод не нравится то передача на сервер — детский сад. такие мелочи самому не смешно ими аргументировать?

(55) Твое угу тянет все значения табличных частей — которыхх миллионы — какой нахер кэш??? тебя просили реквизиты и значения выбраного документы — чиатать научись — я это вывожу если ыт неспособен понять 4 строчки — в ясли.

jsmith82

58 — 12.08.15 — 15:16

(57) У тебя типа такая установка «вот вам код, если не работает или чёто не хватает, в ясли».

Fanyn

59 — 12.08.15 — 15:16

(56) Спасибо, проблема решена

Однако еще вопрос ТЗ записывается в двумерный массив (видимо) и когда я циклом пытаюсь записать ее в файл то записывается просто строка «Структура». Вы не подскажете как правильнее массив разобрать по столбцам?

jsmith82

60 — 12.08.15 — 15:18

(59) Ты как в файл записываешь? Строчно? Зачем? Сериализация не нужна? Задача просто показать, что умеешь?

Fanyn

61 — 12.08.15 — 15:21

(60) да, сериализацию использовать нельзя и функции записи xml.

В файл записываю строки:

Имя документа

Тип документа

Реквизиты в виде: имяреквизита=значение|имя=значение| И тд

Fanyn

62 — 12.08.15 — 15:22

(60)

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

    Запись.ЗаписатьСтроку(типЗнач);

    МассивРеквиз = Новый Массив;

    МассивЗначений = Новый Массив;

    МассивЗначений = МассивЗначенийРеквизитовОбъекта(Док);

    МассивРеквиз = МассивИменРеквизитов(Док);

    Для н=0 По МассивРеквиз.Количество()-1 Цикл

        Для п=0 По МассивЗначений.Количество()-1 Цикл

                    Запись.Записать(МассивРеквиз[н]+»=»+Строка(МассивЗначений[п])+»|»);

                КонецЦикла;

                КонецЦикла;

    Запись.Закрыть();

Fanyn

63 — 12.08.15 — 15:22

Результат записи:

jsmith82

64 — 12.08.15 — 15:23

Щас скажу

jsmith82

65 — 12.08.15 — 15:29

Мас = МассивИменРеквизитов(Док);

Для Каждого Э0 Из Мас Цикл // Шапка и Табличные части

    Для Каждого ЭММ Из Э0 Цикл // Структуры (Имя табличной части (в т.ч. Шапки) и Коллекция значений)

        ИмяТабЧасти = ЭММ.Имя;

        Коллекция = ИмяТабЧасти.ТЗ; // Массив структур

        Для Каждого Стр Из Коллекция // Структура (бывшая строка таблицы значений)

            Для Каждого КлючИЗначение Из Стр // Разбор структуры

                ИмяРеквизита = КлючИЗначение.Ключ;

                ЗначениеРеквизита = КлючИЗначение.Значение;

            КонецЦикла;

        КонецЦикла;

    КонецЦикла;

КонецЦикла;

jsmith82

66 — 12.08.15 — 15:30

Ну, а записать ставь там, где получаешь значение

Fanyn

67 — 12.08.15 — 15:48

(65) Ошибка:

{Форма.Форма.Форма(53)}: Итератор для значения не определен

Для Каждого ЭММ ИЗ Э0 Цикл

Источник

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

Автор Vasya Povar, 24 окт 2016, 09:53

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

На форме обработки есть обьект с типом докуммент Ссылка. Мне необходимо в модуле формы получить значение реквизитов формы подчиненного справочника одного из реквизитов этого документа.
Обьект.ВыданнаяНН.Организация —-это справочник
Из него нужно взять на форме значения ЮрАдресОрганизации

Запись.ЗаписатьНачалоЭлемента("HLOCSEL"); Форма = Объект.НалоговыйДокумент.Организация.ПолучитьФорму("ФормаОрганизации"); Адресс = Форма.ЭлементыФормы.ЮрАдресОрганизации; Запись.ЗаписатьТекст(Строка(Адресс)); Запись.ЗаписатьКонецЭлемента();

Интерактивные операции недоступны

На сервере я так понимаю нельзя получить форму. Просто как тогда по-другому достучатся к реквизиту.

значение хранится не на форме, а в базе.

Спасибо за Сказать спасибо

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

Цитата: ilyay от 24 окт 2016, 10:51
Если поле есть в базе, тяните его запросом. Однако, если оно хитрым образом формируется и попадает в реквизит формы, тогда на клиенте получаете форму нужного объекта и достаете из нее значение реквизита.

Вот именно, что реквизит сделан на самой форме
Можно пример как на клиенте вытащить и как потом на сервере обратится

Добавлено: 24 окт 2016, 11:05

Цитата: alex0402 от 24 окт 2016, 10:30
значение хранится не на форме, а в базе.

В базе нету этого реквизита, он на форме создан.

Добавлено: 24 окт 2016, 12:30

Помогите плз!

Цитата: Vasya Povar от 24 окт 2016, 11:01В базе нету этого реквизита, он на форме создан.

тогда в модуле формы есть алгоритм вычисления этого реквизита, нужно повторить его на сервере в 99% случаев помогает!

Спасибо за Сказать спасибо

Примерно такой код на клиенте:

ПараметрыФормы = Новый Структура("Ключ", Объект.НалоговыйДокумент.Организация); ФормаПодчиненногоОбъекта = ПолучитьФорму("Справочник.Организации.Форма.ФормаОрганизации", ПараметрыФормы); Адрес = ФормаПодчиненногоОбъекта.ЮрАдресОрганизации; // это реквизит формы. В форме смотрите на какой реквизит ссылка в ПутьКДанным у визуального элемента.

Добавлено: 24 окт 2016, 14:29

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

Цитата: ilyay от 24 окт 2016, 14:28
Примерно такой код на клиенте:
ПараметрыФормы = Новый Структура("Ключ", Объект.НалоговыйДокумент.Организация); ФормаПодчиненногоОбъекта = ПолучитьФорму("Справочник.Организации.Форма.ФормаОрганизации", ПараметрыФормы); Адрес = ФормаПодчиненногоОбъекта.ЮрАдресОрганизации; // это реквизит формы. В форме смотрите на какой реквизит ссылка в ПутьКДанным у визуального элемента.

Добавлено: 24 окт 2016, 14:29

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

Поле объекта не обнаружено (Организация)
ПараметрыФормы = Новый Структура(«Ключ», Объект.НалоговыйДокумент.Организация);

На клиенте не можно обратится к реквизитам докуммента.

Добавлено: 24 окт 2016, 14:47

Добавлено: 24 окт 2016, 14:48

Цитата: alex0402 от 24 окт 2016, 13:57

Цитата: Vasya Povar от 24 окт 2016, 11:01В базе нету этого реквизита, он на форме создан.

тогда в модуле формы есть алгоритм вычисления этого реквизита, нужно повторить его на сервере в 99% случаев помогает!

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

Цитировать
ПараметрыФормы = Новый Структура(«Ключ», ПолучитьОрганизацию(Объект.НалоговыйДокумент));
…

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

Спасибо!! По отладке вижу что значение получил. Теперь дело теехники!!! Спасибо еше раз! Вроде просто, но не получалось)

Источник

Шура123

0 / 0 / 0

Регистрация: 30.09.2018

Сообщений: 27

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

02.12.2018, 16:12. Показов 4138. Ответов 13

Метки нет (Все метки)

Здравствуйте. Подскажите пожалуйста: у меня есть справочник «Склады», у него реквизит «Объем». Мне нужно на форме документа при выборе какого-либо склада из справочника вывести объем этого склада. У документа реквизиты «Склад», «ОбъемСклада». Делаю так:

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

Или надо с помощью ПолучитьОбъект()?

Добавлено через 7 минут
Или вообще вот так нужно делать? (но это все равно не работает):

&НаКлиенте
Процедура СкладПриИзменении(Элемент)
    ЭтаФорма.Объект.ОбъемСклада = ПолучитьОбъем();    
КонецПроцедуры
 
&НаСервере
Функция ПолучитьОбъем()
    Возврат Справочники.Склады.Объем;
    КонецФункции

Как он поймет, что должен вывести объем выбранного склада?

856 / 655 / 111

Регистрация: 01.11.2012

Сообщений: 2,410

02.12.2018, 17:08

Сообщение от Шура123

Как он поймет, что должен вывести объем выбранного склада?

Чтобы он понял, надо передать на сервер выбранный склад

0 / 0 / 0

Регистрация: 30.09.2018

Сообщений: 27

02.12.2018, 17:09

[ТС]

Xomych, найтиПоНаименованию или как?

856 / 655 / 111

Регистрация: 01.11.2012

Сообщений: 2,410

02.12.2018, 17:10

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

0 / 0 / 0

Регистрация: 30.09.2018

Сообщений: 27

02.12.2018, 17:12

[ТС]

Xomych, ну да! можете конкретно объяснить, в чем моя ошибка? Я же код прикрепила

Xomych

856 / 655 / 111

Регистрация: 01.11.2012

Сообщений: 2,410

02.12.2018, 17:13

&НаКлиенте
Процедура СкладПриИзменении(Элемент)
    Объект.ОбъемСклада = ПолучитьОбъем(ТутДолженБытьСклад);  
КонецПроцедуры
 
&НаСервере
Функция ПолучитьОбъем(ТутДолженБытьСклад)
    Возврат ТутДолженБытьСклад.Объем;
    КонецФункции

Шура123

0 / 0 / 0

Регистрация: 30.09.2018

Сообщений: 27

02.12.2018, 17:17

[ТС]

Xomych, а какой склад-то?
Если я просто напишу

1	Объект.ОбъемСклада = ПолучитьОбъем(Склад);

, то это не годится.
Я же не могу конкретно написать «Склад 1». Это зависит от выбора пользователя из списка

856 / 655 / 111

Регистрация: 01.11.2012

Сообщений: 2,410

02.12.2018, 17:31

Зачем конкретно писать «Склад 1», когда он у тебя выбран пользователем и хранится в реквизите документа Склад?

Добавлено через 5 минут

Сообщение от Шура123

то это не годится.

Почему?

Шура123

0 / 0 / 0

Регистрация: 30.09.2018

Сообщений: 27

02.12.2018, 17:36

[ТС]

Xomych, ну вот я пишу:

&НаКлиенте
Процедура СкладПриИзменении(Элемент)
    ЭтаФорма.Объект.ОбъемСклада = ПолучитьОбъем(Склады);    
КонецПроцедуры
 
&НаСервере
Функция ПолучитьОбъем(Склады)
    Возврат Справочники.Склады.Объем;
    
КонецФункции

и у меня синтаксическая ошибка «переменная не определена»:

1	Объект.ВместимостьСклада = ПолучитьВместимость(<<?>>Склады); (Проверка: Тонкий клиент)

Xomych

856 / 655 / 111

Регистрация: 01.11.2012

Сообщений: 2,410

02.12.2018, 17:44

Потому что нет переменной Склады, у вас сверху написано Склад, а не Склады, потом наверное надо написать Объект.Склад

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

Шура123

0 / 0 / 0

Регистрация: 30.09.2018

Сообщений: 27

02.12.2018, 17:52

[ТС]

Xomych, теперь работает, но можете мне пожалуйста объяснить, почему не надо писать

1	Справочники.Склады.Объем

Мы ведь обращаемся к справочнику «Склады», а так получается, что мы этого нигде не указываем. Я не могу понять логику.

856 / 655 / 111

Регистрация: 01.11.2012

Сообщений: 2,410

02.12.2018, 18:13

Сообщение от Шура123

Ну если грубо, Справочники.Склады это обращение ко всему справочнику (точнее к менеджеру справочника), с помощью которого можно выполнять разные методы (например найти нужный элемент по коду или наименованию и т.д.)
А вам надо получить данные из конкретного элемента справочника, конкретного склада, которых в справочнике может быть сколько угодно и у каждого разный объём.

Т.е. образно говоря справочник это дом, а элементы справочника это жильцы дома

Исходя из этого Справочники.Склады.Объем не имеет никакого смысла,

Это всё равно, что пытатся выяснить по адресу дома, дату рождения жильца Иванова

0 / 0 / 0

Регистрация: 30.09.2018

Сообщений: 27

02.12.2018, 18:56

[ТС]

Xomych, спасибо большое за разъяснение, теперь понятно!

0 / 0 / 0

Регистрация: 15.10.2013

Сообщений: 48

04.12.2018, 08:48

Ребята спасибо, все работает!

Источник