Index: APPS/VKP/VerzendWijze.cls.xml
===================================================================
diff -u -r62525 -r67343
--- APPS/VKP/VerzendWijze.cls.xml	(.../VerzendWijze.cls.xml)	(revision 62525)
+++ APPS/VKP/VerzendWijze.cls.xml	(.../VerzendWijze.cls.xml)	(revision 67343)
@@ -238,16 +238,16 @@
 	#dim DueOutPickingTime As %Time = ""
 	
 	if ($$$Not(..VerzendWijze.IsAfhaling()) && (..OrderNummer) && ($$ISORGAL^FLOW("O", ..OrderNummer))) {
-		; Orgaluxorders DOutTime rond 11u00, eerst SPOOR dan de andere en dan pas Keller (deze laatste moet pas voor de volgende dag)
+		; Orgaluxorders DOutTime rond 11u00, eerst Distributie dan de andere
 		Set DueOutPickingTime = $Select(..VerzendWijzeID = "DI1":39000, 1:39600)
 	}
 	
 	If (DueOutPickingTime = "") {
 		Set DueOutPickingTime = ..VerzendWijze.DueOutMagazijn
+		; OBJT  aangepast van de vast tijdstip naar vervroeging van een 30min
+		If $Extract(..VerzendWijzeID, 1, 3) = "DI1", ..LandCode="NL" Set DueOutPickingTime = DueOutPickingTime-$$INTTIME^vhLib.DataTypes("00:30")
 	}
 	
-	If $Extract(..VerzendWijzeID, 1, 3) = "DI1", ..LandCode="NL" Set DueOutPickingTime = $$INTTIME^vhLib.DataTypes("13:00")
-	
 	Quit DueOutPickingTime
 ]]></Implementation>
 </Method>
Index: EWORDSW.mac.rou
===================================================================
diff -u -r67289 -r67343
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 67289)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 67343)
@@ -130,14 +130,13 @@
  Set Verzendwijze=$P($P($P(^ORDW("D",CONSNr),D,2),"`"),";")
  If Verzendwijze?1"AF"1E
  {
-	 Set $P(DOut,",",2)=1200
+	 ;Set $P(DOut,",",2)=1200 ; OBJT - niet nodig vermits reeds opgenomen bij creatie van ORDW
  } ElseIf (Verzendwijze?1"OD"1N)&&(SubMagazijnen["E")
 {
-	If Verzendwijze="OD1" Set $P(DOut,",",2)=21600 ; 6 uur
-	If Verzendwijze="OD2" Set $P(DOut,",",2)=25200 ; 7 uur
-	If Verzendwijze="OD3" Set $P(DOut,",",2)=28800 ; 8 uur
-	If Verzendwijze="OD4" Set $P(DOut,",",2)=32400 ; 9 uur
-	If Verzendwijze="OD5" Set $P(DOut,",",2)=36000 ; 10 uur
+	;If Verzendwijze="OD1" Set $P(DOut,",",2)=21600 ; 6 uur ;OBJT  - niet meer nodig, verschillende waves
+	;If Verzendwijze="OD2" Set $P(DOut,",",2)=25200 ; 7 uur
+	;If Verzendwijze="OD3" Set $P(DOut,",",2)=28800 ; 8 uur
+	;If Verzendwijze="OD4" Set $P(DOut,",",2)=32400 ; 9 uur
 }
 
  If ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsTranssmartActive()
@@ -147,14 +146,15 @@
 		Set PostCode=$P($G(^ORDW("D",CONSNr,"A")),"\",6)
 		If (($E(PostCode,1,2)="NL") && ("1,7,8,9"[$E(PostCode,4))) || ($E(PostCode,1,1)="L")
 		{
-			Set $P(DOut,",",2)=$P(DOut,",",2)-(60*60) ; Een uur vroeger voor het hoge Noorden NL of Luxemburg
+			;OBJT  - niet meer nodig, verschillende waves reeds opgenomen DOM.VKP.Verzendwijze
+			;Set $P(DOut,",",2)=$P(DOut,",",2)-(60*60) ; Een uur vroeger voor het hoge Noorden NL of Luxemburg
 		}
 	} 
 }
 
  Set:OmzFakt>1 $P(DOut,",",2)=$P(DOut,",",2)-(4*60) ; Grote klanten worden voorgetrokken met 4 min.
- Set:$LF(lbBevat,"ORGALUX") $P(DOut,",",2)=$P(DOut,",",2)-(10*60) ; Orgalux orders voortrekken met 10 min.
- Set:$L(SubMagazijnen)=1 $P(DOut,",",2)=$P(DOut,",",2)-(5*60) ; picking uit slechts 1 submagazijn wordt voorgetrokken met 5 min
+ ;Set:$LF(lbBevat,"ORGALUX") $P(DOut,",",2)=$P(DOut,",",2)-(10*60) ; Orgalux orders voortrekken met 10 min.
+ ;Set:$L(SubMagazijnen)=1 $P(DOut,",",2)=$P(DOut,",",2)-(5*60) ; picking uit slechts 1 submagazijn wordt voorgetrokken met 5 min
  Set:$$IsAlpnachOfHerzog(CONSNr) $P(DOut,",",2)=$P(DOut,",",2)-(20*60) ; picking voor AlpNach of Herzog (klant van SFS) wordt voorgetrokken met 20 min
  Do INFO^EWLOG($T(DUEOUT))
  Set $P(^ORDW("D",CONSNr),D,3)=DOut ; sinds uglypicking actief is niet meer nodig