4D Write v15
WR SAVE DOCUMENT
WR SAVE DOCUMENT
| WR SAVE DOCUMENT ( area ; documento ; tipo ) | ||||||||
| Parâmetro | Tipo | Descrição | ||||||
| area | Inteiro longo |
|
Área 4D Write | |||||
| documento | String |
|
Via de acesso do documento a salvar em disco | |||||
|
Via de acesso do documento salvado em disco | |||||||
| tipo | String |
|
Tipo de documento a salvar (4 caracteres) | |||||
|
|
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 é 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
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
Produto: 4D Write
Tema: WR Documentos
Número
89218
Modificado: 4D Write v11
4D Write - Linguagem ( 4D Write v15)
