Index: APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r70305 -r70888
--- APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 70305)
+++ APPS/TRANSP/Transsmart/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 70888)
@@ -224,7 +224,13 @@
 		} else {
 			Set Incoterms = "CPT"
 		}
-	}			
+	}	
+	If (Rit.GeefTransporteur() = Transporteur.Weiss) {
+		If (LeveringInfo.GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.HaefeleZwitserland) ) {
+			Set Incoterms = "083"
+		}
+	} 
+			
 	Set:(Rit.GeefTransporteur() = Transporteur.DHL) Incoterms="CPT"
 	Quit Incoterms
 ]]></Implementation>
@@ -428,8 +434,10 @@
 	}
 	if (GeleverdAanKlantID = Klant.VanRaemdonck) && (..ProjectSettingsAPI.IsActiefVanRaemdonckNaarEindklant()) {
 		Set CostCenter = ##class(AXimpl.AdminToAxUtils).ConvertCustomerID(GeleverdAanKlantID)
+	}	
+	if (GeleverdAanKlantID = Klant.BlumPolen) {
+		Set CostCenter = ##class(AXimpl.AdminToAxUtils).ConvertCustomerID(GeleverdAanKlantID)
 	}
-	
 	Quit CostCenter
 ]]></Implementation>
 </Method>
@@ -484,6 +492,7 @@
 	Quit:(Rit.GeefTransporteur() = Transporteur.DHL) "DHP"
 	Quit:(Rit.GeefTransporteur() = Transporteur.HamannHDE) "ERB"
 	Quit:(Rit.GeefTransporteur() = Transporteur.Dachser) "DAC"
+	Quit:(Rit.GeefTransporteur() = Transporteur.Weiss) "TODOWEISS"
 	Quit ""
 ]]></Implementation>
 </Method>
@@ -499,6 +508,7 @@
 	Set:(Rit.GeefTransporteur() = Transporteur.DHL) ServiceLevelTime = "EUROPLUS"
 	Set:(Rit.GeefTransporteur() = Transporteur.HamannHDE) ServiceLevelTime = "NOSTACK"
 	Set:(Rit.GeefTransporteur() = Transporteur.Dachser) ServiceLevelTime = "TARGOFLEX"
+	Set:(Rit.GeefTransporteur() = Transporteur.Weiss) ServiceLevelTime ="TODOWEISS"
 	Quit ServiceLevelTime
 ]]></Implementation>
 </Method>
