| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869 |
- /* ------------------------------------------ */
- /* TEMP-TABLES f�r 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.
|
