4D Doc Center : WR SAVE DOCUMENT

4D Write v14

WR SAVE DOCUMENT


WR SAVE DOCUMENT ( area ; doc ; tipo )

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D Write
doc	Cadena	Ruta de acceso del documento a guardar en disco
		Ruta de acceso del documento guardado en disco
tipo	Cadena	Tipo de documento a guardar (4 caracteres)
		Tipo de documento guardado (4 caracteres)

Descripción

El comando WR SAVE DOCUMENT permite guardar el documento en el área 4D Write referenciada por area, utilizando la ruta de acceso pasada en nomArchivo.

nomArchivo es el nombre o la ruta de acceso completa del archivo documento. En Windows, debe incluir la extensión de archivo, con el fin de determinar el tipo de archivo.
Ejemplos:

En Windows o en el caso de una gestión multiplataforma, debe incluir el carácter "\" entre los directorios: "D:\directorio1\directorio2\file.4W7".
En Mac OS, debe incluir el carácter “:” entre carpetas: "MacintoshHD:carpeta:documento".

Si nomArchivo contiene sólo el nombre del archivo, WR SAVE DOCUMENT guarda el documento en la carpeta de archivo de estructura de la base.

Si nomArchivo es una cadena vacía, WR SAVE DOCUMENT muestra la caja de diálogo estándar Guardar.

Cuando el usuario hace clic en Guardar (Mac OS) o Aceptar (Windows), la variable sistema OK toma el valor 1 y la variable nomArchivo contendrá el archivo elegido por el usuario y la variable tipo contendrá su tipo.

Si el usuario hace clic en el botón Cancelar, la variable sistema OK toma el valor 0.

En Windows, el menú Tipo ofrece los formatos listados a continuación.

Por defecto, el documento se guarda en formato 4D Write. Si desea especificar un tipo diferente, debe pasar el tipo de archivo deseado en el parámetro tipo. Un tipo se compone de una cadena de 4 caracteres. Puede utilizar una de las siguientes constantes, ubicadas en el tema WR Tipos de documentos:

Constante	Tipo	Valor
wr 4D Write document	Cadena	4WR7
wr 4D Write template	Cadena	4WT7
wr HTML 3 document	Cadena	HTM3
wr HTML 4 document	Cadena	HTML
wr Macintosh text document	Cadena	ASCM
wr RTF document	Cadena	RTF
wr unicode document UTF16	Cadena	ASCU
wr unicode document UTF8	Cadena	ASC8
wr Windows text document	Cadena	ASCW

Notas:

Añada un espacio después de "RTF" con el fin de obtener los 4 caracteres necesarios.
Debe usar la exportación HTML 3.2 si quiere mostrar el documento como HTML en 4D Write (sólo HTML 3 es compatible con la importación en 4D Write).

Nota de compatibilidad: por razones de compatibilidad con versiones anteriores, el tipo DOC8 (Documento Word 8) también es soportado.

El parámetro tipo se utiliza para la codificación del documento solamente. No representa a un tipo de archivo Mac OS, ni a una extensión de Windows.
Sin embargo, el parámetro es utilizado por 4D Write para determinar el valor apropiado para la extensión de archivo en Windows o para el creador/tipo del archivo en Mac OS:

Windows
Formato 4D Write Extensión
4D Write document .4W7
4D Write template .4WT
RTF .RTF
HTML 3.2 or 4 .HTM
ASCII PC/Mac .TXT
ASCII unicode 8 or 16 bytes .TXT
Word .DOC

La extensión del archivo se define de acuerdo al valor del parámetro tipo, incluso si el nombre ya cuenta con una extensión. Por ejemplo, si pasa "Report.RTF" en el parámetro nomArchivo "HTML" en tipo, el archivo se llamará "report.htm".

Mac OS
Formato 4D Write Creador Tipo
4D Write document 4DW7 4WR7
4D Write template 4DW7 4WT7
RTF 4DW7 RTF
HTML 3.2 or 4 MOSS TEXT
ASCII PC/Mac 4DW7 TEXT
ASCII unicode 8 or 16 bytes 4DW7 TEXT
Word MSWD W8BN

Ejemplo 1

Para guardar el documento 'LetterClient' en formato de archivo 4D Write. Este documento se guardará en la carpeta "WriteDocuments" ubicada en el mismo nivel que el archivo de estructura de la base:

  `Recuperación de la ruta de acceso a la estructura

 $Doc:=Structure file

 Doc:=$Doc

 $long:=0

  `Recuperación de la posición del último separador para eliminar el nombre de la estructura a la ruta de acceso

 While((Position(":";$Doc)#0)

    $Doc:=Substring($Doc;1+Position(":";$Doc);Length($Doc))

    $Long:=Length($Doc)

 End while

  `Concatenación de la ruta de acceso para guardar el documento

  `Añadir una extensión al documento permite una gestión multi plataforma

 Doc:=Substring(Doc;1;Length(Doc)-$Long)+"WriteDocuments:LetterClient.4W7"

 WR SAVE DOCUMENT(Area;doc;wr 4D Write document)

Ejemplo 2

Usted quiere dar al usuario la posibilidad de elegir el nombre y tipo de documento a guardar. Luego, desea recuperar los valores elegidos:

 DocName:=""

 DocType:=""

 WR SAVE DOCUMENT(Area;NomDoc;TipoDoc)

 If(OK=1)

    ... `Utilizando los valores de NomDoc y TipoDoc

 End if