home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / formdev / action.rlz next >
Encoding:
Text File  |  1992-09-30  |  1.0 KB  |  35 lines
  1. '***********************************************************************
  2. '    FormDev: Action.RLZ
  3. '
  4. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  5. '    All rights reserved.
  6. '
  7. '***********************************************************************
  8.  
  9. PROC ActionCode (n)
  10.     LOCAL    fdAction
  11.  
  12.     fdAction = FormQUnique
  13.     FormNew(fdAction; Sprint("Action Code for Item P(0) - &", ItemID(n), item.text[n]), _Title + _ContextEnter)
  14.     FormControl(_Size; 5 pct, _Center, 50 pct, 70 pct )
  15.  
  16.     FormSetObject(60, _CaptionCenter, "Action code", _Center, 5 pct, 100 pct, _Default)
  17.     FormSetObject(70, _Log, "", _Center, 15 pct, 90 pct, 70 pct)
  18.     FormSetObject(1, _Button, "OK", 10 pct, 87 pct)
  19.     FormSetObject(2, _Button, "Cancel", 65 pct, 87 pct)
  20.     IF item.code[n] <> "" THEN
  21.         PRINT #70, fdAction; item.code[n]
  22.     END IF
  23.     LOOP
  24.         SELECT CASE FormWait
  25.             CASE 1    'Ok
  26.                 LogSelect(70, fdAction)
  27.                 item.code[n] = LogQStr
  28.                 EXIT LOOP
  29.             CASE 2    'Cancel
  30.                 EXIT LOOP
  31.         END SELECT
  32.     END LOOP
  33.     FormControl(_Close)
  34. END PROC
  35.