Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r69223 -r69616
--- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 69223)
+++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 69616)
@@ -159,7 +159,7 @@
 	Set ShipmentInfo.pickupDate = ..BepaalPickupDate(LeveringInfo,Rit)
 	Set ShipmentInfo.noOfPackages = LeveringInfo.AantalVerpakkingEenhedenTotaal
 	Set ShipmentInfo.instruction = ..GeefInstruction(LeveringInfo)
-	Set ShipmentInfo.incoterms = ..GeefIncoterms(Rit)
+	Set ShipmentInfo.incoterms = ..GeefIncoterms(Rit,LeveringInfo)
 	if (Rit.GeefTransporteur() = Transporteur.VRD) {
 		Set ShipmentInfo.requestedDeliveryDate = ##class(TECH.Format.impl.FormatAPI).%New().FormatHorolog(LeveringInfo.AfleverDatum,"JJJJ-MM-DD")
 	}
@@ -208,13 +208,21 @@
 </Method>
 
 <Method name="GeefIncoterms">
-<FormalSpec>Rit:DOM.TRANSP.Rit</FormalSpec>
+<FormalSpec>Rit:DOM.TRANSP.Rit,LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
+	#dim Incoterms as %String = ""
 	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
-	Quit:(Rit.GeefTransporteur() = Transporteur.Dachser) "CPT"
-	Quit:(Rit.GeefTransporteur() = Transporteur.DHL) "CPT"
-	Quit ""
+	If (Rit.GeefTransporteur() = Transporteur.Dachser) {
+		If (LeveringInfo.GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.HaefeleNoorwegen) ) {
+			Set Incoterms = "DD4"
+		} else {
+			Set Incoterms = "CPT"
+		}
+	}			
+	Set:(Rit.GeefTransporteur() = Transporteur.DHL) Incoterms="CPT"
+	Quit Incoterms
 ]]></Implementation>
 </Method>