home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / adm30.lha / ADM / ARexx / ADM-ARexxMakros.lha / Sonstiges / UpdateKonto.adm < prev   
Encoding:
Text File  |  1996-02-16  |  1.5 KB  |  64 lines
  1. /* UpdateKonto.adm */
  2.  
  3. Ver = "$VER: UpdateKonto.adm 0.3 (16.2.96)"
  4.  
  5. /*
  6. von Bernd Stange und Jan Geissler
  7. für ADM >= Version 3.0!
  8.  
  9. Trägt alle Kontoeinträge, die im Bemerkungsfeld entdeckt werden,
  10. im neuen Kontenfeld ein.
  11.  
  12. History
  13.   0.2  [bernd] -- erste Version
  14.   0.3  [jan]   -- CHANGEADDRESS ersetzt DELETEACTIVE & NEWADDRESS:
  15.                   >> Erstellungsdatum bleibt erhalten
  16.                -- PARSE() ersetzt RIGHT(), LEFT(), TRANSLATE():
  17.                   >> Auch Leerzeichen in Kontonummer erlaubt
  18.                -- Abbruch bei CHANGEADDRESS()-Fehler
  19.  
  20.  
  21. ----------------------------------------------------------------*/
  22.  
  23. OPTIONS RESULTS
  24.  
  25.  
  26. /* --- ADM-Port ADM.1 suchen.
  27.    Ich habe diese Routine in der Annahme disabled, dass dieses
  28.    Makro vom ADM-Menue aus aufgerufen wird, wobei dieser ADM
  29.    nicht zwangsweise ADM.1 sein muß                      --- Jan.
  30.  
  31.    ADDRESS 'ADM.1'
  32.    IF ~SHOW(PORTS,'ADM.1') THEN DO
  33.       SAY 'Bitte erst AdressMaster starten !'
  34.       EXIT
  35.    END
  36. */
  37.  
  38. NL = "0a"x
  39.  
  40. ADDRINMEM
  41. numadr = RESULT
  42. ACTIVATEFIRST
  43.  
  44. DO FOR numAdr
  45.  
  46.    GETADDRESS ADM
  47.  
  48.    IF POS('@KTO',adm.remark1) > 0 THEN DO
  49.         PARSE VAR ADM.remark1 . "@KTO" ADM.account "/" ADM.bankcode "/" ADM.bankname "0a"x .
  50.  
  51.         say ">> Übertrage bei Eintrag" ADM.FULLNAME "die Kontodaten!"
  52.         CHANGEADDRESS ADM
  53.         IF RESULT = 0 THEN SAY "ok."
  54.         ELSE DO
  55.            SAY "Fehler" RESULT "bei CHANGEADDRESS()."
  56.            EXIT
  57.         END
  58.         SELECTADDRESS
  59.    END
  60.    ACTIVATENEXT
  61. END
  62.  
  63. EXIT
  64.