Index: DOM/common/enu/Land.cls.xml
===================================================================
diff -u -r68916 -r71039
--- DOM/common/enu/Land.cls.xml	(.../Land.cls.xml)	(revision 68916)
+++ DOM/common/enu/Land.cls.xml	(.../Land.cls.xml)	(revision 71039)
@@ -5,11 +5,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>;1019;1147;1120;1107;1031;1052;1235;1063;1096;1048;1064;1236;1158</Default>
+<Default>;1019;1147;1120;1107;1031;1052;1235;1063;1096;1048;1064;1236;1158,1174</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;Belgie;Nederland;Luxemburg;Kenia;Bulgarije;Duitsland;Zweden;Finland;Italie;Denemarken;Frankrijk;Zwitserland;Noorwegen</Default>
+<Default>;Belgie;Nederland;Luxemburg;Kenia;Bulgarije;Duitsland;Zweden;Finland;Italie;Denemarken;Frankrijk;Zwitserland;Noorwegen;Polen</Default>
 </Parameter>
 
 <Method name="Belgie">
@@ -102,6 +102,13 @@
 <Implementation><![CDATA[	Quit "1158"
 ]]></Implementation>
 </Method>
+
+<Method name="Polen">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.enu.Land</ReturnType>
+<Implementation><![CDATA[	Quit "1174"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/TRANSP/impl/DataM/DataMTransportAPI.cls.xml
===================================================================
diff -u -r70888 -r71039
--- DOM/TRANSP/impl/DataM/DataMTransportAPI.cls.xml	(.../DataMTransportAPI.cls.xml)	(revision 70888)
+++ DOM/TRANSP/impl/DataM/DataMTransportAPI.cls.xml	(.../DataMTransportAPI.cls.xml)	(revision 71039)
@@ -101,7 +101,7 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
-	Quit (( TransporteurID = Transporteur.VRD) || (TransporteurID = Transporteur.DHL || (TransporteurID = Transporteur.HamannHDE)||(TransporteurID = Transporteur.Dachser)||(TransporteurID = Transporteur.Weiss) ))
+	Quit (( TransporteurID = Transporteur.VRD) || (TransporteurID = Transporteur.DHL || (TransporteurID = Transporteur.HamannHDE)||(TransporteurID = Transporteur.Dachser)||(TransporteurID = Transporteur.Weiss)||(TransporteurID = Transporteur.Schenker) ))
 ]]></Implementation>
 </Method>
 
