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