edi4r 0.9.4.1 → 0.9.6.2

data/data/sedas/EDMD..csv

@@ -0,0 +1,16 @@
+12:::::;SEDAS-Liefernachweis Strecke;1200;M;1;1201;C;1;1208;C;10;SG1;M;9999;SG2;M;3
+12:::::SG1;SG01;1300;M;1;1302;C;1;1308;C;10
+12:::::SG2;SG02;1400;M;1;1408;C;10
+15:::::;SEDAS-Rechnung Strecke;1500;M;1;1501;C;1;1508;C;10;SG1;M;9999;SG2;M;3
+15:::::SG1;SG01;1600;M;1;1602;C;1;1604;C;10;1606;C;1;1608;C;10
+15:::::SG2;SG02;1700;M;1;1708;C;10
+22:::::;SEDAS-Liefernachweis Lager;2200;M;1;2201;C;1;2208;C;10;SG1;M;9999;SG2;M;3
+22:::::SG1;SG01;2300;M;1;2302;C;1;2308;C;10
+22:::::SG2;SG02;2400;M;1;2408;C;10
+25:::::;SEDAS-Rechnung Lager;2500;M;1;2501;C;1;2508;C;10;SG1;M;9999;SG2;M;3
+25:::::SG1;SG01;2600;M;1;2602;C;1;2604;C;10;2606;C;1;2608;C;10
+25:::::SG2;SG02;2700;M;1;2708;C;10
+29:::::;SEDAS-Rechnungsliste;SG1;M;3
+29:::::SG1;SG01;2900;M;1;2901;C;1;2902;C;1
+50:::::;SEDAS-Stammdaten;SG1;M;9999;51;C;9999
+50:::::SG1;SG01;5000;M;1;5018;C;10

data/data/sedas/EDSD..csv

