/* Name:    Adreßmanager-Konvert.rexx 11.2.96 */
/* Version: 1.0
   Autor:   Martin Steigerwald

   Kopiere Magic-Adreßmanager-Datenbasis in ein Fiasco-Projekt
   Achtung, die entsprechenden FeldIDs müssen vorhanden sein oder
   angepaßt werden.

   Sollte ein Feld in Adreßmanager leer sein, gibts Fehlermeldungen,
   die das Skript allerdings nicht daran hindern, seine Arbeit zu tun.
   Wer diese Meldungen nicht sehen will, startet mit >NIL:.

   Keinerlei Fehlerabfrage! MAM3 und Fiasco müssen gestartet,
   die MAM3 Datenbasis und das Fiasco-Projekt geladen sein, bevor man
   das Skript startet. (hey, das Teil ist ein ner halben Stunde
   entstanden, die längste Zeit hab ich dafür gebraucht, um
   herauszufinden, wie ein paar dieser ARexx-Befehle funktionieren :-)

   Das GUI von FIASCO wird während der Skriptausführung gesperrt. Sollte
   jemand in die Lage kommen, das Skript durch CTRL-C stoppen zu müssen,
   so geht dies mit: rx "address FIASCO f_UnlockGUI"

   Konvertierzeit: 154 Addressen in 2:22 Minuten auf einem
                   Amiga 4000/EC030 18MB, CyberVision 2MB
*/

Say "Konvertiere Datenbasis..."

OPTIONS RESULTS

ADDRESS FIASCO
F_LockGUI

ADDRESS MAM.1
GETNUM TOTAL
anzahl=RESULT

SELECTFIRST

DO i = 1 TO anzahl
  ADDRESS FIASCO
  F_AddRecord

  ADDRESS
  GETDATA NAME
  ADDRESS
  F_SetFieldCont Name RESULT

  ADDRESS
  GETDATA VORNAME
  ADDRESS
  F_SetFieldCont Vorname RESULT

  ADDRESS
  GETDATA STRASSE
  ADDRESS
  F_SetFieldCont 'Straße' RESULT

  ADDRESS
  GETDATA PLZ
  ADDRESS
  F_SetFieldCont PLZ RESULT

  ADDRESS
  GETDATA ORT
  ADDRESS
  F_SetFieldCont Ort RESULT

  ADDRESS
  GETDATA LAND
  ADDRESS
  F_SetFieldCont Land RESULT

  ADDRESS
  GETDATA GEBURTSTAG
  ADDRESS
  F_SetFieldCont Geburtstag RESULT

  ADDRESS
  GETDATA TEL
  ADDRESS
  F_SetFieldCont Telefon RESULT

  ADDRESS
  GETDATA FAX
  ADDRESS
  F_SetFieldCont Fax RESULT

  ADDRESS
  GETDATA EMAIL1
  ADDRESS
  F_SetFieldCont Email RESULT

  ADDRESS
  GETDATA EMAIL2
  ADRESS
  F_SetFieldCont Email2 RESULT

  ADDRESS
  GETDATA KOMMENTAR
  ADDRESS
  F_SetFieldCont Kommentar RESULT

  ADDRESS MAM.1
  SELECTNEXT
END

ADDRESS FIASCO
f_UnlockGUI