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 >
Text File  |  1991-09-11  |  1KB  |  67 lines

  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.   PRODUCT  :  PARADOX                                NUMBER  :  499
  9.   VERSION  :  ALL
  10.        OS  :  PC DOS
  11.      DATE  :  September 11, 1991                       PAGE  :  1/1
  12.  
  13.     TITLE  :  USING IMAGECSUM() TO CALCULATE A COLUMN IN A FORM
  14.  
  15.  
  16.  
  17.  
  18.   The following script demonstrates a method for calculating the
  19.   total of a particular column in a multi-record form.  The example
  20.   below illustrates the use of the IMAGECSUM() function.
  21.  
  22.  
  23.  
  24.   EDIT "Orders"
  25.   PICKFORM 1
  26.   WHILE TRUE
  27.  
  28.   WAIT TABLE
  29.   PROMPT "PRESS [F2] TO SAVE CHANGES, [ESC] TO CANCEL CHANGES",
  30.          "[CTRL] [N] TO CALCULATE TOTAL QUANTITY"
  31.   UNTIL "F2", "ESC", 14
  32.   SWITCH
  33.      CASE RETVAL=14:                  ;if the user presses Ctrl-N
  34.         fld=FIELD()                   ;sets current field to fld
  35.         MOVETO [Quantity Ordered]
  36.         x=IMAGECSUM()                 ;calculates Total Quantity
  37.                                       ;Ordered
  38.         MESSAGE "The total quantity is ", x, ".  Press any key to
  39.                  continue"
  40.         y=GETCHAR()
  41.         EXECUTE "MOVETO ["+ fld +"]"  ;moves back to original field
  42.      CASE RETVAL="Esc": CANCELEDIT QUITLOOP  ;cancels edit mode
  43.      CASE RETVAL="F2": DO_IT! QUITLOOP       ;saves changes
  44.   ENDSWITCH
  45.   ENDWHILE
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.