Index: FLOWORD7.mac.rou =================================================================== diff -u -r48466 -r48846 --- FLOWORD7.mac.rou (.../FLOWORD7.mac.rou) (revision 48466) +++ FLOWORD7.mac.rou (.../FLOWORD7.mac.rou) (revision 48846) @@ -147,7 +147,7 @@ ...If $P($G(^KPR(PRNr,"G")),D) Set GenPRNr=$P(^KPR(PRNr,0),D,3) I GenPRNr,$P($G(^KPR(GenPRNr,0)),D,3)="GENPROD" Quit ..Set R=^KPR(PRNr,1),IsStock=$P(R,D,20),R=^KPR(PRNr,2),InOrder=$P(R,D,9) ..Set R=^KPR(PRNr,$O(^KPR(PRNr,"J"))),LEVNr=$P(R,D),MinBestH=$P(R,D,6),PrMunt=$P(R,D,17) - ..Quit:($$BevestigdAXOrderSluitenActief())&&(LEVNr'=$$$LevHalux) + ..Quit:($$BevestigdAXOrderSluitenActief())&&((LEVNr'=$$$LevHalux)||IsStock) ..Set LevTerm=$P(R,D,7),GrootVp=$P(R,D,16) Set:'GrootVp GrootVp=1 ..If '($$BevestigdAXOrderSluitenActief()) Do ...Quit:Aantal