Could you post the entire program in case there are the frame boundary
issues that Tony talked about?
Thanks,
Robert Norman
ROBERT NORMAN AND ASSOCIATES
23441 Golden Springs Dr., #289, Diamond Bar, CA 91765
(951) 541-1668
i...@keyway.net <mailto:i...@keyway.net>
http://users.keyway.net/~ice/ <http://users.keyway.net/%7Eice/>
Affordable UNIVERSE programming services for PICK/BASIC, DATA/BASIC,
UniVerse
Basic, UniBasic, R/BASIC, jBC.
On 7/26/2013 6:41 AM, dale kelley wrote:
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
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users