Problemas na geração de arquivos txt

[vagner_cip]

Olá amigos.


Tenho um sistema que gera arquivos txt para a importação em outro banco de dados. São criados 5 arquivos diferentes todos começando na linha 0 e coluna 0. Eu utilizo o o comando set printer to "nomearquivo.txt" e mando imprimir o banco de dados, após feito o primeiro arquivo, abro o próximo dbf e mando imprimir novamente em outro "TXT", só que neste ´próximo ele pula 2 linhas para começar a imprimir, oque eu estou fazendo de errado !, e o que eu posso fazer para resolver isso.


Agradeço pelo atenção.


Vagner Silva - SP

[Cleiton Fidelis]

Por acaso, dentre estes 5 arquivos, somente um pula duas linhas ? Ou toda vez que se muda o Banco de Dados pula Duas Linhas ?

Pode ser registro em branco.

Cole o pedaco do fonte para analisar-mos.

Cleiton Fidelis
Divinopolis MG

[vagner_cip]

ele pula 2 linhas nos 4 últimos, só no 1º que não

Código: Selecionar todos

  set device to print
   set printer to "E_NOTA.TXT"   

      L=0

      sele 1
      go top
 
   do while ! EOF()

      rnf01 = ind_reg
      rnf02 = tipo_doc
      rnf03 = serie_doc
      rnf04 = num_doc

   @ L,0   say rnf01
   @ l,3   say rnf02
   @ l,8   say rnf03
   @ l,13  say rnf04

   l=l+1
   skip
enddo
SET DEVICE TO SCREEN
SET PRINTER OFF  



  set device to print
   set printer to "E_NOTA2.TXT"   

      L=0

      sele 2
      go top
 
   do while ! EOF()

      rnf01 = ind_reg
      rnf02 = tipo_doc
      rnf03 = serie_doc
      rnf04 = num_doc

   @ L,0   say rnf01
   @ l,3   say rnf02
   @ l,8   say rnf03
   @ l,13  say rnf04

   l=l+1
   skip
enddo
SET DEVICE TO SCREEN
SET PRINTER OFF

[Toledo]

Vagner,

Tente trocar os comandos SET PRINTER OFF por SET PRINTER TO, e coloque eles antes dos comandos SET DEVICE TO SCREEN.

Abraços,

[Jorge Adourian]

No inicio de cada TXT, quando colocar L=0, coloque antes a linha SETPRC(0,0) para zerar o posicionador de impressão do Clipper.

[vagner_cip]

No inicio de cada TXT, quando colocar L=0, coloque antes a linha SETPRC(0,0) para zerar o posicionador de impressão do Clipper.

-:]



Valeu Jorge deu certo, obrigado.