Index: vhDeploy/Deploy20240110xUpdateTransferOrdersVerzendwijzes.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20240110xUpdateTransferOrdersVerzendwijzes.cls.xml	(revision 0)
+++ vhDeploy/Deploy20240110xUpdateTransferOrdersVerzendwijzes.cls.xml	(revision 72622)
@@ -0,0 +1,104 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20240110xUpdateTransferOrdersVerzendwijzes">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Update van de Halux verzendwijzes voor transferorders</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..VerwijderBestaandeVerzendwijzes()
+	Do ..UpdateBestaandeVerzendwijzes()
+	Do ..MaakNieuweVerzendwijzes()
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderBestaandeVerzendwijzes">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#Dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New("KLANT", "VERZENDWIJZE")
+	
+	Do PiItemService.Verwijder("TH1")
+	Do PiItemService.Verwijder("THG")
+]]></Implementation>
+</Method>
+
+<Method name="UpdateBestaandeVerzendwijzes">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..ZetDueOutMagazijnVoorVerzendwijzeId("THP", "20:04")
+	Do ..ZetDueOutMagazijnVoorVerzendwijzeId("THA", "20:05")
+	Do ..ZetDueOutMagazijnVoorVerzendwijzeId("THV", "20:10")
+	Do ..ZetDueOutMagazijnVoorVerzendwijzeId("THS", "20:15")
+	Do ..ZetDueOutMagazijnVoorVerzendwijzeId("THE", "20:19")
+	Do ..ZetDueOutMagazijnVoorVerzendwijzeId("THL", "20:20")
+	Do ..ZetDueOutMagazijnVoorVerzendwijzeId("THM", "20:25")
+	Do ..ZetDueOutMagazijnVoorVerzendwijzeId("THO", "20:29")
+	Do ..ZetDueOutMagazijnVoorVerzendwijzeId("THT", "20:30")
+	Do ..ZetDueOutMagazijnVoorVerzendwijzeId("THN", "20:35")
+	Do ..ZetDueOutMagazijnVoorVerzendwijzeId("THR", "20:40")
+	Do ..ZetDueOutMagazijnVoorVerzendwijzeId("THZ", "20:45")
+	Do ..ZetDueOutMagazijnVoorVerzendwijzeId("THD", "20:50")
+]]></Implementation>
+</Method>
+
+<Method name="ZetDueOutMagazijnVoorVerzendwijzeId">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>VerzendwijzeId:%String,DueOutMagazijn:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Verzendwijze = ##class(DOM.VKP.VerzendWijze).%OpenId(VerzendwijzeId)
+	Set Verzendwijze.DueOutMagazijn = $$INTTIME^vhLib.DataTypes(DueOutMagazijn)
+	Do Verzendwijze.Save()
+]]></Implementation>
+</Method>
+
+<Method name="MaakNieuweVerzendwijzes">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim VerzendwijzeId As %String = "THG"
+	If $$$Not(##class(DOM.VKP.VerzendWijze).%ExistsId(VerzendwijzeId))
+	{
+		Set Verzendwijze = ##class(DOM.VKP.VerzendWijze.Intern).%New(VerzendwijzeId)
+		Do Verzendwijze.ZetOmschrijving("Urgent voor HLX")
+		Set Verzendwijze.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("00:30")
+		Set Verzendwijze.DueOutProductie = $$INTTIME^vhLib.DataTypes("00:00")
+		Set Verzendwijze.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("23:59")
+		Set Verzendwijze.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("1:00:00")
+		Set Verzendwijze.MagOpschuivenIndienAutoSendAf = 1
+		Set Verzendwijze.OmschrijvingDuits = "Urgent"
+		Set Verzendwijze.OmschrijvingFrans = "Urgent"
+		Set Verzendwijze.OmschrijvingEngels = "Urgent"
+		Set Verzendwijze.OmschrijvingNederlands = "Urgent"
+		
+		#Dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New(Verzendwijze.#GlobalNode, Verzendwijze.#GlobalSubNode)
+		Do PiItemService.VoegToeViaVolgNr(Verzendwijze, 83)
+	}
+	
+	Set VerzendwijzeId = "TH1"
+	If $$$Not(##class(DOM.VKP.VerzendWijze).%ExistsId(VerzendwijzeId))
+	{
+		Set Verzendwijze = ##class(DOM.VKP.VerzendWijze.Intern).%New(VerzendwijzeId)
+		Do Verzendwijze.ZetOmschrijving("Legrabox zijkanten V1")
+		Set Verzendwijze.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("20:21")
+		Set Verzendwijze.DueOutProductie = $$INTTIME^vhLib.DataTypes("00:00")
+		Set Verzendwijze.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("17:00")
+		Set Verzendwijze.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("14:00")
+		Set Verzendwijze.MagOpschuivenIndienAutoSendAf = 1
+		Set Verzendwijze.OmschrijvingDuits = "LBX V1"
+		Set Verzendwijze.OmschrijvingFrans = "LBX V1"
+		Set Verzendwijze.OmschrijvingEngels = "LBX V1"
+		Set Verzendwijze.OmschrijvingNederlands = "LBX V1"
+		
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New(Verzendwijze.#GlobalNode, Verzendwijze.#GlobalSubNode)
+		Do PiItemService.VoegToeViaVolgNr(Verzendwijze, 83)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhDeploy/Deploy20240221xKoppelingSubmagazijnNaarVerzendwijze.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20240221xKoppelingSubmagazijnNaarVerzendwijze.cls.xml	(revision 0)
+++ vhDeploy/Deploy20240221xKoppelingSubmagazijnNaarVerzendwijze.cls.xml	(revision 72622)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20240221xKoppelingSubmagazijnNaarVerzendwijze">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Verzendwijze TH1 moet gekoppeld worden aan submagazijn 'LBX Zijkanten KVP'</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Set $piece(^RES("PRODUKT","PI","HFWVSUBMAG","D","LBZKV"),"`",4) = "1"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: FLOWORD7.mac.rou
===================================================================
diff -u -r70748 -r72622
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 70748)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 72622)
@@ -260,7 +260,7 @@
  
 GetVerzWFromSubMag(WVSubMag)
 	New VerzendW
-	Set VerzendW="TH"_$S(WVSubMag?1N:WVSubMag,WVSubMag?1(1"A",1"B",1"C",1"D",1"E",1"F",1"G",1"L",1"M",1"N",1"O",1"P",1"R",1"S",1"T",1"U",1"V",1"Y",1"W"):WVSubMag,1:"")
+	Set VerzendW="TH"_WVSubMag
 	Quit VerzendW
  
  ; Maximum lijnen per order (default 99)
Index: OBJTimpl/WMSOrder/dtoPicklijn.cls.xml
===================================================================
diff -u -r71598 -r72622
--- OBJTimpl/WMSOrder/dtoPicklijn.cls.xml	(.../dtoPicklijn.cls.xml)	(revision 71598)
+++ OBJTimpl/WMSOrder/dtoPicklijn.cls.xml	(.../dtoPicklijn.cls.xml)	(revision 72622)
@@ -204,7 +204,7 @@
 <Implementation><![CDATA[
 	#dim IsVerzendwijzeVoorZwartePallet As %Boolean = 0
 	
-	If ((Verzendwijze = "THL") || (Verzendwijze = "THO") || (Verzendwijze = "THR") || (Verzendwijze = "THT")) {
+	If ((Verzendwijze = "THL") || (Verzendwijze = "TH1") || (Verzendwijze = "THO") || (Verzendwijze = "THR") || (Verzendwijze = "THT")) {
 		Set IsVerzendwijzeVoorZwartePallet = 1
 	}