CCe não imprime tudo.

[Itamar M. Lins Jr.]

Ola!
Estou com esse problema aqui.

Código: Selecionar todos

FAVOR CONSIDERAR CORRECOES ABAIXO;ITEM 01 - NCM 2710.19.19 / CST 0102
 / CFOP 6102;ITEM 02 - CST 0102

Mas não imprime tudo no papel, apenas imprime linha até a CST 0102 a parte "/ CFOP 6102; ITEM 02 - CST 0102" Não vai.
O que pode ser ?
Eu troco a chr(), eol() por ";" na observação funciona, agora na CCe não está indo.

Saudações,
Itamar M. Lins Jr.

[Jairo Maia]

Itamar, a carta de correção é um texto contínuo com no máximo 500 caracteres, e não tem quebra de linha nem ";". Acho que esse é o problema.

No campo observações sim é entendido o ";" como quebra de linha.

[Itamar M. Lins Jr.]

Ola!
Difícil essa hein ?
Tinha um caractere não imprimível no texto. Não sei como ele foi para lá. Coisas de usuário.
Fui apagando um a um até chegar nele, teclava dois BACK SPACE para apagar um caractere, sempre parava nesse primeiro CST 0102. <-ESTAVA AQUI!

Saudações,
Itamar M. Lins Jr.

[rubens]

Aqui no ACBR que eu tenho sempre come o ultimo caracter da CCE daí até sair uma correção eu mando o usuário repetir o ultimo caracter...

[rochinha]

Amiguinhos,

Este último caracter que aparece no final dos textos é causado quando usamos MemoWrit().

Eu fiz minha MemoWrit() assim:

Código: Selecionar todos

Function rMemoWrit( _aquivo_, _conteudo_ )
   nHandle := fCreate( _aquivo_ )
   fWrite( nHandle, _conteudo_, LEN( _conteudo_ ) )
   fClose( nHandle )
   return .t.

Exemplo:

Código: Selecionar todos

...
   cCopyCMD := "COPY A.TXT B:\A2.TXT"
   rMemoWrit( "FILIAL.BAT", cCopyCMD )
...

[Itamar M. Lins Jr.]

Ola!
Rochinha, use hb_memowrit()

Saudações,
Itamar M. Lins Jr.

[rochinha]

Amiguinhos,

Itamar M. Lins Jr.

Ola!
Rochinha, use hb_memowrit()

Ainda uso o Harbour 0.45(Dinossáurico), mas já vou tratando de mudar o nome da minha função até que eu consiga colocar meu sistema nas ultimas versões.

Valeu!