@@ -0,0 +1,44 @@
+00;Physischer-Datei-Vorsatz;010;satzart;M;1;020;bbn_absender_dt;M;1;030;bbn_empfaenger_dt;M;1;040;datum_erstellung;M;1;050;dateistatus;M;1;060;frei1;C;1;070;sedas1;C;1;080;datei_archiv_nr;M;1;090;lfd_nr_dt_empfaenger;M;1;100;frei2;C;1;110;dateianzahl;M;1;120;frei3;C;1;130;positions_nr;M;1;990;frei4;C;1
+01;Logischer-Datei-Vorsatz;010;satzart;M;1;020;bbn_absender;M;1;030;bbn_empfaenger;M;1;040;datum_erstellung;M;1;050;abrechnung_von;M;1;060;abrechnung_bis;M;1;070;sedas1;C;1;080;frei1;C;1;090;log_nr;M;1;100;rel_nr;M;1;110;frei2;C;1;120;waehrungs_kz;M;1;130;verschluesselungs_kz;M;1;140;sortier_kz;M;1;150;satzanzahl;M;1;160;frei3;C;1;170;positions_nr;C;1;990;frei4;C;1
+1200;Liefernachweiskopfsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;ls_auftrag_kz;M;1;070;ls_auftrag_nr;M;1;080;auftrags_nr_besteller;C;1;090;lieferdatum;M;1;100;frei1;C;1;110;warenempfaenger_kz;M;1;120;bbn_warenempfaenger;M;1;130;interne_nr;M;1;140;s_rechnung_kz;M;1;150;s_rechnung_nr;C;1;160;datum_s_beleg;C;1;170;frei2;C;1;180;datum_liefernachweis;M;1;190;ls_auftrag_kz_1;M;1;200;ls_auftrag_nr_1;C;1;210;ls_auftrag_kz_2;M;1;220;ls_auftrag_nr_2;C;1;230;ls_auftrag_kz_3;M;1;240;ls_auftrag_nr_3;C;1;250;ls_auftrag_kz_4;M;1;260;ls_auftrag_nr_4;C;1;270;ls_auftrag_kz_5;M;1;280;ls_auftrag_nr_5;C;1;290;positions_nr;M;1;300;b_vereinbarung_kz_1;M;1;310;b_vereinbarung_1;C;1;320;b_vereinbarung_kz_2;M;1;330;b_vereinbarung_2;C;1;990;folgesatz_kz;M;1
+1201;Weitere Angaben auf Belegebene;010;satzart;M;1;020;frei1;C;1;030;bbn_rechnungsempfaenger;C;1;040;bbn_warenlieferant;C;1;050;ls_auftrag_kz;M;1;060;ls_auftrag_nr_1;C;1;070;ls_auftrag_nr_2;C;1;080;ust_ident_nr_lieferant;C;1;090;ust_ident_nr_erwerber;C;1;100;frei2;C;1;110;positions_nr;M;1;120;steuer_nr;M;1;990;folgesatz_kz;M;1
+1208;Allgemeiner Textsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;freitext;M;1;070;positions_nr;M;1;980;frei1;C;1;990;folgesatz_kz;M;1
+1300;Liefernachweisartikelsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;ean;M;1;070;mengenschluessel;M;1;080;komma_kz_m;M;1;090;menge;M;1;100;preisschluessel;M;1;110;komma_kz_p;M;1;120;grundpreis;C;1;130;frei1;C;1;140;artikelrabatt_gesamt;C;1;150;warenwert;C;1;160;umsatzsteuer_kz;M;1;170;kondition;C;1;180;frei2;C;1;190;datum_liefernachweis;M;1;200;rabatt_kz_1;M;1;210;artikelrabatt_1;C;1;220;rabatt_kz_2;M;1;230;artikelrabatt_2;C;1;240;rabatt_kz_3;M;1;250;artikelrabatt_3;C;1;260;rabatt_kz_4;M;1;270;artikelrabatt_4;C;1;280;positions_nr;M;1;290;schluessel_kz;M;1;300;komma_kz;C;1;310;sondereintrag;C;1;320;b_vereinbarung_kz_2;M;1;330;b_vereinbarung_2;C;1;990;folgesatz_kz;M;1
+1302;Weitere Angaben auf Positionsebene;010;satzart;M;1;020;frei1;C;1;030;ust_prozentsatz;C;1;040;preisschluessel;M;1;050;komma_kz_p;M;1;060;grundpreis;C;1;070;mengenschluessel;M;1;080;komma_kz_m;M;1;090;menge;C;1;100;frei2;C;1;110;positions_nr;M;1;120;frei3;C;1;990;folgesatz_kz;M;1
+1308;Allgemeiner Textsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;freitext;M;1;070;positions_nr;M;1;980;frei1;C;1;990;folgesatz_kz;M;1
+1400;Liefernachweisfusssatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;ust_kz;M;1;070;warenwert_kz;M;1;080;komma_kz;C;1;090;warenbetrag_menge;M;1;100;frei1;C;1;110;nachweisrabatt_gesamt;C;1;120;fracht_verpackung_kz;M;1;130;fracht_verpackung;C;1;140;skonto;C;1;150;nachweis_endbetrag;C;1;160;frei2;C;1;170;datum_liefernachweis;M;1;180;rabatt_kz_1;M;1;190;nachweisrabatt_1;C;1;200;rabatt_kz_2;M;1;210;nachweisrabatt_2;C;1;220;rabatt_kz_3;M;1;230;nachweisrabatt_3;C;1;240;rabatt_kz_4;M;1;250;nachweisrabatt_4;C;1;260;positions_nr;M;1;270;b_vereinbarung_kz_1;M;1;280;b_vereinbarung_1;M;1;290;b_vereinbarung_kz_2;M;1;300;b_vereinbarung_2;C;1;990;folgesatz_kz;M;1
+1408;Allgemeiner Textsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;freitext;M;1;070;positions_nr;M;1;980;frei1;C;1;990;folgesatz_kz;M;1
+1500;Rechnungskopfsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;ls_auftrag_kz;M;1;070;ls_auftrag_nr;C;1;080;auftrags_nr_besteller;C;1;090;lieferdatum;C;1;100;valutadatum;C;1;110;warenempfaenger_kz;M;1;120;bbn_warenempfaenger;M;1;130;interne_nr;M;1;140;reli_zahlungsempfaenger_kz;M;1;150;rz_eintrag_1;M;1;160;rz_eintrag_2;M;1;170;datum_rechnung;M;1;180;ls_auftrag_kz_1;M;1;190;ls_auftrag_nr_1;C;1;200;ls_auftrag_kz_2;M;1;210;ls_auftrag_nr_2;C;1;220;ls_auftrag_kz_3;M;1;230;ls_auftrag_nr_3;C;1;240;ls_auftrag_kz_4;M;1;250;ls_auftrag_nr_4;C;1;260;ls_auftrag_kz_5;M;1;270;ls_auftrag_nr_5;C;1;280;positions_nr;M;1;290;b_vereinbarung_kz_1;M;1;300;b_vereinbarung_1;C;1;310;b_vereinbarung_kz_2;M;1;320;b_vereinbarung_2;C;1;990;folgesatz_kz;M;1
+1501;Weitere Angaben auf Belegebene;010;satzart;M;1;020;frei1;C;1;030;bbn_rechnungsempfaenger;C;1;040;bbn_warenlieferant;C;1;050;ls_auftrag_kz;M;1;060;ls_auftrag_nr_1;C;1;070;ls_auftrag_nr_2;C;1;080;ust_ident_nr_lieferant;C;1;090;ust_ident_nr_erwerber;C;1;100;frei2;C;1;110;positions_nr;M;1;120;steuer_nr;M;1;990;folgesatz_kz;M;1
+1508;Allgemeiner Textsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;freitext;M;1;070;positions_nr;M;1;980;frei1;C;1;990;folgesatz_kz;M;1
+1600;Rechnungsartikelsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;ean;M;1;070;mengenschluessel;M;1;080;komma_kz_m;M;1;090;menge;M;1;100;preisschluessel;M;1;110;komma_kz_p;M;1;120;grundpreis;M;1;130;vkz;M;1;140;artikelrabatt_gesamt;C;1;150;warenwert;M;1;160;umsatzsteuer_kz;M;1;170;frei1;C;1;180;datum_rechnung;M;1;190;rabatt_kz_1;M;1;200;artikelrabatt_1;C;1;210;rabatt_kz_2;M;1;220;artikelrabatt_2;C;1;230;rabatt_kz_3;M;1;240;artikelrabatt_3;C;1;250;rabatt_kz_4;M;1;260;artikelrabatt_4;C;1;270;positions_nr;M;1;280;schluessel_kz;M;1;290;komma_kz;C;1;300;sondereintrag;C;1;310;b_vereinbarung_kz_2;M;1;320;b_vereinbarung_2;C;1;990;folgesatz_kz;M;1
+1602;Weitere Angaben auf Positionsebene;010;satzart;M;1;020;frei1;C;1;030;ust_prozentsatz;C;1;040;preisschluessel;M;1;050;komma_kz_p;M;1;060;grundpreis;C;1;070;mengenschluessel;M;1;080;komma_kz_m;M;1;090;menge;C;1;100;frei2;C;1;110;positions_nr;M;1;120;frei3;C;1;990;folgesatz_kz;M;1
+1604;Rabattaufteilungssatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;ean;M;1;070;artikelgruppen_nr_1;M;1;080;rabatt_kz_1;M;1;090;rabatt_1;M;1;100;artikelgruppen_nr_2;M;1;110;rabatt_kz_2;C;1;120;rabatt_2;M;1;130;artikelgruppen_nr_3;M;1;140;rabatt_kz_3;C;1;150;rabatt_3;M;1;160;artikelgruppen_nr_4;M;1;170;rabatt_kz_4;C;1;180;rabatt_4;M;1;190;artikelgruppen_nr_5;M;1;200;rabatt_kz_5;C;1;210;rabatt_5;M;1;220;artikelgruppen_nr_6;M;1;230;rabatt_kz_6;C;1;240;rabatt_6;M;1;250;artikelgruppen_nr_7;M;1;260;rabatt_kz_7;C;1;270;rabatt_7;M;1;280;frei1;C;1;290;positions_nr;M;1;980;frei2;C;1;990;folgesatz_kz;M;1
+1606;Satz fuer Zu/Abschlaege;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;basiswert_1;M;1;070;zu_abschlag_kz_1;M;1;080;zu_abschlag_1;M;1;090;schluessel_1;C;1;100;basiswert_2;M;1;110;zu_abschlag_kz_2;M;1;120;zu_abschlag_2;M;1;130;schluessel_2;C;1;140;basiswert_3;M;1;150;zu_abschlag_kz_3;M;1;160;zu_abschlag_3;M;1;170;schluessel_3;C;1;180;basiswert_4;M;1;190;zu_abschlag_kz_4;M;1;200;zu_abschlag_4;M;1;210;schluessel_4;C;1;220;frei1;C;1;230;positions_nr;M;1;240;frei2;C;1;990;folgesatz_kz;M;1
+1608;Allgemeiner Textsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;freitext;M;1;070;positions_nr;M;1;980;frei1;C;1;990;folgesatz_kz;M;1
+1700;Rechnungsfusssatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;ust_kz;M;1;070;warenbetrag;M;1;080;frei1;C;1;090;rechnungsrabatt_gesamt;C;1;100;fracht_verpackung_kz;M;1;110;frachtbelastung;C;1;120;skonto;C;1;130;umsatzsteuer;M;1;140;endbetrag;M;1;150;frei2;C;1;160;datum_rechnung;M;1;170;rabatt_kz_1;C;1;180;rechnungsrabatt_1;C;1;190;rabatt_kz_2;C;1;200;rechnungsrabatt_2;C;1;210;rabatt_kz_3;C;1;220;rechnungsrabatt_3;C;1;230;rabatt_kz_4;C;1;240;rechnungsrabatt_4;C;1;250;positions_nr;M;1;260;b_vereinbarung_kz_1;M;1;270;b_vereinbarung_1;M;1;280;b_vereinbarung_kz_2;M;1;290;b_vereinbarung_2;C;1;990;folgesatz_kz;M;1
+1708;Allgemeiner Textsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;freitext;M;1;070;positions_nr;M;1;980;frei1;C;1;990;folgesatz_kz;M;1
+2200;Liefernachweiskopfsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;ls_auftrag_kz;M;1;070;ls_auftrag_nr;M;1;080;auftrags_nr_besteller;C;1;090;lieferdatum;M;1;100;frei1;C;1;110;warenempfaenger_kz;M;1;120;bbn_warenempfaenger;M;1;130;interne_nr;M;1;140;s_rechnung_kz;M;1;150;s_rechnung_nr;C;1;160;datum_s_beleg;C;1;170;frei2;C;1;180;datum_liefernachweis;M;1;190;ls_auftrag_kz_1;M;1;200;ls_auftrag_nr_1;C;1;210;ls_auftrag_kz_2;M;1;220;ls_auftrag_nr_2;C;1;230;ls_auftrag_kz_3;M;1;240;ls_auftrag_nr_3;C;1;250;ls_auftrag_kz_4;M;1;260;ls_auftrag_nr_4;C;1;270;ls_auftrag_kz_5;M;1;280;ls_auftrag_nr_5;C;1;290;positions_nr;M;1;300;b_vereinbarung_kz_1;M;1;310;b_vereinbarung_1;C;1;320;b_vereinbarung_kz_2;M;1;330;b_vereinbarung_2;C;1;990;folgesatz_kz;M;1
+2201;Weitere Angaben auf Belegebene;010;satzart;M;1;020;frei1;C;1;030;bbn_rechnungsempfaenger;C;1;040;bbn_warenlieferant;C;1;050;ls_auftrag_kz;M;1;060;ls_auftrag_nr_1;C;1;070;ls_auftrag_nr_2;C;1;080;ust_ident_nr_lieferant;C;1;090;ust_ident_nr_erwerber;C;1;100;frei2;C;1;110;positions_nr;M;1;120;steuer_nr;M;1;990;folgesatz_kz;M;1
+2208;Allgemeiner Textsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;freitext;M;1;070;positions_nr;M;1;980;frei1;C;1;990;folgesatz_kz;M;1
+2300;Liefernachweisartikelsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;ean;M;1;070;mengenschluessel;M;1;080;komma_kz_m;M;1;090;menge;M;1;100;preisschluessel;M;1;110;komma_kz_p;M;1;120;grundpreis;C;1;130;frei1;C;1;140;artikelrabatt_gesamt;C;1;150;warenwert;C;1;160;umsatzsteuer_kz;M;1;170;kondition;C;1;180;frei2;C;1;190;datum_liefernachweis;M;1;200;rabatt_kz_1;M;1;210;artikelrabatt_1;C;1;220;rabatt_kz_2;M;1;230;artikelrabatt_2;C;1;240;rabatt_kz_3;M;1;250;artikelrabatt_3;C;1;260;rabatt_kz_4;M;1;270;artikelrabatt_4;C;1;280;positions_nr;M;1;290;schluessel_kz;M;1;300;komma_kz;C;1;310;sondereintrag;C;1;320;b_vereinbarung_kz_2;M;1;330;b_vereinbarung_2;C;1;990;folgesatz_kz;M;1
+2302;Weitere Angaben auf Positionsebene;010;satzart;M;1;020;frei1;C;1;030;ust_prozentsatz;C;1;040;preisschluessel;M;1;050;komma_kz_p;M;1;060;grundpreis;C;1;070;mengenschluessel;M;1;080;komma_kz_m;M;1;090;menge;C;1;100;frei2;C;1;110;positions_nr;M;1;120;frei3;C;1;990;folgesatz_kz;M;1
+2308;Allgemeiner Textsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;freitext;M;1;070;positions_nr;M;1;980;frei1;C;1;990;folgesatz_kz;M;1
+2400;Liefernachweisfusssatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;ust_kz;M;1;070;warenwert_kz;M;1;080;komma_kz;C;1;090;warenbetrag_menge;M;1;100;frei1;C;1;110;nachweisrabatt_gesamt;C;1;120;fracht_verpackung_kz;M;1;130;fracht_verpackung;C;1;140;skonto;C;1;150;nachweis_endbetrag;C;1;160;frei2;C;1;170;datum_liefernachweis;M;1;180;rabatt_kz_1;M;1;190;nachweisrabatt_1;C;1;200;rabatt_kz_2;M;1;210;nachweisrabatt_2;C;1;220;rabatt_kz_3;M;1;230;nachweisrabatt_3;C;1;240;rabatt_kz_4;M;1;250;nachweisrabatt_4;C;1;260;positions_nr;M;1;270;b_vereinbarung_kz_1;M;1;280;b_vereinbarung_1;M;1;290;b_vereinbarung_kz_2;M;1;300;b_vereinbarung_2;C;1;990;folgesatz_kz;M;1
+2408;Allgemeiner Textsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;freitext;M;1;070;positions_nr;M;1;980;frei1;C;1;990;folgesatz_kz;M;1
+2500;Rechnungskopfsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;ls_auftrag_kz;M;1;070;ls_auftrag_nr;C;1;080;auftrags_nr_besteller;C;1;090;lieferdatum;C;1;100;valutadatum;C;1;110;warenempfaenger_kz;M;1;120;bbn_warenempfaenger;M;1;130;interne_nr;M;1;140;reli_zahlungsempfaenger_kz;M;1;150;rz_eintrag_1;M;1;160;rz_eintrag_2;M;1;170;datum_rechnung;M;1;180;ls_auftrag_kz_1;M;1;190;ls_auftrag_nr_1;C;1;200;ls_auftrag_kz_2;M;1;210;ls_auftrag_nr_2;C;1;220;ls_auftrag_kz_3;M;1;230;ls_auftrag_nr_3;C;1;240;ls_auftrag_kz_4;M;1;250;ls_auftrag_nr_4;C;1;260;ls_auftrag_kz_5;M;1;270;ls_auftrag_nr_5;C;1;280;positions_nr;M;1;290;b_vereinbarung_kz_1;M;1;300;b_vereinbarung_1;C;1;310;b_vereinbarung_kz_2;M;1;320;b_vereinbarung_2;C;1;990;folgesatz_kz;M;1
+2501;Weitere Angaben auf Belegebene;010;satzart;M;1;020;frei1;C;1;030;bbn_rechnungsempfaenger;C;1;040;bbn_warenlieferant;C;1;050;ls_auftrag_kz;M;1;060;ls_auftrag_nr_1;C;1;070;ls_auftrag_nr_2;C;1;080;ust_ident_nr_lieferant;C;1;090;ust_ident_nr_erwerber;C;1;100;frei2;C;1;110;positions_nr;M;1;120;steuer_nr;M;1;990;folgesatz_kz;M;1
+2508;Allgemeiner Textsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;freitext;M;1;070;positions_nr;M;1;980;frei1;C;1;990;folgesatz_kz;M;1
+2600;Rechnungsartikelsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;ean;M;1;070;mengenschluessel;M;1;080;komma_kz_m;M;1;090;menge;M;1;100;preisschluessel;M;1;110;komma_kz_p;M;1;120;grundpreis;M;1;130;vkz;M;1;140;artikelrabatt_gesamt;C;1;150;warenwert;M;1;160;umsatzsteuer_kz;M;1;170;frei1;C;1;180;datum_rechnung;M;1;190;rabatt_kz_1;M;1;200;artikelrabatt_1;C;1;210;rabatt_kz_2;M;1;220;artikelrabatt_2;C;1;230;rabatt_kz_3;M;1;240;artikelrabatt_3;C;1;250;rabatt_kz_4;M;1;260;artikelrabatt_4;C;1;270;positions_nr;M;1;280;schluessel_kz;M;1;290;komma_kz;C;1;300;sondereintrag;C;1;310;b_vereinbarung_kz_2;M;1;320;b_vereinbarung_2;C;1;990;folgesatz_kz;M;1
+2602;Weitere Angaben auf Positionsebene;010;satzart;M;1;020;frei1;C;1;030;ust_prozentsatz;C;1;040;preisschluessel;M;1;050;komma_kz_p;M;1;060;grundpreis;C;1;070;mengenschluessel;M;1;080;komma_kz_m;M;1;090;menge;C;1;100;frei2;C;1;110;positions_nr;M;1;120;frei3;C;1;990;folgesatz_kz;M;1
+2604;Rabattaufteilungssatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;ean;M;1;070;artikelgruppen_nr_1;M;1;080;rabatt_kz_1;M;1;090;rabatt_1;M;1;100;artikelgruppen_nr_2;M;1;110;rabatt_kz_2;C;1;120;rabatt_2;M;1;130;artikelgruppen_nr_3;M;1;140;rabatt_kz_3;C;1;150;rabatt_3;M;1;160;artikelgruppen_nr_4;M;1;170;rabatt_kz_4;C;1;180;rabatt_4;M;1;190;artikelgruppen_nr_5;M;1;200;rabatt_kz_5;C;1;210;rabatt_5;M;1;220;artikelgruppen_nr_6;M;1;230;rabatt_kz_6;C;1;240;rabatt_6;M;1;250;artikelgruppen_nr_7;M;1;260;rabatt_kz_7;C;1;270;rabatt_7;M;1;280;frei1;C;1;290;positions_nr;M;1;980;frei2;C;1;990;folgesatz_kz;M;1
+2606;Satz fuer Zu/Abschlaege;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;basiswert_1;M;1;070;zu_abschlag_kz_1;M;1;080;zu_abschlag_1;M;1;090;schluessel_1;C;1;100;basiswert_2;M;1;110;zu_abschlag_kz_2;M;1;120;zu_abschlag_2;M;1;130;schluessel_2;C;1;140;basiswert_3;M;1;150;zu_abschlag_kz_3;M;1;160;zu_abschlag_3;M;1;170;schluessel_3;C;1;180;basiswert_4;M;1;190;zu_abschlag_kz_4;M;1;200;zu_abschlag_4;M;1;210;schluessel_4;C;1;220;frei1;C;1;230;positions_nr;M;1;240;frei2;C;1;990;folgesatz_kz;M;1
+2608;Allgemeiner Textsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;freitext;M;1;070;positions_nr;M;1;980;frei1;C;1;990;folgesatz_kz;M;1
+2700;Rechnungsfusssatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;ust_kz;M;1;070;warenbetrag;M;1;080;frei1;C;1;090;rechnungsrabatt_gesamt;C;1;100;fracht_verpackung_kz;M;1;110;frachtbelastung;C;1;120;skonto;C;1;130;umsatzsteuer;M;1;140;endbetrag;M;1;150;frei2;C;1;160;datum_rechnung;M;1;170;rabatt_kz_1;C;1;180;rechnungsrabatt_1;C;1;190;rabatt_kz_2;C;1;200;rechnungsrabatt_2;C;1;210;rabatt_kz_3;C;1;220;rechnungsrabatt_3;C;1;230;rabatt_kz_4;C;1;240;rechnungsrabatt_4;C;1;250;positions_nr;M;1;260;b_vereinbarung_kz_1;M;1;270;b_vereinbarung_1;M;1;280;b_vereinbarung_kz_2;M;1;290;b_vereinbarung_2;C;1;990;folgesatz_kz;M;1
+2708;Allgemeiner Textsatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungsempfaenger;M;1;040;beleg_kz;M;1;050;beleg_nr;M;1;060;freitext;M;1;070;positions_nr;M;1;980;frei1;C;1;990;folgesatz_kz;M;1
+2900;Rechnungslistensatz;010;satzart;M;1;020;bbn_lieferant;M;1;030;bbn_rechnungslistenempfaenger;M;1;040;bbn_zahlungsempfaenger;M;1;050;bbn_zahlungsleistender;M;1;060;reli_kz;M;1;070;nummer;C;1;080;valutadatum;C;1;090;ust_kz;M;1;100;konditionsbasis;C;1;110;umsatzsteuer;M;1;120;endbetrag;M;1;130;frei1;C;1;140;datum_reli;C;1;150;abkommen_nr;C;1;160;vertragsverguetung;C;1;170;ust_vv_kz_1;C;1;180;ust_vv_1;C;1;190;zahlbetrag;M;1;200;frei2;C;1;210;ust_vv_kz_2;M;1;220;ust_vv_2;C;1;230;positions_nr;M;1;240;b_vereinbarung_kz_1;M;1;250;b_vereinbarung_1;C;1;260;b_vereinbarung_kz_2;M;1;270;b_vereinbarung_2;C;1;990;folgesatz_kz;M;1
+5000;Artikelsatz;010;satzart;M;1;020;bbn_absender;M;1;030;bbn_empfaenger;M;1;040;artikel_nr;C;1;050;grundpreis;C;1;060;menge_ean;M;1;070;verpackungsart;C;1;080;ust_kz;C;1;090;einheit_vke;C;1;100;preisbasis;C;1;110;ean;M;1;120;pruefziffer;M;1;130;klassifikation;M;1;140;schluessel_kz;M;1;150;komma_kz;C;1;160;sondereintrag;C;1;170;frei1;C;1;180;datum;M;1;190;kurztext;C;1;200;langtext;M;1;210;positions_nr;M;1;220;kleinste_ean;M;1;230;pruefziffer_kleinste_ean;M;1;980;frei2;C;1;990;folgesatz_kz;M;1
+5018;Stammdaten-Textsatz;010;satzart;M;1;020;bbn_absender;M;1;030;bbn_empfaenger;M;1;040;frei1;C;1;050;ean;M;1;060;ean_pz;C;1;070;freitext;M;1;080;positions_nr;M;1;980;frei2;C;1;990;folgesatz_kz;M;1
+51;Informationssatz;010;satzart;M;1;020;bbn_absender;M;1;030;bbn_empfaenger;M;1;040;refpos_nr;M;1;050;rechnung_nr;M;1;060;liefernachweis_nr;M;1;070;bbs_kz;M;1;080;bbn_warenempfaenger;M;1;090;interne_nr;M;1;100;name_warenempfaenger;M;1;110;datum_erstellung;M;1;120;plz_1;C;1;130;ort;M;1;140;laender_kz;C;1;150;plz_2;C;1;160;frei1;C;1;170;positions_nr;M;1;180;strasse_postfach;C;1
+98;Logischer-Datei-Nachsatz;010;satzart;M;1;020;bbn_absender;M;1;030;bbn_empfaenger;M;1;040;datum_erstellung;M;1;050;abrechnung_von;M;1;060;abrechnung_bis;M;1;070;sedas1;C;1;080;frei1;C;1;090;log_nr;M;1;100;rel_nr;M;1;110;frei2;C;1;120;waehrungs_kz;M;1;130;verschluesselungs_kz;M;1;140;sortier_kz;M;1;150;satzanzahl;M;1;160;frei3;C;1;170;positions_nr;M;1;990;frei4;C;1
+99;Physischer-Datei-Nachsatz;010;satzart;M;1;020;bbn_absender_dt;M;1;030;bbn_empfaenger_dt;M;1;040;datum_erstellung;M;1;050;dateistatus;M;1;060;frei1;C;1;070;sedas1;C;1;080;datei_archiv_nr;M;1;090;lfd_nr_dt_empfaenger;M;1;100;frei2;C;1;110;dateianzahl;M;1;120;frei3;C;1;130;positions_nr;M;1;990;frei4;C;1

