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

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

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

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

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

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

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

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

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

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

Запрос = Новый Запрос();
Запрос.Текст = "ВЫБРАТЬ Док.* ИЗ Документ.%ИмяДок КАК Док";
Запрос.Текст = СтрЗаменить(Запрос.Текст, "%ИмяДок", ИмяДок);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

(20)

&НаКлиенте
Процедура ВыгрузитьФайл(Команда)
        Док = Объект.Документ;
        типЗнач = ТипЗнч(Док);
        Запись = Новый ЗаписьТекста(Объект.ИмяФайла);
    Запись.ЗаписатьСтроку(Объект.Документ);
    Запись.ЗаписатьСтроку(типЗнач);
    МассивРеквиз = Новый Массив;
    МассивРеквиз = МассивИменРеквизитовОбъекта(Док);
    Для н=0 По МассивРеквиз.Количество()-1 Цикл
                    Запись.Записать(МассивРеквиз[н]+"="+"|");
        КонецЦикла;
    Запись.Закрыть();
КонецПроцедуры

    
&НаСервере
Функция МассивИменРеквизитовОбъекта(Объект)
    
      Мтд = Объект.Метаданные();
Массив = Новый Массив();

Запрос = Новый Запрос();
Текст = "ВЫБРАТЬ Док.* ИЗ Документ.%ИмяДок КАК Док";
Текст = СтрЗаменить(Текст, "%ИмяДок", Мтд.Имя);
Запрос.Текст = Текст;
ТЗ = Запрос.Выполнить().Выгрузить();

Структура = Новый Структура("Имя, ТЗ", "Шапка", ТЗ);
Массив.Добавить(Структура);

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

Запрос = Новый Запрос();
Текст = "ВЫБРАТЬ Док.* ИЗ Документ.%ИмяДок.%ИмяТабЧасти КАК Док";
Текст = СтрЗаменить(Текст, "%ИмяДок", Мтд.Имя);
Текст = СтрЗаменить(Текст, "%ИмяТабЧасти", ТабЧасть.Имя);
Запрос.Текст = Текст;
ТЗ = Запрос.Выполнить().Выгрузить();

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

КонецЦикла;
Возврат Массив;
    
    КонецФункции

&НаСервере
Функция МассивИменРеквизитовОбъекта(Объект)
Мтд = Объект.Ссылка.Метаданные();
Массив = Новый Массив();
...

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

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

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

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

ValueTable

Мтд = Объект.Метаданные();
Массив = Новый Массив();

Запрос = Новый Запрос();
Текст = "ВЫБРАТЬ Док.* ИЗ Документ.%ИмяДок КАК Док";
Текст = СтрЗаменить(Текст, "%ИмяДок", Мтд.Имя);
Запрос.Текст = Текст;
ТЗ = Запрос.Выполнить().Выгрузить();
ТЗ = ИмяМодуля.ТаблицаЗначенийВМассив(ТЗ);

Структура = Новый Структура("Имя, ТЗ", "Шапка", ТЗ);
Массив.Добавить(Структура);

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

Запрос = Новый Запрос();
Текст = "ВЫБРАТЬ Док.* ИЗ Документ.%ИмяДок.%ИмяТабЧасти КАК Док";
Текст = СтрЗаменить(Текст, "%ИмяДок", Мтд.Имя);
Текст = СтрЗаменить(Текст, "%ИмяТабЧасти", ТабЧасть.Имя);
Запрос.Текст = Текст;
ТЗ = Запрос.Выполнить().Выгрузить();
ТЗ = ИмяМодуля.ТаблицаЗначенийВМассив(ТЗ);

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

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

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

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

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

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

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

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

Пжжи

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

