Metadane

// Przejście przez atrybuty wszystkich katalogów bazy informacji
Procedura Sformować()

    Dla Indeks=1 po Metadane.Katalog() Cykl
        IdentyfikatorDokumentu = Metadane.Katalog(Indeks).Identyfikator;
        Wiadomość("Katalog "+IdentyfikatorDokumentu);
        Dla IndeksAtrybutu=1 po Metadane.Katalog(IdentyfikatorDokumentu).Atrybut() Cykl
            Wiadomość("- atrybut katalogu - "+Metadane.Katalog(IdentyfikatorDokumentu).Atrybut(IndeksAtrybutu).Identyfikator);
        KoniecCyklu;
        Wiadomość("********************");
    KoniecCyklu;

KoniecProcedury

// Przejście przez atrybuty wszystkich dokumentów bazy informacji
Procedura Sformować()

    // Przejście przez wspólne atrybuty dokumentów
    Dla IndeksAtrybutu=1 po Metadane.WspólnyAtrybutDokumentu() Cykl
        Wiadomość("- wspólny atrybut - "+Metadane.WspólnyAtrybutDokumentu(IndeksAtrybutu).Identyfikator, "!");
    KoniecCyklu;

    Dla Indeks=1 w Metadane.Dokument() Pętla
        IdDoc = Metadane.Dokument(Indeks).Identyfikator;
        Wiadom("Dokument "+IdDoc);
        Dla IndRekw=1 w Metadane.Dokument(IdDoc).RekwizytyNagłówka() Pętla
            Wiadom("- rekwizyt nagłówka - "+Metadane.Dokument(IdDoc).RekwizytyNagłówka(IndRekw).Identyfikator);
        KoniecPętli;
        Dla IndRekw=1 w Metadane.Dokument(IdDoc).RekwizytyCzęściTabelarycznej() Pętla
            Wiadom("- rekwizyt tabeli - "+Metadane.Dokument(IdDoc).RekwizytyCzęściTabelarycznej(IndRekw).Identyfikator);
        KoniecPętli;

        Wiadom("********************");
    KoniecPętli;

KoniecProcedury

// Przechodzenie przez rekwizyty dokumentu "PrzychodowyKasowyRachunek"
// DaneDokumentów - TabelaWartości znajdująca się na formularzu przetwarzania
Procedura Sformuj()

    DokPKO = UtwórzObiekt("Dokument.PrzychodowyKasowyRachunek");

    Dla N = 1 w Metadane.Dokument("PrzychodowyKasowyRachunek").RekwizytyNagłówka() Pętla

        DaneDokumentów.NowaKolumna(Metadane.Dokument("PrzychodowyKasowyRachunek").RekwizytyNagłówka(N).Identyfikator,,,,,,,);

    KoniecPętli;

    DokPKO.WybierzDokumenty(DataPocz, DataKon);

    Während DokPKO.PobierzDokument() = 1 Schleife

        DaneDokumentów.NowyWiersz();

        Dla N = 1 do Metadane.Dokument(DokPKO.Widok()).WymaganeNagłówka() Schleife
            DaneDokumentów.UstawWartość(DaneDokumentów.NumerWiersza,Metadane.Dokument(DokPKO.Widok()).WymaganeNagłówka(N).Identyfikator,DokPKO.PobierzAtrybut(Metadane.Dokument(DokPKO.Widok()).WymaganeNagłówka(N).Identyfikator));
        KoniecSchlefi;

    KoniecSchlefi;

KoniecProcedury