Index: DOM/TRANSP/enu/Transporteur/Verwerker.cls.xml
===================================================================
diff -u -r70888 -r71039
--- DOM/TRANSP/enu/Transporteur/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 70888)
+++ DOM/TRANSP/enu/Transporteur/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 71039)
@@ -24,6 +24,8 @@
 		Do ..VerwerkHamann()
 	} ElseIf Transporteur = "9174" {
 		Do ..VerwerkHamannHDE()
+	} ElseIf Transporteur = "5719" {
+		Do ..VerwerkSchenker()
 	} ElseIf Transporteur = "6173" {
 		Do ..VerwerkTMJ()
 	} ElseIf Transporteur = "6671" {
@@ -75,6 +77,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkSchenker">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkTMJ">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: DOM/common/impl/AdresUtils.cls.xml
===================================================================
diff -u -r56629 -r71039
--- DOM/common/impl/AdresUtils.cls.xml	(.../AdresUtils.cls.xml)	(revision 56629)
+++ DOM/common/impl/AdresUtils.cls.xml	(.../AdresUtils.cls.xml)	(revision 71039)
@@ -30,7 +30,9 @@
 <FormalSpec>Postcode:%String,LandNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If (LandNr '= ##class(DOM.common.enu.Land).Belgie()) && $Length($Piece(Postcode,"-",2)) {
+	If (LandNr = ##class(DOM.common.enu.Land).Polen()) { 
+		;niet corrigeren		
+	} Elseif (LandNr '= ##class(DOM.common.enu.Land).Belgie()) && $Length($Piece(Postcode,"-",2)) {
 		#dim EersteGedeelte As %String = $Piece(Postcode,"-",1)
 		If $Length(##class(TECH.StringUtils).Trim(EersteGedeelte)) <= 2 {
 			Set Postcode = $Piece(Postcode,"-",2,99)
Index: vhUnitTest/APPS/EC/impl/BlumPLVerzendwijzeBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/impl/BlumPLVerzendwijzeBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/impl/BlumPLVerzendwijzeBepaler/Test.cls.xml	(revision 71039)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.impl.BlumPLVerzendwijzeBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="Test geldige postcodes in Polen via Schenker">
+<Implementation><![CDATA[
+	;TODOSCHENKER
+
+	Set Bepaler = ##class(APPS.EC.impl.BlumPLVerzendwijzeBepaler).%New()
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze("12-123"),"BS3")
+]]></Implementation>
+</Method>
+
+<Method name="Test ongeldige postcode leeg">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongeldige postcode '' voor BlumPL")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+
+	Set Bepaler = ##class(APPS.EC.impl.BlumPLVerzendwijzeBepaler).%New()
+	
+	#Dim vzw as %String = Bepaler.GeefVerzendWijze("")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TRANSP.mac.rou
===================================================================
diff -u -r70888 -r71039
--- TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 70888)
+++ TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 71039)
@@ -569,7 +569,7 @@
  ..Set NewVerzW="DI1",NewVerzW=NewVerzW_" #"_^RES("KLANT","PI","VERZENDWIJZE","D",NewVerzW,Taal)
  .Set BonRec=^KUL(KLNr,"F",BONNr,1),OldVerzW=$P(BonRec,D,7)
  .Quit:($E(OldVerzW,1,2)=$E(NewVerzW,1,2))
- .Quit:(($E(OldVerzW,1,2)="HD")||($E(OldVerzW,1,2)="DA")||($E(OldVerzW,1,2)="DO")||($E(OldVerzW,1,2)="HW"))
+ .Quit:(($E(OldVerzW,1,2)="HD")||($E(OldVerzW,1,2)="DA")||($E(OldVerzW,1,2)="DO")||($E(OldVerzW,1,2)="HW")||($E(OldVerzW,1,2)="BS"))
  .Set R=$$^vhTXTPOP("TRANSP","NOABX","",BONNr,$TR(OldVerzW,"#",""),$TR(NewVerzW,"#",""))
  .Do KILL^KFVZW("F",BonRec,BONNr)
  .Set $P(BonRec,D,7)=NewVerzW,^KUL(KLNr,"F",BONNr,1)=BonRec
Index: APPS/TRANSP/impl/TransportService.cls.xml
===================================================================
diff -u -r70888 -r71039
--- APPS/TRANSP/impl/TransportService.cls.xml	(.../TransportService.cls.xml)	(revision 70888)
+++ APPS/TRANSP/impl/TransportService.cls.xml	(.../TransportService.cls.xml)	(revision 71039)
@@ -128,7 +128,7 @@
 	If ..ProjectSettingsAPI.IsTranssmartActive(){
 		If ..OrderAPI.BestaatBon(LeveringID) {
 			#dim Bon as DOM.VKP.Bon = ..OrderAPI.GeefBon(LeveringID)
-			If (Bon.GeefVerzendwijze() = ##class(DOM.VKP.enu.VerzendWijze).Distributeur1()) || ($E(Bon.GeefVerzendwijze(),1,2)="HD") || ($E(Bon.GeefVerzendwijze(),1,2)="DA") || ($E(Bon.GeefVerzendwijze(),1,2)="DO") || ($E(Bon.GeefVerzendwijze(),1,2)="HW"){
+			If (Bon.GeefVerzendwijze() = ##class(DOM.VKP.enu.VerzendWijze).Distributeur1()) || ($E(Bon.GeefVerzendwijze(),1,2)="HD") || ($E(Bon.GeefVerzendwijze(),1,2)="DA") || ($E(Bon.GeefVerzendwijze(),1,2)="DO") || ($E(Bon.GeefVerzendwijze(),1,2)="HW")|| ($E(Bon.GeefVerzendwijze(),1,2)="BS"){
 				Set Referentie = RitID _ $Extract(LeveringID,*-4,*)
 			}
 		}
Index: DOM/common/enu/Land/Verwerker.cls.xml
===================================================================
diff -u -r68916 -r71039
--- DOM/common/enu/Land/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 68916)
+++ DOM/common/enu/Land/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 71039)
@@ -34,6 +34,8 @@
 		Do ..VerwerkNederland()
 	} ElseIf Land = "1158" {
 		Do ..VerwerkNoorwegen()
+	} ElseIf Land = "1174" {
+		Do ..VerwerkPolen()
 	} ElseIf Land = "1235" {
 		Do ..VerwerkZweden()
 	} ElseIf Land = "1236" {
@@ -111,6 +113,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkPolen">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkZweden">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: vhTest/Mock/APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r69131 -r71039
--- vhTest/Mock/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 69131)
+++ vhTest/Mock/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 71039)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",HaefeleDEVerzendwijzeBepaler:APPS.EC.impl.HaefeleDEVerzendwijzeBepaler="",ProjectSettingsAPI:DOM.common.ProjectSettingsAPI="",OPOVerzendwijzeBepaler:APPS.EC.impl.OPOVerzendwijzeBepaler=""</FormalSpec>
+<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",HaefeleDEVerzendwijzeBepaler:APPS.EC.impl.HaefeleDEVerzendwijzeBepaler="",ProjectSettingsAPI:DOM.common.ProjectSettingsAPI="",OPOVerzendwijzeBepaler:APPS.EC.impl.OPOVerzendwijzeBepaler="",BlumPLVerzendwijzeBepaler:APPS.EC.impl.BlumPLVerzendwijzeBepaler=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
@@ -46,6 +46,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkBlumPL",BlumPLPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkCampeTonny">
 <FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkCampeTonny",CampeTonnyPersonality)
