home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / adm / arexx / adm-arexxmakros.lha / Ausdruck / DruckeAlpha.adm < prev    next >
Text File  |  1996-08-08  |  2KB  |  91 lines
  1. /* $VER: DruckeAlphaADRV1.adm 1.0 (25.7.96)
  2.    
  3.    Copyright 1996
  4.  
  5.    Druckt alphabetische Adreßliste (1 Zeile/Adresse).
  6.    Für ADM. 
  7.    
  8.    1.3: DATUM()-Funktion nun im Makro enthalten. (Jan Geissler)
  9.    
  10. */
  11. OPTIONS RESULTS
  12.  
  13. Kopfzeile='Alphabetisches Adressenverzeichnis 1(Hier kann der Dateiname stehen)'
  14. Kopfzeile=OVERLAY(DATUM(),Kopfzeile,87)
  15.  
  16. InitDrucker='#1p"zwwq'
  17. ExitDrucker=' '
  18.  
  19. MaxID=0
  20. Activatefirst
  21.  
  22. IF 1=OPEN('Drucker','PRT:','W') THEN
  23. DO
  24.    len=WRITEln('Drucker',InitDrucker||Kopfzeile)
  25.    len=WRITEln('Drucker','')
  26.    DO FOREVER
  27.       GETADDRESS Adresse
  28.       if RESULT=-1 then leave
  29.    
  30.       /*say Adresse.company Adresse.id Adresse.flags*/
  31.       Zeile=Adresse.company
  32.       Zeile=OVERLAY(" "||Adresse.Address1,Zeile,28)
  33.       Zeile=OVERLAY(" "||Adresse.Postcode,Zeile,56)
  34.       Zeile=OVERLAY(" "||Adresse.City,Zeile,62)
  35.       Zeile=OVERLAY(" "||Adresse.Telephone,Zeile,80)
  36.       Zeile=OVERLAY(" "||Adresse.Fax,Zeile,110)
  37.       /*say Zeile*/
  38.  
  39.       len=writeln('Drucker',Zeile)
  40.    
  41.       ACTIVATENEXT
  42.       if RESULT=-1 then leave
  43.    END
  44.    len=WRITECH('Drucker',ExitDrucker)
  45.    len=CLOSE('Drucker')
  46. END
  47. ELSE
  48.    say "Konnte Drucker nicht öffnen."
  49.  
  50. EXIT
  51.  
  52. /* 
  53.    Unterprogramm zur Erzeugung des aktuellen Datums in deutscher Sprache
  54. */
  55.  
  56. DATUM:
  57.  
  58.    datum=date(sorted)
  59.  
  60.    year=left(datum,4)
  61.    month=substr(datum,5,2)
  62.    day=substr(datum,7,2)
  63.  
  64.    if(month=1)then
  65.       monthname="Januar"
  66.    else if(month=2)then
  67.       monthname="Februar"
  68.    else if(month=3)then
  69.       monthname="März"
  70.    else if(month=4)then
  71.       monthname="April"
  72.    else if(month=5)then
  73.       monthname="Mai"
  74.    else if(month=6)then
  75.       monthname="Juni"
  76.    else if(month=7)then
  77.       monthname="Juli"
  78.    else if(month=8)then
  79.       monthname="August"
  80.    else if(month=9)then
  81.       monthname="September"
  82.    else if(month=10)then
  83.       monthname="Oktober"
  84.    else if(month=11)then
  85.       monthname="November"
  86.    else if(month=12)then
  87.       monthname="Dezember"
  88.  
  89.  
  90.    RETURN right((0+day)||". "||monthname||" "||year,18)
  91.