v8: Перезаполнение всех полей БД...

 

// Перебор реквизитов всех справочников ИБ

Процедура Сформировать()



    Для Индекс=1 по Метаданные.Справочник() Цикл

        ИдентДока = Метаданные.Справочник(Индекс).Идентификатор;

        Сообщить("Справочник "+ИдентДока);

        Для ИндРекв=1 по Метаданные.Справочник(ИдентДока).Реквизит() Цикл

            Сообщить("- реквизит справочника - "+Метаданные.Справочник(ИдентДока).Реквизит(ИндРекв).Идентификатор);

        КонецЦикла;

        Сообщить("********************");

    КонецЦикла;



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





// Перебор реквизитов всех документов ИБ

Процедура Сформировать()



    // Перебор общих реквизитов документов

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

        Сообщить("- общий реквизит - "+Метаданные.ОбщийРеквизитДокумента(ИндРекв).Идентификатор, "!");

    КонецЦикла;



    Для Индекс=1 по Метаданные.Документ() Цикл

        ИдентДока = Метаданные.Документ(Индекс).Идентификатор;

        Сообщить("Документ "+ИдентДока);

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

            Сообщить("- реквизит шапки - "+Метаданные.Документ(ИдентДока).РеквизитШапки(ИндРекв).Идентификатор);

        КонецЦикла;

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

            Сообщить("- реквизит таблицы - "+Метаданные.Документ(ИдентДока).РеквизитТабличнойЧасти(ИндРекв).Идентификатор);

        КонецЦикла;



        Сообщить("********************");

    КонецЦикла;



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





// Перебор реквизитов документа "ПриходныйКассовыйОрдер"

 // ДанныеДокументов - ТаблицаЗначений расположенная на форме обработки

Процедура Сформировать()



    ДокПКО = СоздатьОбъект("Документ.ПриходныйКассовыйОрдер");



    Для Н = 1 по Метаданные.Документ("ПриходныйКассовыйОрдер").РеквизитШапки() Цикл



        ДанныеДокументов.НоваяКолонка(МетаДанные.Документ("ПриходныйКассовыйОрдер").РеквизитШапки(Н).Идентификатор,,,,,,,);



    КонецЦикла;



    ДокПКО.ВыбратьДокументы(НачДата, КонДата);



    Пока ДокПКО.ПолучитьДокумент() = 1 Цикл



        ДанныеДокументов.НоваяСтрока();



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

            ДанныеДокументов.УстановитьЗначение(ДанныеДокументов.НомерСтроки,МетаДанные.Документ(ДокПКО.Вид()).РеквизитШапки(Н).Идентификатор,ДокПКО.ПолучитьАтрибут(МетаДанные.Документ(ДокПКО.Вид()).РеквизитШапки(Н).Идентификатор));

        КонецЦикла;



    КонецЦикла;



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