Index: KF5.mac.rou
===================================================================
diff -u -r3081 -r3083
--- KF5.mac.rou	(.../KF5.mac.rou)	(revision 3081)
+++ KF5.mac.rou	(.../KF5.mac.rou)	(revision 3083)
@@ -65,7 +65,7 @@
 9 S U2=@("^"_Q_"OD(KC,US,UR,UZ)"),PR=$P(U2,D,2),OLUNr=$P(U2,D,15),UA=$P(U2,D,3)
  I PR,OLUNr,$D(^ORDW("IO",UR,OLUNr)) G 5
  D KWNODE^FLOWORD(KC,UR,UZ)
- If PR,UA'<0 Do ProductLijnOpBon^EWORDS2(UR,OLUNr,URR)
+ If PR,UA>0 Do ProductLijnOpBon^EWORDS2(UR,OLUNr,URR)
  S U2=@("^"_Q_"OD(KC,US,UR,UZ)") K ^(UZ) S PR=$P(U2,D,2),UA=$P(U2,D,3),UH=$P(U2,D,10)*UPAR,VWTYP=$P(U2,D,14),TR=$P(U2,D,27),TZ=$P($P(U2,D,28),";")
  I '$L(PR) D  G 5
  .D S3