Index: KF5.mac.rou
===================================================================
diff -u -r2992 -r3081
--- KF5.mac.rou	(.../KF5.mac.rou)	(revision 2992)
+++ KF5.mac.rou	(.../KF5.mac.rou)	(revision 3081)
@@ -62,10 +62,10 @@
 8 S U2=@("^"_Q_"O1(UR,US)"),@("^"_Q_"O1(UR,US)")=$P(U2,D,1)_D_URR_D_$P(U2,D,3,99),^(US,URR)=""
  I $D(@("^"_Q_"OD(0,US,4)")) S URLC=UR D @^(4)
  G 2
-9 S U2=@("^"_Q_"OD(KC,US,UR,UZ)"),PR=$P(U2,D,2),OLUNr=$P(U2,D,15)
+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)
- 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