Index: APPS/TRANSP/impl/CommunicatieService.cls.xml
===================================================================
diff -u -r63817 -r70888
--- APPS/TRANSP/impl/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 63817)
+++ APPS/TRANSP/impl/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 70888)
@@ -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){
+		if ##class(TECH.StringUtils).Equals( Rit.GeefTransporteur(),Transporteur.VRD,Transporteur.DHL,Transporteur.HamannHDE,Transporteur.Dachser,Transporteur.Weiss){
 			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){
+	If ##class(TECH.StringUtils).Equals(Rit.GeefTransporteur(),Transporteur.VRD,Transporteur.DHL,Transporteur.HamannHDE,Transporteur.Dachser,Transporteur.Weiss){
 		Quit ##class(APPS.TRANSP.Transsmart.impl.StatusControleurDistributeurDataVisitor).%New()
 	} else {
 		Quit ##class(APPS.TRANSP.GLS.impl.StatusControleurDistributeurDataVisitor).%New()
Index: APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml
===================================================================
diff -u -r67251 -r70888
--- APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml	(.../HaefeleDEVerzendwijzeBepaler.cls.xml)	(revision 67251)
+++ APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml	(.../HaefeleDEVerzendwijzeBepaler.cls.xml)	(revision 70888)
@@ -3,6 +3,23 @@
 <Class name="APPS.EC.impl.HaefeleDEVerzendwijzeBepaler">
 <Super>TECH.Mockable</Super>
 
+<Property name="ProjectSettingsAPI">
+<Type>DOM.common.ProjectSettingsAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProjectSettingsAPI:DOM.common.ProjectSettingsAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProjectSettingsAPI=$$$Inject(ProjectSettingsAPI,##class(DOM.common.impl.ProjectSettingsAPI).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefVerzendWijze">
 <FormalSpec>LandCode:%String,Postcode:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -104,9 +121,13 @@
 	if ((LandCode = "DK") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
 		Set Verzendwijze="DA2"
 	}
-
+	
 	if ((LandCode = "CH") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
-		Set Verzendwijze="HD3"
+		if ..ProjectSettingsAPI.IsActiefHaefeleCHViaGebruderWeissTransporteur() {
+			Set Verzendwijze="HW3"
+		} else {
+			Set Verzendwijze="HD3"
+		}
 	}
 
 	if $$$Not($$$HasLength(Verzendwijze)){
@@ -216,7 +237,11 @@
 	}
 
 	if ((LandCode = "CH") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
-		Set Verzendwijze="HD3"
+		if ..ProjectSettingsAPI.IsActiefHaefeleCHViaGebruderWeissTransporteur() {
+			Set Verzendwijze="HW3"
+		} else {
+			Set Verzendwijze="HD3"
+		}
 	}
 
 	if $$$Not($$$HasLength(Verzendwijze)){
Index: vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml
===================================================================
diff -u -r67251 -r70888
--- vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 67251)
+++ vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 70888)
@@ -11,18 +11,38 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test geldige postcodes in Zwitserland">
+<Method name="Test geldige postcodes in Zwitserland via dachser">
 <Implementation><![CDATA[
 	#dim LandCode as %String = "CH"
-	Set Bepaler = ##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
-		
+	Set ProjectSettingAPIMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
+	
+	Do ProjectSettingAPIMock.VerwachtMethodCall("IsActiefHaefeleCHViaGebruderWeissTransporteur").DanReturn($$$False)
+	Set Bepaler = ##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New(ProjectSettingAPIMock)
+	;TODOWEISS	
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"1000"),"HD3")
 	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("ErkaCoronaTransportTijden",$$$True,..#Applicatie)
 
 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"1000"),"HD3")
+	Do ProjectSettingAPIMock.Verifieer()
 ]]></Implementation>
 </Method>
 
