Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r73465 -r74677
--- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 73465)
+++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 74677)
@@ -65,7 +65,7 @@
 </Method>
 
 <Method name="MaakdoManifestRequest">
-<FormalSpec>Carrier:%String,CostCenter:%String,PickupDateFrom:%Date,PickupDateTo:%Date</FormalSpec>
+<FormalSpec>Carrier:%String,CostCenter:%String,PickupDateFrom:%Date,PickupDateTo:%Date,TransportNr:%String=""</FormalSpec>
 <ReturnType>WS.Transsmart.tns.doManifest</ReturnType>
 <Implementation><![CDATA[
 	Set Request = ##class(WS.Transsmart.tns.doManifest).%New()
@@ -75,7 +75,12 @@
 	Set Request.manifestInfo.version = "2.0"
 	Set Request.manifestInfo.pickupDateFrom = ##class(TECH.Format.impl.FormatAPI).%New().FormatHorolog(PickupDateFrom,"JJJJ-MM-DD")
 	Set Request.manifestInfo.pickupDateTo = ##class(TECH.Format.impl.FormatAPI).%New().FormatHorolog(PickupDateTo,"JJJJ-MM-DD")
+	if $$$HasLength(TransportNr) {
+		Set Request.manifestInfo.referenceType = "DELIVERYID"
+		Set Request.manifestInfo.reference = TransportNr
+	}
 	
+	
 	Quit Request
 ]]></Implementation>
 </Method>
@@ -137,7 +142,7 @@
 	Set BookingInfo.version = "2.0"
 	
 	Set BookingInfo.costcenter = ..BepaalCostCenter(LeveringInfo) ; --> ander afzenderadres
-	Set BookingInfo.carrier = ..BepaalBookingInfoCarrier(Rit)
+	Set BookingInfo.carrier = ..BepaalBookingInfoCarrier(Rit,LeveringInfo)
 	Quit BookingInfo
 ]]></Implementation>
 </Method>
@@ -172,7 +177,7 @@
 	}
 	set it = ##class(TECH.ListIterator).%New(LeveringInfo.VerpakkingEenheden)
 	#dim Linecounter as %Integer = 0
-	#dim Carrier as %String = ..BepaalBookingInfoCarrier(Rit)
+	#dim Carrier as %String = ..BepaalBookingInfoCarrier(Rit,LeveringInfo)
 	While (it.HasNext()){
 		Set Linecounter = Linecounter+ 1
 		#dim VerpakkingEenheid as APPS.TRANSP.dto.VerpakkingEenheid = it.Next()
@@ -204,8 +209,11 @@
 	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
 	Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
 	#dim ServiceLevelOther as %String = ""
-	If (LeveringInfo.GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.OPO) ) {
-		Set ServiceLevelOther = "TAILLIFT"
+	If (Rit.GeefTransporteur()=Transporteur.Dachser){
+		If ((LeveringInfo.GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.OPO)) ! 
+		(LeveringInfo.GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.OPODuitsland))) {
+			Set ServiceLevelOther = "TAILLIFT"
+		}
 	}
 	if (Rit.GeefTransporteur()= Transporteur.HamannHDE ) {
 		Set ServiceLevelOther = "PREADVICE"
@@ -237,14 +245,15 @@
 			Set Incoterms = "CPT"
 		}
 	}	
-	If (Rit.GeefTransporteur() = Transporteur.Weiss) {
+	If (Rit.GeefTransporteur() = Transporteur.Weiss) ! (Rit.GeefTransporteur() = Transporteur.Streck) {
 		If (LeveringInfo.GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.HaefeleZwitserland) ) {
 			Set Incoterms = "083"
 		}
 	}
 	If (Rit.GeefTransporteur() = Transporteur.Schenker) {
-		
-		If (LeveringInfo.GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.BlumPolen) ) {
+		#dim GeleverdAanKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(LeveringInfo.GeleverdAanKlantNummer)
+		Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
+		if ##class(TECH.StringUtils).Equals(GeleverdAanKlantID,Klant.BlumPolen,Klant.BlumTsjechie){		
 			Set Incoterms = "EXW"
 		}
 
@@ -286,7 +295,10 @@
 		}
 	}
 
-	If ((Rit.GeefTransporteur() = Transporteur.Schenker) && (GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.BlumPolen))) { ; Zet de pickup datum op vandaag plus 2 werkdagen
+	If ((Rit.GeefTransporteur() = Transporteur.Schenker) && 
+			((GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.BlumPolen)) ||
+			 (GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.BlumTsjechie))) )
+			{ ; Zet de pickup datum op vandaag plus 2 werkdagen
 		Set Datum = ##class(TECH.DateTime).BerekenWerkdag(Datum, 1)
 	}
 	
@@ -472,7 +484,7 @@
 	Set Measurements.sizeUom = "CM"
 	Set Measurements.weightUom = "KG"
 	Set Measurements.weight = Gewicht
