4D Write v14

WR SET DOCUMENT INFO

Home

 
4D Write v14
WR SET DOCUMENT INFO

WR SET DOCUMENT INFO 


 

WR SET DOCUMENT INFO ( Bereich ; Titel ; Betreff ; Autor ; Firma ; Notizen ) 
Parameter Typ   Beschreibung
Bereich  Lange Ganzzahl in 4D Write Bereich
Titel  String in Titel des Dokuments
Betreff  String in Betreff des Dokuments
Autor  String in Autor des Dokuments
Firma  String in Firmenname
Notizen  Text in Kommentar

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.

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

 
EIGENSCHAFTEN 

Produkt: 4D Write
Thema: WR Dokumente
Nummer: 89488

 
GESCHICHTE 

Erstellt: 4D Write 6.5

 
SIEHE AUCH 

WR GET DOCUMENT INFO

 
ARTIKELVERWENDUNG

4D Write Programmiersprache ( 4D Write v11.6)
4D Write Programmiersprache ( 4D Write v12)
4D Write Programmiersprache ( 4D v13)
4D Write Programmiersprache ( 4D Write v14 R2)
4D Write Programmiersprache ( 4D Write v14)
4D Write Programmiersprache ( 4D Write v14 R3)
4D Write Programmiersprache ( 4D Write v14 R4)