std.edi.payment

Zahlungs- und Bankdaten per EDIFACT. Alle 13 Nachrichtentypen teilen dieselbe Header-Struktur (EDI_PAY_HDR). Spezifische Validierungen schützen vor häufigen Fehlern: fehlendes Rechnungsreferenz in REMADV (Warnung), fehlendes Mandat in DIRDEB (Fehler), fehlendes Transaktionskennzeichen in FINCAN (Fehler). Alle Beträge werden als int64 × 100 gespeichert (Festkomma).

IBAN-Validierung (MOD-97) und BIC-Format-Prüfung (8 oder 11 Zeichen) sind direkt in dieser Unit enthalten.

import std.edi.payment;
import std.alloc;
import std.string;

fn Feld(p: int64, l: int64): pchar {
    var b: int64 := alloc(l + 1);
    var i: int64 := 0;
    while (i < l) { poke8(b + i, peek8(p + i)); i := i + 1; }
    poke8(b + l, 0);
    return b as pchar;
}

fn main(): int64 {
    var hdr: int64 := alloc(EDI_PAY_HDR_SIZE);
    var i: int64 := 0;
    while (i < EDI_PAY_HDR_SIZE) { poke8(hdr + i, 0); i := i + 1; }
    poke64(hdr + EDI_PAY_HDR_REF,        "AVIS-2026-0091"c as int64);
    poke64(hdr + EDI_PAY_HDR_REFLEN,     14);
    poke64(hdr + EDI_PAY_HDR_DATE,       "20260813"c as int64);
    poke64(hdr + EDI_PAY_HDR_DATELEN,    8);
    poke64(hdr + EDI_PAY_HDR_AMOUNT,     88870);        // 888,70 EUR
    poke64(hdr + EDI_PAY_HDR_CURRENCY,   "EUR"c as int64);
    poke64(hdr + EDI_PAY_HDR_CURLEN,     3);
    poke64(hdr + EDI_PAY_HDR_CREDIBAN,   "DE89370400440532013000"c as int64);
    poke64(hdr + EDI_PAY_HDR_CREDILEN,   22);
    poke64(hdr + EDI_PAY_HDR_BIC,        "COBADEFFXXX"c as int64);
    poke64(hdr + EDI_PAY_HDR_BICLEN,     11);
    poke64(hdr + EDI_PAY_HDR_INVOICEREF, "RE-2026-4711"c as int64);
    poke64(hdr + EDI_PAY_HDR_INVOICELEN, 12);

    // Bankdaten selbst pruefen - die Write-Funktionen tun es nicht
    PrintLn(StrConcat("IBAN gueltig: ", IntToStr(EdiIbanCheck(peek64(hdr + EDI_PAY_HDR_CREDIBAN), 22))));
    PrintLn(StrConcat("BIC gueltig:  ", IntToStr(EdiBicCheck(peek64(hdr + EDI_PAY_HDR_BIC), 11))));
    PrintLn(StrConcat("REMADV-Pflichtfelder (0 = ok): ", IntToStr(EdiRemadvCheck(hdr))));

    var out: int64 := alloc(4096);
    var n: int64 := EdiRemadvWrite(hdr, out, 4096);
    PrintLn(Feld(out, n));

    var hdr2: int64 := alloc(EDI_PAY_HDR_SIZE);
    EdiRemadvRead(out, n, hdr2);
    PrintLn(StrConcat("Betrag/100: ", IntToStr(peek64(hdr2 + EDI_PAY_HDR_AMOUNT))));

    // PAYMUL: Sammelauftrag mit zwei Einzelzahlungen
    var items: int64 := alloc(2 * EDI_PAYMUL_ITEM_SIZE);
    i := 0;
    while (i < 2 * EDI_PAYMUL_ITEM_SIZE) { poke8(items + i, 0); i := i + 1; }
    poke64(items + EDI_PAYMUL_ITEM_AMOUNT,   50000);
    poke64(items + EDI_PAYMUL_ITEM_REF,      "LOHN-08-001"c as int64);
    poke64(items + EDI_PAYMUL_ITEM_REFLEN,   11);
    poke64(items + EDI_PAYMUL_ITEM_CREDIBAN, "DE89370400440532013000"c as int64);
    poke64(items + EDI_PAYMUL_ITEM_CREDILEN, 22);
    var it1: int64 := items + EDI_PAYMUL_ITEM_SIZE;
    poke64(it1 + EDI_PAYMUL_ITEM_AMOUNT,   38870);
    poke64(it1 + EDI_PAYMUL_ITEM_REF,      "LOHN-08-002"c as int64);
    poke64(it1 + EDI_PAYMUL_ITEM_REFLEN,   11);
    poke64(it1 + EDI_PAYMUL_ITEM_CREDIBAN, "DE89370400440532013000"c as int64);
    poke64(it1 + EDI_PAYMUL_ITEM_CREDILEN, 22);

    // Achtung: EdiRemadvWrite hat BGMQUAL im Kopf auf 481 gesetzt.
    // EdiPaymulWrite setzt 452 nur, wenn das Feld 0 ist - also zuruecksetzen.
    poke64(hdr + EDI_PAY_HDR_BGMQUAL, 0);

    // Summe im Kopf muss der Summe der Posten entsprechen
    PrintLn(StrConcat("PAYMUL-Summenpruefung (0 = ok): ", IntToStr(EdiPaymulValidate(hdr, items, 2))));
    n := EdiPaymulWrite(hdr, items, 2, out, 4096);
    PrintLn(Feld(out, n));
    return 0;
}

