Метаподаци

// Iteracija kroz atribute svih referentnih tabela baze podataka
Procedura Generisi()

    Za Indeks=1 do Metapodaci.ReferentnaTabela() Ciklus
        IDdok = Metapodaci.ReferentnaTabela(Indeks).Identifikator;
        Izvestaj("Referentna tabela "+IDdok);
        Za IndRekv=1 do Metapodaci.ReferentnaTabela(IDdok).Rekvizit() Ciklus
            Izvestaj("- rekvizit referentne tabele - "+Metapodaci.ReferentnaTabela(IDdok).Rekvizit(IndRekv).Identifikator);
        KrajCiklusa;
        Izvestaj("********************");
    KrajCiklusa;

KrajProcedure

// Iteracija kroz atribute svih dokumenata baze podataka
Procedura Generisi()

    // Iteracija kroz zajedničke atribute dokumenata
    Za IndRekv=1 do Metapodaci.ZajednickiRekvizitDokumenta() Ciklus
        Izvestaj("- zajednički rekvizit - "+Metapodaci.ZajednickiRekvizitDokumenta(IndRekv).Identifikator, "!");
    KrajCiklusa;

    За Indeks=1 do Metapodaci.Dokument() Ciklus
        IdentDok = Metapodaci.Dokument(Indeks).Identifikator;
        Prikaži("Dokument "+IdentDok);
        За IndRekv=1 do Metapodaci.Dokument(IdentDok).RekvizitiZaglavlja() Ciklus
            Prikaži("- rekvizit zaglavlja - "+Metapodaci.Dokument(IdentDok).RekvizitiZaglavlja(IndRekv).Identifikator);
        KrajCiklusa;
        За IndRekv=1 do Metapodaci.Dokument(IdentDok).RekvizitiTabelarnogDela() Ciklus
            Prikaži("- rekvizit tabele - "+Metapodaci.Dokument(IdentDok).RekvizitiTabelarnogDela(IndRekv).Identifikator);
        KrajCiklusa;

        Prikaži("********************");
    KrajCiklusa;

KrajProcedure

// Prelazak kroz rekvizite dokumenta "PrilazniKasinskiNalog"
// PodaciDokumenata - TabelaVrednosti koja se nalazi na obrascu obrade
Procedura Napravi()

    DokPKO = KreirajObjekat("Dokument.PrilazniKasinskiNalog");

    За N = 1 do Metapodaci.Dokument("PrilazniKasinskiNalog").RekvizitiZaglavlja() Ciklus

        PodaciDokumenata.NovaKolona(Metapodaci.Dokument("PrilazniKasinskiNalog").RekvizitiZaglavlja(N).Identifikator,,,,,,,);

    KrajCiklusa;

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

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

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

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

    КрајЦикла;

КрајПроцедуре