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