IBAN gueltig: 1
BIC gueltig:  1
REMADV-Pflichtfelder (0 = ok): 0
BGM+481+AVIS-2026-0091+9'DTM+137:20260813:102'FII+CR+DE89370400440532013000:COBADEFFXXX:25'CUX+2:EUR:4'MOA+9:888.70'RFF+IV:RE-2026-4711'CNT+2:1'
Betrag/100: 88870
PAYMUL-Summenpruefung (0 = ok): 0
BGM+452+AVIS-2026-0091+9'DTM+137:20260813:102'FII+CR+DE89370400440532013000:COBADEFFXXX:25'CUX+2:EUR:4'MOA+9:888.70'LIN+1'RFF+CN:LOHN-08-001'FII+OR+DE89370400440532013000::25'MOA+203:500.00'LIN+2'RFF+CN:LOHN-08-002'FII+OR+DE89370400440532013000::25'MOA+203:388.70'CNT+2:2'

Die Bankverbindung steht im FII-Segment (CR Gläubiger, OR Auftraggeber) im Format IBAN:BIC:25; MOA+9 ist der Gesamt-, MOA+203 der Einzelbetrag.

• std.edi.core
• std.alloc

Gemeinsamer Header für alle 13 Nachrichtentypen.

Eine Einzelzahlung innerhalb eines PAYMUL/CREMUL/DEBMUL.

Akkreditiv-Kopf (DOCAPP/DOCINF).

Ein Akkreditiv-Dokument (z. B. Konnossement, Packzettel).

Alle einfachen Write-Funktionen setzen automatisch den BGM-Qualifier und schreiben die spezifischen Pflicht-Referenzen (REMADV: RFF+IV, DIRDEB: RFF+MR, FINCAN: RFF+TN).

• IBAN im FII-Segment: Der Wire-Format ist IBAN:BIC:25 — die Zahl 25 ist der EDIFACT-Code für IBAN.
• BGM-Qualifier: ein Seiteneffekt mit Tücke. Die einfachen Write-Funktionen (REMADV, PAYORD, PAYEXT, DEBADV, CREEXT, BANSTA, DIRDEB, FINCAN) schreiben ihren Qualifier in den übergebenen Kopf-Struct. EdiPaymulWrite, EdiCremulWrite und EdiDebmulWrite setzen ihren Wert dagegen nur, wenn das Feld 0 ist. Wer denselben Kopf nacheinander für zwei Nachrichtenarten benutzt, muss EDI_PAY_HDR_BGMQUAL zwischendurch auf 0 zurücksetzen — sonst trägt die zweite Nachricht den Qualifier der ersten.
• Prüf-Funktionen melden Fehler, nicht Erfolg: EdiRemadvCheck liefert 0 bei gesetzter Rechnungsreferenz und 1 ohne; EdiDirdebCheck (Mandatsreferenz), EdiFincanCheck (Transaktionsreferenz) und EdiPaymulValidate (Summenabweichung > 1 Cent) geben 2 im Fehlerfall.
• IBAN und BIC werden nicht automatisch geprüft — EdiIbanCheck (MOD-97) und EdiBicCheck liefern 1 für gültig und müssen selbst aufgerufen werden.
• PAYMUL Gesamtbetrag: EdiPaymulWrite schreibt den Wert aus EDI_PAY_HDR_AMOUNT als MOA+9. EdiPaymulValidate vergleicht diesen Wert mit der Summe der Item-Beträge.

Letzte Aktualisierung: 2026-08-13 — lauffähiges Beispiel für REMADV und PAYMUL (Sammelauftrag) mit echter Ausgabe (lyxc 1.0.17K); Seiteneffekt der Write-Funktionen auf EDI_PAY_HDR_BGMQUAL und die Rückgabekonvention der Prüf-Funktionen dokumentiert

Codebeispiele geprüft: gegen lyxc 1.2.5C übersetzt (Prüflauf 2026-09-08 über die gesamte Doku: 574 Vollprogramme, 0 echte Fehler; zusätzlich 5159 Aufrufe gegen die pub fn-Signaturen in aurum/std gehalten, 0 Abweichungen).