Posted by Bob A on September 17, 2013 at 09:37:04:
.ifdef TRACING
PRICE.FMT: FORMAT (SF);_
(TP),@(COL.PRICE,LINE);(MC);XPRICE,"##,##0.0000-";(TP);(RC)
.else
PRICE.FMT: FORMAT (SF);_
(TP),@(COL.PRICE,LINE);(RJ);(MC);XPRICE,"##,##0.0000-",(BZ);(TP);(RC)
.endif
PRINT(0,PRICE.FMT)
INPUT(0) XPRICE
When I re-compiled under Comet/32, the original code (immediately above) seemed to drop the sign for negative numbers, so I took out the (RJ) and (BZ)... the TRACE PRINT verifies that it's now properly saving the negative value after INPUT (albeit very strange looking on the entry screen, it being left justified)
It had worked just fine under Comet/16, and in fact I re-compiled and executed under Comet/16 to verify this
Has anyone else had any problems like this... tried to find if this was fixed in a later release.... we're running 474 on the TEST system and 469 in PROD... shouldn't be too far off 475 (latest & greatest!)
Thanx in advance
Bob "A"
P.S. this was a program where I changed the file to Extended Key, and compiled under Comet/32 because that's the new protocol for all new code.... happily, it's the only place where we always have to enter negative numbers... it's used for special discounts.
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.