@@ -82,6 +88,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkDozon">
+<FormalSpec>DozonPersonality:DOM.common.DozonPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDozon",DozonPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDupont",DupontPersonality)
Index: APPS/TRANSP/impl/CommunicatieService.cls.xml
===================================================================
diff -u -r70888 -r71039
--- APPS/TRANSP/impl/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 70888)
+++ APPS/TRANSP/impl/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 71039)
@@ -36,7 +36,7 @@
 
 	If $$$Not(StatusControleur.ZijnAlleStatussenInOrde()) {
 		; TODO refactor smijten CommunicationException naar visitor.ZijnAlleStatussenInOrde
-		if ##class(TECH.StringUtils).Equals( Rit.GeefTransporteur(),Transporteur.VRD,Transporteur.DHL,Transporteur.HamannHDE,Transporteur.Dachser,Transporteur.Weiss){
+		if ##class(TECH.StringUtils).Equals( Rit.GeefTransporteur(),Transporteur.VRD,Transporteur.DHL,Transporteur.HamannHDE,Transporteur.Dachser,Transporteur.Weiss,Transporteur.Schenker){
 			Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.Transsmart.Exceptions.CommunicatieException).%New("Rit '"_RitID_"': "_StatusControleur.GeefInfo()))
 		} else {
 			Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.GLS.Exceptions.CommunicatieException).%New("Rit '"_RitID_"': "_StatusControleur.GeefInfo()))