data/lib/edi4r.rb

@@ -1,3 +1,19 @@
+# -*- encoding: iso-8859-1 -*-
+
+require 'enumerator'
+require 'logger'
+
+BEGIN {
+  require 'pathname'
+# 'realpath' fails on Windows platforms!
+# ENV['EDI_NDB_PATH'] = Pathname.new(__FILE__).dirname.parent.realpath + 'data'
+  pdir = Pathname.new(__FILE__).dirname.parent
+  ENV['EDI_NDB_PATH'] =  File.expand_path(pdir) + File::Separator + 'data'
+}
+
+require "edi4r/standards"
+require "edi4r/diagrams"
+
 =begin rdoc
 :main:README
 :title:edi4r
@@ -8,7 +24,7 @@ An API to parse and create UN/EDIFACT and other EDI data
 * Abstract classes are maintained in this file.
 * See other files in edi4r/ for specific EDI syntax standards.
 
-$Id: edi4r.rb,v 1.6 2006/08/01 11:12:39 werntges Exp $
+$Id: edi4r.rb,v 1.6 2006/08/01 11:12:39 werntges Exp werntges $
 
 :include: ../AuthorCopyright
 
@@ -99,22 +115,12 @@ Collection_S::  Segment, CDE
 #   NDB		- support codelists
 #   (much more, including general cleanup & tuning ...)
 
