home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
TEXT
/
PDX_ALL.ZIP
/
TI499.ASC
< prev
next >
Wrap
Text File
|
1991-09-11
|
1KB
|
67 lines
PRODUCT : PARADOX NUMBER : 499
VERSION : ALL
OS : PC DOS
DATE : September 11, 1991 PAGE : 1/1
TITLE : USING IMAGECSUM() TO CALCULATE A COLUMN IN A FORM
The following script demonstrates a method for calculating the
total of a particular column in a multi-record form. The example
below illustrates the use of the IMAGECSUM() function.
EDIT "Orders"
PICKFORM 1
WHILE TRUE
WAIT TABLE
PROMPT "PRESS [F2] TO SAVE CHANGES, [ESC] TO CANCEL CHANGES",
"[CTRL] [N] TO CALCULATE TOTAL QUANTITY"
UNTIL "F2", "ESC", 14
SWITCH
CASE RETVAL=14: ;if the user presses Ctrl-N
fld=FIELD() ;sets current field to fld
MOVETO [Quantity Ordered]
x=IMAGECSUM() ;calculates Total Quantity
;Ordered
MESSAGE "The total quantity is ", x, ". Press any key to
continue"
y=GETCHAR()
EXECUTE "MOVETO ["+ fld +"]" ;moves back to original field
CASE RETVAL="Esc": CANCELEDIT QUITLOOP ;cancels edit mode
CASE RETVAL="F2": DO_IT! QUITLOOP ;saves changes
ENDSWITCH
ENDWHILE