home *** CD-ROM | disk | FTP | other *** search
/ Powerdrive 1998 September / POWERDRIVE0998.ISO / VOLLVERS / ADRESS / KORRESP.MOD < prev    next >
Text File  |  1997-03-14  |  1KB  |  69 lines
  1. ..Modul
  2. .. Datei:        korresp.mod
  3. .. Aufgabe:    korrespondenzjob starten. generiert einen report
  4. ..
  5.  
  6. PROCEDURE FehlerMeldung(S : String)
  7.  
  8.     Message(S," Fehler ", 1);
  9.  
  10. ENDPROC
  11.  
  12. PROCEDURE StarteKorrespondenz
  13.  
  14.  Vardef     nRecNo : Real;
  15.  Vardef    nRNo : Real;
  16.  
  17.     PRIMFILE(KORRESP)
  18.  
  19.     .. speichere current recno
  20.     ?GetMode = 0 / DatenSΣtze─ndern
  21.     ?GetMode = 1 / DatenSΣtze─ndern
  22.     ?GetMode = 2 / NeueDatenSΣtzeEingeben
  23.     ..WriteRec(KORRESP, nRecNo);
  24.     .. lese current korresp-record und setze in NOTE
  25.     nRecNo := RecNo(KORRESP);
  26.     ReadRec(KORRESP, nRecNo);
  27.     IF $KORRESP.Nummer=0
  28.         FehlerMeldung("Keine Korrespondenz ausgewΣhlt!");
  29.         Return
  30.     END
  31.     NOTE(STR($KORRESP.Nummer));
  32.     .. lese system-record (nur einen eintrag in system)
  33.     ReadRec(SYSTEM, 1);
  34.     .. suche eintrag in tabelle berichte anhand korrespondenzweg
  35.     nRNo := FindRec(BERICHTE, $KORRESP.Korrespondenzweg, "berbesc.ind", 1);
  36.     IF nRNo > 0
  37.        .. fⁿhre aus
  38.      ReadRec(BERICHTE, nRNo);
  39.      .. Message(Note);
  40.      RUN($BERICHTE.Berichtsname);
  41.     ELSE
  42.      FehlerMeldung("Kann Bericht " + $BERICHTE.Berichtsname + " nicht finden.");
  43.     END
  44.     .. gehe wieder zum record
  45.     ShowRec(nRecNo);
  46. ENDPROC
  47.  
  48. ..
  49. ..
  50. ..
  51.  
  52. Procedure Brief_Drucken
  53.  
  54.     StarteKorrespondenz;
  55.  
  56. Endproc
  57.  
  58. Procedure Druckerwahl
  59.  
  60.     Druckereinrichten;
  61.  
  62. Endproc
  63.  
  64. Procedure Einstellungen;
  65.  
  66.     ActivateForm("SYSTEM.Systemeinstellungen");
  67.  
  68. Endproc
  69.