/* $VER: WordWorth_Export.adm 1.0 (31.5.95)

   Exportiert Daten für WordWorth

   In das Dokument müssen, um die Daten einfügen zu lassen, folgende
   Kürzel verwendet werden:

   «Firma»
   «Anrede»
   «Briefanrede» ("Sehr geehrt«Briefanrede» «Anrede» «Nachname»" ergibt korrekte Anrede)
   «Vorname»
   «Nachname»
   «Adresse1»
   «Adresse2»
   «PLZ»
   «Ort»
   «Telefon»
   «Fax»
   «EMail»

   Desweiteren muß "Komma" als Trennzeichen in WordWorth3 angegeben werden.

   von Jan Geißler.
*/

OPTIONS RESULTS

ACTIVATEFIRST
ADDRINMEM
anzahl = RESULT


/* RexxReqTools-Library öffnen */

reqname = "rexxreqtools.library"
if ~show("L", reqname) then
  if ~addlib(reqname, 0, -30, 0) then do
     say reqname "not found!"
     EXIT
  end


/* Filename-Filerequester */

dir     = "ram:"
rqtitle = "WordWorth-Serienbriefdatei abspeichern"
file    = "Adressen.csv"
ok      = "Speichern"
rqflags = "rtfi_flags=freqf_save"

filename = rtfilerequest(dir,file,rqtitle,ok,rqflags,)
if filename = "" then do
  call rtezrequest("Keine Datei ausgewählt", "Abbruch")
  EXIT
end

IF ~OPEN(file,filename,"W") THEN DO   /* Ausgabedatei öffnen     */
   SAY "Kann Ausgabedatei nicht öffnen!"
   EXIT
END

dd = "09"x

text = "Firma" || dd || "Anrede" || dd || "Briefanrede" || dd || "Vorname" || dd || "Nachname" || dd || "Adresse1" || dd || "Adresse2" || dd || "PLZ" || dd || "Ort" || dd || "Telefon" || dd || "Fax" || dd || "EMail"
ok = WRITELN(file,text)

DO FOR anzahl

  GETADDRESS ADM

  IF ADM.salutation = "Herrn" THEN DO
     salute = "er";
     ADM.salutation = "Herr"
  END
  ELSE IF ADM.salutation = "Frau" THEN salute = "e"
  ELSE salute = ""

  text = ADM.company || dd || ADM.salutation || dd || salute || dd || ADM.firstname || dd || STRIP( ADM.title ADM.lastname) || dd || ADM.address1 || dd || ADM.address2 || dd || ADM.postcode || dd || ADM.city || dd || ADM.telephone || dd || ADM.fax || dd || ADM.email1
  ok = WRITELN(file,text)

  ACTIVATENEXT

END

ok = Close(file)