/* $VER: Export_MFax_AktEintr.adm 1.1 (15.11.95)

exportiert den aktuellen Eintrag in eine Importdatei
für Multifax v 4.0a

von Bernd Stange

*/

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


OPTIONS RESULTS

ADDRINMEM

dir   = "ram:"
title = "Telefonbuch abspeichern"
file  = "Adressen.DAT"
ok    = "Speichern"

filename = rtfilerequest(dir,file,title,ok)
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

  GETADDRESS ADM

IF ADM.SORT = "COMPANY" THEN DO
            NAME = ADM.COMPANY
         END
         ELSE DO
            NAME = ADM.LASTNAME
         END

IF ADM.FAX = "" THEN DO
  text =  '"' || NAME || '","' || ADM.firstname || '","' || LEFT( ADM.REMARK1,20) || '","' || ADM.TELEPHONE || '","' || ADM.ADDRESS1 || '","' || ADM.POSTCODE ADM.city || '"'
END

ELSE DO
text =  '"' || NAME || '","' || ADM.firstname || '","' || LEFT( ADM.REMARK1,20) || '","' || ADM.FAX || '","' || ADM.ADDRESS1 || '","' || ADM.POSTCODE ADM.city || '"'
END
 ok = WRITELN(file,text);
ok = Close(file)