Index: vhDeploy/Deploy20240412xAanmakenTransfertOrderVerzendwijzeTHX.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20240412xAanmakenTransfertOrderVerzendwijzeTHX.cls.xml	(revision 0)
+++ vhDeploy/Deploy20240412xAanmakenTransfertOrderVerzendwijzeTHX.cls.xml	(revision 72839)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20240412xAanmakenTransfertOrderVerzendwijzeTHX">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Aanmaken verzendwijze THX voor transfertorders Halux</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ..MaakNieuweVerzendwijze()
+]]></Implementation>
+</Method>
+
+<Method name="MaakNieuweVerzendwijze">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#Dim PiItemService As BL.Legacy.Res.PiItemService
+	#dim VerzendwijzeId As %String = "THX"
+	
+	If ##class(DOM.VKP.VerzendWijze).%ExistsId(VerzendwijzeId) {
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New("KLANT", "VERZENDWIJZE")
+		Do PiItemService.Verwijder(VerzendwijzeId)
+	}
+	
+	Set Verzendwijze = ##class(DOM.VKP.VerzendWijze.Intern).%New(VerzendwijzeId)
+	Do Verzendwijze.ZetOmschrijving("MVX CP + OND")
+	Set Verzendwijze.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("20:26")
+	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 = "MVX CP + OND"
+	Set Verzendwijze.OmschrijvingFrans = "MVX CP + OND"
+	Set Verzendwijze.OmschrijvingEngels = "MVX CP + OND"
+	Set Verzendwijze.OmschrijvingNederlands = "MVX CP + OND"
+		
+	Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New(Verzendwijze.#GlobalNode, Verzendwijze.#GlobalSubNode)
+	Do PiItemService.VoegToeViaVolgNr(Verzendwijze, 83)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>