// Procházení atributů všech rejstříků informační báze
Procedura Sformovat()
Pro Index=1 do Metadata.Rejstřík() Cyklus
IdentDok = Metadata.Rejstřík(Index).Identifikátor;
Zpravit("Rejstřík "+IdentDok);
Pro IndRekv=1 do Metadata.Rejstřík(IdentDok).Atribut() Cyklus
Zpravit("- atribut rejstříku - "+Metadata.Rejstřík(IdentDok).Atribut(IndRekv).Identifikátor);
KonecCyklu;
Zpravit("********************");
KonecCyklu;
KonecProcedury
// Procházení atributů všech dokumentů informační báze
Procedura Sformovat()
// Procházení společných atributů dokumentů
Pro IndRekv=1 do Metadata.SpolečnýAtributDokumentu() Cyklus
Zpravit("- společný atribut - "+Metadata.SpolečnýAtributDokumentu(IndRekv).Identifikátor, "!");
KonecCyklu;
Pro Index=1 podle Metadata.Dokument() Cyklus
ID_Dok = Metadata.Dokument(Index).Identifikator;
Zpravit("Dokument "+ID_Dok);
Pro Index_Rekv=1 podle Metadata.Dokument(ID_Dok).RekvizityZaglavi() Cyklus
Zpravit("- rekvizita záhlaví - "+Metadata.Dokument(ID_Dok).RekvizityZaglavi(Index_Rekv).Identifikator);
KonecCyklu;
Pro Index_Rekv=1 podle Metadata.Dokument(ID_Dok).RekvizityTabulkoveCasti() Cyklus
Zpravit("- rekvizita tabulky - "+Metadata.Dokument(ID_Dok).RekvizityTabulkoveCasti(Index_Rekv).Identifikator);
KonecCyklu;
Zpravit("********************");
KonecCyklu;
KonecProcedury
// Projití rekvizit dokumentu "PříjmovýPokladníŘádek"
// DataDokumentu - TabulkaHodnot umístěná na formuláři zpracování
Procedura Vytvorit()
DokPKR = VytvoritObjekt("Dokument.PříjmovýPokladníŘádek");
Pro N = 1 podle Metadata.Dokument("PříjmovýPokladníŘádek").RekvizityZaglavi() Cyklus
DataDokumentu.NovaSloupec(Metadata.Dokument("PříjmovýPokladníŘádek").RekvizityZaglavi(N).Identifikator,,,,,,,);
KonecCyklu;
DokPKO.VybratDokumenty(ZacDatum, KonDatum);
Ze DokPKO.ZiskatDokument() = 1 Dokud
DataDokumentu.NovyRadek();
Pro N = 1 do Metadata.Dokument(DokPKO.Typ()).PozadavekHlavicky() Dokud
DataDokumentu.NastavitHodnotu(DataDokumentu.CisloRadku,Metadata.Dokument(DokPKO.Typ()).PozadavekHlavicky(N).Identifikator,DokPKO.ZiskatAtribut(Metadata.Dokument(DokPKO.Typ()).PozadavekHlavicky(N).Identifikator));
KonecDokud;
KonecDokud;
KonecProcedury