Metadaten

// Durchlaufen der Attribute aller Verzeichnisse der IB
Prozedur Erstellen()

Für Index=1 bis Metadaten.Verzeichnis() Schleife
DokID = Metadaten.Verzeichnis(Index).Identifikator;
Meldung("Verzeichnis "+DokID);
Für AttrIndex=1 bis Metadaten.Verzeichnis(DokID).Attribut() Schleife
Meldung("- Attribut des Verzeichnisses - "+Metadaten.Verzeichnis(DokID).Attribut(AttrIndex).Identifikator);
EndeSchleife;
Meldung("********************");
EndeSchleife;

EndeProzedur

// Durchlaufen der Attribute aller Dokumente der IB
Prozedur Erstellen()

// Durchlaufen der allgemeinen Attribute von Dokumenten
Für AttrIndex=1 bis Metadaten.AllgemeinesDokumentAttribut() Schleife
Meldung("- allgemeines Attribut - "+Metadaten.AllgemeinesDokumentAttribut(AttrIndex).Identifikator, "!");
EndeSchleife;

    Für Index=1 bis Metadaten.Dokument() Schleife
        DocID = Metadaten.Dokument(Index).Identifier;
        Meldung("Dokument "+DocID);
        Für ReqIndex=1 bis Metadaten.Dokument(DocID).KopfzeilenAnforderungen() Schleife
            Meldung("- Kopfzeilenanforderung - "+Metadaten.Dokument(DocID).KopfzeilenAnforderungen(ReqIndex).Identifier);
        EndeSchleife;
        Für ReqIndex=1 bis Metadaten.Dokument(DocID).TabellarischerTeilAnforderungen() Schleife
            Meldung("- Tabellenanforderung - "+Metadaten.Dokument(DocID).TabellarischerTeilAnforderungen(ReqIndex).Identifier);
        EndeSchleife;

        Meldung("********************");
    EndeSchleife;

EndeProzedur

// Durchlaufen der Anforderungen des Dokuments "Eingangs-Kassenbeleg"
// Dokumentendaten - TabelleWerte, die sich im Formular der Verarbeitung befinden
Prozedur Erstellen()

    PkoDoc = ObjektErstellen("Dokument.Eingangs-Kassenbeleg");

    Für N = 1 bis Metadaten.Dokument("Eingangs-Kassenbeleg").KopfzeilenAnforderungen() Schleife

        Dokumentendaten.NeueSpalte(Metadaten.Dokument("Eingangs-Kassenbeleg").KopfzeilenAnforderungen(N).Identifier,,,,,,,);

    EndeSchleife;

    DokPKO.WähleDokumente(AnfangsDatum, EndDatum);

    Während DokPKO.HoleDokument() = 1 Schleife

        DokumentenDaten.NeueZeile();

        Für N = 1 bis Metadaten.Dokument(DokPKO.Typ()).KopfzeilenAnforderungen() Schleife
            DokumentenDaten.SetzeWert(DokumentenDaten.Zeilennummer,Metadaten.Dokument(DokPKO.Typ()).KopfzeilenAnforderungen(N).Identifikator,DokPKO.HoleAttribut(Metadaten.Dokument(DokPKO.Typ()).KopfzeilenAnforderungen(N).Identifikator));
        EndeSchleife;

    EndeSchleife;

EndeProzedur