home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / anwender / callman / export / callman-export.adm
Encoding:
Text File  |  1997-09-07  |  2.1 KB  |  89 lines

  1. /* $VER: CallMan-Export.adm 1.0 (07.09.97)
  2.  
  3. von Alexander 'Sascha' Fichtner
  4. (basierend auf dem "Ex-Import.asm" Modul
  5.  von Bernd Stange)
  6.  
  7.  
  8. Exportiert Datensätze von ADM ins CallMan-Format
  9.  
  10. "CallMan" findet man im Aminet, Verzeichnis "comm/misc".
  11.  
  12. */
  13.  
  14. /***************************************************************/
  15. Ver = 'CallMan-Export.adm 1.0'
  16.  
  17.  
  18. ADDRESS 'ADM.1'
  19.  
  20. OPTIONS RESULTS
  21.  
  22.  
  23. IF ~SHOW(LIBRARIES,'rexxsupport.library') THEN
  24.    IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN
  25.       EXIT 10
  26.  
  27. IF ~SHOW(LIBRARIES,'rexxreqtools.library') THEN
  28.    IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN
  29.       EXIT 10
  30.  
  31.  
  32. IF ~SHOW(PORTS,'ADM.1') THEN DO
  33.    SAY 'Bitte erst AdressMaster starten !'
  34. EXIT
  35. END
  36.  
  37.  
  38.  
  39.    Flag = 'rtez_flags = ezreqf_centertext'
  40.      NL = "0a"x
  41.   Titel = Ver
  42.  Gadget = 'Exportieren|Abbruch'
  43. Reqtext = 'A C H T U N G :',
  44.           || NL || 'In dieser Version werden alle Einträge',
  45.           || NL || 'aus dem Bemerkungs-Feld ignoriert !'
  46. Auswahl = rtezrequest(Reqtext,Gadget,Titel,Flag)
  47.  
  48. IF Auswahl = 0 THEN CALL Ende
  49. IF Auswahl = 1 THEN CALL Exportieren
  50.  
  51.  
  52. Exportieren:
  53. ADDRINMEM
  54. numadr = RESULT
  55. IF numadr = 0 THEN DO
  56. call rtezrequest('Keine Datensätze gefunden !', "OK")
  57. EXIT
  58. END
  59. filename = rtfilerequest("","","Export-Datei speichern","Exportieren!",'rtfi_flags=freqf_save',)
  60.  
  61. IF ~OPEN(datei,filename,"W") THEN DO
  62.    SAY "Kann die Datei nicht öffnen!"
  63. EXIT
  64. END
  65. /* Zeile = WriteLn(datei,'Importdatei')*/
  66. ADDRINMEM
  67. numadr = RESULT
  68. ACTIVATEFIRST
  69. DO FOR numAdr
  70. GETADDRESS ADM
  71. Zeile = WriteLn(datei,adm.SALUTATION || NL || adm.LASTNAME || NL || ,
  72.                       adm.FIRSTNAME || NL ||  adm.TITLE || NL || ,
  73.                       adm.COMPANY || NL ||,
  74.                       adm.ADDRESS1 || NL ||  adm.ADDRESS2 || NL || ,
  75.                       adm.POSTCODE || NL ||  adm.CITY || NL || ,
  76.                       adm.COUNTRY || NL ||  adm.BIRTHDAY || NL || ,
  77.                       adm.TELEPHONE || NL ||  adm.FAX || NL || ,
  78.                       adm.EMAIL1 || NL || adm.EMAIL2 || NL || adm.ID)
  79.  
  80. ACTIVATENEXT
  81. END
  82. call rtezrequest('Es wurden "' || numadr || '" Datensätze in die Datei "' || filename || '" exportiert !', "OK")
  83. CALL Ende
  84.  
  85.  
  86. Ende:
  87. CALL CLOSE(Datei)
  88. EXIT
  89.