4D Doc Center : WR SET DOCUMENT INFO

Home

4D Write v14

WR SET DOCUMENT INFO


WR SET DOCUMENT INFO ( Bereich ; Titel ; Betreff ; Autor ; Firma ; Notizen )

Parameter	Typ	Beschreibung
Bereich	Lange Ganzzahl	4D Write Bereich
Titel	String	Titel des Dokuments
Betreff	String	Betreff des Dokuments
Autor	String	Autor des Dokuments
Firma	String	Firmenname
Notizen	Text	Kommentar

Beschreibung

Der Befehl WR SET DOCUMENT INFO speichert im Dokument die in den Parametern übergebene Information. Auf der Benutzerseite sehen Sie diese Information im Dialog Dokumentinformation. Er erscheint, wenn Sie im Menü Werkzeuge den Befehl Dokument-Informationen wählen.

Mit dem Befehl WR LOCK DOCUMENT verwalten Sie den Sperrstatus des Dokuments.

Beispiel

Sie wollen nur die Information Titel, Betreff und Notizen für den Benutzer eingebbar machen. Dafür installieren Sie eine Methode zum Abfangen eines Menübefehls. Wählt der Benutzer im Menü Werkzeuge den Befehl Dokument-Informationen, erscheint dann Ihr eigenes Formular.

1. Sie installieren in der Formularmethode des Formulars mit dem 4D Write Bereich eine Methode zum Abfangen eines Menübefehls:

 Case of

    :(Form event=On Load)

       WR ON COMMAND(WBereich;"z65OnCmd")

 End case

2. Die Methode 'z65OnCmd' lautet:

 C_LONGINT($1;$2;$3)

 Case of

    :($2=wr cmd doc information) `=801, wählt der Benutzer

       Werkzeuge>Dokument-Informationen

       DIALOG([Tabelle];"InfoBereich") `Eigenes Informationsformular

    Else

       WR EXECUTE COMMAND($1;$2) `Wählt der Benutzer anderen Menübefehl

 End case

3. Im eigenen Formular mit Namen "InfoBereich" sind nur die Variablen vTitel, vBetreff und vKommentar eingebbar. Die Methode für dieses Formular lautet:

 Case of

    :(Form event=On Load)

       WR GET DOCUMENT INFO

       (WBereich;vTitel;vBetreff;vAutor;vCy;vKommentar;DCreat;HErstell;DÄndern;

       HÄndern;Sperren)

  `Bei Bedarf weisen Sie die leeren Elemente zu

       If(vCy="")

          vCy:="A.C.I."

          vAutor:=aktueller Benutzer

          vErstellen:=String(DErstell)+" at "+Time string(HErstell)

          vÄndern:=String(DÄndern)+" at "+Time string(HÄndern)

       End if

    :(Form event=On Unload) `Wenn das Formular geschlossen wird

       WR SET DOCUMENT INFO(WBereich;vTitel;vBetreff;vAutor;vCy;vKommentar)

 End case