home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 117 / af117a.adf / archives / af117a1.lzx / Fiasco_2.2 / Databases / Addresses2 / Adressmanager-Konv.rexx < prev    next >
OS/2 REXX Batch file  |  1995-09-26  |  2KB  |  110 lines
  1. /* Name:    Adreßmanager-Konvert.rexx 11.2.96 */
  2. /* Version: 1.0
  3.    Autor:   Martin Steigerwald
  4.  
  5.    Kopiere Magic-Adreßmanager-Datenbasis in ein Fiasco-Projekt
  6.    Achtung, die entsprechenden FeldIDs müssen vorhanden sein oder
  7.    angepaßt werden.
  8.  
  9.    Sollte ein Feld in Adreßmanager leer sein, gibts Fehlermeldungen,
  10.    die das Skript allerdings nicht daran hindern, seine Arbeit zu tun.
  11.    Wer diese Meldungen nicht sehen will, startet mit >NIL:.
  12.  
  13.    Keinerlei Fehlerabfrage! MAM3 und Fiasco müssen gestartet,
  14.    die MAM3 Datenbasis und das Fiasco-Projekt geladen sein, bevor man
  15.    das Skript startet. (hey, das Teil ist ein ner halben Stunde
  16.    entstanden, die längste Zeit hab ich dafür gebraucht, um
  17.    herauszufinden, wie ein paar dieser ARexx-Befehle funktionieren :-)
  18.  
  19.    Das GUI von FIASCO wird während der Skriptausführung gesperrt. Sollte
  20.    jemand in die Lage kommen, das Skript durch CTRL-C stoppen zu müssen,
  21.    so geht dies mit: rx "address FIASCO f_UnlockGUI"
  22.  
  23.    Konvertierzeit: 154 Addressen in 2:22 Minuten auf einem
  24.                    Amiga 4000/EC030 18MB, CyberVision 2MB
  25. */
  26.  
  27. Say "Konvertiere Datenbasis..."
  28.  
  29. OPTIONS RESULTS
  30.  
  31. ADDRESS FIASCO
  32. F_LockGUI
  33.  
  34. ADDRESS MAM.1
  35. GETNUM TOTAL
  36. anzahl=RESULT
  37.  
  38. SELECTFIRST
  39.  
  40. DO i = 1 TO anzahl
  41.   ADDRESS FIASCO
  42.   F_AddRecord
  43.  
  44.   ADDRESS
  45.   GETDATA NAME
  46.   ADDRESS
  47.   F_SetFieldCont Name RESULT
  48.  
  49.   ADDRESS
  50.   GETDATA VORNAME
  51.   ADDRESS
  52.   F_SetFieldCont Vorname RESULT
  53.  
  54.   ADDRESS
  55.   GETDATA STRASSE
  56.   ADDRESS
  57.   F_SetFieldCont 'Straße' RESULT
  58.  
  59.   ADDRESS
  60.   GETDATA PLZ
  61.   ADDRESS
  62.   F_SetFieldCont PLZ RESULT
  63.  
  64.   ADDRESS
  65.   GETDATA ORT
  66.   ADDRESS
  67.   F_SetFieldCont Ort RESULT
  68.  
  69.   ADDRESS
  70.   GETDATA LAND
  71.   ADDRESS
  72.   F_SetFieldCont Land RESULT
  73.  
  74.   ADDRESS
  75.   GETDATA GEBURTSTAG
  76.   ADDRESS
  77.   F_SetFieldCont Geburtstag RESULT
  78.  
  79.   ADDRESS
  80.   GETDATA TEL
  81.   ADDRESS
  82.   F_SetFieldCont Telefon RESULT
  83.  
  84.   ADDRESS
  85.   GETDATA FAX
  86.   ADDRESS
  87.   F_SetFieldCont Fax RESULT
  88.  
  89.   ADDRESS
  90.   GETDATA EMAIL1
  91.   ADDRESS
  92.   F_SetFieldCont Email RESULT
  93.  
  94.   ADDRESS
  95.   GETDATA EMAIL2
  96.   ADRESS
  97.   F_SetFieldCont Email2 RESULT
  98.  
  99.   ADDRESS
  100.   GETDATA KOMMENTAR
  101.   ADDRESS
  102.   F_SetFieldCont Kommentar RESULT
  103.  
  104.   ADDRESS MAM.1
  105.   SELECTNEXT
  106. END
  107.  
  108. ADDRESS FIASCO
  109. f_UnlockGUI
  110.