USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  arq.txt para receita federal???
Ade
MACEIÓ
AL - BRASIL
ENUNCIADA !
Postada em 23/08/2004 14:55 hs            
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?
           texto.Write 1 & Space(10) & Format(gRS!DATA, "DD/MM/YYYY") & M_Livro & M_Folha & M_Matric & M_Registro & "0" & "1" & Space(30) & "10" & vbCrLf
Simplifiquei o tamanho do registro para melhor entendimento e inclusive  utilizei o final como mostra abaixo, mais não surtil efeito,
& Chr(Hex(d)) & Chr(Hex(a)) & vbCrLf
Obrigado.
T+
   
JCarlos
Pontos: 2843
PRESIDENTE PRUDENTE
SP - BRASIL
Postada em 23/08/2004 16:10 hs            
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
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página