[Resolvido] Geração de Arquivo TXT para NF-e (TecnoSpee

[FVIEIRAS 2]

Boa tarde amigos,

 

Pelo que vi, vou levar um tempo para desenvolver a ferramenta para emissão de NF-e para trabalhar junto com nosso ERP e não tenho prazo, sendo assim, vou utilizar uma ferramenta pronta para que eu possa trabalhar por enquanto.

A única coisa que preciso fazer é com que meu ERP gere um arquivo TXT para essa ferramenta realizar os processos junto ao SEFAZ.

 

Alguém tem um modelo de código para VB6 para eu da tela de emissão de NF do nosso ERP gerar esse arquivo TXT?

 

Abraço,

[Claudio Neto 3]

Olá, veja se isso te ajuda:

 

Dim fso As New FileSystemObject
Dim arquivo As File
Dim arquivoLog As TextStream
Dim msg As String

If Not fso.FolderExists(App.Path & "\logdeerros") Then
    fso.CreateFolder (App.Path & "\logdeerros")
End If

'se o arquivo não existir então cria
If fso.FileExists(App.Path & "\logdeerros\logerro_" & Format(Date, "yyyy_mm_dd") & ".log") Then
   Set arquivo = fso.GetFile(App.Path & "\logdeerros\logerro_" & Format(Date, "yyyy_mm_dd") & ".log")
Else
   Set arquivoLog = fso.CreateTextFile(App.Path & "\logdeerros\logerro_" & Format(Date, "yyyy_mm_dd") & ".log")
   arquivoLog.Close
   Set arquivo = fso.GetFile(App.Path & "\logdeerros\logerro_" & Format(Date, "yyyy_mm_dd") & ".log")
End If

'prepara o arquivo para anexa os dados
Set arquivoLog = arquivo.OpenAsTextStream(ForAppending)

'monta informações para gerar a linha com erro
msg = "Foi gerado um erro"

' inclui linhas no arquivo texto
arquivoLog.WriteLine msg
' escreve uma linha em branco no arquivo - se voce quiser
'arquivoLog.WriteBlankLines (1)

'fecha e libera o objeto
arquivoLog.Close
Set arquivoLog = Nothing
Set fso = Nothing

Usso isso para gerar log de erro, mas adaptando acredito que dê para você usar para o que precisa.

 

Abraços.

[FVIEIRAS 2]

Vou tentar usar, porém vou verificar se alguém sabe como fazer para NF-e.

[FVIEIRAS 2]

Olá amigos,

 

Estou contratando o TecnoSpeed Manager NF-e para que ele faça o gerenciamento das NF-e que meu ERP emita sem muitas alterações.

Meu ERP somente tem que gerar um arquivo TXT e salvar em uma pasta para ele funcionar e fazer o resto.

Alguém poderia me ajudar dizendo como faço isso? Se tiver alguém que já usa ele ou outro parecido e pudesse me ajudar seria interessante.

 

Obrigado,

[scorpio 7]

Uni os dois tópicos que você criou já que tratam do mesmo assunto.

 

Provavelmente esse arquivo que você gerar deve ter algum layout. Veja como é esse layout, entre em contato com o fornecedor.

[FVIEIRAS 2]

Obrigado por unir os itens...

Procurei onde apagava o outro mas não encontrei...

 

Então, procurei o fornecedor mas eles não dão suporte ao VB, para a criação deste arquivo TXT. Eles somente dão suporte no software deles.

 

Preciso saber como criar o TXT, daí eu adapto ao layout deles.

[scorpio 7]

OK.

 

Entendeu esse trecho que o Claudio postou?

 

Dê uma olhada:

Dim fso As New FileSystemObject
Dim arquivo As File
Dim arquivoLog As TextStream


Function InicFile(source As String) As TextStream
    If fso.FileExists(source) Then
       Set arquivo = fso.GetFile(source)
    Else
       Set arquivoLog = fso.CreateTextFile(source)
       arquivoLog.Close
       Set arquivo = fso.GetFile(source)
    End If
    Set arquivoLog = arquivo.OpenAsTextStream(ForAppending)
    Set fso = Nothing
    Set InicFile = arquivoLog
End Function

Sub AddTextToStream(arq As TextStream, msg As String)
    arq.WriteLine msg
End Sub

Private Sub Command1_Click()
    AddTextToStream arquivoLog, "lokokoK"
End Sub

Private Sub Form_Load()
    Set arquivoLog = InicFile("C:\Users\Lucas\Documents\text.txt")
End Sub

Peguei o código dele e adaptei.

Cria um projeto novo e adiciona uma referencia, Microsoft Scripting Runtime.

-> Chama a funcão InicFile pra cria o arquivo de texto (se existir ele vai continuar escrevendo no mesmo, sem apagar)

-> Cada vez que você chamar a Sub AddTextToStream vai adicionar uma linha com a mensagem que você passar de parâmetro.

 

 

Se não der certo dá um toque.

 

 

 

To muito bonzinho hoje... deve ser por que é sexta!

[FVIEIRAS 2]

Olá, deu certo a geração do arquivo...

 

Agora só vou tentar criar para o modelo do TecnoSpeed Manager para gerar a NF-e

 

Por enquanto obrigado,