Index: FLOWORD7.mac.rou
===================================================================
diff -u -r49076 -r50145
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 49076)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 50145)
@@ -475,19 +475,21 @@
  . Set CType=$P(R,D,2),BSPRNr=$P(R,D,3),BSAantal=$P(R,D,4),Stock=$P(R,D,6),Reservatie=$P(R,D,7),BestHoev=$P(R,D,8),LevTerm=$P(R,D,9),LEVNr=$P(R,D,10),GrVerp=$P(R,D,11)
  . If CType="NS" Do
  . . Set EenOpEenRel=$P(Control("NS",BSPRNr),D,3)
- . . If EenOpEenRel Set PRNr=$O(Control("NS",BSPRNr,"")) Set:$O(Control("NS",BSPRNr,PRNr)) EenOpEenRel=0
- . . If EenOpEenRel Do  ; Een op een relatie, GEEN controle op min bestelhoev en grootverpakking
- . . . Set ORDNr=""
- . . . For  Set ORDNr=$O(Control("NS",BSPRNr,PRNr,ORDNr)) Quit:ORDNr=""  Do
- . . . . Set OLUNr=""
- . . . . For  Set OLUNr=$O(Control("NS",BSPRNr,PRNr,ORDNr,OLUNr)) Quit:OLUNr=""  Do
- . . . . . Set BSAantal=$P(Control("NS",BSPRNr,PRNr,ORDNr,OLUNr),D)
- . . . . . Set Control("T",LEVNr,$O(Control("T",LEVNr,""),-1)+1)=BSPRNr_D_BSAantal_D_$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(,"W",LevTerm),"DW")_D_ORDNr_D_OLUNr
- . . Else  Do
- . . . If BSAantal'>BestHoev Set BSAantal=BestHoev  ; Controle op min bestelhoev en grootverpakking
- . . . Else  If BSAantal'>GrVerp Set BSAantal=GrVerp
- . . . Else  If BSAantal#GrVerp Set BSAantal=BSAantal+(GrVerp-(BSAantal#GrVerp))
- . . . Set Control("T",LEVNr,$O(Control("T",LEVNr,""),-1)+1)=BSPRNr_D_BSAantal_D_$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(,"W",LevTerm),"DW")
+ . . Set PRNr = ""
+ . . If EenOpEenRel Do
+ . . . For  Set PRNr=$O(Control("NS",BSPRNr,PRNr)) Quit:PRNr=""  Do 
+ . . . . If EenOpEenRel Do  ; Een op een relatie, GEEN controle op min bestelhoev en grootverpakking
+ . . . . . Set ORDNr=""
+ . . . . . For  Set ORDNr=$O(Control("NS",BSPRNr,PRNr,ORDNr)) Quit:ORDNr=""  Do
+ . . . . . . Set OLUNr=""
+ . . . . . . For  Set OLUNr=$O(Control("NS",BSPRNr,PRNr,ORDNr,OLUNr)) Quit:OLUNr=""  Do
+ . . . . . . . Set BSAantal=$P(Control("NS",BSPRNr,PRNr,ORDNr,OLUNr),D)
+ . . . . . . . Set Control("T",LEVNr,$O(Control("T",LEVNr,""),-1)+1)=BSPRNr_D_BSAantal_D_$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(,"W",LevTerm),"DW")_D_ORDNr_D_OLUNr
+ . . . . Else  Do
+ . . . . . If BSAantal'>BestHoev Set BSAantal=BestHoev  ; Controle op min bestelhoev en grootverpakking
+ . . . . . Else  If BSAantal'>GrVerp Set BSAantal=GrVerp
+ . . . . . Else  If BSAantal#GrVerp Set BSAantal=BSAantal+(GrVerp-(BSAantal#GrVerp))
+ . . . . . Set Control("T",LEVNr,$O(Control("T",LEVNr,""),-1)+1)=BSPRNr_D_BSAantal_D_$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(,"W",LevTerm),"DW")
  . Else  
  . . Set Control("M",LEVNr,$O(Control("M",LEVNr,""),-1)+1)=BSPRNr_D_BSAantal_D_Stock_D_Reservatie
  Quit