Olá,

     Alguém poderia me ajudar mandando ou postando como gerar uma linha de uma arquivo txt para a receita federal? pois, estou gerando a partir do VB6, informações para um arquivo texto que será lido pelo programa da receita federal chado DOI, ocorre que chego a gerar o tal arquivo pelo layout solicitado, mais neste layout é solicitado que o  caractere que deve ser usado para "line feed" (mudança de linha) é o 0D0A (zero d zero a) ; estou usando o comando abaixo para gerar o registro com tal caracter de retorno, mais quando vou importar o arquivo no programa da receita da a mensagem de registro incompativel, ou seja, é como se não conseguisse lê os registros, alguém poderia me ajudar?

Coloque no módulo:

Type Registro1
   tpRegistro As String * 1
   cdSIAFEM As String * 10
   nmOrgao As String * 60
   dsFiller As String * 183
   resto As String * 2
End Type
Public Reg1 As Registro1

Coloque no Form:

for i = 1 to 10 

   Open "C:ArquivosArqReceita.txt" For Random As 1 Len = Len(Reg1)
   Reg1.cdSIAFEM = "       001"
   Reg1.dsFiller = ""
   Reg1.tpRegistro = "1"
   Reg1.nmOrgao = BuscaNomeEmpresa(gUnidGestora)
   Reg1.resto = vbCrLf
   Put #1, i, Reg1
next i

 

Espero ter ajudado