-require 'enumerator'
-
-BEGIN {
-  require 'pathname'
-# 'realpath' fails on Windows platforms!
-# ENV['EDI_NDB_PATH'] = Pathname.new(__FILE__).dirname.parent.realpath + 'data'
-  pdir = Pathname.new(__FILE__).dirname.parent
-  ENV['EDI_NDB_PATH'] =  File.expand_path(pdir) + File::Separator + 'data'
-}
-
-require "edi4r/standards"
-require "edi4r/diagrams"
-
-
 module EDI
 
+  @logger = Logger.new(STDERR) # Default logger
+  attr_accessor :logger
+  module_function :logger, :logger=
+
   #########################################################################
   #
   # Basic (abstract) class: Makes sure that all derived
@@ -137,6 +143,34 @@ module EDI
   end
 
 
+  #########################################################################
+  #
+  # Here we extend class Time by some methods that help us maximize
+  # its use in some contexts like UN/EDIFACT.
+  #
+  # Basic idea (UN/EDIFACT example): 
+  # * Use the EDIFACT qualifiers of DE 2379 in DTM directly
+  #   to parse dates and to create them upon output.
+  # * Use augmented Time objects as values of DE 2380 instead of strings
+  #
+
+  class EDI::Time < ::Time
+    attr_accessor :format
+    @@to_s_callbacks = []
+
+    alias to_s_orig to_s
+
+    def to_s
+      return to_s_orig unless @format
+      str = nil
+      @@to_s_callbacks.each do |sym|
+	return str if (str=self.send(sym)) # Found if not nil
+      end
+      raise "EDI::Time: Format '#{format}' not supported" 
+    end
+  end
+
+
   #########################################################################
   #
   # A simple utility class that fills a need not covered by "zlib".
