Index: vhDeploy/Deploy20230317xUitbreidingTransferOrdersVerzendwijzes.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20230317xUitbreidingTransferOrdersVerzendwijzes.cls.xml	(revision 0)
+++ vhDeploy/Deploy20230317xUitbreidingTransferOrdersVerzendwijzes.cls.xml	(revision 70744)
@@ -0,0 +1,93 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20230317xUitbreidingTransferOrdersVerzendwijzes">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Uitbreiding van de Halux verzendwijzes voor transferorders</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..UpdateBestaandeVerzendwijzes()
+	Do ..MaakNieuweVerzendwijzes()
+]]></Implementation>
+</Method>
+
+<Method name="UpdateBestaandeVerzendwijzes">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim VerzendwijzeID As %String = "THU"
+	Set Verzendwijze = ##class(DOM.VKP.VerzendWijze).%OpenId(VerzendwijzeID)
+	Set Verzendwijze.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("23:00")
+	Do Verzendwijze.Save()
+]]></Implementation>
+</Method>
+
+<Method name="MaakNieuweVerzendwijzes">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim ID As %String = "THP"
+	If $$$Not(##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set THP = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do THP.ZetOmschrijving( "TAOR Productie" )
+		Set THP.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("18:04")
+		Set THP.DueOutProductie = $$INTTIME^vhLib.DataTypes("00:00")
+		Set THP.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("17:00")
+		Set THP.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("14:00")
+		Set THP.MagOpschuivenIndienAutoSendAf = 1
+		Set THP.OmschrijvingDuits = "TAOR Productie"
+		Set THP.OmschrijvingFrans = "TAOR Productie"
+		Set THP.OmschrijvingEngels = "TAOR Productie"
+		Set THP.OmschrijvingNederlands = "TAOR Productie"
+		
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New(THP.#GlobalNode, THP.#GlobalSubNode)
+		Do PiItemService.VoegToeViaVolgNr(THP)
+	}
+	
+	Set ID = "THE"
+	If $$$Not(##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set THE = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do THE.ZetOmschrijving( "LBX Onderdelen" )
+		Set THE.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("18:19")
+		Set THE.DueOutProductie = $$INTTIME^vhLib.DataTypes("00:00")
+		Set THE.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("17:00")
+		Set THE.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("14:00")
+		Set THE.MagOpschuivenIndienAutoSendAf = 1
+		Set THE.OmschrijvingDuits = "LBX Onderdelen"
+		Set THE.OmschrijvingFrans = "LBX Onderdelen"
+		Set THE.OmschrijvingEngels = "LBX Onderdelen"
+		Set THE.OmschrijvingNederlands = "LBX Onderdelen"
+		
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New(THE.#GlobalNode, THE.#GlobalSubNode)
+		Do PiItemService.VoegToeViaVolgNr(THE)
+	}
+	
+	Set ID = "THO"
+	If $$$Not(##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set THO = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do THO.ZetOmschrijving( "TBX Onderdelen Zwart" )
+		Set THO.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("18:29")
+		Set THO.DueOutProductie = $$INTTIME^vhLib.DataTypes("00:00")
+		Set THO.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("17:00")
+		Set THO.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("14:00")
+		Set THO.MagOpschuivenIndienAutoSendAf = 1
+		Set THO.OmschrijvingDuits = "TBX Onderdelen Zwart"
+		Set THO.OmschrijvingFrans = "TBX Onderdelen Zwart"
+		Set THO.OmschrijvingEngels = "TBX Onderdelen Zwart"
+		Set THO.OmschrijvingNederlands = "TBX Onderdelen Zwart"
+		
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New(THO.#GlobalNode, THO.#GlobalSubNode)
+		Do PiItemService.VoegToeViaVolgNr(THO)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>