Index: BL/Flow/Offerte/Parser/bizSFSSERVICES.cls.xml =================================================================== diff -u -r1405 -r1442 --- BL/Flow/Offerte/Parser/bizSFSSERVICES.cls.xml (.../bizSFSSERVICES.cls.xml) (revision 1405) +++ BL/Flow/Offerte/Parser/bizSFSSERVICES.cls.xml (.../bizSFSSERVICES.cls.xml) (revision 1442) @@ -27,6 +27,12 @@ Set DatumFormaat=$S($L(..pxOfferte.DocDate):..pxOfferte.DocDate, 1:"YYYYMMDD") Set ..pxOfferte.OrderDatum=$$FormatDateTime^vhLib(DatumFormaat,$H) } + If $IsObject(..pxOfferte.LevAdres) { + Set LevAdres=..pxOfferte.LevAdres + If (LevAdres.Land="CH")&&(LevAdres.PostNummer?4.7N) { + Set LevAdres.PostNummer="CH-"_LevAdres.PostNummer + } + } } Quit $$$OK ]]> Index: BL/Flow/Offerte/pxAdres.cls.xml =================================================================== diff -u -r1074 -r1442 --- BL/Flow/Offerte/pxAdres.cls.xml (.../pxAdres.cls.xml) (revision 1074) +++ BL/Flow/Offerte/pxAdres.cls.xml (.../pxAdres.cls.xml) (revision 1442) @@ -14,6 +14,13 @@ + + +Added by WimV on 16/06/2011 +%String + + + %String Index: BL/Flow/Offerte/ScanEDIMail.cls.xml =================================================================== diff -u -r1441 -r1442 --- BL/Flow/Offerte/ScanEDIMail.cls.xml (.../ScanEDIMail.cls.xml) (revision 1441) +++ BL/Flow/Offerte/ScanEDIMail.cls.xml (.../ScanEDIMail.cls.xml) (revision 1442) @@ -233,6 +233,7 @@ Set oAdres=oOfferte.LeveringsAdres Set oAdres.Naam=pxAdres.Naam Set oAdres.Toenaam=pxAdres.Naam2 + Set oAdres.Aanspreking=pxAdres.Aanspreking Set oAdres.PostNummer=pxAdres.PostNummer Set oAdres.Woonplaats=pxAdres.Woonplaats Set oAdres.StraatNrBus=pxAdres.StraatNrBus