Мтд = Док.Метаданные();
    Массив = Новый Массив();
    
    Запрос = Новый Запрос();
    Текст = "ВЫБРАТЬ Док.* ИЗ Документ.%ИмяДок КАК Док";
    Текст = СтрЗаменить(Текст, "%ИмяДок", Мтд.Имя);
    Запрос.Текст = Текст;
    ТЗ = Запрос.Выполнить().Выгрузить();
    
    ТЗ1 = ТЗ.Скопировать();    
    Для Каждого Колонка Из ТЗ1.Колонки Цикл
        Если ТипЗнч(ТЗ[0][Колонка.Имя]) = Тип("ТаблицаЗначений") Тогда
            ТЗ.Колонки.Удалить(Колонка.Имя);
        КонецЕсли;
    КонецЦикла;    
    ТЗ = ОбщегоНазначения.ТаблицаЗначенийВМассив(ТЗ);    
    
    Структура = Новый Структура("Имя, ТЗ", "Шапка", ТЗ);
    Массив.Добавить(Структура);
    
    Для Каждого ТабЧасть из Мтд.ТабличныеЧасти Цикл
        
        Запрос = Новый Запрос();
        Текст = "ВЫБРАТЬ Док.* ИЗ Документ.%ИмяДок.%ИмяТабЧасти КАК Док";
        Текст = СтрЗаменить(Текст, "%ИмяДок", Мтд.Имя);
        Текст = СтрЗаменить(Текст, "%ИмяТабЧасти", ТабЧасть.Имя);
        Запрос.Текст = Текст;
        ТЗ = Запрос.Выполнить().Выгрузить();
        ТЗ = ОбщегоНазначения.ТаблицаЗначенийВМассив(ТЗ);
        
        Структура = Новый Структура("Имя, ТЗ", ТабЧасть.Имя, ТЗ);
        Массив.Добавить(Структура);
    КонецЦикла;
    
    Возврат Массив;

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

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

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

об=Документы.ЗаказНаряд.НайтиПоНомеру("ПА0000050363");
для каждого й из об.Метаданные().Реквизиты цикл
Сообщить(""+й.имя+ " "+об[й.имя]);    
конеццикла;    

для каждого й из об.Метаданные().ТабличныеЧасти цикл
    Сообщить(" "+й.имя);
    тз=об[й.имя].выгрузить() //тч
конеццикла

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

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

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

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

после такого

Текст = "ВЫБРАТЬ Док.* ИЗ Документ.%ИмяДок КАК Док";
    Текст = СтрЗаменить(Текст, "%ИмяДок", Мтд.Имя);
    Запрос.Текст = Текст;
    ТЗ = Запрос.Выполнить().Выгрузить();

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

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

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

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

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

)

(50)     дерево=новый ДеревоЗначений;дерево.Колонки.Добавить("имя");дерево.Колонки.Добавить("зн");    
    об=Документы.ЗаказНаряд.НайтиПоНомеру("ПА0000050363");
    для каждого й из об.Метаданные().Реквизиты цикл
        Сообщить(""+й.имя+ " "+об[й.имя]);
        стр=дерево.Строки.Добавить();стр.имя=й.имя;стр.зн=об[й.имя];
    конеццикла;    
    
    для каждого й из об.Метаданные().ТабличныеЧасти цикл
        Сообщить(" "+й.имя);
        тз=об[й.имя].выгрузить(); //тч
        стр=дерево.Строки.Добавить();стр.имя=й.имя;стр.зн=тз;

    конеццикла

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

(52) И что ты хотел этим доказать?
У меня ещё на клиент передаётся, а у тебя вырубится с ошибкой. Это тоже было в требованиях от ТС

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

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

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

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

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

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

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

(60) да, сериализацию использовать нельзя и функции записи xml.
В файл записываю строки:
Имя документа
Тип документа
Реквизиты в виде: имяреквизита=значение|имя=значение| И тд

(60)

Запись.ЗаписатьСтроку(Объект.Документ);
    Запись.ЗаписатьСтроку(типЗнач);
    МассивРеквиз = Новый Массив;
    МассивЗначений = Новый Массив;
    МассивЗначений = МассивЗначенийРеквизитовОбъекта(Док);
    МассивРеквиз = МассивИменРеквизитов(Док);
    Для н=0 По МассивРеквиз.Количество()-1 Цикл
        Для п=0 По МассивЗначений.Количество()-1 Цикл
                    Запись.Записать(МассивРеквиз[н]+"="+Строка(МассивЗначений[п])+"|");
                КонецЦикла;
                КонецЦикла;
    Запись.Закрыть();

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

Кредитный договор 000000001 от 14.03.2013 0:00:00
Кредитный договор
Проведен=Структура|Ссылка=Структура|ПометкаУдаления=Структура|Дата=Структура|Номер=Структура|Клиент=Структура|Сотрудник=Структура|СуммаКредита=Структура|Ставка=Структура|Срок=Структура|

Щас скажу

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

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

(65) Ошибка:

{Форма.Форма.Форма(53)}: Итератор для значения не определен
    Для Каждого ЭММ ИЗ Э0 Цикл