@@ -51,7 +51,7 @@
 <ReturnType>DOM.TRANSP.DistributeurDataVisitor</ReturnType>
 <Implementation><![CDATA[
 	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
-	If ##class(TECH.StringUtils).Equals(Rit.GeefTransporteur(),Transporteur.VRD,Transporteur.DHL,Transporteur.HamannHDE,Transporteur.Dachser,Transporteur.Weiss){
+	If ##class(TECH.StringUtils).Equals(Rit.GeefTransporteur(),Transporteur.VRD,Transporteur.DHL,Transporteur.HamannHDE,Transporteur.Dachser,Transporteur.Weiss,Transporteur.Schenker){
 		Quit ##class(APPS.TRANSP.Transsmart.impl.StatusControleurDistributeurDataVisitor).%New()
 	} else {
 		Quit ##class(APPS.TRANSP.GLS.impl.StatusControleurDistributeurDataVisitor).%New()
Index: vhTest/Utils/DOM/VKP/LeverAdres.cls.xml
===================================================================
diff -u -r68916 -r71039
--- vhTest/Utils/DOM/VKP/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 68916)
+++ vhTest/Utils/DOM/VKP/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 71039)
@@ -176,6 +176,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Pools">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
+<Implementation><![CDATA[
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	
+	Do LeverAdres.ZetNaam("Pools adres")
+	Do LeverAdres.ZetLandNr(1174)
+	Do LeverAdres.ZetPostcode("62-020")
+	Do LeverAdres.ZetStraat("ul. Poznanska 16")
+	Do LeverAdres.ZetGemeente("Jasin k/Swarzedza")
+	Quit LeverAdres
+]]></Implementation>
+</Method>
+
 <Method name="Noors">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r70950 -r71039
--- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 70950)
+++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 71039)
@@ -229,6 +229,12 @@
 		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) ) {
+			Set Incoterms = "083"
+		}
+
 	} 
 			
 	Set:(Rit.GeefTransporteur() = Transporteur.DHL) Incoterms="CPT"
@@ -262,6 +268,9 @@
 	If ((Rit.GeefTransporteur() = Transporteur.Dachser) && (GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.OPO))) { ; Zet de pickup datum op vandaag plus 2 werkdagen
 		Set Datum = ##class(TECH.DateTime).BerekenWerkdag(Datum, 2)
 	}
+	If ((Rit.GeefTransporteur() = Transporteur.Schenker) && (GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.BlumPolen))) { ; Zet de pickup datum op vandaag plus 2 werkdagen
+		Set Datum = ##class(TECH.DateTime).BerekenWerkdag(Datum, 2)
+	}
 	
 	Quit ##class(TECH.Format.impl.FormatAPI).%New().FormatHorolog(Datum,"JJJJ-MM-DD")
 ]]></Implementation>
@@ -366,7 +375,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
-	#dim Telefoon As %String = ..BeperkLengteTot(LeveringInfo.LeverAdres.Telefoon,15)
+	#dim Telefoon As %String = ..BeperkLengteTot(LeveringInfo.LeverAdres.Telefoon,32)
 	If (Rit.GeefTransporteur() = Transporteur.VRD) && (Telefoon = "+3237601900") {
 		Set Telefoon = ""
 	}
@@ -493,6 +502,7 @@
 	Quit:(Rit.GeefTransporteur() = Transporteur.HamannHDE) "ERB"
 	Quit:(Rit.GeefTransporteur() = Transporteur.Dachser) "DAC"
 	Quit:(Rit.GeefTransporteur() = Transporteur.Weiss) "GWE"
+	Quit:(Rit.GeefTransporteur() = Transporteur.Schenker) "TODOSCHENKER"
 	Quit ""
 ]]></Implementation>
 </Method>
@@ -509,6 +519,7 @@
 	Set:(Rit.GeefTransporteur() = Transporteur.HamannHDE) ServiceLevelTime = "NOSTACK"
 	Set:(Rit.GeefTransporteur() = Transporteur.Dachser) ServiceLevelTime = "TARGOFLEX"
 	Set:(Rit.GeefTransporteur() = Transporteur.Weiss) ServiceLevelTime ="STANDARD"
