home *** CD-ROM | disk | FTP | other *** search
/ Powerdrive 1998 September / POWERDRIVE0998.ISO / VOLLVERS / ADRESS / KORSBRF.JOB < prev    next >
Text File  |  1997-04-25  |  1KB  |  65 lines
  1. .Report
  2. ..Datei:
  3. .. korrespd
  4. ..Beschreibung:
  5. .. serienbrief
  6.  
  7. ..
  8. .Prolog
  9. .PO 5, PW 80, PL 70, MT 3, FF 1
  10. .PrimΣrdatei ADRESSEN
  11. .Def Linie=xMal("-",65)
  12. .selektion $KORRESP.Nummer = Val(Note)
  13. ..wohin _$SYSTEM.Wohin
  14. .Daten
  15. $(BOLD(1) SYSTEM.Name BOLD(0))
  16. .falls $SYSTEM.Name2 <> ""
  17. $SYSTEM.Name2
  18. .ende
  19. .falls $SYSTEM.Name3 <> ""
  20. $SYSTEM.Name3
  21. .ende
  22. $SYSTEM.Strasse
  23. $SYSTEM.Plz $SYSTEM.Ort
  24. .falls $SYSTEM.Tel <> ""
  25. Tel:$SYSTEM.Tel
  26. .ende
  27. .falls $SYSTEM.Fax <> ""
  28. Fax:$SYSTEM.Fax
  29. .ende
  30. .falls $SYSTEM.EMail <> ""
  31. eMail:$SYSTEM.EMail
  32. .ende
  33. .falls $Adressen.KundenNr <> ""
  34. KundenNr.: $ADRESSEN.KundenNr
  35. .ende
  36.  
  37. $(" ":40 + $SYSTEM.Ort + ", " + $heute////)
  38. $SYSTEM.KorrespondenzAn
  39. .falls $ADRESSEN.Vorname <> ""
  40. $ADRESSEN.Vorname $ADRESSEN.Name
  41. .sonst
  42. $ADRESSEN.Name
  43. .ende
  44. $ADRESSEN.Strasse
  45. .falls $ADRESSEN.Postfach <> ""
  46. Postfach $ADRESSEN.Postfach
  47. .ende
  48. $(ADRESSEN.Land)-$ADRESSEN.Plz $ADRESSEN.Ort
  49.  
  50.  
  51. .falls $SYSTEM.KorrespondenzBetreff  <> ""
  52. $SYSTEM.KorrespondenzBetreff $KORRESP.Betreff
  53. .ende
  54.  
  55. .falls $ADRESSEN.Anrede <> ""
  56. $ADRESSEN.Anrede
  57. .ende
  58.  
  59. $KORRESP.Text
  60.  
  61.  
  62. $SYSTEM.Gruss1
  63. $SYSTEM.Gruss2
  64.  
  65.