std.edi.catalog

Stammdaten-Austausch per EDIFACT: Artikelkataloge mit Preisen und Gültigkeitszeiträumen (PRICAT) sowie Partnerdaten mit GLN-Adressen (PARTIN). GS1-Validierungsfunktionen für GTIN und GLN sind in dieser Unit enthalten.

• PRICAT — Price/Sales Catalogue: GTINs, Brutto-/Nettopreise, Mengeneinheiten, Gültigkeitszeiträume
• PARTIN — Party Information: GLN-basierte Adressen und Kontaktdaten

GS1-Validierungen:

Achtung: EdiPricatWrite validiert GTINs nicht — das liegt in der Verantwortung des Callers.

import std.edi.catalog;
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 items: int64 := alloc(2 * EDI_PRICAT_ITEM_SIZE);
    var i: int64 := 0;
    while (i < 2 * EDI_PRICAT_ITEM_SIZE) { poke8(items + i, 0); i := i + 1; }

    var a: int64 := items;
    poke64(a + EDI_PRICAT_GTIN,        "04012345678901"c as int64);
    poke64(a + EDI_PRICAT_GTINLEN,     14);
    poke64(a + EDI_PRICAT_DESC,        "Kaffee gemahlen 500g"c as int64);
    poke64(a + EDI_PRICAT_DESCLEN,     20);
    poke64(a + EDI_PRICAT_GROSSPRICE,  1999);
    poke64(a + EDI_PRICAT_NETPRICE,    1799);
    poke64(a + EDI_PRICAT_CURRENCY,    "EUR"c as int64);
    poke64(a + EDI_PRICAT_CURRENCYLEN, 3);
    poke64(a + EDI_PRICAT_VALIDFROM,   "20260901"c as int64);
    poke64(a + EDI_PRICAT_VALIDTO,     "20261231"c as int64);

    var b: int64 := items + EDI_PRICAT_ITEM_SIZE;
    poke64(b + EDI_PRICAT_GTIN,        "04012345678918"c as int64);
    poke64(b + EDI_PRICAT_GTINLEN,     14);
    poke64(b + EDI_PRICAT_DESC,        "Espressobohnen 1kg"c as int64);
    poke64(b + EDI_PRICAT_DESCLEN,     18);
    poke64(b + EDI_PRICAT_GROSSPRICE,  4950);
    poke64(b + EDI_PRICAT_NETPRICE,    4450);
    poke64(b + EDI_PRICAT_CURRENCY,    "EUR"c as int64);
    poke64(b + EDI_PRICAT_CURRENCYLEN, 3);

    // GTIN vor dem Schreiben selbst pruefen - PRICAT tut es nicht
    if (EdiGtinCheck(peek64(a + EDI_PRICAT_GTIN) as pchar, 14) != 1) { PrintLn("GTIN ungueltig"); return 1; }

    var out: int64 := alloc(4096);
    var n: int64 := EdiPricatWrite(items, 2, out, 4096);
    PrintLn(Feld(out, n));

    var it2: int64 := alloc(8 * EDI_PRICAT_ITEM_SIZE);
    var cnt: int64 := EdiPricatRead(out, n, it2, 8);
    PrintLn(StrConcat("Artikel: ", IntToStr(cnt)));
    i := 0;
    while (i < cnt) {
        var it: int64 := it2 + i * EDI_PRICAT_ITEM_SIZE;
        PrintLn(StrConcat(StrConcat("  ", Feld(peek64(it + EDI_PRICAT_GTIN), peek64(it + EDI_PRICAT_GTINLEN))),
                StrConcat("  netto/100: ", IntToStr(peek64(it + EDI_PRICAT_NETPRICE)))));
        i += 1;
    }

    // PARTIN: Stammdaten eines Partners
    var party: int64 := alloc(EDI_PARTY_SIZE);
    i := 0;
    while (i < EDI_PARTY_SIZE) { poke8(party + i, 0); i := i + 1; }
    poke64(party + EDI_PARTY_GLN,       "4012345000009"c as int64);
    poke64(party + EDI_PARTY_GLNLEN,    13);
    poke64(party + EDI_PARTY_NAME,      "Muster Handel GmbH"c as int64);
    poke64(party + EDI_PARTY_NAMELEN,   18);
    poke64(party + EDI_PARTY_STREET,    "Hafenstrasse 12"c as int64);
    poke64(party + EDI_PARTY_STREETL,   15);
    poke64(party + EDI_PARTY_CITY,      "Hamburg"c as int64);
    poke64(party + EDI_PARTY_CITYL,     7);
    poke64(party + EDI_PARTY_POSTCODE,  "20457"c as int64);
    poke64(party + EDI_PARTY_POSTCODEL, 5);
    poke64(party + EDI_PARTY_COUNTRY,   "DE"c as int64);
    poke64(party + EDI_PARTY_COUNTRYL,  2);
    poke64(party + EDI_PARTY_ROLE,      "BY"c as int64);
    poke64(party + EDI_PARTY_ROLEL,     2);
    n := EdiPartinWrite(party, out, 4096);
    PrintLn(Feld(out, n));
    return 0;
}

