Index: vhDeploy/Deploy20230105xAanpassenTransferOrdersVerzendwijzes.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20230105xAanpassenTransferOrdersVerzendwijzes.cls.xml	(revision 0)
+++ vhDeploy/Deploy20230105xAanpassenTransferOrdersVerzendwijzes.cls.xml	(revision 70289)
@@ -0,0 +1,247 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20230105xAanpassenTransferOrdersVerzendwijzes">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Aanmaak van nieuwe transferorder verzendwijzes THL, THM, THN, THS, THT, en THV, en aanpassing oude verzendwijzes</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..VerwijderOudeVerzendwijzes()
+	Do ..MaakNieuweVerzendwijzes()
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderOudeVerzendwijzes">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#Dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New("KLANT", "VERZENDWIJZE")
+	
+	Do PiItemService.Verwijder("THA")
+	Do PiItemService.Verwijder("THD")
+	Do PiItemService.Verwijder("THR")
+	Do PiItemService.Verwijder("THZ")
+]]></Implementation>
+</Method>
+
+<Method name="MaakNieuweVerzendwijzes">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim ID As %String = "THA"
+	If $$$Not(##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set THA = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do THA.ZetOmschrijving( "TAOR" )
+		Set THA.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("18:05")
+		Set THA.DueOutProductie = $$INTTIME^vhLib.DataTypes("00:00")
+		Set THA.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("17:00")
+		Set THA.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("1:00:00")
+		Set THA.MagOpschuivenIndienAutoSendAf = 1
+		Set THA.OmschrijvingDuits = "TAOR"
+		Set THA.OmschrijvingFrans = "TAOR"
+		Set THA.OmschrijvingEngels = "TAOR"
+		Set THA.OmschrijvingNederlands = "TAOR"
+		
+		#Dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New(THA.#GlobalNode, THA.#GlobalSubNode)
+		Do PiItemService.VoegToeViaVolgNr(THA, 83)
+	}
+	
+	Set ID = "THD"
+	If $$$Not(##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set THD = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do THD.ZetOmschrijving( "Diversen" )
+		Set THD.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("18:50")
+		Set THD.DueOutProductie = $$INTTIME^vhLib.DataTypes("00:00")
+		Set THD.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("17:00")
+		Set THD.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("1:00:00")
+		Set THD.MagOpschuivenIndienAutoSendAf = 1
+		Set THD.OmschrijvingDuits = "Diversen"
+		Set THD.OmschrijvingFrans = "Diversen"
+		Set THD.OmschrijvingEngels = "Diversen"
+		Set THD.OmschrijvingNederlands = "Diversen"
+		
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New(THD.#GlobalNode, THD.#GlobalSubNode)
+		Do PiItemService.VoegToeViaVolgNr(THD, 87)
+	}
+	
+	Set ID = "THL"
+	If $$$Not(##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set THL = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do THL.ZetOmschrijving( "LBX PZ + PO" )
+		Set THL.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("18:20")
+		Set THL.DueOutProductie = $$INTTIME^vhLib.DataTypes("00:00")
+		Set THL.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("17:00")
+		Set THL.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("1:00:00")
+		Set THL.MagOpschuivenIndienAutoSendAf = 1
+		Set THL.OmschrijvingDuits = "LBX PZ + PO"
+		Set THL.OmschrijvingFrans = "LBX PZ + PO"
+		Set THL.OmschrijvingEngels = "LBX PZ + PO"
+		Set THL.OmschrijvingNederlands = "LBX PZ + PO"
+		
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New(THL.#GlobalNode, THL.#GlobalSubNode)
+		Do PiItemService.VoegToeViaVolgNr(THL)
+	}
+	
+	Set ID = "THM"
+	If $$$Not(##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set THM = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do THM.ZetOmschrijving( "MVX" )
+		Set THM.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("18:25")
+		Set THM.DueOutProductie = $$INTTIME^vhLib.DataTypes("00:00")
+		Set THM.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("17:00")
+		Set THM.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("1:00:00")
+		Set THM.MagOpschuivenIndienAutoSendAf = 1
+		Set THM.OmschrijvingDuits = "MVX"
+		Set THM.OmschrijvingFrans = "MVX"
+		Set THM.OmschrijvingEngels = "MVX"
+		Set THM.OmschrijvingNederlands = "MVX"
+		
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New(THM.#GlobalNode, THM.#GlobalSubNode)
+		Do PiItemService.VoegToeViaVolgNr(THM)
+	}
+	
+	Set ID = "THN"
+	If $$$Not(##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set THN = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do THN.ZetOmschrijving( "Matten" )
+		Set THN.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("18:35")
+		Set THN.DueOutProductie = $$INTTIME^vhLib.DataTypes("00:00")
+		Set THN.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("17:00")
+		Set THN.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("1:00:00")
+		Set THN.MagOpschuivenIndienAutoSendAf = 1
+		Set THN.OmschrijvingDuits = "Matten"
+		Set THN.OmschrijvingFrans = "Matten"
+		Set THN.OmschrijvingEngels = "Matten"
+		Set THN.OmschrijvingNederlands = "Matten"
+		
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New(THN.#GlobalNode, THN.#GlobalSubNode)
+		Do PiItemService.VoegToeViaVolgNr(THN)
+	}
+	
+	Set ID = "THR"
+	If $$$Not(##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set THR = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do THR.ZetOmschrijving( "Rugwandhouder" )
+		Set THR.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("18:40")
+		Set THR.DueOutProductie = $$INTTIME^vhLib.DataTypes("00:00")
+		Set THR.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("17:00")
+		Set THR.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("1:00:00")
+		Set THR.MagOpschuivenIndienAutoSendAf = 1
+		Set THR.OmschrijvingDuits = "Rugwandhouder"
+		Set THR.OmschrijvingFrans = "Rugwandhouder"
+		Set THR.OmschrijvingEngels = "Rugwandhouder"
+		Set THR.OmschrijvingNederlands = "Rugwandhouder"
+		
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New(THR.#GlobalNode, THR.#GlobalSubNode)
+		Do PiItemService.VoegToeViaVolgNr(THR, 86)
+	}
+	
+	Set ID = "THS"
+	If $$$Not(##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set THS = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do THS.ZetOmschrijving( "Stalen rug" )
+		Set THS.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("18:15")
+		Set THS.DueOutProductie = $$INTTIME^vhLib.DataTypes("00:00")
+		Set THS.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("17:00")
+		Set THS.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("1:00:00")
+		Set THS.MagOpschuivenIndienAutoSendAf = 1
+		Set THS.OmschrijvingDuits = "Stalen rug"
+		Set THS.OmschrijvingFrans = "Stalen rug"
+		Set THS.OmschrijvingEngels = "Stalen rug"
+		Set THS.OmschrijvingNederlands = "Stalen rug"
+		
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New(THS.#GlobalNode, THS.#GlobalSubNode)
+		Do PiItemService.VoegToeViaVolgNr(THS)
+	}
+	
+	Set ID = "THT"
+	If $$$Not(##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set THT = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do THT.ZetOmschrijving( "TBX PZ + PO" )
+		Set THT.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("18:30")
+		Set THT.DueOutProductie = $$INTTIME^vhLib.DataTypes("00:00")
+		Set THT.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("17:00")
+		Set THT.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("1:00:00")
+		Set THT.MagOpschuivenIndienAutoSendAf = 1
+		Set THT.OmschrijvingDuits = "TBX PZ + PO"
+		Set THT.OmschrijvingFrans = "TBX PZ + PO"
+		Set THT.OmschrijvingEngels = "TBX PZ + PO"
+		Set THT.OmschrijvingNederlands = "TBX PZ + PO"
+		
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New(THT.#GlobalNode, THT.#GlobalSubNode)
+		Do PiItemService.VoegToeViaVolgNr(THT)
+	}
+	
+	Set ID = "THU"
+	If $$$Not(##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set THU = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do THU.ZetOmschrijving( "Urgent" )
+		Set THU.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("00:30")
+		Set THU.DueOutProductie = $$INTTIME^vhLib.DataTypes("00:00")
+		Set THU.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("17:00")
+		Set THU.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("1:00:00")
+		Set THU.MagOpschuivenIndienAutoSendAf = 1
+		Set THU.OmschrijvingDuits = "Urgent"
+		Set THU.OmschrijvingFrans = "Urgent"
+		Set THU.OmschrijvingEngels = "Urgent"
+		Set THU.OmschrijvingNederlands = "Urgent"
+		
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New(THU.#GlobalNode, THU.#GlobalSubNode)
+		Do PiItemService.VoegToeViaVolgNr(THU)
+	}
+	
+	Set ID = "THV"
+	If $$$Not(##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set THV = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do THV.ZetOmschrijving( "Voormontage" )
+		Set THV.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("18:10")
+		Set THV.DueOutProductie = $$INTTIME^vhLib.DataTypes("00:00")
+		Set THV.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("17:00")
+		Set THV.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("1:00:00")
+		Set THV.MagOpschuivenIndienAutoSendAf = 1
+		Set THV.OmschrijvingDuits = "Voormontage"
+		Set THV.OmschrijvingFrans = "Voormontage"
+		Set THV.OmschrijvingEngels = "Voormontage"
+		Set THV.OmschrijvingNederlands = "Voormontage"
+		
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New(THV.#GlobalNode, THV.#GlobalSubNode)
+		Do PiItemService.VoegToeViaVolgNr(THV)
+	}
+	
+	Set ID = "THZ"
+	If $$$Not(##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set THZ = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do THZ.ZetOmschrijving( "Ompak" )
+		Set THZ.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("18:45")
+		Set THZ.DueOutProductie = $$INTTIME^vhLib.DataTypes("00:00")
+		Set THZ.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("17:00")
+		Set THZ.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("1:00:00")
+		Set THZ.MagOpschuivenIndienAutoSendAf = 1
+		Set THZ.OmschrijvingDuits = "Ompak"
+		Set THZ.OmschrijvingFrans = "Ompak"
+		Set THZ.OmschrijvingEngels = "Ompak"
+		Set THZ.OmschrijvingNederlands = "Ompak"
+		
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New(THZ.#GlobalNode, THZ.#GlobalSubNode)
+		Do PiItemService.VoegToeViaVolgNr(THZ, 88)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>