4D Write v14

WR SAVE DOCUMENT

Página Inicial

 
4D Write v14
WR SAVE DOCUMENT

WR SAVE DOCUMENT 


 

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

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 WriteExtensã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 WriteCriadorTipo
    4D Write document4DW74WR7
    4D Write template4DW74WT7
    RTF4DW7RTF
    HTML 3.2 or 4MOSSTEXT
    ASCII PC/Mac4DW7TEXT
    ASCII unicode 8 or 16 bytes4DW7TEXT
    WordMSWDW8BN

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)

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

 
PROPRIEDADES 

Produto: 4D Write
Tema: WR Documentos
Número 89218

Este comando modifica a variável sistema OK

 
HISTÓRIA 

Modificado: 4D Write v11

 
VER TAMBÉM 

WR OPEN DOCUMENT

 
ARTICLE USAGE

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