Перебрать все реквизиты документа 1с в цикле

Есть вот такая форма. В поле «документ» на форме пользователь выбирает один из документов в информационной базе. Нужно, чтобы из выбранного документа были взяты определенные реквизиты и записаны в txt. Не понимаю что мне в модуле формы нужно написать, чтобы получить документ, выбранный пользователем, и начать перебирать его реквизиты
Знаю, что надо метаданные использовать, но не понимаю как это все связать.

Цитата: Bitaxa от 02 мар 2018, 18:18

Есть вот такая форма. В поле «документ» на форме пользователь выбирает один из документов в информационной базе. Нужно, чтобы из выбранного документа были взяты определенные реквизиты и записаны в txt. Не понимаю что мне в модуле формы нужно написать, чтобы получить документ, выбранный пользователем, и начать перебирать его реквизиты
Знаю, что надо метаданные использовать, но не понимаю как это все связать.

Вообще задание звучит следующим образом:Разработать внешнюю обработку «ПерегрузкаДокументов». На ней должна быть возможность выбрать один из документов. При нажатии на кнопку информация, содержащиеся в выбранном документе, должна выгрузиться в указанный файл txt. Все сделать через Метаданные.
Готовое решение не нужно. просто хочу понять, какие темы для этого надо читать и что нужно понимать.

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

Цитата: AIFrame от 02 мар 2018, 19:01
Документ = Документы.РеализацияТоваровУслуг.ПустаяСсылка();
МетаданныеДокумента = Документ.Метаданные().Реквизиты;
Для Каждого Реквизит из МетаданныеДокумента Цикл
Сообщить(Реквизит.Имя);
КонецЦикла;

Я так понимаю здесь идет обращение к конкретному документу?

Цитата: Bitaxa от 02 мар 2018, 18:36информация, содержащиеся в выбранном документе, должна выгрузиться в указанный файл txt

ТекстДляЗаписи = Новый ТекстовыйДокумент;
Документ = Документы.РеализацияТоваровУслуг.ПустаяСсылка();
МетаданныеДокумента = Документ.Метаданные().Реквизиты;
Для Каждого Реквизит из МетаданныеДокумента Цикл
ТекстДляЗаписи.ДобавитьСтроку("" + Реквизит.Имя + ":" + Документ[Реквизит.Имя]);
КонецЦикла;
ТекстДляЗаписи.Записать("C:test.txt");
Чо еще надо то?

Цитата: AIFrame от 03 мар 2018, 00:25

Цитата: Bitaxa от 02 мар 2018, 18:36информация, содержащиеся в выбранном документе, должна выгрузиться в указанный файл txt

ТекстДляЗаписи = Новый ТекстовыйДокумент;
Документ = Документы.РеализацияТоваровУслуг.ПустаяСсылка();
МетаданныеДокумента = Документ.Метаданные().Реквизиты;
Для Каждого Реквизит из МетаданныеДокумента Цикл
ТекстДляЗаписи.ДобавитьСтроку("" + Реквизит.Имя + ":" + Документ[Реквизит.Имя]);
КонецЦикла;
ТекстДляЗаписи.Записать("C:test.txt");
Чо еще надо то?

Просто не понимаю, здесь для конкретного документа или нет?)
У меня документ выбирается пользователем.

Добавлено: 03 мар 2018, 10:37

Цитата: AIFrame от 03 мар 2018, 00:25

Цитата: Bitaxa от 02 мар 2018, 18:36информация, содержащиеся в выбранном документе, должна выгрузиться в указанный файл txt

ТекстДляЗаписи = Новый ТекстовыйДокумент;
Документ = Документы.РеализацияТоваровУслуг.ПустаяСсылка();
МетаданныеДокумента = Документ.Метаданные().Реквизиты;
Для Каждого Реквизит из МетаданныеДокумента Цикл
ТекстДляЗаписи.ДобавитьСтроку("" + Реквизит.Имя + ":" + Документ[Реквизит.Имя]);
КонецЦикла;
ТекстДляЗаписи.Записать("C:test.txt");
Чо еще надо то?