@@ -158,6 +192,10 @@ module EDI
       len==0 ? @pipe.read : @pipe.read( len )
     end
 
+    def getc
+      @pipe.getc # @pipe.read( 1 )
+    end
+
     def rewind
       @pipe.close
       @pipe = IO.popen("bzcat #@path",'r' )
@@ -188,6 +226,16 @@ module EDI
       each {|obj| obj.root = rt }
     end
 
+    # TO-DO: Experimental add-on
+    # Inefficient, brute-force implementation - use sparingly
+    def deep_clone
+       Marshal.restore(Marshal.dump(self)) # TO DO: Make more efficient
+#      c = Marshal.restore(Marshal.dump(self)) # TO DO: Make more efficient
+#      c.each {|obj| obj.parent = c }
+#      c.root = c if c.is_a? EDI::Interchange
+#      c
+    end
+
 
     # Similar to Array#push(), but automatically setting obj's
     # parent and root to self and self's root. Returns obj.
@@ -209,6 +257,7 @@ module EDI
     #   index, each, find_all, length, size, first, last
     def index(obj);   @a.index(obj);   end
     def each(&b);     @a.each(&b);     end
+    def find(&b);     @a.find(&b);     end
     def find_all(&b); @a.find_all(&b); end
     def size;         @a.size;         end
     def length;       @a.length;       end
