Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r74232 -r74677
--- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 74232)
+++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 74677)
@@ -142,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>
@@ -177,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()
@@ -245,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"
 		}
 
@@ -294,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)
 	}
 	
@@ -480,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
@@ -504,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()) {
@@ -558,19 +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) & $$$Not(..ProjectSettingsAPI.IsTranssmartESchenkerConnectieActief())) "SNB"
-	Quit:((Rit.GeefTransporteur() = Transporteur.Schenker) & ..ProjectSettingsAPI.IsTranssmartESchenkerConnectieActief()) "ESC"
-	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>
 
@@ -596,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
@@ -605,15 +618,15 @@
 			Set TotaalPalletPlaatsen = TotaalPalletPlaatsen + ( $Select((VEenheid.Type = PalletType.HalveEuroPallet):0.5,$$$True:1) * VEenheid.Aantal)
 		}
 		if ..ProjectSettingsAPI.IsTranssmartESchenkerConnectieActief(){
-			if ( (TotaalPalletPlaatsen >= 9) || (LeveringInfo.Gewicht >= 2500) ) {
+			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 >= 9) || (LeveringInfo.Gewicht >= 2500) ) {
+			} elseif ( (TotaalPalletPlaatsen > 5) || (LeveringInfo.Gewicht >= 2500) ) { ; (2 loading meters max, 1 EUROPallet = 0.4lm, halve = 0.2lm
 				Set ServiceLevelTime ="LTL"
 			} else {
 				Set ServiceLevelTime ="PREMIUM"