&НаКлиенте
Процедура Выгрузить(Команда)
ТекстДляЗаписи = Новый ТекстовыйДокумент;
//Документ = Документы.ОказаниеУслуг.ПустаяСсылка();
Документ = ЭтаФорма.Элементы.Документ.ПутьКДанным;

МетаданныеДокумента = Документ.Метаданные().Реквизиты;
Для Каждого  Реквизит из МетаданныеДокумента Цикл
   ТекстДляЗаписи.ДобавитьСтроку(«» + Реквизит.Имя + «:» + Документ[Реквизит.Имя]);
КонецЦикла;
ТекстДляЗаписи.Записать(«C:test.txt»)
КонецПроцедуры

Вот что сделал. Пишет «Свойство недоступно»

Цитата: Bitaxa от 03 мар 2018, 10:06Документ = ЭтаФорма.Элементы.Документ.ПутьКДанным;

Откуда вы такие ужасы вообще берете?

Док = Документ;
Или если это реквизит объекта

Док = Объект.Документ;
Не страдай ерундой.

Откуда вы такие ужасы вообще берете?

Док = Документ;
Или если это реквизит объекта

Док = Объект.Документ;
Не страдай ерундой.
[/quote]
Спасибо)))вот что пишет:{ВнешняяОбработка.ВнешняяОбработка1.Форма.ПерегрузкаДокумента.Форма(9)}: Метод объекта не обнаружен (Метаданные)
МетаданныеДокумента = Док.Метаданные().Реквизиты;

 //Перебор Основных Реквизитов формы
      

    	Для Каждого Рек из ЭтаФорма.Метаданные().Реквизиты Цикл
      

    		Сообщить(рек.Имя+" - "+рек.Синоним+" - "+Строка(рек.Тип));
      

    	КонецЦикла;
      

    	// или так
      

    	Для Каждого Рек из Метаданные().Реквизиты Цикл
      

    		Сообщить(рек.Имя+" - "+рек.Синоним+" - "+Строка(рек.Тип));
      

    	КонецЦикла;
      

      
    	//Реквизиты формы - Надписи, Поля Ввода и т.д
      

    	//можно и через ЭтаФорма.ЭлементыФормы
      

    	Для Каждого Рек из ЭлементыФормы Цикл
      

    		Сообщить(Строка(рек)+" - "+рек.имя);
      

     КонецЦикла; 

Код 1C v 7.x

 //функция создаёт список реквизитов документа
      

    Процедура гСписокРеквизитовДокумента(Список,Документ,ФлагПредставление=0) Экспорт
      

     //Шапка
      

     Для i=1 По Метаданные.Документ(Документ).РеквизитШапки() Цикл
      

     Ж=Метаданные.Документ(Документ).РеквизитШапки(i);
      

     Если ФлагПредставление=0 Тогда
      

     Представление=Ж.Идентификатор;
      

     Иначе
      

     Представление=Ж.Представление();
      

     КонецЕсли;
      

     Список.ДобавитьЗначение(Ж.Идентификатор,"Ш: "+Представление);
      

     КонецЦикла;
      

     //Табличная часть
      

     Для i=1 По Метаданные.Документ(Документ).РеквизитТабличнойЧасти() Цикл
      

     Ж=Метаданные.Документ(Документ).РеквизитТабличнойЧасти(i);
      

     Если ФлагПредставление=0 Тогда
      

     Представление=Ж.Идентификатор;
      

     Иначе
      

     Представление=Ж.Представление();
      

     КонецЕсли;
      

     Список.ДобавитьЗначение(Ж.Идентификатор,"Т: "+Представление);
      

     КонецЦикла;
      

     //Общие
      

     Для i=1 По Метаданные.ОбщийРеквизитДокумента() Цикл
      

     Ж=Метаданные.ОбщийРеквизитДокумента(i);
      

     Если ФлагПредставление=0 Тогда
      

     Представление=Ж.Идентификатор;
      

     Иначе
      

     Представление=Ж.Представление();
      

     КонецЕсли;
      

     Список.ДобавитьЗначение(Ж.Идентификатор,"О: "+Представление);
      

     КонецЦикла;
      

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

Подписаться