@@ -217,6 +266,7 @@ module EDI
 
     # The element reference operator [] supports two access modes:
     # Array-like:: Return indexed element when passing an integer
+    # By regexp::  Return array of element(s) whose name(s) match given regexp
     # By name::    Return array of element(s) whose name(s) match given string
     def [](i)
       lookup(i)
@@ -224,7 +274,7 @@ module EDI
 
 
     # This implementation of +inspect()+ is very verbose in that it
-    # inspects also all contained objects in a recursive manner.
+    # inspects all contained objects in a recursive manner.
     #
     # indent::  String offset to use for indentation / pretty-printing
     # symlist:: Array of getter names (passed as symbols) whose values are
@@ -234,9 +284,13 @@ module EDI
       headline = indent + self.name+': ' + symlist.map do |sym|
         "#{sym} = #{(s=send(sym)).nil? ? 'nil' : s.to_s}"
       end.join(', ') + "\n"
-      headline << @header.inspect(indent+'  ') if @header
-      s = @a.inject( headline ){|s,obj| s << obj.inspect(indent+'  ')}
-      @trailer ? s << @trailer.inspect(indent+'  ') : s
+      if self.is_a? Collection_HT
+        headline << @header.inspect(indent+'  ') if @header
+        str = @a.inject( headline ){|s,obj| s << obj.inspect(indent+'  ')}
+        @trailer ? str << @trailer.inspect(indent+'  ') : str
+      else
+        @a.inject( headline ){|s,obj| s << obj.inspect(indent+'  ')}
+      end
     end
 
 
@@ -277,6 +331,8 @@ module EDI
     def lookup(i)
       if i.is_a?(Integer)
         @a[i]
+      elsif i.is_a?(Regexp)
+        @a.find_all {|x| x.name =~ i}
       else
         @a.find_all {|x| x.name == i}
       end
@@ -288,10 +344,14 @@ module EDI
     #
     # UN/EDIFACT examples:
     #  d3055, d1004=(value), cC105, a7174[1].value
+    #
+    # ANSI X.12 examples:
+    #  d305 = "C" # in segment BPR
+    #  r01  = "C" # equivalent expression, 01 indicating the first DE
 
     def method_missing(sym, *par)
-      if sym.id2name =~ /^([acds])(\w+)(=)?/
-        rc = lookup($2)
+      if sym.id2name =~ /^([acdrs])(\w+)(=)?/
+        rc = $1=='r' ? lookup($2.to_i - 1) : lookup($2)
         if rc.is_a? Array
           if rc.size==1
             rc = rc.first
@@ -302,12 +362,12 @@ module EDI
         if $3
           # Setter
           raise TypeError, "Can't assign to array #$2" if rc.is_a? Array
-          raise TypeError, "Can only assign to a DE value" if $1 != 'd'
+          raise TypeError, "Can only assign to a DE value" unless rc.respond_to?(:value) # if $1 != 'd'
           rc.value = par[0]
         else
           # Getter
-          return rc.value if rc.is_a? DE and $1 == 'd'
-          return rc if rc.is_a? CDE      and $1 == 'c'
+          return rc.value if rc.is_a? DE and ($1 == 'd' || $1 == 'r')
+          return rc if rc.is_a? CDE      and ($1 == 'c' || $1 == 'r')
           return rc if rc.is_a? Segment  and $1 == 's'
           err_msg =  "Method prefix '#$1' not matching result '#{rc.class}'!"
           raise TypeError, err_msg unless rc.is_a? Array
