1с получить значения всех реквизитов объекта

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

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

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

 
// Возвращает структуру, содержащую значения реквизитов прочитанные из информационной базы
// по ссылке на объект.
//
//  Если доступа к одному из реквизитов нет, возникнет исключение прав доступа.
//  Если необходимо зачитать реквизит независимо от прав текущего пользователя,
//  то следует использовать предварительный переход в привилегированный режим.
//
// Параметры:
//  Ссылка       - ссылка на объект, - элемент справочника, документ, ...
//  ИменаРеквизитов - Строка или Структура - Если Строка, то имена реквизитов,
//               перечисленные через запятую, в формате требований к свойствам структуры.
//               Например, "Код, Наименование, Родитель".
//               Если Структура, то в качестве ключа передается псевдоним поля для
//               возвращаемой структуры с результатом, а в качестве значения (опционально)
//               - фактическое имя поля в таблице.
//               Если значение не определено, то имя поля берется из ключа.
//
// Возвращаемое значение:
//  Структура    - содержит список свойств, как список имен в строке
//                 ИменаРеквизитов, со значениям реквизитов, прочитанных
//                 из информационной базы.
//
Функция ПолучитьЗначенияРеквизитов(Ссылка, ИменаРеквизитов) Экспорт
        Если ТипЗнч(ИменаРеквизитов) = Тип("Структура") Тогда
                СтруктураРеквизитов = ИменаРеквизитов;
        ИначеЕсли ТипЗнч(ИменаРеквизитов) = Тип("Строка") Тогда
                СтруктураРеквизитов = Новый Структура(ИменаРеквизитов);;
        Иначе
                ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
                        НСтр("ru = 'Неверный тип второго параметра ИменаИлиСтруктураРеквизитов: %1'"),
                        Строка(ТипЗнч(ИменаРеквизитов)));
        КонецЕсли;
        ТекстПолей = "";
        Для каждого КлючИЗначение Из СтруктураРеквизитов Цикл
                ИмяПоля   = ?(ЗначениеЗаполнено(КлючИЗначение.Значение), СокрЛП(КлючИЗначение.Значение), СокрЛП(КлючИЗначение.Ключ));
                Псевдоним = СокрЛП(КлючИЗначение.Ключ);
                ТекстПолей  = ТекстПолей + ?(ПустаяСтрока(ТекстПолей), "", ",") + "
                        |       " + ИмяПоля + " КАК " + Псевдоним;
        КонецЦикла;
        Запрос = Новый Запрос(
                "ВЫБРАТЬ
                |" + ТекстПолей + "
                |ИЗ
                |       " + Ссылка.Метаданные().ПолноеИмя() + " КАК ПсевдонимЗаданнойТаблицы
                |ГДЕ
                |       ПсевдонимЗаданнойТаблицы.Ссылка = &Ссылка
                |");
        Запрос.УстановитьПараметр("Ссылка", Ссылка);
        Выборка = Запрос.Выполнить().Выбрать();
        Выборка.Следующий();
        Результат = Новый Структура;
        Для каждого КлючИЗначение Из СтруктураРеквизитов Цикл
                Результат.Вставить(КлючИЗначение.Ключ);
        КонецЦикла;
        ЗаполнитьЗначенияСвойств(Результат, Выборка);
        Возврат Результат;
КонецФункции

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

 
Функция СканПростойСтруктуры(Структура)
        Для каждого Элемент из Структура Цикл
                Сообщить(Элемент.Ключ + ": " + Элемент.Значение);
        КонецЦикла;
КонецФункции

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

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

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

Поставщик = ДокОбъект.Метаданные().Реквизиты.Поставщик;

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

// Позволяет определить есть ли среди реквизитов табличной части документа
// реквизит с переданным именем.
//
// Параметры:
//  ИмяРеквизита - строковое имя искомого реквизита,
//  МетаданныеДокумента - объект описания метаданных документа, среди реквизитов которого производится поиск.
//  ИмяТабЧасти  - строковое имя табличной части документа, среди реквизитов которого производится поиск
//
// Возвращаемое значение:
//  Истина - нашли реквизит с таким именем, Ложь - не нашли.
//
 
Функция ЕстьРеквизитТабЧастиДокумента(ИмяРеквизита, МетаданныеДокумента, ИмяТабЧасти) Экспорт
    ТабЧасть = МетаданныеДокумента.ТабличныеЧасти.Найти(ИмяТабЧасти);
    Если ТабЧасть = Неопределено Тогда // Нет такой таб. части в документе
        Возврат Ложь;
    Иначе
        Возврат НЕ (ТабЧасть.Реквизиты.Найти(ИмяРеквизита) = Неопределено);
    КонецЕсли;
КонецФункции

 

        ИмяРеквизита = "Номенклатура";
        МетаданныеДокумента = ДокОбъект.Метаданные();
        ИмяТабЧасти = "Товары";
        
         Если ЕстьРеквизитТабЧастиДокумента(ИмяРеквизита, МетаданныеДокумента, ИмяТабЧасти) Тогда
            Сообщить("Реквизит есть!");
         Иначе
            Сообщить("Реквизита нет");
         КонецЕсли;
 

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

Функция ПолучитьЗначенияРеквизитовТабчасти(Ссылка, ИменаРеквизитов, ИмяТабЧасти) Экспорт
        
        ИмяТЧ = ИмяТабЧасти;
        ПолноеИмя = Ссылка.Метаданные().ПолноеИмя();
           
        Если ТипЗнч(ИменаРеквизитов) = Тип("Структура") Тогда
                СтруктураРеквизитов = ИменаРеквизитов;
        ИначеЕсли ТипЗнч(ИменаРеквизитов) = Тип("Строка") Тогда
                СтруктураРеквизитов = Новый Структура(ИменаРеквизитов);;
        Иначе
                ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
                        НСтр("ru = 'Неверный тип второго параметра ИменаИлиСтруктураРеквизитов: %1'"), 
                        Строка(ТипЗнч(ИменаРеквизитов)));
        КонецЕсли;
        ТекстПолей = "";
        Для Каждого КлючИЗначение Из СтруктураРеквизитов Цикл
                ИмяПоля   = ?(ЗначениеЗаполнено(КлючИЗначение.Значение), СокрЛП(КлючИЗначение.Значение), СокрЛП(КлючИЗначение.Ключ));
                Псевдоним = СокрЛП(КлючИЗначение.Ключ);
                ТекстПолей  = ТекстПолей + ?(ПустаяСтрока(ТекстПолей), "", ",") + "
                        |       " + ИмяПоля + " КАК " + Псевдоним;
        КонецЦикла;
        Запрос = Новый Запрос(
                "ВЫБРАТЬ
                |" + ТекстПолей + "
                |ИЗ
                |       " + ПолноеИмя + "." + ИмяТЧ + " КАК ПсевдонимЗаданнойТаблицы
                |ГДЕ
                |       ПсевдонимЗаданнойТаблицы.Ссылка = &Ссылка
                |");
                                
        Запрос.УстановитьПараметр("Ссылка", Ссылка);
        Результат = Запрос.Выполнить().Выгрузить();
                
        Возврат Результат;
КонецФункции

 
        ДокСсылка = СсылкаНаДокумент(ТипДокумента, НомерДок);
        ДокОбъект = ДокСсылка.ПолучитьОбъект();
                                
        
        МассивТабЧастей = Новый Массив;
        Для каждого ТабЧасть Из ДокОбъект.Метаданные().ТабличныеЧасти Цикл
                МассивТабЧастей.Добавить(ТабЧасть.Имя);                 
        КонецЦикла;                                             
                
        Для Каждого ТабЧасть Из МассивТабЧастей Цикл
                        
                СтруктураНастроек = Новый Структура;
                Для каждого Реквизит Из ДокОбъект.Метаданные().ТабличныеЧасти.Найти(ТабЧасть).Реквизиты Цикл
                        СтруктураНастроек.Вставить(Реквизит.Имя, Реквизит.Имя);
                КонецЦикла;                                             
                        
                Сообщить("Имя таб части: " + ТабЧасть);
                ТабЗнач = ПолучитьЗначенияРеквизитовТабЧасти(ДокСсылка , СтруктураНастроек, ТабЧасть);
                                
                ПоказатьТаблицу(ТабЗнач);
                                
        КонецЦикла;
 

 
функция ПоказатьТаблицу(Табл)
        
        Сообщить("///Функция ПоказатьТаблицу///");
        
        Количество = Табл.Колонки.Количество();
        
        Для каждого Строка из Табл Цикл
                Для Индекс = 0 По Количество-1 Цикл 
                        Сообщить(СокрЛП(Индекс)+" "+СокрЛП(Табл.Колонки[Индекс].Имя)+ ": " + Строка[СокрЛП(Табл.Колонки[Индекс].Имя)]);
                КонецЦикла;
        КонецЦикла;
        Сообщить("///Конец Функция ПоказатьТаблицу///");
КонецФункции  

Добрый день.

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

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

&НаСервере

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

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

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

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

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

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

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

            КонецЦикла;

        КонецЦикла;

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

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

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

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

        КонецЦикла;

    КонецЦикла;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

КонецЦикла;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

КонецЦикла;

(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’

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

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

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

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

(20)

&НаКлиенте

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

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

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

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

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

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

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

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

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

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

        КонецЦикла;

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

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

    
&НаСервере

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

КонецЦикла;

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

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

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

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

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

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

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

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

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

ТЗ = ИмяМодуля.ТаблицаЗначенийВМассив(ТЗ);

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

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

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

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

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

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

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

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

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

ТЗ = ИмяМодуля.ТаблицаЗначенийВМассив(ТЗ);

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

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

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

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

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

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

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

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

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

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

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

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

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

        КонецЕсли;

    КонецЦикла;    

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

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

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

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

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

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

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

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

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

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

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

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

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

    КонецЦикла;

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

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

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

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

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

конеццикла;    

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

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

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

конеццикла

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

после такого

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

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

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

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

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

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

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

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

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

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

    конеццикла;    

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

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

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

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

    конеццикла

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

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

(60)

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

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

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

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

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

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

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

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

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

                КонецЦикла;

                КонецЦикла;

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

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

Кредитный договор 000000001 от 14.03.2013 0:00:00

Кредитный договор

Проведен=Структура|Ссылка=Структура|ПометкаУдаления=Структура|Дата=Структура|Номер=Структура|Клиент=Структура|Сотрудник=Структура|СуммаКредита=Структура|Ставка=Структура|Срок=Структура|

Fanyn

67 — 12.08.15 — 15:48

(65) Ошибка:

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

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

Возвращает значение или структуру с именами и значениями реквизитов произвольного объекта ссылочного типа прочитанные из информационной базы

// Возвращает значение или структуру с именами и значениями реквизитов произвольного объекта ссылочного типа
// прочитанные из информационной базы
//
// Параметры:
//  Ссылка - произвольный объект ссылочного типа (справочник, документ, план обмена, ПВХ, задача)
//  СтруктураРеквизитов - Необязательно. Может содержать значения:
//                      строка - имя реквизита объекта.
//                      строка - имена реквизитов, перечисленные через запятую, в формате требований к свойствам структуры.
//                      структура - структура с именами реквизитов.
//
//
// Возвращаемое значение:
//  Структура - если СтруктураРеквизитов имеет тип Структура и заполнен - структура с именами и значениями указанных реквизитов
//  Структура - если СтруктураРеквизитов не указан или не заполнен - структура с именами и значениями всех реквизитов объекта
//  Произвольный - если СтруктураРеквизитов строкового типа - значение данного реквизита
//
Функция ПолучитьРеквизитыОбъекта(Знач Ссылка, Знач СтруктураРеквизитов = Неопределено) Экспорт

    МетаданныеОбъекта = Ссылка.Метаданные();
    ИмяТаблицы = МетаданныеОбъекта.ПолноеИмя();

    ЭтоСправочник = Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(Ссылка));
    ЭтоПланОбмена = ПланыОбмена.ТипВсеСсылки().СодержитТип(ТипЗнч(Ссылка));
    ЭтоПВХ = ПланыВидовХарактеристик.ТипВсеСсылки().СодержитТип(ТипЗнч(Ссылка));
    ЭтоПланВидовРасчета = ПланыВидовРасчета.ТипВсеСсылки().СодержитТип(ТипЗнч(Ссылка));
    ЭтоДокумент = (Документы.ТипВсеСсылки().СодержитТип(ТипЗнч(Ссылка)) ИЛИ БизнесПроцессы.ТипВсеСсылки().СодержитТип(ТипЗнч(Ссылка)));
    ЭтоЗадача = Задачи.ТипВсеСсылки().СодержитТип(ТипЗнч(Ссылка));

    ТекстЗапроса = "ВЫБРАТЬ ";

    //Формируем список реквизитов объекта для запроса
    Если ТипЗнч(СтруктураРеквизитов) = Тип("Строка") И ЗначениеЗаполнено(СтруктураРеквизитов) Тогда

        ТекстЗапроса = ТекстЗапроса + СокрЛП(СтруктураРеквизитов);
        //Если передали список реквизитов, инициализируем структуру
        Если Найти(СтруктураРеквизитов, ",") <> 0 Тогда
            СтруктураРеквизитов = Новый Структура(СтруктураРеквизитов);
        КонецЕсли;

    ИначеЕсли ТипЗнч(СтруктураРеквизитов) = Тип("Структура") И СтруктураРеквизитов.Количество() > 0 Тогда

        Для каждого Реквизит Из СтруктураРеквизитов Цикл ТекстЗапроса = ТекстЗапроса + Реквизит.Ключ + ","; КонецЦикла;

        //Отрезаем последнюю запятую
        ТекстЗапроса = Лев(ТекстЗапроса, СтрДлина(ТекстЗапроса) - 1);

    Иначе

        //Определяем список реквизитов объектов для подстановки в текст запроса
        СписокРеквизитов = "";
        Если ЭтоСправочник ИЛИ ЭтоПланОбмена ИЛИ ЭтоПВХ ИЛИ ЭтоПланВидовРасчета Тогда
            Если МетаданныеОбъекта.ДлинаКода > 0 Тогда
                СписокРеквизитов = "Код,";
            КонецЕсли;
            Если МетаданныеОбъекта.ДлинаНаименования > 0 Тогда
                СписокРеквизитов = СписокРеквизитов + "Наименование,";
            КонецЕсли;
            Если ЭтоСправочник ИЛИ ЭтоПВХ Тогда
                Если МетаданныеОбъекта.Иерархический Тогда
                    СписокРеквизитов = СписокРеквизитов + "Родитель,";
                КонецЕсли;
                Если ЭтоСправочник И (МетаданныеОбъекта.Владельцы.Количество() <> 0) Тогда
                    СписокРеквизитов = СписокРеквизитов + "Владелец,";
                КонецЕсли;
            КонецЕсли;
        ИначеЕсли ЭтоДокумент Тогда
            Если МетаданныеОбъекта.ДлинаНомера > 0 Тогда
                СписокРеквизитов = "Номер,";
            КонецЕсли;
            СписокРеквизитов =  СписокРеквизитов + "Дата,";
        ИначеЕсли ЭтоЗадача Тогда
            Если МетаданныеОбъекта.ДлинаНомера > 0 Тогда
                СписокРеквизитов = "Номер,";
            КонецЕсли;
            СписокРеквизитов =  СписокРеквизитов + "Дата,";
            Если МетаданныеОбъекта.ДлинаНаименования > 0 Тогда
                СписокРеквизитов = СписокРеквизитов + "Наименование,";
            КонецЕсли;
        КонецЕсли;

        СписокРеквизитов = СписокРеквизитов + "ПометкаУдаления,";

        Для каждого Реквизит Из МетаданныеОбъекта.Реквизиты Цикл СписокРеквизитов = СписокРеквизитов + Реквизит.Имя + ","; КонецЦикла;

        //Отрезаем последнюю запятую
        СписокРеквизитов = Лев(СписокРеквизитов, СтрДлина(СписокРеквизитов) - 1);
        СтруктураРеквизитов = Новый Структура(СписокРеквизитов);

        ТекстЗапроса = ТекстЗапроса + СписокРеквизитов;

    КонецЕсли;

    ТекстЗапроса = ТекстЗапроса + "
        |ИЗ " + ИмяТаблицы + "
        |ГДЕ Ссылка = &Ссылка";

    Запрос = Новый Запрос;
    Запрос.Текст = ТекстЗапроса;
    Запрос.УстановитьПараметр("Ссылка", Ссылка);

    РезультатЗапроса = Запрос.Выполнить();
    Если НЕ РезультатЗапроса.Пустой() Тогда
        Выборка = РезультатЗапроса.Выбрать();
        Если Выборка.Следующий() Тогда
            Если ТипЗнч(СтруктураРеквизитов) = Тип("Строка") И ЗначениеЗаполнено(СтруктураРеквизитов) Тогда
                Возврат Выборка[СтруктураРеквизитов];
            Иначе
                ЗаполнитьЗначенияСвойств(СтруктураРеквизитов, Выборка);
				СтруктураРеквизитов.Вставить("Ссылка", Ссылка);//++
				Возврат СтруктураРеквизитов;
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;

    Возврат Неопределено;

КонецФункции //ПолучитьРеквизитыОбъекта()

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

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

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

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

Контрагент=КонтрагентСсылка.ПолучитьОбъект();
//Переменная КонтрагентСсылка должна содержать ссылку на элемент</p>
Для Каждого Реквизит Из Контрагент.Метаданные().Реквизиты Цикл
Контрагент[Реквизит.Имя] = Неопределено;
КонецЦикла;

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

Контрагент.Записать();

1. Пробовал кто нибудь запросом получить все реквизиты объекта, те. не значения реквизитов а наименование самих реквизитов? Возможно ли такое?
   Принцип похожий на Цикл

   Для каждого Реквизит Из Документ.Метаданные().Реквизиты Цикл
         Сообщить(Ревизит.Имя);
   КонецЦикла;

2. 
   

   Offline

   alexburn
   Модераторы
   Команда форума
   Модератор

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

   5 янв 2009

   Сообщения:

   15.150

   Симпатии:

   560

   Баллы:

   204

   Выбрать
   *
   из ВашДокумент.

3. 
   

   Offline

   Thelearning
   Профессионал в 1С
   Команда форума

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

   9 сен 2010

   Сообщения:

   701

   Симпатии:

   72

   Баллы:

   54

   А разве такое возможно?

   — Объединение сообщений, 16 май 2014 —

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

4. 
   

   Offline

   olegsemenov2005
   Опытный в 1С

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

   5 май 2014

   Сообщения:

   55

   Симпатии:

   3

   Баллы:

   29

   &НаКлиенте
   Процедура Команда1(Команда)

   НаСервере(«РеализацияТоваровУслуг»);

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

   &НаСервере
   Процедура НаСервере(ВидДокумента)

   Сообщение = Новый СообщениеПользователю;
   Для каждого ТекущийРеквизит Из Метаданные.Документы[ВидДокумента].Реквизиты Цикл

   Сообщение.Текст = ТекущийРеквизит.Имя;
   Сообщение.Сообщить();

   КонецЦикла;

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

   ———————

   Запросом получаешь только значения реквизитов

   Последнее редактирование: 16 май 2014
5. 
   

   Offline

   alexburn
   Модераторы
   Команда форума
   Модератор

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

   5 янв 2009

   Сообщения:

   15.150

   Симпатии:

   560

   Баллы:

   204

   В обработчике нельзя разве использовать Имя ?

6. Здесь есть минусы.
   Не все реквизиты документа можно получить способом описанном выше

   &НаКлиенте
   Процедура Команда1(Команда)
   
   НаСервере("РеализацияТоваровУслуг");
   
   КонецПроцедуры
   
   &НаСервере
   Процедура НаСервере(ВидДокумента)
   
   Сообщение = Новый СообщениеПользователю;
   Для каждого ТекущийРеквизит Из Метаданные.Документы[ВидДокумента].Реквизиты Цикл
   
   Сообщение.Текст = ТекущийРеквизит.Имя;
   Сообщение.Сообщить();
   
   КонецЦикла;
   
   КонецПроцедуры

   Можете проверить например: — если в форме документа получать значения элементов формы методом

   Для каждого Реквизит Из ЭтаФорма.Элементы Цикл
           Сообщить(Реквизит.Имя);
   КонецЦикла;
   

   Мы получим больше элементов.

7. 
   

   Offline

   olegsemenov2005
   Опытный в 1С

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

   5 май 2014

   Сообщения:

   55

   Симпатии:

   3

   Баллы:

   29

   В условии было реквизиты объекта « ……. получить все реквизиты объекта ……«, по этому сделал ч/з метаданные.
   Это для общего развития нужно или стоит какая то конкретная задача?

8. Вообще стоит задача проверка совпадений реквизитов одинаковых объектов например Поступление товаров и услуг у разных баз (нужно для обмена данными).
   Через циклы не все реквизиты проверяются. Пробую реализовать запросом, но видимо запросом не возможно.

9. 
   

   Offline

   Tiger86
   Модераторы
   Команда форума
   Модератор

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

   24 мар 2011

   Сообщения:

   6.407

   Симпатии:

   108

   Баллы:

   104

   реквизит объекта и элемент формы — это могут быть разные вещи. Не все элементы формы связаны с реквизитами. Определитесь для начала что вам надо

10. 
    

    Offline

    mialord
    Модераторы
    Команда форума
    Модератор

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

    31 июл 2009

    Сообщения:

    5.460

    Симпатии:

    53

    Баллы:

    54

    1. Запрос — это выборка ДАННЫХ. Вы хотите получить метаданные и запросом (Объект ЗАПРОС) метаданные выбрать нельзя.
    2. При СОМ подключении Вы можете запросить объект Метаданные а там сверять в цикле все существующие метаданные.