Version 6.7 (Geändert)
WR SAVE DOCUMENT (Bereich; Dokument; Typ)
| Parameter | Typ | Beschreibung | |
| Bereich | Lange Ganzzahl | 4D Write Bereich | |
| Dokument | String | Pfadname des zu erstellenden Dokuments | |
| Pfadname des erstellten Dokuments | |||
| Typ | String | Typ des Dokuments (4 Zeichen) |
Beschreibung
Der Befehl WR SAVE DOCUMENT sichert das im 4D Write Dokument Bereich gesetzte Dokument mit dem in Dokument übergebenen Pfad.
Dokument ist der Name oder der komplette Zugriffspfad der Datei. Unter Windows müssen Sie die Dateierweiterung hinzufügen, damit der Dateityp festgelegt ist.
Beispiele:
Unter Windows oder für die Crossplattform Kompatibilität müssen Sie zwischen die Verzeichnisse einen umgekehrten Schrägstrich (\) setzen:
D:\Verzeichnis1\Verzeichnis2\Datei.4W7.
Auf Mac OS müssen Sie zwischen die Dateien einen Doppelpunkt (:) setzen:
MacintoshHD:Ordner:Dokument.
Enthält Dokument nur den Namen der Datei, sichert WR SAVE DOCUMENT das Dokument im Ordner der Datenbankstruktur.
Ist Dokument ein leerer String, zeigt WR SAVE DOCUMENT den Standard-Sichern-Dialog.
Klicken Sie im Sichern-Dialog auf die Schaltfläche Sichern, wird die Systemvariable OK auf 1 gesetzt, der Parameter Dokument erhält den kompletten Zugriffspfad der vom Benutzer gewählten Datei.
In diesem Fall gibt der Parameter Typ den Typ zurück, den der Benutzer in der DropDown-Liste gewählt hat bzw. den Dokumenttyp, wenn kein Typ gewählt wurde.
Klickt der Benutzer auf die Schaltfläche Abbrechen, gibt Dokument einen leeren String zurück, die Systemvariable OK wird auf Null (0) gesetzt.
Dateiformate lassen sich in der DropDown-Liste Typ (auf Windows) oder im Sichern-Dialog im PopUp-Menü Typ auswählen.
Es gibt folgende Dateiformate:
| Typ | Windows Endung | Datei |
| 4WR7 | .4W7 | 4D Write |
| 4WT7 | .4WT | 4D Write Vorlage |
| RTF (*) | .RTF | 4D Write RTF Dokument |
| ASCW | .TXT | Windows Textdokument |
| ASCM | .TXT | Mac OS Textdokument |
| ASCU | .TXT | Unicode Textdokument |
| HTML | .HTML | HTML Dokument |
| DOC8 | .DOC | Format Word 97 PC/Word 98 Mac |
(*) Die Abkürzung für Typ muss vier Zeichen lang sein, schreiben Sie deshalb RTF + Leerzeichen: "RTF ".
Diese Typen dienen nur zum Codieren des Dokuments. Sie entsprechen weder den Dateitypen auf Mac OS noch den Windows Endungen.
4D Write bestimmt über den Parameter Typ den geeigneten Wert für die Dateiendung unter Windows bzw. den Dateityp/creator auf MacOS:
| 4D Write Format (Windows) | Endung |
| 4D Write | .4W7 |
| RTF | .RTF |
| HTML | .HTM |
| ASCII PC/Mac | .TXT |
| ASCII unicode | .TXT |
| Word | .DOC |
Die Dateiendung richtet sich nach dem Wert des Parameters Typ, selbst wenn der Name bereits eine Endung hat. Übergeben Sie z.B. "Bericht.RTF" in Dokument und "HTML" in Typ, erhält die Datei den Namen "Bericht.HTM".
| 4D Write Format (MacOS) | Creator | Typ |
| 4D Write | 4DW7 | 4WR7 |
| RTF | 4DW7 | RTF |
| HTML(*) | MOSS | TEXT |
| ASCII PC/Mac | 4DW7 | TEXT |
| ASCII unicode | 4DW7 | TEXT |
| Word | MSWD | W8BN |
Hinweis: Der Export im Word Format unterstützt weder Bilder, egal welcher Art, noch Bullets oder Hypertext Links.
(*) 4D Write fügt beim Sichern von HTML Dateien automatisch die Endung ".html" hinzu, wenn der Name noch nicht diese Endung hat.
Beispiele
(1) Sie wollen das Dokument mit Namen 'KundeBrief' im Dateiformat von 4D Write sichern. Dieses Dokument wird im Ordner "WriteDokumente" gesichert, der auf derselben Ebene wie die Datenbankstruktur liegt:
`Erhalte kompletten Pfadnamen für die Strukturdatei der Datenbank
$Dok:=Strukturdatei
Dok:=$Dok
$long:=0
`Erhalte Position des letzten Trenners, um Strukturname aus dem
kompletten Pfadnamen zu entfernen
While((Position(":";$Dok)#0)
$Dok:=Substring($Dok;1+Position(":";$Dok);Length($Dok))
$Long:=Length($Dok)
End while
`Füge Namen für kompletten Pfadnamen des Dokuments zusammen
`Füge für Crossplattform-Verwaltung Erweiterung an Dokument an
Dok:=Substring(Dok;1;Length(Dok)-$Long)+"WriteDokumente:KundeBrief.4W7"
WR SAVE DOCUMENT(Bereich;Dok;"4WR7")
(2) Der Benutzer soll Name und Typ des zu sichernden Dokuments auswählen können. Anschließend wollen Sie die gewählten Werte erhalten:
DokName:="" DokTyp:="" WR SAVE DOCUMENT (Bereich;DokName;DokTyp) If (OK=1) ... `Verwende Werte für DokName und DokTyp End if