[RESOLVIDO] Gerar aquivo RTF

Discussão em 'EMS , HCM e Totvs 11' iniciado por mpdelphi, Fevereiro 11, 2014.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. mpdelphi

    mpdelphi Membro Participativo

    Pessoal...

    preciso gerar um relatorio no formato RFT, onde tenho um layout pre definido...

    defini alguns textos do tipo #nomedocliente #cnpj #endereco

    Mais quando dou um input from no arquivo rtf e dou um replace(clinha,"#nomedocliente"), ele nao acha esse campo dentro do arquivo rtf, é como se ao gravar o arquivo rtf ele aplicasse algum tipo de compressão.

    Se eu editar o arquivo rtf e localizar #cnpj o nao ta lá :)

    Existe alguma api do ems que ja faz isso ?
    mpdelphi, Fevereiro 11, 2014
    #1
  2. fdantas

    fdantas Administrator Moderador

    O impressor de danfe é assim.
    Tenta mudar o nome de cnpj para alguma outra coisa... Ja vi isso acontecer e mudando o nome funcionava
    fdantas, Fevereiro 13, 2014
    #2
  3. don.junior

    don.junior Membro Participativo

    Certa vez, fazendo uns testes mudei o "#" por "&" e funcionou... mas a forma de substituir que usei era diferente.

    Faça um teste assim:
    AppWord:Selection:Find:Text = "&variavel".
    AppWord:Selection:Find:Replacement:Text = tabela.campo.
    AppWord:Selection:Find:Forward = True.
    AppWord:Selection:Collapse.
    AppWord:Selection:Find:Execute(,,,,,,,,,,2,,,,).

    Mais detalhes no link: http://www.4each.com.br/threads/gerar-carta-no-word.3820/#post-14268
    Créditos: eriutoncharles
    don.junior, Fevereiro 15, 2014
    #3
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página