BGM+9+PRICAT+9'LIN+1++04012345678901:SRV'IMD+F++:::Kaffee gemahlen 500g'PRI+AAB:19.99:CP'PRI+AAA:17.99:CP'DTM+194:20260901:102'DTM+206:20261231:102'LIN+2++04012345678918:SRV'IMD+F++:::Espressobohnen 1kg'PRI+AAB:49.50:CP'PRI+AAA:44.50:CP'CNT+2:2'
Artikel: 2
  04012345678901  netto/100: 1799
  04012345678918  netto/100: 4450
BGM+349++9'NAD+BY+4012345000009::9+Muster Handel GmbH+Hafenstrasse 12+Hamburg+20457+DE'

PRI+AAB trägt den Brutto-, PRI+AAA den Nettopreis; DTM+194/DTM+206 sind Beginn und Ende der Preisgültigkeit. Fehlt ein Gültigkeitsdatum, entfällt das jeweilige DTM-Segment (siehe zweiter Artikel).

• std.edi.core
• std.alloc

Aktivitätsdaten (PROACT) für Warengruppen-Berichte.

import std.edi.catalog;
import std.alloc;
import std.string;

fn main(): int64 {
    // Zweite GTIN traegt absichtlich eine falsche Pruefziffer
    var msg: pchar := "BGM+9+PRICAT+9'LIN+1++04012345678901:SRV'PRI+AAA:17.99:CP'LIN+2++04012345678911:SRV'PRI+AAA:44.50:CP'CNT+2:2'"c;

    var items: int64 := alloc(64 * EDI_PRICAT_ITEM_SIZE);
    var count: int64 := EdiPricatRead(msg as int64, StrLen(msg), items, 64);
    PrintLn(StrConcat("Positionen: ", IntToStr(count)));

    var i: int64 := 0;
    while (i < count) {
        var item: int64 := items + i * EDI_PRICAT_ITEM_SIZE;
        var gptr: int64 := peek64(item + EDI_PRICAT_GTIN);
        var glen: int64 := peek64(item + EDI_PRICAT_GTINLEN);
        if (EdiGtinCheck(gptr as pchar, glen) == 0) {
            PrintLn(StrConcat("Ungueltige GTIN in Position ", IntToStr(i + 1)));
        }
        i := i + 1;
    }
    free(items, 64 * EDI_PRICAT_ITEM_SIZE);
    return 0;
}

Positionen: 2
Ungueltige GTIN in Position 2

• Keine Prüfung beim Schreiben: Weder EdiPricatWrite noch EdiPartinWrite prüfen GTIN oder GLN. Wer sich auf saubere Stammdaten verlässt, ruft EdiGtinCheck/EdiGlnCheck selbst auf — beim Erzeugen wie beim Einlesen.
• Preise sind ×100: 1799 bedeutet 17,99 €. EDI_PRICAT_GROSSPRICE ist der Listen-, EDI_PRICAT_NETPRICE der Nettopreis.
• Gültigkeitsdaten sind Zeiger auf YYYYMMDD (8 Zeichen, ohne Längenfeld) oder 0.
• PARTIN schreibt eine Partei je Aufruf: EdiPartinWrite erzeugt BGM+349 und ein NAD-Segment mit der Rolle aus EDI_PARTY_ROLE (BY Käufer, SU Lieferant, DP Lieferstelle, IV Rechnungsempfänger).
• Structs vor dem Befüllen nullen — EdiPricatWrite liest jedes Feld, auch die optionalen.

Letzte Aktualisierung: 2026-08-13 — beide Beispiele lauffähig gemacht und ausgeführt (lyxc 1.0.17K), PARTIN-Beispiel und Hinweisabschnitt ergänzt

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).