+	Set:(Rit.GeefTransporteur() = Transporteur.Schenker) ServiceLevelTime ="TODOSCHENKER"
 	Quit ServiceLevelTime
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml
===================================================================
diff -u -r70888 -r71039
--- vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml	(.../Test.cls.xml)	(revision 70888)
+++ vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml	(.../Test.cls.xml)	(revision 71039)
@@ -53,6 +53,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test doBooking Schenker">
+<Implementation><![CDATA[
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoEuroPallet()
+	#dim Datum as %Date = +(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog())	
+	Set LeveringInfo.AfleverDatum = ##class(TECH.DateTime).BerekenWerkdag(Datum,1)
+
+	Set RitMock = ##class(vhTest.Mock.DOM.TRANSP.Rit).%New()
+	Do RitMock.VerwachtMethodCall("GeefTransporteur").DanReturn(##class(DOM.TRANSP.enu.Transporteur).Schenker())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestSchenker.xml", "")
+	Do RitMock.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
 <Method name="Test doBooking Weiss">
 <Implementation><![CDATA[
 	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoEuroPallet()
Index: vhDeploy/Deploy20221227xVerzendwijzesSchenker.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20221227xVerzendwijzesSchenker.cls.xml	(revision 0)
+++ vhDeploy/Deploy20221227xVerzendwijzesSchenker.cls.xml	(revision 71039)
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20221227xVerzendwijzesSchenker">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Nieuwe verzendwijzen voor transporteur Weiss (via transsmart)</Default>
+</Parameter>
+
+<Method name="CleanUp">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#Dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( "KLANT", "VERZENDWIJZE" )
+	Do PiItemService.Verwijder("BS")
+]]></Implementation>
+</Method>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim ID as %String = "BS"
+
+	; Deze is enkel bedoeld om de andere tegelijk te kunnen opvragen in de toerlijst. duur op 3 dagen gezet, maar in principe niet meer belangrijk als lades al geproduceerd zijn.
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID)){
+		#Dim HW As DOM.VKP.VerzendWijze.Bulk = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do HW.ZetOmschrijving(ID)
+		Set HW.BonPrinter = "LEVBON_EXPORT"
+		Set HW.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("12:00")
+		Set HW.DueOutProductie = $$INTTIME^vhLib.DataTypes("11:00")
+		Set HW.DueOutProductieDagenVroeger = 3
+		Set HW.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("22:00")
+		Set HW.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set HW.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("16:00")
+		Set HW.MagOpschuivenIndienAutoSendAf = 1
+		Set HW.VerzendZone = "005003" 
+		Set HW.Transporteur = 5719
+		Set HW.TransportDuur = 3
+		Set HW.AanrekenenPort = $$$False
+		Set HW.UitgesteldPakbonBoekenAx = $$$True		
+		Set HW.OmschrijvingDuits = "Schenker"
+		Set HW.OmschrijvingFrans = "Schenker"
+		Set HW.OmschrijvingEngels = "Schenker"
+		Set HW.OmschrijvingNederlands = "Schenker"
+	
+		#Dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( HW.#GlobalNode, HW.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( HW, 20 )
+	}
+	Set ID = "BS3"
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID)){
+		Set HW = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do HW.ZetOmschrijving(ID)
+		Set HW.BonPrinter = "LEVBON_EXPORT"
+		Set HW.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("12:00")
+		Set HW.DueOutProductie = $$INTTIME^vhLib.DataTypes("11:00")
+		Set HW.DueOutProductieDagenVroeger = 3
+		Set HW.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("22:00")
+		Set HW.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set HW.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("16:00")
+		Set HW.MagOpschuivenIndienAutoSendAf = 1
+		Set HW.VerzendZone = "005003" 
+		Set HW.Transporteur = 5719
+		Set HW.TransportDuur = 3
+		Set HW.AanrekenenPort = $$$False
+		Set HW.UitgesteldPakbonBoekenAx = $$$True		
+		Set HW.OmschrijvingDuits = "Schenker 3d"
+		Set HW.OmschrijvingFrans = "Schenker 3d"
+		Set HW.OmschrijvingEngels = "Schenker 3d"
+		Set HW.OmschrijvingNederlands = "Schenker 3d"
+	
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( HW.#GlobalNode, HW.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( HW, 21 )
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/EC/impl/BlumPLVerzendwijzeBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/EC/impl/BlumPLVerzendwijzeBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/EC/impl/BlumPLVerzendwijzeBepaler.cls.xml	(revision 71039)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.EC.impl.BlumPLVerzendwijzeBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EC.impl.BlumPLVerzendwijzeBepaler</Super>
+
+<Method name="GeefVerzendWijze">
+<FormalSpec>Postcode:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r69131 -r71039
--- vhTest/Fake/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 69131)
+++ vhTest/Fake/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 71039)
@@ -19,6 +19,18 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDozon">
+<FormalSpec>DozonPersonality:DOM.common.DozonPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkMartens">
 <FormalSpec>MartensPersonality:DOM.common.MartensPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: DOM/TRANSP/enu/Transporteur.cls.xml