+<Method name="Test geldige postcodes in Zwitserland via GebruderWeiss">
+<Implementation><![CDATA[
+	#dim LandCode as %String = "CH"
+	Set ProjectSettingAPIMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
+	
+	Do ProjectSettingAPIMock.VerwachtMethodCall("IsActiefHaefeleCHViaGebruderWeissTransporteur").DanReturn($$$True)
+	Set Bepaler = ##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New(ProjectSettingAPIMock)
+	;TODOWEISS	
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"1000"),"HW3")
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("ErkaCoronaTransportTijden",$$$True,..#Applicatie)
+
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"1000"),"HW3")
+	Do ProjectSettingAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test geldige postcodes in Duitsland">
 <Implementation><![CDATA[
 	#dim LandCode as %String = "DE"
Index: DOM/TRANSP/enu/Transporteur.cls.xml
===================================================================
diff -u -r63815 -r70888
--- DOM/TRANSP/enu/Transporteur.cls.xml	(.../Transporteur.cls.xml)	(revision 63815)
+++ DOM/TRANSP/enu/Transporteur.cls.xml	(.../Transporteur.cls.xml)	(revision 70888)
@@ -4,11 +4,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>,6173,6671,5036,6612,5803,6960,7159,9174,6370</Default>
+<Default>,6173,6671,5036,6612,5803,6960,7159,9174,6370,7186</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;TMJ TRANSPORT;TTC;GLS BELGIUM DISTRIBUTION;GLS BELGIUM;VRD;DHL;HAMANN;HAMANN HDE;DACHSER</Default>
+<Default>;TMJ TRANSPORT;TTC;GLS BELGIUM DISTRIBUTION;GLS BELGIUM;VRD;DHL;HAMANN;HAMANN HDE;DACHSER;WEISS</Default>
 </Parameter>
 
 <Method name="TMJ">
@@ -84,6 +84,13 @@
 <Implementation><![CDATA[	Quit "6370"
 ]]></Implementation>
 </Method>
+
+<Method name="Weiss">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.TRANSP.enu.Transporteur</ReturnType>
+<Implementation><![CDATA[	Quit "7186"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/TRANSP/impl/TransportService.cls.xml
===================================================================
diff -u -r67819 -r70888
--- APPS/TRANSP/impl/TransportService.cls.xml	(.../TransportService.cls.xml)	(revision 67819)
+++ APPS/TRANSP/impl/TransportService.cls.xml	(.../TransportService.cls.xml)	(revision 70888)
@@ -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"){
+			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"){
 				Set Referentie = RitID _ $Extract(LeveringID,*-4,*)
 			}
 		}
Index: vhDeploy/Deploy20221227xVerzendwijzesWeiss.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20221227xVerzendwijzesWeiss.cls.xml	(revision 0)
+++ vhDeploy/Deploy20221227xVerzendwijzesWeiss.cls.xml	(revision 70888)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20221227xVerzendwijzesWeiss">
+<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("HW")
+	Do PiItemService.Verwijder("HW1")
+]]></Implementation>
+</Method>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim ID as %String = "HW"
+
+	; 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.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("13:30")
+		Set HW.DueOutProductie = $$INTTIME^vhLib.DataTypes("11:00")
+		Set HW.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("16:00")
+		Set HW.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("13:00")
+		Set HW.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set HW.VerzendZone = "005003" 
+		Set HW.MagOpschuivenIndienAutoSendAf = 1
+		Set HW.Transporteur = 7186
+		Set HW.TransportDuur = 3
+		Set HW.AanrekenenPort = $$$False
+		Set HW.UitgesteldPakbonBoekenAx = $$$True		
+		Set HW.OmschrijvingDuits = ID
+		Set HW.OmschrijvingFrans = ID
+		Set HW.OmschrijvingEngels = ID
+		Set HW.OmschrijvingNederlands = ID
+	
+		#Dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( HW.#GlobalNode, HW.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( HW, 14 )
+	}
+	Set ID = "HW3"
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID)){
+		Set HW = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do HW.ZetOmschrijving(ID)
+		Set HW.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("13:30")
+		Set HW.DueOutProductie = $$INTTIME^vhLib.DataTypes("11:00")
+		Set HW.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("16:00")
+		Set HW.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("13:00")
+		Set HW.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set HW.VerzendZone = "005003" 
+		Set HW.MagOpschuivenIndienAutoSendAf = 1
+		Set HW.Transporteur = 7186
+		Set HW.TransportDuur = 3
+		Set HW.AanrekenenPort = $$$False
+		Set HW.UitgesteldPakbonBoekenAx = $$$True		
+		Set HW.OmschrijvingDuits = ID
+		Set HW.OmschrijvingFrans = ID
+		Set HW.OmschrijvingEngels = ID
+		Set HW.OmschrijvingNederlands = ID
+	
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( HW.#GlobalNode, HW.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( HW, 15 )
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml
===================================================================
diff -u -r70305 -r70888
--- vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml	(.../Test.cls.xml)	(revision 70305)
+++ vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml	(.../Test.cls.xml)	(revision 70888)
@@ -53,6 +53,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test doBooking Weiss">
+<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).Weiss())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestWeiss.xml", "")
+	Do RitMock.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
 <Method name="Test doBooking Dachser Voor Haefele NO incoterms DD4">
 <Implementation><![CDATA[
 	Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
Index: DOM/TRANSP/impl/DataM/DataMTransportAPI.cls.xml
===================================================================
diff -u -r63816 -r70888
--- DOM/TRANSP/impl/DataM/DataMTransportAPI.cls.xml	(.../DataMTransportAPI.cls.xml)	(revision 63816)
+++ DOM/TRANSP/impl/DataM/DataMTransportAPI.cls.xml	(.../DataMTransportAPI.cls.xml)	(revision 70888)
@@ -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) ))
+	Quit (( TransporteurID = Transporteur.VRD) || (TransporteurID = Transporteur.DHL || (TransporteurID = Transporteur.HamannHDE)||(TransporteurID = Transporteur.Dachser)||(TransporteurID = Transporteur.Weiss) ))
 ]]></Implementation>
 </Method>
 
