home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / intra2_17 / rexx / filter.irx < prev    next >
Text File  |  1994-02-21  |  1KB  |  56 lines
  1. /* INTRA_demo1.irx  by Bart Vanhaeren                             */
  2. /* $VER: Filter.irx 1.0 (21.2.1994)                               */
  3. /* Example Arexx program for controlling INTRA by Bart Vanhaeren  */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. IF POS('rexxsupport.library',SHOW('libs'))=0 THEN
  8.   nill=ADDLIB('rexxsupport.library',0,-30,0)
  9.  
  10. IF POS('INTRAREXX', SHOW('PORTS'))=0 THEN DO
  11.   SAY "*** Start INTRA first !!!"
  12.   EXIT(0)
  13.  END
  14.  
  15. ADDRESS (TRIM(SUBSTR(SHOW('PORTS'),POS('INTRAREXX',SHOW('PORTS')),12)))
  16.  
  17. LOCKGUI NORENDER
  18.  
  19. zoek=1
  20.  
  21. DO WHILE zoek=1
  22.  
  23.  REQUESTRESPONSE PROMPT '"Op welk veld moet filter zoeken?"' GADGETS 'Date|Trader|Description'
  24.  if RC=5 then veld=DESCRIPTION
  25.  else if RESULT=1 then veld=DATE
  26.       else veld=TRADER
  27.  
  28.  REQUESTSTRING PROMPT '"Geef het zoek patroon:"' DEFAULT patroon
  29.  
  30.  patroon=RESULT
  31.  
  32.  SETFILTER veld patroon FILTERON
  33.  POSITION BOF
  34.  
  35.  totaal=0
  36.  
  37.  DO WHILE RC=0
  38.   GETDATA AMOUNT
  39.   PARSE VAR RESULT '"'val'"'
  40.   totaal = totaal + val
  41.   NEXT
  42.  END
  43.  
  44.  SAY "Totaal bedrag met patroon "||patroon||" op veld "||veld||" is "||totaal
  45.  
  46.  
  47.  REQUESTRESPONSE PROMPT '"Nog zoeken?"' GADGETS 'Ja|Nee'
  48.  zoek=RESULT
  49. END
  50.  
  51. SETFILTER
  52. SAY
  53. SAY 'Gedaan. Klik links bovenaan om venster te sluiten'
  54. UNLOCKGUI
  55. EXIT(0)
  56.