Index: vhDeploy/Deploy20220512VerzendwijzesDachserVoorOPO.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20220512VerzendwijzesDachserVoorOPO.cls.xml	(revision 0)
+++ vhDeploy/Deploy20220512VerzendwijzesDachserVoorOPO.cls.xml	(revision 67749)
@@ -0,0 +1,102 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20220512VerzendwijzesDachserVoorOPO">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Nieuwe verzendwijzen voor transporteur Dachser (via transsmart) voor OPO</Default>
+</Parameter>
+
+<Method name="CleanUp">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#Dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( "KLANT", "VERZENDWIJZE" )
+	Do PiItemService.Verwijder("DO")
+	Do PiItemService.Verwijder("DO3")
+	Do PiItemService.Verwijder("DO4")
+]]></Implementation>
+</Method>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim ID as %String = "DO"
+	; Deze is enkel bedoeld om de andere tegelijk te kunnen opvragen in de toerlijst. duur op 4 dagen gezet, maar in principe niet meer belangrijk als lades al geproduceerd zijn.
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID)){
+		#Dim DO As DOM.VKP.VerzendWijze.Bulk = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Do DO.ZetOmschrijving(ID)
+		Set DO.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("13:30")
+		Set DO.DueOutProductie = $$INTTIME^vhLib.DataTypes("11:00")
+		Set DO.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("16:00")
+		Set DO.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("13:00")
+		Set DO.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set DO.VerzendZone = "005003"
+		Set DO.MagOpschuivenIndienAutoSendAf = 1
+		Set DO.Transporteur = 6370
+		Set DO.TransportDuur = 4
+		Set DO.AanrekenenPort = $$$False
+		Set DO.UitgesteldPakbonBoekenAx = $$$True
+		Set DO.OmschrijvingDuits = ID
+		Set DO.OmschrijvingFrans = ID
+		Set DO.OmschrijvingEngels = ID
+		Set DO.OmschrijvingNederlands = ID
+		
+		#Dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( DO.#GlobalNode, DO.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( DO, 29 )
+	}
+
+	Set ID = "DO3"
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID)){
+		Set DO = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Set DO.TransportDuur = 3
+		Do DO.ZetOmschrijving(ID_" - "_ DO.TransportDuur _" dagen")
+		Set DO.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("13:30")
+		Set DO.DueOutProductie = $$INTTIME^vhLib.DataTypes("11:00")
+		Set DO.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("16:00")
+		Set DO.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("13:00")
+		Set DO.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set DO.VerzendZone = "005003" 
+		Set DO.MagOpschuivenIndienAutoSendAf = 1
+		Set DO.Transporteur = 6370
+		Set DO.AanrekenenPort = $$$False
+		Set DO.UitgesteldPakbonBoekenAx = $$$True
+		Set DO.OmschrijvingDuits = ID _ " Dachser OPO " _DO.TransportDuur_ " Tag"
+		Set DO.OmschrijvingFrans = ID _ " Dachser OPO " _DO.TransportDuur_ " jour"
+		Set DO.OmschrijvingEngels = ID _ " Dachser OPO " _DO.TransportDuur_ " day"
+		Set DO.OmschrijvingNederlands = ID _ " Dachser OPO " _DO.TransportDuur_ " dag"
+		
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( DO.#GlobalNode, DO.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( DO, 30 )
+	}
+	
+	Set ID = "DO4"
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set DO = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Set DO.TransportDuur = 4
+		Do DO.ZetOmschrijving(ID_" - "_ DO.TransportDuur _" dagen")
+		Set DO.DueOutMagazijn = $$INTTIME^vhLib.DataTypes("13:30")
+		Set DO.DueOutProductie = $$INTTIME^vhLib.DataTypes("11:00")
+		Set DO.KantelOrderIngave = $$INTTIME^vhLib.DataTypes("16:00")
+		Set DO.KantelDoorsturenMagazijn = $$INTTIME^vhLib.DataTypes("13:00")
+		Set DO.KantelDoorsturenProductie = $$INTTIME^vhLib.DataTypes("10:00")
+		Set DO.VerzendZone = "005003" 
+		Set DO.MagOpschuivenIndienAutoSendAf = 1
+		Set DO.Transporteur = 6370
+		Set DO.AanrekenenPort = $$$False
+		Set DO.UitgesteldPakbonBoekenAx = $$$True
+		Set DO.OmschrijvingDuits = ID _ " Dachser OPO " _DO.TransportDuur_ " Tag"
+		Set DO.OmschrijvingFrans = ID _ " Dachser OPO " _DO.TransportDuur_ " jour"
+		Set DO.OmschrijvingEngels = ID _ " Dachser OPO " _DO.TransportDuur_ " day"
+		Set DO.OmschrijvingNederlands = ID _ " Dachser OPO " _DO.TransportDuur_ " dag"
+		
+		Set PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( DO.#GlobalNode, DO.#GlobalSubNode )
+		Do PiItemService.VoegToeViaVolgNr( DO, 31 )
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>