-	If (Carrier = "SNB") {
+	If (##class(TECH.StringUtils).Equals(Carrier,"ESC", "SNB")) {
 		Set Measurements.height = 120
 		If (##class(TECH.StringUtils).Equals(PackageType,"EUROPALLET","Wwpallet","Pallet")){
 			Set Measurements.length = 80
@@ -496,7 +508,7 @@
 	#dim GeleverdAanKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(LeveringInfo.GeleverdAanKlantNummer)
 	#dim CostCenter as %String = ""
 	Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
-	if ##class(TECH.StringUtils).Equals(GeleverdAanKlantID,Klant.HaefeleNederland,Klant.DuPont,Klant.OPO,Klant.OPODuitsland,Klant.BlumPolen){
+	if ##class(TECH.StringUtils).Equals(GeleverdAanKlantID,Klant.HaefeleNederland,Klant.DuPont,Klant.OPO,Klant.OPODuitsland,Klant.BlumPolen,Klant.BlumTsjechie){
 		Set CostCenter = ##class(AXimpl.AdminToAxUtils).ConvertCustomerID(GeleverdAanKlantID)
 	}
 	if (GeleverdAanKlantID = Klant.HaefeleBelgie) && (..ProjectSettingsAPI.IsActiefHaefeleBENaarEindklant()) {
@@ -550,18 +562,26 @@
 </Method>
 
 <Method name="BepaalBookingInfoCarrier">
-<FormalSpec>Rit:DOM.TRANSP.Rit</FormalSpec>
+<FormalSpec>Rit:DOM.TRANSP.Rit,LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
-	Quit:(Rit.GeefTransporteur() = Transporteur.VRD) "VRD"
-	Quit:(Rit.GeefTransporteur() = Transporteur.DHL) "DHP"
-	Quit:(Rit.GeefTransporteur() = Transporteur.HamannHDE) "ERB"
-	Quit:(Rit.GeefTransporteur() = Transporteur.Dachser) "DAC"
-	Quit:(Rit.GeefTransporteur() = Transporteur.Weiss) "GWE"
-	Quit:(Rit.GeefTransporteur() = Transporteur.Schenker) "SNB"
-	Quit ""
+	#dim Carrier as %String = ""
+	Set:(Rit.GeefTransporteur() = Transporteur.VRD) Carrier = "VRD"
+	Set:(Rit.GeefTransporteur() = Transporteur.DHL) Carrier = "DHP"
+	Set:(Rit.GeefTransporteur() = Transporteur.HamannHDE) Carrier = "ERB"
+	Set:(Rit.GeefTransporteur() = Transporteur.Dachser) Carrier = "DAC"
+	Set:(Rit.GeefTransporteur() = Transporteur.Weiss) Carrier = "GWE"
+	Set:(Rit.GeefTransporteur() = Transporteur.Streck) Carrier = "STK"
+	if (Rit.GeefTransporteur() = Transporteur.Schenker){
+		Set Carrier = "SNB"
+		if (..ProjectSettingsAPI.IsTranssmartESchenkerConnectieActief() & (LeveringInfo.LeverAdres.LandCode = "CZ" ) ) {	
+			Set Carrier = "ESC"
+		}
+	}
+	
+	Quit Carrier
 ]]></Implementation>
 </Method>
 
@@ -587,6 +607,8 @@
 		}
 	} elseif (Rit.GeefTransporteur() = Transporteur.Weiss) {
 		Set ServiceLevelTime ="STANDARD"
+	} elseif (Rit.GeefTransporteur() = Transporteur.Streck){
+		Set ServiceLevelTime ="TF1"
 	} elseif (Rit.GeefTransporteur() = Transporteur.Schenker) {
 		#dim TotaalPalletPlaatsen as %Decimal = 0
 		#dim TotaalGewicht as %Decimal = LeveringInfo.Gewicht
@@ -595,12 +617,20 @@
 			#dim VEenheid as APPS.TRANSP.dto.VerpakkingEenheid = it.Next()
 			Set TotaalPalletPlaatsen = TotaalPalletPlaatsen + ( $Select((VEenheid.Type = PalletType.HalveEuroPallet):0.5,$$$True:1) * VEenheid.Aantal)
 		}
-		If ( ( TotaalPalletPlaatsen >= 27 ) || ( LeveringInfo.Gewicht >= 19400 ) ) {
-			Set ServiceLevelTime ="FTL"
-		} elseif ( (TotaalPalletPlaatsen >= 9) || (LeveringInfo.Gewicht >= 2500) ) {
-			Set ServiceLevelTime ="LTL"
-		} else {
-			Set ServiceLevelTime ="PREMIUM"
+		if ..ProjectSettingsAPI.IsTranssmartESchenkerConnectieActief(){
+			if ( (TotaalPalletPlaatsen > 5) || (LeveringInfo.Gewicht >= 2500) ) {
+				Set ServiceLevelTime = "PARTLOAD"
+			} else {
+				Set ServiceLevelTime ="PREMIUM"
+			}
+		} else {			
+			If ( ( TotaalPalletPlaatsen >= 27 ) || ( LeveringInfo.Gewicht >= 19400 ) ) {
+				Set ServiceLevelTime ="FTL"
+			} elseif ( (TotaalPalletPlaatsen > 5) || (LeveringInfo.Gewicht >= 2500) ) { ; (2 loading meters max, 1 EUROPallet = 0.4lm, halve = 0.2lm
+				Set ServiceLevelTime ="LTL"
+			} else {
+				Set ServiceLevelTime ="PREMIUM"
+			}
 		}
 	} else {
 		Set ServiceLevelTime = ""