[RESOLVIDO] Duplicata Mercantil, é possível?

Achei o problema, é o RTF, tem binario e o progress não gostou, então vc vai ter que fazer diferente:

Código:

define variable linha as character no-undo.
define stream entrada.
define stream saida.

find first tit_acr no-lock no-error.



input  stream entrada from value ('c:\temp\duplicata.rtf').
output stream saida to value (substitute('c:\temp\duplicata&1&2.rtf', tit_acr.cod_tit_acr, tit_acr.cod_parcela)).

repeat:
    import stream entrada unformatted linha.
    assign linha = replace(linha,'#ValorFatura',string(tit_acr.val_liq_tit_acr,'>>>,>>>,>>9.99')).
    assign linha = replace(linha,'#NumeroFatura',string(tit_acr.cod_tit_acr,'x(40)')).
    assign linha = replace(linha,'#ValorDuplicata',string(tit_acr.val_liq_tit_acr,'>>>,>>>,>>9.99')).
    assign linha = replace(linha,'#NumeroDuplicata',string(tit_acr.cod_tit_acr,'x(40)')).
    assign linha = replace(linha,'#Vencimento',string(tit_acr.dat_vencto_tit_acr,'99/99/9999')).
    assign linha = replace(linha,'#DataEmissao',string(tit_acr.dat_emis_docto,'99/99/9999')).

    put stream saida unformatted linha.
end.

output stream saida   close.
input  stream entrada close.

Hehehe, a moda antiga ...... só fiquei na duvida se precisa depois to put colocar skip ou não, experimenta, eu acho que não precisa.

meu caro, depois que gerou o rtf, vc não sabe o que fazer com ele ????? esse trecho de programa é só pra vc ter uma idéia de como vc vai criar o seu programa.

mas ai vai muito codigo pra virar um programa pra entrar em produção.