Index: DOM/TRANSP/enu/Transporteur/Verwerker.cls.xml
===================================================================
diff -u -r63815 -r70888
--- DOM/TRANSP/enu/Transporteur/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 63815)
+++ DOM/TRANSP/enu/Transporteur/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 70888)
@@ -30,6 +30,8 @@
 		Do ..VerwerkTTC()
 	} ElseIf Transporteur = "5803" {
 		Do ..VerwerkVRD()
+	} ElseIf Transporteur = "7186" {
+		Do ..VerwerkWeiss()
 	} Else {
 		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Transporteur,"DOM.TRANSP.enu.Transporteur",$classname())
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
@@ -90,6 +92,12 @@
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="VerwerkWeiss">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/common/impl/ProjectSettingsAPI.cls.xml
===================================================================
diff -u -r70520 -r70888
--- DOM/common/impl/ProjectSettingsAPI.cls.xml	(.../ProjectSettingsAPI.cls.xml)	(revision 70520)
+++ DOM/common/impl/ProjectSettingsAPI.cls.xml	(.../ProjectSettingsAPI.cls.xml)	(revision 70888)
@@ -346,6 +346,12 @@
 <Implementation><![CDATA[	Quit ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("DOM.common.ProjectSettingsAPI_IsKardexHerverpakkingKleinActief",$$$False)
 ]]></Implementation>
 </Method>
+
+<Method name="IsActiefHaefeleCHViaGebruderWeissTransporteur">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("DOM.common.ProjectSettingsAPI_IsActiefHaefeleCHViaGebruderWeissTransporteur",$$$False)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/common/ProjectSettingsAPI.cls.xml
===================================================================
diff -u -r70508 -r70888
--- DOM/common/ProjectSettingsAPI.cls.xml	(.../ProjectSettingsAPI.cls.xml)	(revision 70508)
+++ DOM/common/ProjectSettingsAPI.cls.xml	(.../ProjectSettingsAPI.cls.xml)	(revision 70888)
@@ -290,6 +290,11 @@
 <Abstract>1</Abstract>
 <ReturnType>%Boolean</ReturnType>
 </Method>
+
+<Method name="IsActiefHaefeleCHViaGebruderWeissTransporteur">
+<Abstract>1</Abstract>
+<ReturnType>%Boolean</ReturnType>
+</Method>
 </Class>
 
 
Index: vhDeploy/Deploy20230419xProjectSettingTransportHafeleCHMetGebrWeiss.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20230419xProjectSettingTransportHafeleCHMetGebrWeiss.cls.xml	(revision 0)
+++ vhDeploy/Deploy20230419xProjectSettingTransportHafeleCHMetGebrWeiss.cls.xml	(revision 70888)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20230419xProjectSettingTransportHafeleCHMetGebrWeiss">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Projectsettings IsActiefHaefeleCHViaGebruderWeissTransporteur</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("DOM.common.ProjectSettingsAPI_IsActiefHaefeleCHViaGebruderWeissTransporteur", $$$False)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml
===================================================================
diff -u -r61241 -r70888
--- vhTest/Mock/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml	(.../HaefeleDEVerzendwijzeBepaler.cls.xml)	(revision 61241)
+++ vhTest/Mock/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml	(.../HaefeleDEVerzendwijzeBepaler.cls.xml)	(revision 70888)
@@ -8,6 +8,13 @@
 <Super>APPS.EC.impl.HaefeleDEVerzendwijzeBepaler,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="%OnNew">
+<FormalSpec>ProjectSettingsAPI:DOM.common.ProjectSettingsAPI=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefVerzendWijze">
 <FormalSpec>LandCode:%String,Postcode:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: vhTest/Mock/DOM/common/ProjectSettingsAPI.cls.xml
===================================================================
diff -u -r70508 -r70888
--- vhTest/Mock/DOM/common/ProjectSettingsAPI.cls.xml	(.../ProjectSettingsAPI.cls.xml)	(revision 70508)
+++ vhTest/Mock/DOM/common/ProjectSettingsAPI.cls.xml	(.../ProjectSettingsAPI.cls.xml)	(revision 70888)
@@ -90,6 +90,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsActiefHaefeleCHViaGebruderWeissTransporteur">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsActiefHaefeleCHViaGebruderWeissTransporteur")
+]]></Implementation>
+</Method>
+
 <Method name="IsActiefHaefeleNlNaarEindklant">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("IsActiefHaefeleNlNaarEindklant")
