Index: vhDeploy/Deploy20200604xVerzendwijzesDachser.cls.xml
===================================================================
diff -u -r63829 -r63847
--- vhDeploy/Deploy20200604xVerzendwijzesDachser.cls.xml	(.../Deploy20200604xVerzendwijzesDachser.cls.xml)	(revision 63829)
+++ vhDeploy/Deploy20200604xVerzendwijzesDachser.cls.xml	(.../Deploy20200604xVerzendwijzesDachser.cls.xml)	(revision 63847)
@@ -13,21 +13,22 @@
 <Implementation><![CDATA[
 	#Dim PiItemService As BL.Legacy.Res.PiItemService = ##class(BL.Legacy.Res.PiItemService).%New( "KLANT", "VERZENDWIJZE" )
 	Do PiItemService.Verwijder("DA")
+	Do PiItemService.Verwijder("DA1")
 	Do PiItemService.Verwijder("DA2")
+	Do PiItemService.Verwijder("DA3")
 	Do PiItemService.Verwijder("DA4")
 	Do PiItemService.Verwijder("DA5")
 	Do PiItemService.Verwijder("DA6")
+	Do PiItemService.Verwijder("DA7")
 ]]></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))
-	{
+	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")
@@ -50,12 +51,36 @@
 		Do PiItemService.VoegToeViaVolgNr( DA, 14 )
 	}
 
-
+	Set ID = "DA1"
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID)){
+		Set DA = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Set DA.TransportDuur = 1
+		Do DA.ZetOmschrijving(ID_" - "_ DA.TransportDuur _" 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.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 = "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.TransportDuur = 2
+		Do DA.ZetOmschrijving(ID_" - "_ DA.TransportDuur _" 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")
@@ -64,7 +89,6 @@
 		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"
@@ -73,14 +97,40 @@
 		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 )
+		Do PiItemService.VoegToeViaVolgNr( DA, 16 )
 	}
+
+	Set ID = "DA3"
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID))
+	{
+		Set DA = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Set DA.TransportDuur = 3
+		Do DA.ZetOmschrijving(ID_" - "_ DA.TransportDuur _" 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.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 = "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.TransportDuur = 4
+		Do DA.ZetOmschrijving(ID_" - "_ DA.TransportDuur _" 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")
@@ -89,7 +139,6 @@
 		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"
@@ -98,13 +147,15 @@
 		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 )
+		Do PiItemService.VoegToeViaVolgNr( DA, 18 )
 	}
+	
 	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.TransportDuur = 5
+		Do DA.ZetOmschrijving(ID_" - "_ DA.TransportDuur _" 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")
@@ -113,7 +164,6 @@
 		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"
@@ -122,14 +172,15 @@
 		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 )
+		Do PiItemService.VoegToeViaVolgNr( DA, 19 )
 	}
 	
 	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.TransportDuur = 6
+		Do DA.ZetOmschrijving(ID_" - "_ DA.TransportDuur _" 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")
@@ -138,7 +189,6 @@
 		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"
@@ -147,8 +197,32 @@
 		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 )
+		Do PiItemService.VoegToeViaVolgNr( DA, 20 )
 	}
+	
+	Set ID = "DA7"
+	if ('##class(DOM.VKP.VerzendWijze).%ExistsId(ID)){
+		Set DA = ##class(DOM.VKP.VerzendWijze.Intern).%New(ID)
+		Set DA.TransportDuur = 7
+		Do DA.ZetOmschrijving(ID_" - "_ DA.TransportDuur _" 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.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, 21 )
+	}
 ]]></Implementation>
 </Method>
 </Class>