@@ -356,7 +416,7 @@ module EDI
 
 
     def to_s( postfix='' )
-      s = @header ? @header.to_s+postfix : ''
+      s = @header ? @header.to_s + postfix : ''
       each {|obj| s << (obj.is_a?(Segment) ? obj.to_s+postfix : obj.to_s)}
       s << @trailer.to_s+postfix if @trailer
       s
@@ -383,12 +443,12 @@ module EDI
       location = "#{parent.name} - #{@name}"
       if empty?
         if required?
-          warn "#{location}: Empty though mandatory!"
+          EDI::logger.warn "#{location}: Empty though mandatory!"
           err_count += 1
         end
       else
         if rep && maxrep && rep > maxrep
-          warn "#{location}: Too often repeated: #{rep} > #{maxrep}!"
+          EDI::logger.warn "#{location}: Too often repeated: #{rep} > #{maxrep}!"
           err_count += 1
         end
         each {|obj| err_count += obj.validate}
@@ -439,14 +499,16 @@ module EDI
   class Interchange < Collection_HT
 
     attr_accessor :output_mode
-    attr_reader :syntax, :version, :output_mode, :illegal_charset_pattern
+    attr_reader :syntax, :version
+    attr_reader :illegal_charset_pattern
 
     # Abstract class - don't instantiate directly
     #
     def initialize( user_par=nil )
       super( nil, self, 'Interchange' )
       @illegal_charset_pattern = /^$/ # Default: Never match a non-empty string
-      @content = nil # nil if empty, :messages, or :groups
+      @content = nil # nil if empty, else :messages, or :groups
+      EDI::logger = user_par[:logger] if user_par[:logger].is_a? Logger
     end
 
     # Auto-detect file content, optionally decompress, return an 
@@ -465,12 +527,16 @@ module EDI
 
     def Interchange.parse( hnd, auto_validate=true )
       case rc=Interchange.detect( hnd )
-      when 'BZ': Interchange.parse( EDI::Bzip2Reader.new( hnd ) ) # see "peek"
-      when 'GZ': Interchange.parse( Zlib::GzipReader.new( hnd ) )
-      when 'E':  EDI::E::Interchange.parse( hnd, auto_validate )
-      when 'I':  EDI::I::Interchange.parse( hnd, auto_validate )
-      when 'XE': EDI::E::Interchange.parse_xml( REXML::Document.new(hnd) )
-      when 'XI': EDI::I::Interchange.parse_xml( REXML::Document.new(hnd) )
+      when 'BZ' then Interchange.parse( EDI::Bzip2Reader.new( hnd ) ) # see "peek"
+      when 'GZ' then Interchange.parse( Zlib::GzipReader.new( hnd ) )
+      when 'A'  then EDI::A::Interchange.parse( hnd, auto_validate )
+      when 'E'  then EDI::E::Interchange.parse( hnd, auto_validate )
+      when 'I'  then EDI::I::Interchange.parse( hnd, auto_validate )
+      when 'S'  then EDI::S::Interchange.parse( hnd, auto_validate )
+      when 'XA' then EDI::A::Interchange.parse_xml( REXML::Document.new(hnd) )
+      when 'XE' then EDI::E::Interchange.parse_xml( REXML::Document.new(hnd) )
+      when 'XI' then EDI::I::Interchange.parse_xml( REXML::Document.new(hnd) )
+      when 'XS' then EDI::S::Interchange.parse_xml( REXML::Document.new(hnd) )
       else raise "#{rc}: Unsupported format key - don\'t know how to proceed!"
       end
     end
@@ -484,18 +550,22 @@ module EDI
     #
     # NOTES: See Interchange.parse
 
-    def Interchange.peek( hnd=$stdin)
+    def Interchange.peek( hnd=$stdin, params={})
       case rc=Interchange.detect( hnd )
         # Does not exist yet!
 #      when 'BZ': Interchange.peek( Zlib::Bzip2Reader.new( hnd ) )
         # Temporary substitute, Unix/Linux only, low performance:
-      when 'BZ': Interchange.peek( EDI::Bzip2Reader.new( hnd ) )
-
-      when 'GZ': Interchange.peek( Zlib::GzipReader.new( hnd ) )
-      when 'E':  EDI::E::Interchange.peek( hnd )
-      when 'I':  EDI::I::Interchange.peek( hnd )
-      when 'XE': EDI::E::Interchange.peek_xml( REXML::Document.new(hnd) )
-      when 'XI': EDI::I::Interchange.peek_xml( REXML::Document.new(hnd) )
+      when 'BZ' then Interchange.peek( EDI::Bzip2Reader.new( hnd ), params )
+
+      when 'GZ' then Interchange.peek( Zlib::GzipReader.new( hnd ), params )
+      when 'A'  then EDI::A::Interchange.peek( hnd, params )
+      when 'E'  then EDI::E::Interchange.peek( hnd, params )
+      when 'I'  then EDI::I::Interchange.peek( hnd )
+      when 'S'  then EDI::S::Interchange.peek( hnd )
+      when 'XA' then EDI::A::Interchange.peek_xml( REXML::Document.new(hnd) )
+      when 'XE' then EDI::E::Interchange.peek_xml( REXML::Document.new(hnd) )
+      when 'XI' then EDI::I::Interchange.peek_xml( REXML::Document.new(hnd) )
+      when 'XS' then EDI::S::Interchange.peek_xml( REXML::Document.new(hnd) )
       else raise "#{rc}: Unsupported format key - don\'t know how to proceed!"
       end
     end
@@ -511,17 +581,19 @@ module EDI
       # If you really need to read from $stdin, call Interchange::E::parse()
       # and Interchange::E::peek() etc. directly to bypass auto-detection
       hnd.rewind
