This is all very interesting to hear. I have a customer who has
occasional instances when they complain that a supply receipt has failed
to update the "last receipt" fields. This is the code:
0092:
***********************************************************************
0093: 7000:* UPDATE SUPPLIES
0094:
***********************************************************************
0095: SUPKEY = POLREC<2>
0096: GOSUB 7300 * reads suprec
0097: IF SUPREC EQ "" THEN
0098: RETURN
0099: END
0100: SUPREC<16,1> = SUPREC<16,1> + OCONV(POLREC<13,RCPSUB>,"MD4")
0101: NEWQTY = 0
0102: LOCCNT = DCOUNT(SUPREC<15>,@VM)
0103: FOR LOCSUB = 1 TO LOCCNT
0104: NEWQTY = NEWQTY + SUPREC<16,LOCSUB>
0105: NEXT LOCSUB
0106: SUPREC<3> = NEWQTY
0107: SUPREC = INSERT(SUPREC,2,1,0,POLREC<6>)
0108: SUPREC = INSERT(SUPREC,11,1,0,POLREC<11,RCPSUB>)
0109: SUPREC = INSERT(SUPREC,12,1,0,FIELD(POLKEY,".",1))
0110: SUPREC = INSERT(SUPREC,13,1,0,VNDKEY)
0111: GOSUB 7400 * writes suprec
0112: RETURN
----:
I have never been able to figure out why line 106 gets executed but 107
- 110 do not.
My customer refers to it as "the lawnmower man".
dale
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
