std.edi.rfq

Anfrage- und Angebotsprozess per EDIFACT: Käufer sendet eine Angebotsanfrage (REQOTE), Lieferant antwortet mit einem Angebot (QUOTES). Der Kreuzreferenz-Mechanismus über RFF+RFQ ist Pflicht — jedes QUOTES muss die Nummer des zugehörigen REQOTE tragen.

• REQOTE (BGM 311) — Request for Quotation: Artikel, Mengen, Wunsch-Liefertermine
• QUOTES (BGM 315) — Quotation: Preise, Verfügbarkeit, Liefertermine

import std.edi.rfq;
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 {
    // 1. Anfrage (REQOTE) ueber zwei Artikel
    var rl: int64 := alloc(2 * EDI_RFQ_LINE_SIZE);
    var i: int64 := 0;
    while (i < 2 * EDI_RFQ_LINE_SIZE) { poke8(rl + i, 0); i := i + 1; }
    poke64(rl + EDI_RFQ_LINE_GTIN,    "04012345678901"c as int64);
    poke64(rl + EDI_RFQ_LINE_GTINLEN, 14);
    poke64(rl + EDI_RFQ_LINE_QTY,     240);
    poke64(rl + EDI_RFQ_LINE_DATE,    "20260915"c as int64);
    var r1: int64 := rl + EDI_RFQ_LINE_SIZE;
    poke64(r1 + EDI_RFQ_LINE_GTIN,    "04012345678918"c as int64);
    poke64(r1 + EDI_RFQ_LINE_GTINLEN, 14);
    poke64(r1 + EDI_RFQ_LINE_QTY,     60);

    var out: int64 := alloc(4096);
    var n: int64 := EdiReqoteWrite("ANF-2026-0007"c, "20260813"c, rl, 2, out, 4096);
    PrintLn(Feld(out, n));

    var hdr: int64 := alloc(EDI_RFQHDR_SIZE);
    var lin: int64 := alloc(8 * EDI_RFQ_LINE_SIZE);
    var cnt: int64 := EdiReqoteRead(out, n, hdr, lin, 8);
    PrintLn(StrConcat(StrConcat("Anfrage ", Feld(peek64(hdr + EDI_RFQHDR_NUM), peek64(hdr + EDI_RFQHDR_NUMLEN))),
            StrConcat(" mit Positionen: ", IntToStr(cnt))));

    // 2. Angebot (QUOTES) - Position 2 nicht lieferbar
    var ql: int64 := alloc(2 * EDI_QUOTE_LINE_SIZE);
    i := 0;
    while (i < 2 * EDI_QUOTE_LINE_SIZE) { poke8(ql + i, 0); i := i + 1; }
    poke64(ql + EDI_QUOTE_LINE_GTIN,        "04012345678901"c as int64);
    poke64(ql + EDI_QUOTE_LINE_GTINLEN,     14);
    poke64(ql + EDI_QUOTE_LINE_PRICE,       1899);
    poke64(ql + EDI_QUOTE_LINE_CURRENCY,    "EUR"c as int64);
    poke64(ql + EDI_QUOTE_LINE_CURRENCYLEN, 3);
    poke64(ql + EDI_QUOTE_LINE_DATE,        "20260920"c as int64);
    poke64(ql + EDI_QUOTE_LINE_AVAIL,       1);
    var q1: int64 := ql + EDI_QUOTE_LINE_SIZE;
    poke64(q1 + EDI_QUOTE_LINE_GTIN,        "04012345678918"c as int64);
    poke64(q1 + EDI_QUOTE_LINE_GTINLEN,     14);
    poke64(q1 + EDI_QUOTE_LINE_AVAIL,       0);

    n := EdiQuotesWrite("ANF-2026-0007"c, "ANG-5501"c, ql, 2, out, 4096);
    PrintLn(Feld(out, n));

    var qhdr: int64 := alloc(EDI_QUOTEHDR_SIZE);
    var qlin: int64 := alloc(8 * EDI_QUOTE_LINE_SIZE);
    cnt := EdiQuotesRead(out, n, qhdr, qlin, 8);
    i := 0;
    while (i < cnt) {
        var q: int64 := qlin + i * EDI_QUOTE_LINE_SIZE;
        if (peek64(q + EDI_QUOTE_LINE_AVAIL) == 1) {
            PrintLn(StrConcat(StrConcat("lieferbar:  ", Feld(peek64(q + EDI_QUOTE_LINE_GTIN), peek64(q + EDI_QUOTE_LINE_GTINLEN))),
                    StrConcat(" zu Preis/100 ", IntToStr(peek64(q + EDI_QUOTE_LINE_PRICE)))));
        } else {
            PrintLn(StrConcat("nicht lieferbar: ", Feld(peek64(q + EDI_QUOTE_LINE_GTIN), peek64(q + EDI_QUOTE_LINE_GTINLEN))));
        }
        i += 1;
    }
    return 0;
}

BGM+311+ANF-2026-0007+9'DTM+137:20260813:102'LIN+1++04012345678901:SRV'QTY+21:240'DTM+10:20260915:102'LIN+2++04012345678918:SRV'QTY+21:60'CNT+2:2'
Anfrage ANF-2026-0007 mit Positionen: 2
BGM+315+ANG-5501+9'RFF+RFQ:ANF-2026-0007'LIN+1++04012345678901:SRV'PRI+AAA:18.99:CP'LOC+11:1'DTM+2:20260920:102'LIN+2++04012345678918:SRV'LOC+11:0'CNT+2:2'
lieferbar:  04012345678901 zu Preis/100 1899
nicht lieferbar: 04012345678918

Die Verfügbarkeit steckt im LOC+11-Segment (1 = lieferbar, 0 = nicht lieferbar); RFF+RFQ verweist auf die ursprüngliche Anfrage. Eine nicht lieferbare Position trägt weder Preis noch Liefertermin.

• std.edi.core
• std.alloc

Eine Position in einer Angebotsanfrage.

Eine Position in einem Angebot.

Kopfdaten eines eingehenden REQOTE.

Kopfdaten eines eingehenden QUOTES.

• rfqRef Pflicht in QUOTES: EdiQuotesWrite gibt -1 zurück, wenn rfqRef null oder leer ist. EDIFACT fordert diesen Rückverweis (RFF+RFQ) für die Auftragszuordnung.
• Preise als Festkomma: Preise werden als int64 × 100 gespeichert. 1999 bedeutet 19,99. Beim Schreiben wird daraus 19.99 im EDIFACT-Format.
• Datum-Format: Alle Datum-Felder erwarten genau 8 Zeichen YYYYMMDD — keine Trennzeichen, kein Längenfeld; 0 lässt das DTM-Segment weg.
• Verfügbarkeit ist Pflichtangabe: EDI_QUOTE_LINE_AVAIL wird immer als LOC+11 geschrieben. Bei 0 (nicht lieferbar) unterdrückt EdiQuotesWrite Preis und Liefertermin — ein gesetzter Preis geht dann verloren.
• Zwei getrennte Zeilen-Structs: Anfrage (EDI_RFQ_LINE_*, 48 Bytes) und Angebot (EDI_QUOTE_LINE_*, 56 Bytes) haben unterschiedliche Layouts; die Antwort ist keine Kopie der Anfrage.
• Structs vor dem Befüllen nullen.

Letzte Aktualisierung: 2026-08-13 — Beispiel deckt jetzt den kompletten Ablauf Anfrage → Angebot ab, ist lauffähig und ausgeführt (lyxc 1.0.17K); Verhalten bei nicht lieferbaren Positionen 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).