===================================================================
diff -u -r70888 -r71039
--- DOM/TRANSP/enu/Transporteur.cls.xml	(.../Transporteur.cls.xml)	(revision 70888)
+++ DOM/TRANSP/enu/Transporteur.cls.xml	(.../Transporteur.cls.xml)	(revision 71039)
@@ -4,11 +4,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>,6173,6671,5036,6612,5803,6960,7159,9174,6370,7186</Default>
+<Default>,6173,6671,5036,6612,5803,6960,7159,9174,6370,7186,5719</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;TMJ TRANSPORT;TTC;GLS BELGIUM DISTRIBUTION;GLS BELGIUM;VRD;DHL;HAMANN;HAMANN HDE;DACHSER;WEISS</Default>
+<Default>;TMJ TRANSPORT;TTC;GLS BELGIUM DISTRIBUTION;GLS BELGIUM;VRD;DHL;HAMANN;HAMANN HDE;DACHSER;WEISS;SCHENKER</Default>
 </Parameter>
 
 <Method name="TMJ">
@@ -91,6 +91,13 @@
 <Implementation><![CDATA[	Quit "7186"
 ]]></Implementation>
 </Method>
+
+<Method name="Schenker">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.TRANSP.enu.Transporteur</ReturnType>
+<Implementation><![CDATA[	Quit "5719"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhDeploy/D20230522xNieuweVerzendwijzesBlumSchenker.cls.xml
===================================================================
diff -u
--- vhDeploy/D20230522xNieuweVerzendwijzesBlumSchenker.cls.xml	(revision 0)
+++ vhDeploy/D20230522xNieuweVerzendwijzesBlumSchenker.cls.xml	(revision 71039)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20230522xNieuweVerzendwijzesBlumSchenker">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Nieuwe verzendwijze (enkel nog de AX vertaling nodig, daarom niets te fancy)</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	set ^RES("KLANT","PI","VERZENDWAX","D","BS3") =  "189`BS3"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/TRANSP/enu/Transporteur/AutoComplete.cls.xml
===================================================================
diff -u -r70888 -r71039
--- DOM/TRANSP/enu/Transporteur/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 70888)
+++ DOM/TRANSP/enu/Transporteur/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 71039)
@@ -51,6 +51,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="Schenker">
+<Type>%String</Type>
+<InitialExpression>"5719"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="TMJ">
 <Type>%String</Type>
 <InitialExpression>"6173"</InitialExpression>
Index: vhUnitTest/APPS/TRANSP/impl/TransportAPI/GeefCommunicatieService.cls.xml
===================================================================
diff -u -r70888 -r71039
--- vhUnitTest/APPS/TRANSP/impl/TransportAPI/GeefCommunicatieService.cls.xml	(.../GeefCommunicatieService.cls.xml)	(revision 70888)
+++ vhUnitTest/APPS/TRANSP/impl/TransportAPI/GeefCommunicatieService.cls.xml	(.../GeefCommunicatieService.cls.xml)	(revision 71039)
@@ -43,6 +43,7 @@
 	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.GLSBelgiumParcel),##class(APPS.TRANSP.GLS.impl.CommunicatieService).%ClassName(1))
 	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.Dachser),##class(APPS.TRANSP.impl.CommunicatieService).%ClassName(1))
 	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.Weiss),##class(APPS.TRANSP.impl.CommunicatieService).%ClassName(1))
+	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.Schenker),##class(APPS.TRANSP.impl.CommunicatieService).%ClassName(1))
 	
 	Do ..ProjectsettingAPI.Verifieer()
 ]]></Implementation>
Index: DOM/common/enu/Land/AutoComplete.cls.xml
===================================================================
diff -u -r68916 -r71039
--- DOM/common/enu/Land/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 68916)
+++ DOM/common/enu/Land/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 71039)
@@ -86,6 +86,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="Polen">
+<Type>%String</Type>
+<InitialExpression>"1174"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Zweden">
 <Type>%String</Type>
 <InitialExpression>"1235"</InitialExpression>
Index: vhTest/Mock/APPS/EC/impl/BlumPLVerzendwijzeBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/EC/impl/BlumPLVerzendwijzeBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/EC/impl/BlumPLVerzendwijzeBepaler.cls.xml	(revision 71039)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.EC.impl.BlumPLVerzendwijzeBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EC.impl.BlumPLVerzendwijzeBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefVerzendWijze">
+<FormalSpec>Postcode:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVerzendWijze",Postcode)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml
===================================================================
diff -u -r67832 -r71039
--- vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 67832)
+++ vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 71039)
@@ -269,6 +269,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Winkelkar voor handelsklant (BlumPL)">
+<Implementation><![CDATA[
+	#dim LeverAdresDummy as DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Pools()
+	
+	Set BlumPLVerzendwijzeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.BlumPLVerzendwijzeBepaler).%New()
+	
+	Do BlumPLVerzendwijzeBepalerMock.VerwachtMethodCall("GeefVerzendWijze","62-020").DanReturn("BS3")
+	
+	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).BlumPL())
+	
+	Set PartijApiStub = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
+	Do PartijApiStub.IndienMethodCall("GeefPartij",$$$ElkeWaarde).DanReturn(##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij())
+	
+	Set VerzendWijzeBepaler = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New(..VerkoopApiStub, PartijApiStub,,,,BlumPLVerzendwijzeBepalerMock)
+	
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar,LeverAdresDummy)
+	
+	Do BlumPLVerzendwijzeBepalerMock.Verifieer()	
+	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"BS3")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Winkelkar voor Seefelder (niet HäfeleNL)">
 <Implementation><![CDATA[
 	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).Seefelder())
Index: APPS/EC/impl/BlumPLVerzendwijzeBepaler.cls.xml
===================================================================
diff -u
--- APPS/EC/impl/BlumPLVerzendwijzeBepaler.cls.xml	(revision 0)
+++ APPS/EC/impl/BlumPLVerzendwijzeBepaler.cls.xml	(revision 71039)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.impl.BlumPLVerzendwijzeBepaler">
+<Super>TECH.Mockable</Super>
+
+<Method name="GeefVerzendWijze">
+<FormalSpec>Postcode:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	
+	#dim Verzendwijze as %String = "BS3"
+
+	if $$$Not($$$HasLength(##class(TECH.StringUtils).RemoveAllWhitespaces(Postcode))){
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige postcode '"_Postcode_"' voor BlumPL"))
+	}
+	
+	Quit Verzendwijze
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r67832 -r71039
--- APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 67832)
+++ APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 71039)
@@ -38,13 +38,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BlumPLVerzendwijzeBepaler">
+<Type>APPS.EC.impl.BlumPLVerzendwijzeBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ProjectSettingsAPI">
 <Type>DOM.common.ProjectSettingsAPI</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",HaefeleDEVerzendwijzeBepaler:APPS.EC.impl.HaefeleDEVerzendwijzeBepaler="",ProjectSettingsAPI:DOM.common.ProjectSettingsAPI="",OPOVerzendwijzeBepaler:APPS.EC.impl.OPOVerzendwijzeBepaler=""</FormalSpec>
+<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",HaefeleDEVerzendwijzeBepaler:APPS.EC.impl.HaefeleDEVerzendwijzeBepaler="",ProjectSettingsAPI:DOM.common.ProjectSettingsAPI="",OPOVerzendwijzeBepaler:APPS.EC.impl.OPOVerzendwijzeBepaler="",BlumPLVerzendwijzeBepaler:APPS.EC.impl.BlumPLVerzendwijzeBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -54,6 +59,7 @@
 	Set ..PartijApi = $$$Inject(PartijApi, ##class(DOM.DomeinContext).Instance().GeefPartijAPI())
 	Set ..HaefeleDEVerzendwijzeBepaler = $$$Inject(HaefeleDEVerzendwijzeBepaler,##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New())
 	Set ..OPOVerzendwijzeBepaler = $$$Inject(OPOVerzendwijzeBepaler,##class(APPS.EC.impl.OPOVerzendwijzeBepaler).%New())
+	Set ..BlumPLVerzendwijzeBepaler = $$$Inject(BlumPLVerzendwijzeBepaler,##class(APPS.EC.impl.BlumPLVerzendwijzeBepaler).%New())
 	Set ..LegacyPartijApi = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
 	Set ..ProjectSettingsAPI = $$$Inject(ProjectSettingsAPI,##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI())	
 	Quit $$$OK
@@ -163,6 +169,11 @@
 				Set Partij = ..PartijApi.GeefPartij(KlantID)
 				Set VerzendWijzeID = ..OPOVerzendwijzeBepaler.GeefVerzendWijze(LeverAdres.GeefPostcode())
 				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),VerzendWijzeID,LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+			} ElseIf (Winkelkar.GeefPersonalityID() = Personality.BlumPL) {
+				Set KlantID = ##class(DOM.VKP.enu.Klant).BlumPolen()
+				Set Partij = ..PartijApi.GeefPartij(KlantID)
+				Set VerzendWijzeID = ..BlumPLVerzendwijzeBepaler.GeefVerzendWijze(LeverAdres.GeefPostcode())
+				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),VerzendWijzeID,LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
 			} ElseIf Winkelkar.GeefPersonality().GeefLeverancierData().PersonalityId = Personality.VanHoecke {
 				Set VerzendWijze =  ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefPersonality().GeefLeverancierData().EigenKlantId)
 			} Else {
Index: ULTOER2.mac.rou
===================================================================
diff -u -r70888 -r71039
--- ULTOER2.mac.rou	(.../ULTOER2.mac.rou)	(revision 70888)
+++ ULTOER2.mac.rou	(.../ULTOER2.mac.rou)	(revision 71039)
@@ -152,7 +152,7 @@
 		If $Length(LeveringID){
 			#dim Transporteur as %String = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(RitID).GeefTransporteur()
 			Set Transporteurs = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
-			If ((Transporteur = Transporteurs.VRD) || (Transporteur = Transporteurs.DHL)||(Transporteur = Transporteurs.HamannHDE)||( Transporteur = Transporteurs.Dachser)||( Transporteur = Transporteurs.Weiss) ){
+			If ((Transporteur = Transporteurs.VRD) || (Transporteur = Transporteurs.DHL)||(Transporteur = Transporteurs.HamannHDE)||( Transporteur = Transporteurs.Dachser)||( Transporteur = Transporteurs.Weiss) ||( Transporteur = Transporteurs.Schenker)){
 				Set StatusControleur = ##class(APPS.TRANSP.Transsmart.impl.StatusControleurDistributeurDataVisitor).%New()
 				Set DienstBepaler = ##class(APPS.TRANSP.Transsmart.impl.DienstBepalerDistributeurDataVisitor).%New()
 			} else {
Index: APPS/OV/impl/TrackAndTraceService.cls.xml
===================================================================
diff -u -r70888 -r71039
--- APPS/OV/impl/TrackAndTraceService.cls.xml	(.../TrackAndTraceService.cls.xml)	(revision 70888)
+++ APPS/OV/impl/TrackAndTraceService.cls.xml	(.../TrackAndTraceService.cls.xml)	(revision 71039)
@@ -110,7 +110,7 @@
 <Implementation><![CDATA[
 	Set Transporteur = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
 	#dim TransporteurID as %String = ..GeefTransporteurVoorBonId(BonID)
-	#dim IsTransportTranssmart As %Boolean = ##class(TECH.StringUtils).Equals(TransporteurID , Transporteur.VRD, Transporteur.DHL, Transporteur.HamannHDE, Transporteur.Dachser, Transporteur.Weiss)
+	#dim IsTransportTranssmart As %Boolean = ##class(TECH.StringUtils).Equals(TransporteurID , Transporteur.VRD, Transporteur.DHL, Transporteur.HamannHDE, Transporteur.Dachser, Transporteur.Weiss,Transporteur.Schenker)
 	Quit IsTransportTranssmart
 ]]></Implementation>
 </Method>