/* ------------------------------------------ */ /* TEMP-TABLES fr die ISO20022-ESR */ /* ------------------------------------------ */ DEFINE TEMP-TABLE tHeader NO-UNDO FIELD iInd AS INTEGER FIELD MsgId AS CHARACTER FIELD Datum AS CHARACTER FIELD Sabe AS CHARACTER FIELD Inhaber AS CHARACTER FIELD Bank AS CHARACTER FIELD Prod AS CHARACTER FIELD IBAN AS CHARACTER FIELD vonDatum AS CHARACTER FIELD bisDatum AS CHARACTER FIELD BankSeqNr AS CHARACTER FIELD Frw AS CHARACTER FIELD Total AS DECIMAL FIELD Taxen AS DECIMAL FIELD Anzahl AS INTEGER INDEX tHeader-k1 IS PRIMARY iInd. DEFINE TEMP-TABLE tSubHeader NO-UNDO FIELD iInd AS INTEGER FIELD iSeq AS INTEGER FIELD TeilnrNr AS CHARACTER FIELD Valuta AS CHARACTER FIELD Buchdat AS CHARACTER FIELD Frw AS CHARACTER FIELD Total AS DECIMAL FIELD Taxen AS DECIMAL FIELD Anzahl AS INTEGER FIELD lStorno AS LOG INIT FALSE INDEX tSubHeader-k1 IS PRIMARY iInd iSeq . DEFINE TEMP-TABLE tZahlung NO-UNDO FIELD iInd AS INTEGER FIELD iSeq AS INTEGER FIELD iZahlung AS INTEGER FIELD Referenz AS CHARACTER FIELD AufRef AS CHARACTER FIELD ServiceRef AS CHARACTER FIELD Betrag AS DECIMAL FIELD Taxen AS DECIMAL FIELD Frw AS CHARACTER FIELD TaxFrw AS CHARACTER FIELD lStorno AS LOG INIT FALSE FIELD lBetrag AS LOG INIT FALSE FIELD Debitor AS CHARACTER INDEX tZahlung-k1 IS PRIMARY iInd iSeq iZahlung . DEFINE VARIABLE htHeader AS HANDLE NO-UNDO. DEFINE VARIABLE htSubHeader AS HANDLE NO-UNDO. DEFINE VARIABLE htZahlung AS HANDLE NO-UNDO. htHeader = TEMP-TABLE tHeader :DEFAULT-BUFFER-HANDLE. htSubHeader = TEMP-TABLE tSubHeader:DEFAULT-BUFFER-HANDLE. htZahlung = TEMP-TABLE tZahlung :DEFAULT-BUFFER-HANDLE.