Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r59812 -r59852
--- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 59812)
+++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 59852)
@@ -210,6 +210,7 @@
Set Bestemmeling.name = ..BeperkLengteTot(LeveringInfo.LeverAdres.Naam,64)
Set Bestemmeling.street1 = ..BeperkLengteTot(LeveringInfo.LeverAdres.Straat, 64)
+ Set Bestemmeling.street2 = ..BeperkLengteTot(..GeefOpmerking1en2(LeveringInfo),64)
Set Bestemmeling.city = ..BeperkLengteTot(LeveringInfo.LeverAdres.Woonplaats,64)
; Set Bestemmeling.houseNo = LeveringInfo.LeverAdres. ???
Set Bestemmeling.zipCode = ..BeperkLengteTot(LeveringInfo.LeverAdres.Postcode,16)
@@ -218,6 +219,22 @@
]]>
+
+LeveringInfo:APPS.TRANSP.dto.LeveringInfo
+1
+%String
+ 0) {
+ set Opmerking = LeveringInfo.LeveringAdres.Opmerkingen.GetAt(1)
+ }
+ If (LeveringInfo.LeveringAdres.Opmerkingen.Count() > 1) {
+ set Opmerking = $Select($Length(Opmerking):" ",1:"")_ LeveringInfo.LeveringAdres.Opmerkingen.GetAt(2)
+ }
+ Quit Opmerking
+]]>
+
+
Lijnnummmer:%Integer,VerpakkingEenheid:APPS.TRANSP.dto.VerpakkingEenheid,Gewicht:%Numeric
1