Index: APPS/OV/impl/TrackAndTraceService.cls.xml
===================================================================
diff -u -r63819 -r70888
--- APPS/OV/impl/TrackAndTraceService.cls.xml	(.../TrackAndTraceService.cls.xml)	(revision 63819)
+++ APPS/OV/impl/TrackAndTraceService.cls.xml	(.../TrackAndTraceService.cls.xml)	(revision 70888)
@@ -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)
+	#dim IsTransportTranssmart As %Boolean = ##class(TECH.StringUtils).Equals(TransporteurID , Transporteur.VRD, Transporteur.DHL, Transporteur.HamannHDE, Transporteur.Dachser, Transporteur.Weiss)
 	Quit IsTransportTranssmart
 ]]></Implementation>
 </Method>
Index: TRANSP.mac.rou
===================================================================
diff -u -r67820 -r70888
--- TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 67820)
+++ TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 70888)
@@ -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"))
+ .Quit:(($E(OldVerzW,1,2)="HD")||($E(OldVerzW,1,2)="DA")||($E(OldVerzW,1,2)="DO")||($E(OldVerzW,1,2)="HW"))
  .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: ULTOER2.mac.rou
===================================================================
diff -u -r63823 -r70888
--- ULTOER2.mac.rou	(.../ULTOER2.mac.rou)	(revision 63823)
+++ ULTOER2.mac.rou	(.../ULTOER2.mac.rou)	(revision 70888)
@@ -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) ){
+			If ((Transporteur = Transporteurs.VRD) || (Transporteur = Transporteurs.DHL)||(Transporteur = Transporteurs.HamannHDE)||( Transporteur = Transporteurs.Dachser)||( Transporteur = Transporteurs.Weiss) ){
 				Set StatusControleur = ##class(APPS.TRANSP.Transsmart.impl.StatusControleurDistributeurDataVisitor).%New()
 				Set DienstBepaler = ##class(APPS.TRANSP.Transsmart.impl.DienstBepalerDistributeurDataVisitor).%New()
 			} else {
Index: DOM/TRANSP/enu/Transporteur/AutoComplete.cls.xml
===================================================================
diff -u -r63815 -r70888
--- DOM/TRANSP/enu/Transporteur/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 63815)
+++ DOM/TRANSP/enu/Transporteur/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 70888)
@@ -71,6 +71,13 @@
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
+
+<Property name="Weiss">
+<Type>%String</Type>
+<InitialExpression>"7186"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
 </Class>
 
 
Index: vhUnitTest/APPS/TRANSP/impl/TransportAPI/GeefCommunicatieService.cls.xml
===================================================================
diff -u -r63817 -r70888
--- vhUnitTest/APPS/TRANSP/impl/TransportAPI/GeefCommunicatieService.cls.xml	(.../GeefCommunicatieService.cls.xml)	(revision 63817)
+++ vhUnitTest/APPS/TRANSP/impl/TransportAPI/GeefCommunicatieService.cls.xml	(.../GeefCommunicatieService.cls.xml)	(revision 70888)
@@ -42,6 +42,7 @@
 	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.GLSBelgiumFreight),##class(APPS.TRANSP.GLS.impl.CommunicatieService).%ClassName(1))
 	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 ..ProjectsettingAPI.Verifieer()
 ]]></Implementation>
@@ -60,6 +61,7 @@
 	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.GLSBelgiumFreight),##class(APPS.TRANSP.impl.CommunicatieService).%ClassName(1))
 	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.GLSBelgiumParcel),##class(APPS.TRANSP.impl.CommunicatieService).%ClassName(1))
 	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.Dachser),##class(APPS.TRANSP.Transsmart.impl.CommunicatieService).%ClassName(1))
+	Do $$$AssertClassName(TransportAPI.GeefCommunicatieService(..Transporteur.Weiss),##class(APPS.TRANSP.Transsmart.impl.CommunicatieService).%ClassName(1))
 	Do ..ProjectsettingAPI.Verifieer()
 ]]></Implementation>
 </Method>