-
+      
       re  = /(<\?xml.*?)?DOCTYPE\s+Interchange.*?\<Interchange\s+.*?standard\_key\s*=\s*(['"])(.)\2/m
       case buf
-      when /^(UNA......)?\r?\n?U[IN]B.UNO[A-Z].[1-4]/: 'E'  # UN/EDIFACT
-      when /^EDI_DC/: 'I'  # SAP IDoc
-      when re : 'X'+$3     # XML, Doctype = Interchange, syntax standard key (E, I, ...) postfix
-      when /^\037\213/: 'GZ' # gzip
-      when /^\037\235/: 'Z'  # compress
-      when /^\037\036/: 'z'  # pack
-      when /^BZh[0-\377]/:  'BZ' # bzip2
-      else; "?? (stream starts with: #{buf[0..15]})"
+      when /^(UNA......)?\r?\n?U[IN]B.UNO[A-Z].[1-4]/ then 'E'  # UN/EDIFACT
+      when /^ISA.{67}\d{6}.\d{4}/ then 'A'  # ANSI X.12
+      when /^EDI_DC/ then 'I'  # SAP IDoc
+      when /^00/ then 'S'      # SEDAS
+      when re then 'X'+$3      # XML, Doctype = Interchange, syntax standard key (E, I, ...) postfix
+      when /^\037\213/ then 'GZ' # gzip
+      when /^\037\235/ then 'Z'  # compress
+      when /^\037\036/ then 'z'  # pack
+      when /^BZh[0-\377]/ then  'BZ' # bzip2
+      else raise "?? (stream starts with: #{buf[0..15]})"
       end
     end
 
@@ -758,6 +830,7 @@ module EDI
       loop do
         index += 1
         seg = msg[index]
+	break if seg.nil?
         next  if child_mode and seg.level > level+1 # other descendants
         break if seg.level <= level
         results << seg
@@ -805,8 +878,11 @@ module EDI
 
     def initialize( p, name, status, fmt )
       @parent, @root, @name, @format, @status = p, p.root, name, fmt, status
-      raise "#{location}: 'nil' is not an allowed format." if fmt.nil?
-      raise "#{location}: 'nil' is not an allowed status." if status.nil?
+      if fmt.nil? || status.nil?
+        location = "DE #{parent.name}/#{@name}"
+        raise "#{location}: 'nil' is not an allowed format." if fmt.nil?
+        raise "#{location}: 'nil' is not an allowed status." if status.nil?
+      end
       @value = nil
     end
 
@@ -816,6 +892,7 @@ module EDI
       return str if str.is_a? String
       str = str.to_s; len = str.length
       return str unless format =~ /n(\d+)/ && len != (fixlen=$1.to_i)
+      location = "DE #{parent.name}/#{@name}"
       raise "#{location}: Too long (#{l}) for fmt #{format}" if len > fixlen
       '0' * (fixlen - len) + str
     end
@@ -835,11 +912,11 @@ module EDI
     # - character set limitations violated?
     # - various format restrictions violated?
 
-    def validate( err_count=0 )
+    def validate( err_count=0, fmt=@format )
       location = "DE #{parent.name}/#{@name}"
       if empty?
         if required?
-          warn "#{location}: Empty though mandatory!"
+          EDI::logger.warn "#{location}: Empty though mandatory!"
           err_count += 1
         end
       else
@@ -847,13 +924,13 @@ module EDI
         # Charset check
         #
         if (pos = (value =~ root.illegal_charset_pattern))# != nil
-          warn "#{location}: Illegal character: #{value[pos].chr}"
+          EDI::logger.warn "#{location}: Illegal character: #{value[pos].chr} (#{value[pos]})"
           err_count += 1
         end
         #
         # Format check, raise error if not consistent!
         #
-        if @format =~ /^(a|n|an)(..)?(\d+)$/
+        if fmt =~ /^(a|n|an)(..)?(\d+)$/
           _a_n_an, _upto, _size = $1, $2, $3
           case _a_n_an
 
@@ -862,8 +939,8 @@ module EDI
             re = Regexp.new('^(-)?(\d+)([.,]\d+)?$')
             md = re.match strval
             if md.nil?
-              raise "#{location}: '#{strval}' - not matching format #@format"
-#              warn "#{strval} - not matching format #@format"
+              raise "#{location}: '#{strval}' - not matching format #{fmt}"
+              #              warn "#{strval} - not matching format #{fmt}"
 #              err_count += 1
             end
 
@@ -873,28 +950,31 @@ module EDI
             # Decimal char does not go into length count:
             len -= 1 if not md[3].nil?
             # len -= 1 if (md[1]=='-' and md[3]) || (md[1] != '' and not md[3])
-            break if not required? and len == 0
+
+            # break if not required? and len == 0
+           if required? or len != 0
             if len > _size.to_i
 #            if _upto.nil? and len != _size.to_i or len > _size.to_i
-              warn "Context in #{location}: #{_a_n_an}, #{_upto}, #{_size}; #{md[1]}, #{md[2]}, #{md[3]}"
-              warn "Length # mismatch in #{location}: #{len} vs. #{_size}"
+              EDI::logger.warn "Context in #{location}: #{_a_n_an}, #{_upto}, #{_size}; #{md[1]}, #{md[2]}, #{md[3]}"
+              EDI::logger.warn "Length # mismatch in #{location}: #{len} vs. #{_size}"
               err_count += 1
               #            warn "  (strval was: '#{strval}')"
             end
             if md[1] =~/^0+/
-              warn "#{strval} contains leading zeroes"
+              EDI::logger.warn "#{strval} contains leading zeroes"
               err_count += 1
             end
             if md[3] and md[3]=~ /.0+$/
-              warn "#{strval} contains trailing decimal sign/zeroes"
+              EDI::logger.warn "#{strval} contains trailing decimal sign/zeroes"
               err_count += 1
             end
+           end
 
           when 'a', 'an'
 #            len = value.is_a?(Numeric) ? value.to_s.length : value.length
             len = value.to_s.length
             if _upto.nil? and len != $3.to_i or len > $3.to_i
-              warn "Length mismatch in #{location}: #{len} vs. #{_size}"
+              EDI::logger.warn "Length mismatch in #{location}: #{len} vs. #{_size}"
               err_count += 1
             end
           else
@@ -903,7 +983,7 @@ module EDI
           end
 
         else
-          warn "#{location}: Illegal format: #{@format}!"
+          EDI::logger.warn "#{location}: Illegal format: #{fmt}!"
           err_count += 1
         end
       end