home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #3
/
amigamamagazinepolishissue1998.iso
/
bazy
/
adm
/
arexx
/
adm-arexxmakros.lha
/
Sonstiges
/
UpdateKonto.adm
< prev
Wrap
Text File
|
1996-02-16
|
2KB
|
64 lines
/* UpdateKonto.adm */
Ver = "$VER: UpdateKonto.adm 0.3 (16.2.96)"
/*
von Bernd Stange und Jan Geissler
für ADM >= Version 3.0!
Trägt alle Kontoeinträge, die im Bemerkungsfeld entdeckt werden,
im neuen Kontenfeld ein.
History
0.2 [bernd] -- erste Version
0.3 [jan] -- CHANGEADDRESS ersetzt DELETEACTIVE & NEWADDRESS:
>> Erstellungsdatum bleibt erhalten
-- PARSE() ersetzt RIGHT(), LEFT(), TRANSLATE():
>> Auch Leerzeichen in Kontonummer erlaubt
-- Abbruch bei CHANGEADDRESS()-Fehler
----------------------------------------------------------------*/
OPTIONS RESULTS
/* --- ADM-Port ADM.1 suchen.
Ich habe diese Routine in der Annahme disabled, dass dieses
Makro vom ADM-Menue aus aufgerufen wird, wobei dieser ADM
nicht zwangsweise ADM.1 sein muß --- Jan.
ADDRESS 'ADM.1'
IF ~SHOW(PORTS,'ADM.1') THEN DO
SAY 'Bitte erst AdressMaster starten !'
EXIT
END
*/
NL = "0a"x
ADDRINMEM
numadr = RESULT
ACTIVATEFIRST
DO FOR numAdr
GETADDRESS ADM
IF POS('@KTO',adm.remark1) > 0 THEN DO
PARSE VAR ADM.remark1 . "@KTO" ADM.account "/" ADM.bankcode "/" ADM.bankname "0a"x .
say ">> Übertrage bei Eintrag" ADM.FULLNAME "die Kontodaten!"
CHANGEADDRESS ADM
IF RESULT = 0 THEN SAY "ok."
ELSE DO
SAY "Fehler" RESULT "bei CHANGEADDRESS()."
EXIT
END
SELECTADDRESS
END
ACTIVATENEXT
END
EXIT