Index: EWORDS6.mac.rou
===================================================================
diff -u -r47792 -r47793
--- EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 47792)
+++ EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 47793)
@@ -43,41 +43,45 @@
 	 	
 	 	Set IsVoorVandaag = 1
 	 	
-	 Set %J=$$%J^vhRtn1()
-	 Kill ^HULP(%J)
-	 Set R=^KO1(ORDNr,"F"),KlantNummer=$P(R,D)
-	 For I=1:1:$L(ORDNrs,";") {
-		 Set CumulORDNr=$P(ORDNrs,";",I)
-		 Quit:'CumulORDNr
-		 Set OLNr=100
-		 For {
-			 Set OLNr=$O(^KOD(KlantNummer,"F",CumulORDNr,OLNr))
-			 Quit:'OLNr
-			 Set R=^KOD(KlantNummer,"F",CumulORDNr,OLNr),PRNr=$P(R,D,2),Aantal=$P(R,D,3),OLUNr=$P(R,D,15),LeverDag=$P(R,D,25)
-			 Continue:'PRNr
-			 Set R=Aantal_D_D_LeverDag
-			 Set ^HULP(%J,KlantNummer,"M","A",CumulORDNr,OLUNr)=R
-		 }
-	 }
-	 Set CONSNr=$$GETNUM^FLOW("KUL","KU1") ; Tijdelijk
+	 	Set %J=$$%J^vhRtn1()
+	 	Kill ^HULP(%J)
+	 	Set R=^KO1(ORDNr,"F"),KlantNummer=$P(R,D)
+	 	
+	 	For I=1:1:$L(ORDNrs,";") {
+		 	Set CumulORDNr=$P(ORDNrs,";",I)
+		 	Quit:'CumulORDNr
+		 	Set OLNr=100
+		 	
+		 	For {
+			 	Set OLNr=$O(^KOD(KlantNummer,"F",CumulORDNr,OLNr))
+			 	Quit:'OLNr
+			 	Set R=^KOD(KlantNummer,"F",CumulORDNr,OLNr),PRNr=$P(R,D,2),Aantal=$P(R,D,3),OLUNr=$P(R,D,15),LeverDag=$P(R,D,25)
+			 	Continue:'PRNr
+			 	Set R=Aantal_D_D_LeverDag
+			 	Set ^HULP(%J,KlantNummer,"M","A",CumulORDNr,OLUNr)=R
+			}
+		}
 	 
-	 Do INITDOMVKP^FLOWORD2(KlantNummer,ORDNr)
-	 Set VerzW=$$DEFAULT^KLVERZW(,KlantNummer,ORDNr)
-	 Set VerzZone=""
-	 Set DOutDateTime=$S(IsVoorVandaag:+$H,1:+$$CALCDATE^vhLib.DataTypes($H,"A",1))_","_blVerzendWijze.DueOutPickingTime()
-	 Set VerzDat=blLeveringsTermijn.GetVroegsteLeverDag(+DOutDateTime)
-	 Set DOutDateTime=blLeveringsTermijn.GetLaatstePickingsTijdstip(VerzDat)
- 
-	 Set LevAdr=^KOD(KlantNummer,"F",ORDNr,3)
-	 Do BLDCONS^EWORDS2(KlantNummer,$NA(^HULP(%J,KlantNummer,"M")),CONSNr,$P(VerzW,";"),VerzDat,DOutDateTime,VerzZone,LevAdr,.ChkBeletDone) ; Creatie suborderlijnen
+	 	Set CONSNr=$$GETNUM^FLOW("KUL","KU1") ; Tijdelijk
 	 
-	 If $$WMSIsActief(),IsVoorVandaag Do SEND^EWORDSW(CONSNr) ; Indien voor vandaag -> doorsturen
-	 
-	 Kill ^HULP(%J)
-	 For I=1:1:$L(ORDNrs,";") Set CumulORDNr=$P(ORDNrs,";",I) Kill ^ORDW("AUTO",CumulORDNr)
-	 Do UnLock(ORDNrs)
- }
- Quit
+		Do INITDOMVKP^FLOWORD2(KlantNummer,ORDNr)
+		Set VerzW=$$DEFAULT^KLVERZW(,KlantNummer,ORDNr)
+		Set VerzZone=""
+		Set DOutDateTime=$S(IsVoorVandaag:+$H,1:+$$CALCDATE^vhLib.DataTypes($H,"A",1))_","_blVerzendWijze.DueOutPickingTime()
+		Set VerzDat=blLeveringsTermijn.GetVroegsteLeverDag(+DOutDateTime)
+		Set DOutDateTime=blLeveringsTermijn.GetLaatstePickingsTijdstip(VerzDat)
+
+		Set LevAdr=^KOD(KlantNummer,"F",ORDNr,3)
+		Do BLDCONS^EWORDS2(KlantNummer,$NA(^HULP(%J,KlantNummer,"M")),CONSNr,$P(VerzW,";"),VerzDat,DOutDateTime,VerzZone,LevAdr,.ChkBeletDone) ; Creatie suborderlijnen
+
+		If $$WMSIsActief(),IsVoorVandaag Do SEND^EWORDSW(CONSNr) ; Indien voor vandaag -> doorsturen
+
+		Kill ^HULP(%J)
+		For I=1:1:$L(ORDNrs,";") Set CumulORDNr=$P(ORDNrs,";",I) Kill ^ORDW("AUTO",CumulORDNr)
+		Do UnLock(ORDNrs)
+	}
+	
+	Quit
  
  ; WMS is actief?
 WMSIsActief()