std.edi.orders

Bestellprozess per EDIFACT: Bestellung, Auftragsbestätigung und Änderungsauftrag. Alle vier NAD-Rollen (Käufer, Lieferant, Lieferadresse, Rechnungsempfänger) werden beim Lesen automatisch extrahiert.

• ORDERS (BGM 220) — Bestellung (Purchase Order)
• ORDRSP (BGM 231) — Auftragsbestätigung mit positionsgenauen Status-Codes
• ORDCHG (BGM 230) — Änderungsauftrag mit laufender Änderungsnummer

import std.edi.orders;

// Bestellung mit 2 Positionen aufbauen
var hdr:   int64 := alloc(EDI_ORDER_HDR_SIZE);
var lines: int64 := alloc(2 * EDI_ORDER_LINE_SIZE);

// Kopf: Bestellnummer, Datum, GLN Käufer
poke64(hdr + EDI_ORDER_HDR_NUM,       "PO-2026-0042" as int64);
poke64(hdr + EDI_ORDER_HDR_NUMLEN,    12);
poke64(hdr + EDI_ORDER_HDR_DATE,      "20261201" as int64);
poke64(hdr + EDI_ORDER_HDR_BUYER_GLN, "4012345000009" as int64);
poke64(hdr + EDI_ORDER_HDR_BUYER_GLNL,13);

// Position 1
poke64(lines + EDI_ORDER_LINE_GTIN,    "04012345678901" as int64);
poke64(lines + EDI_ORDER_LINE_GTINLEN, 14);
poke64(lines + EDI_ORDER_LINE_QTY,     100);
poke64(lines + EDI_ORDER_LINE_PRICE,   1599);  // 15,99 €

// Gesamtbetrag für Validierung
poke64(hdr + EDI_ORDER_HDR_TOTAL, 159900); // 1599,00 €

var out: int64 := alloc(16384);
var n: int64 := EdiOrdersWrite(hdr, lines, 2, out, 16384);

free(lines, 2 * EDI_ORDER_LINE_SIZE);
free(hdr,   EDI_ORDER_HDR_SIZE);
free(out,   16384);

• std.edi.core
• std.alloc

import std.edi.orders;

var hdr:   int64 := alloc(EDI_ORDER_HDR_SIZE);
var lines: int64 := alloc(100 * EDI_ORDER_LINE_SIZE);

var count: int64 := EdiOrdrspRead(inBuf, inBufLen, hdr, lines, 100);

var i: int64 := 0;
while (i < count) {
    var line:   int64 := lines + i * EDI_ORDER_LINE_SIZE;
    var status: int64 := peek64(line + EDI_ORDER_LINE_STATUS);
    if (status == 7) {
        PrintLn("Position abgelehnt: " + IntToStr(i + 1));
    }
    i := i + 1;
}

free(lines, 100 * EDI_ORDER_LINE_SIZE);
free(hdr,   EDI_ORDER_HDR_SIZE);

• Änderungsnummer ORDCHG: EDI_ORDER_HDR_CHANGENO muss mit jeder neuen ORDCHG inkrementiert werden. Die Gegenseite erkennt damit, ob sie die aktuellste Änderung sieht.
• NAD-Rollen: EdiOrdersRead extrahiert alle vier Rollen. Nicht vorhandene Rollen haben Zeiger 0 und Länge 0.
• Gesamtbetrag-Validierung: EdiOrdersValidate erlaubt 1 Cent Rundungsabweichung — das entspricht dem üblichen EDIFACT-Standard.

Letzte Aktualisierung: 2026-06-16