Форум программистов [Powered by Invision Power Board]

Код


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

Код


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

Код


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

Код


ДЗ = Новый ДеревоЗначений;
ДЗ.Колонки.Добавить("Реквизит");

МетаданныеДокумента = Документы.ПКО.СоздатьДокумент().Метаданные();

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

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

Цитата

Процедура КнопкаВыполнитьНажатие(Кнопка)
//-----------------------------------------------------------------------------
    Текст = "ВЫБРАТЬ
   |    ПКО.*
   |ИЗ
   |    Документ.ПриходныйКассовыйОрдер КАК ПКО
   |ГДЕ
   |    ПКО.Ссылка = &Ссылка";
//-----------------------------------------------------------------------------
    Запрос = Новый Запрос(Текст);
    Запрос.УстановитьПараметр("Ссылка", Тек_Документ);
//-----------------------------------------------------------------------------
    ПКО = Запрос.Выполнить();
//-----------------------------------------------------------------------------
    Для Каждого Колонка
    Из          ПКО.Колонки
    Цикл        Кол_Имя = Колонка.Имя;
//работа с колонками "шапки документа" ........................

//определяем табличные части документа
       Кол_Тип = Строка(Колонка.ТипЗначения);

       Если  Кол_Тип = "Результат запроса"
       Тогда Текст = "ВЫБРАТЬ
        |    ПКО.*
        |ИЗ
        |    Документ.ПриходныйКассовыйОрдер." + Кол_Имя + " КАК ПКО
        |ГДЕ
        |    ПКО.Ссылка = &Ссылка";

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

       Таб_ПКО = Запрос.Выполнить();

       Для Каждого Таб_Колонка
       Из          Таб_ПКО.Колонки
       Цикл        Таб_Кол = Таб_Колонка.Имя;
//работа с колонками табличной части.........
       КонецЦикла;
       КонецЕсли;
    КонецЦикла;
//-----------------------------------------------------------------------------
КонецПроцедуры