Index: vhDeploy/Deploy20230301xNieuweVerzendwijzesHaman.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20230301xNieuweVerzendwijzesHaman.cls.xml	(revision 0)
+++ vhDeploy/Deploy20230301xNieuweVerzendwijzesHaman.cls.xml	(revision 70588)
@@ -0,0 +1,135 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20230301xNieuweVerzendwijzesHaman">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Nieuwe verzendwijzes voor Hamann</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..VoegToeHa1()
+	Do ..VoegToeHa2()
+	Do ..VoegToeHa3()
+	Do ..VoegToeHa4()
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeHa1">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim ID As %String = "Ha1"
+	If ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		#dim Ha1 As DOM.VKP.VerzendWijze.Bulk = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do Ha1.ZetOmschrijving( "Hamann 01" )
+		Set Ha1.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("03:30:00")
+		Set Ha1.DueOutProductie = $$INTTIME^vhLib.DataTypes("12:00:00")
+		Set Ha1.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("11:00:00")
+		Set Ha1.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("23:59:00")
+		Set Ha1.VerzendZone = "005004"
+		Set Ha1.MagOpschuivenIndienAutoSendAf = 0
+		Set Ha1.BonPrinter = "LEVBON_EXPORT"
+		Set Ha1.OmschrijvingDuits = "Hamann 1 Tag"
+		Set Ha1.OmschrijvingFrans = "Hamann 1 jour"
+		Set Ha1.OmschrijvingEngels = "Hamann 1 day"
+		Set Ha1.OmschrijvingNederlands = "Hamann 1 dag"
+		Set Ha1.TransportDuur = 1
+		Set Ha1.UitgesteldPakbonBoekenAx = 1
+	
+		#dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( Ha1.#GlobalNode, Ha1.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr(Ha1)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeHa2">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim ID As %String = "Ha2"
+	If ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		#dim Ha2 As DOM.VKP.VerzendWijze.Bulk = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do Ha2.ZetOmschrijving( "Hamann 02" )
+		Set Ha2.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("03:30:00")
+		Set Ha2.DueOutProductie = $$INTTIME^vhLib.DataTypes("12:00:00")
+		Set Ha2.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("11:00:00")
+		Set Ha2.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("23:59:00")
+		Set Ha2.VerzendZone = "005004"
+		Set Ha2.MagOpschuivenIndienAutoSendAf = 0
+		Set Ha2.BonPrinter = "LEVBON_EXPORT"
+		Set Ha2.OmschrijvingDuits = "Hamann 2 Tagen"
+		Set Ha2.OmschrijvingFrans = "Hamann 2 jours"
+		Set Ha2.OmschrijvingEngels = "Hamann 2 days"
+		Set Ha2.OmschrijvingNederlands = "Hamann 2 dagen"
+		Set Ha2.TransportDuur = 2
+		Set Ha2.UitgesteldPakbonBoekenAx = 1
+	
+		#dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( Ha2.#GlobalNode, Ha2.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr(Ha2)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeHa3">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim ID As %String = "Ha3"
+	If ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		#dim Ha3 As DOM.VKP.VerzendWijze.Bulk = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do Ha3.ZetOmschrijving( "Hamann 03" )
+		Set Ha3.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("03:30:00")
+		Set Ha3.DueOutProductie = $$INTTIME^vhLib.DataTypes("12:00:00")
+		Set Ha3.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("11:00:00")
+		Set Ha3.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("23:59:00")
+		Set Ha3.VerzendZone = "005004"
+		Set Ha3.MagOpschuivenIndienAutoSendAf = 0
+		Set Ha3.BonPrinter = "LEVBON_EXPORT"
+		Set Ha3.OmschrijvingDuits = "Hamann 3 Tagen"
+		Set Ha3.OmschrijvingFrans = "Hamann 3 jours"
+		Set Ha3.OmschrijvingEngels = "Hamann 3 days"
+		Set Ha3.OmschrijvingNederlands = "Hamann 3 dagen"
+		Set Ha3.TransportDuur = 3
+		Set Ha3.UitgesteldPakbonBoekenAx = 1
+	
+		#dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( Ha3.#GlobalNode, Ha3.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr(Ha3)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeHa4">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim ID As %String = "Ha4"
+	If ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		#dim Ha4 As DOM.VKP.VerzendWijze.Bulk = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do Ha4.ZetOmschrijving( "Hamann 04" )
+		Set Ha4.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("03:30:00")
+		Set Ha4.DueOutProductie = $$INTTIME^vhLib.DataTypes("12:00:00")
+		Set Ha4.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("11:00:00")
+		Set Ha4.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("23:59:00")
+		Set Ha4.VerzendZone = "005004"
+		Set Ha4.MagOpschuivenIndienAutoSendAf = 0
+		Set Ha4.BonPrinter = "LEVBON_EXPORT"
+		Set Ha4.OmschrijvingDuits = "Hamann 4 Tagen"
+		Set Ha4.OmschrijvingFrans = "Hamann 4 jours"
+		Set Ha4.OmschrijvingEngels = "Hamann 4 days"
+		Set Ha4.OmschrijvingNederlands = "Hamann 4 dagen"
+		Set Ha4.TransportDuur = 4
+		Set Ha4.UitgesteldPakbonBoekenAx = 1
+	
+		#dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( Ha4.#GlobalNode, Ha4.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr(Ha4)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>