4D Doc Center : WR SAVE DOCUMENT

4D Write v14

WR SAVE DOCUMENT


WR SAVE DOCUMENT ( area ; documento ; tipo )

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D Write
documento	cadeia	Via de acesso do documento a salvar em disco
		Via de acesso do documento salvado em disco
tipo	cadeia	Tipo de documento a salvar (4 caracteres)
		Tipo de documento salvado (4 caracteres)

Descrição

O comando WR SAVE DOCUMENT permite guardar o documento na área 4D Write referenciada por area, utilizando a via de acesso passada em nomeArquivo.

nomeArquivo é o nome ou a via de acesso completa do arquivo documento. Em Windows, deve incluir a extensão de arquivo, com o propósito de determinar o tipo de arquivo.
Exemplos:

Em Windows ou no caso de uma gestão multiplataforma, deve incluir o caractere "\" entre os diretórios: "D:\diretorio1\diretorio2\file.4W7".
Em Mac OS, deve incluir o caractere “:” entre pastas: "MacintoshHD:pasta:documento".

Se nomeArquivo contém somente o nome do arquivo, WR SAVE DOCUMENT salva o documento na pasta de arquivo de estrutura da base.

Se nomeArquivo é uma cadeia vazia, WR SAVE DOCUMENT mostra a caixa de diálogo padrão Salvar.

Quando o usuário faz clique em Salvar (Mac OS) ou Aceitar (Windows), a variável sistema OK toma o valor 1 e a variável nomeArquivo contém o arquivo escolhido pelo usuário e a variável tipo terá seu tipo.

Se o usuário faz clique no botão Cancelar, a variável sistema OK toma o valor 0.

Em Windows, o menu Tipo oferece os formatos listados a continuação.

Por padrão, o documento é salvado em formato 4D Write. Se deseja especificar um tipo diferente, deve passar o tipo de arquivo desejado no parâmetro tipo. Um tipo se compõe de uma cadeia de 4 caracteres. Pode utilizar uma das seguintes constantes, localizadas no tema :

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

Notas:

Agregue um espaço depois de "RTF" com o propósito de obter os 4 caracteres necessários.
Deve usar a exportação HTML 3.2 se quer mostrar o documento como HTML em 4D Write (só HTML 3 é compatível com a importação em 4D Write).

Nota de compatibilidade: Por razões de compatibilidade com versões anteriores, o tipo DOC8 (Documento Word 8) também é suportado.

O parâmetro tipo se utiliza para a codificação do documento somente. Não representa a um tipo de arquivo Mac OS, nem a uma extensão de Windows.
No entanto, o parâmetro é utilizado por 4D Write para determinar o valor apropriado para a extensão de arquivo em Windows o para o criador/tipo do arquivo em Mac OS:

Windows
Formato 4D Write Extensão
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

A extensão do arquivo se define de acordo ao valor do parâmetro tipo, inclusive se o nome já conta com uma extensão. Por exemplo, se passar "Report.RTF" no parâmetro nomeArquivo "HTML" em tipo, o arquivo será chamado "report.htm".

Mac OS
Formato 4D Write Criador 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

Exemplo 1

Para salvar o documento 'LetterClient' em formato de arquivo 4D Write. Este documento será salvado na pasta "WriteDocuments" localizada no mesmo nível que o arquivo de estrutura da base:

  `Recuperação da via de acesso a estrutura

 $Doc:=Structure file

 Doc:=$Doc

 $long:=0

  `Recuperação da posição do último separador para eliminar o nome da estrutura a via de acesso

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

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

    $Long:=Length($Doc)

 End while

  `Concatenação da via de acesso para salvar o documento

  `Adicionar uma extensão ao documento permite uma gestão multi plataforma

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

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

Exemplo 2

Você quer dar ao usuário a possibilidade de escolher o nome e tipo de documento a salvar. Depois, deseja recuperar os valores escolhidos:

 DocName:=""

 DocType:=""

 WR SAVE DOCUMENT(Area;NomDoc;TipoDoc)

 If(OK=1)

    ... `Utilizando os valores de NomDoc e TipoDoc

 End if