Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r71270 -r71494
--- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 71270)
+++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml (.../RequestDataBouwer.cls.xml) (revision 71494)
@@ -163,9 +163,6 @@
if (Rit.GeefTransporteur() = Transporteur.VRD) {
Set ShipmentInfo.requestedDeliveryDate = ##class(TECH.Format.impl.FormatAPI).%New().FormatHorolog(LeveringInfo.AfleverDatum,"JJJJ-MM-DD")
}
- if ((Rit.GeefTransporteur() = Transporteur.Dachser) & (LeveringInfo.LeverAdres.LandCode = "IT")) {
- Set ShipmentInfo.description = "FURNITURE WOODEN DRAWERS"
- }
try {
#dim GewichtPerEenheid as %Numeric = ##class(TECH.Math).Round(LeveringInfo.Gewicht / LeveringInfo.AantalVerpakkingEenhedenTotaal,2)
@@ -191,8 +188,10 @@
Do ShipmentInfo.additionalReferences.Insert(..GeefVrachtwagenAdditionalReference(Rit))
Do ShipmentInfo.additionalReferences.Insert(..GeefKlantAdditionalReference(LeveringInfo))
Do ShipmentInfo.additionalReferences.Insert(..GeefZendingAdditionalReference(LeveringInfo))
+ if ((Rit.GeefTransporteur() = Transporteur.Dachser) & (LeveringInfo.LeverAdres.LandCode = "IT")) {
+ Do ShipmentInfo.additionalReferences.Insert(..GeefProjectAdditionalReference(LeveringInfo))
+ }
-
Quit ShipmentInfo
]]>
@@ -212,6 +211,10 @@
Set ServiceLevelOther = "PREADVICE"
}
+ if ((Rit.GeefTransporteur() = Transporteur.Dachser) & (LeveringInfo.LeverAdres.LandCode = "IT")){
+ Set ServiceLevelOther = "IMO"
+ }
+
Quit ServiceLevelOther
]]>
@@ -318,6 +321,18 @@
]]>
+
+LeveringInfo:APPS.TRANSP.dto.LeveringInfo
+1
+WS.Transsmart.tns.additionalReference
+
+
+
LeveringInfo:APPS.TRANSP.dto.LeveringInfo,Rit:DOM.TRANSP.Rit
1