CONVERSÃO ARQUIVO TXT PARA XML

[carlos_augusto]

Prezados Companheiros

Boa Noite!

Estou auxiliando amigos que possuem Sistema ERP mais antigo ( licença comprada ),e por questão financeira não tem como migrar para uma aplicação mais dispendiosa. 

Desenvolvi rotina que :
- lê o arquivo txt que a aplicação deles gera ( Nfe 3.10 )
- mescla com informações que eu criei diretamente no banco de dados
- gera um arquivo txt no padrão do ACBR ( Nfe 4.00 )
- importa no componente ACBRNFE 
- finalmente exporta como Arquivo XML  ( Nfe 4.00 )

Como eles são Regime Simples, eu fiz teste com todas Situações Tributárias do Simples, apenas para constatar se estava tudo correto.

Constatei que apenas na Situação Tributária 900 ocorreu um erro :

a)-No Arquivo TXT:
N|
N10h|0|90|3|35.00||18.00|6.30| |||||||||3.41|1.19|

b)-No Arquivo XML:
<ICMS>
  <ICMSSN>
    <orig>0</orig>
    <CSOSN>0</CSOSN>
  </ICMSSN>
</ICMS>

Vejam que na Sit.Tributária 500 este erro não ocorre :
                <ICMS>
                    <ICMSSN500>
                        <orig>0</orig>
                        <CSOSN>500</CSOSN>
                    </ICMSSN500>

Sabem os companheiros a causa deste problema?

Grato

[Amarildo de Matos]

Bom dia..

Para melhor, ajudar, me mande o Xlm completo, e o Log do Acbr.

Aguardo..

 

[carlos_augusto]

Sr. Amarildo

Estou postando aqui :

- arquivo txt 

- arquivo xml ( resultante do arquivo txt )

Eu fiz modificações em ambos arquivos apenas para trocar dados pessoais de : emitente / cliente / transportador.

O Sr.verá que no final do arquivo txt , no item 10 existe a tag : N10h| ( correspondente à Situação Tributária de Icms Simples : 500 ).

Mas, quando o arquivo é gerado , a tag fica assim : <CSOSN>0</CSOSN>.

Abaixo eu posto também o código fonte da geração do arquivo.

Grato por sua ajuda.

Carlos

Franca-Sp

CÓDIGO-FONTE:

                acbrNota.NotasFiscais.Clear;
                acbrNota.NotasFiscais.Add;
                NFeRTXT := TNFeRTXT.Create(acbrNota.NotasFiscais.Items[0].NFe);
                NFeRTXT.CarregarArquivo(Trim(stArquivo));
                if NFeRTXT.LerTxt then
                   NFeRTXT.Free
                else
                  begin
                     NFeRTXT.Free;
                     //tenta XML
                     acbrNota.NotasFiscais.Clear;
                     try
                        acbrNota.NotasFiscais.LoadFromFile(stArquivo);
                     except
                        //ShowMessage('Arquivo NFe Inválido');
                        //exit;
                     end;
                  end;
                acbrNota.NotasFiscais.Items[0].GerarXML;  
                acbrNota.NotasFiscais.Items[0].GravarXML(ExtractFileName(stArquivoXML),ExtractFilePath(stArquivoXML));
 

020223_59615773000125_001_28_07_2018-nfe.txt

020223_59615773000125_001_28_07_2018.xml

[carlos_augusto]

Sr. Amarildo

Por precaução eu fiz teste de importação de um arquivo txt e sua geração em formato xml utilizando o Acbr, de umaempresa inscrita no Regime Normal de ICMS.

E constatei que também está com problema nesta funcionalidade de converter txt para xml com arquivos deste tipo.

Não está sendo gerada a Tag : PAG.

Assim, estou anexando o arquivo txt e bem como o arquivo xml resultante.

Veja que no arquivo txt temos a estrutura : 
YA01|1|01|9.90||||
YA09|

E no arquivo xml temos somente :
 <pag/>

Grato

Carlos
Franca-Sp

009092_00396589000199_001_29_07_2018.xml

009092_00396589000199_001_29_07_2018-nfe.txt

[Amarildo de Matos]

Opa.. o Modelo de txt, do acbr, não é esse. 

vou te passar o correto.

https://acbr.sourceforge.io/ACBrMonitor/NFECriarNFe.html

Esse é o link onde explica como fazer o Txt.

Estou te mandando modelo de txt, e o xml que foi gerado.

Blz.. qualquer coisa tou ai..

Valeu t+

 

txt_pag.txt

xml_pag.xml

[carlos_augusto]

Sr. Amarildo

Existe um modelo de arquivo txt que fica dentro da pasta \acbr\trunk2\Doctos\Manuais\Layout_TXT_NFe_NFCe_4_00.odt.

Portanto, estou utilizando um manual de arquivo txt homologado pela Comunidade ACBR.

E o método acbrNota.NotasFiscais.LoadFromFile aceita plenamente o arquivo gerado pelo manual acima indicado.

Portanto, o problema é que quando importa o arquivo , estão ocorrendo os erros que descrevi acima.

Aliás, minha esperança para resolver o problema é justamente conseguir importar o arquivo conforme descrevi acima, visto que é uma funcionalidade

em vigor no ACBR.

Grato

 

[Amarildo de Matos]

Bom dia.. A todos..

Nesse caso vou esperar ai.. o pessoal ver isso, pois isso realmente eu não sabia..

 

[carlos_augusto]

Sr. Amarildo

Obrigado por sua ajuda.

Vou aguardar uma ajuda dos senhores.

Grato

[André Ferreira de Moraes]

23 minutos atrás, carlos_augusto disse:

Sr. Amarildo

Existe um modelo de arquivo txt que fica dentro da pasta \acbr\trunk2\Doctos\Manuais\Layout_TXT_NFe_NFCe_4_00.odt.

Portanto, estou utilizando um manual de arquivo txt homologado pela Comunidade ACBR.

E o método acbrNota.NotasFiscais.LoadFromFile aceita plenamente o arquivo gerado pelo manual acima indicado.

Portanto, o problema é que quando importa o arquivo , estão ocorrendo os erros que descrevi acima.

Aliás, minha esperança para resolver o problema é justamente conseguir importar o arquivo conforme descrevi acima, visto que é uma funcionalidade

em vigor no ACBR.

Grato

 

Vc deve seguir as orientações deste manual - https://sourceforge.net/p/acbr/code/HEAD/tree/trunk2/Doctos/Manuais/Layout_TXT_NFe_NFCe_4_00.pdf?format=raw

Qualquer outro formato não será aceito na versão 4.00

Em 29/07/2018 at 00:01, carlos_augusto disse:

Prezados Companheiros

Boa Noite!

Estou auxiliando amigos que possuem Sistema ERP mais antigo ( licença comprada ),e por questão financeira não tem como migrar para uma aplicação mais dispendiosa. 

Desenvolvi rotina que :
- lê o arquivo txt que a aplicação deles gera ( Nfe 3.10 )
- mescla com informações que eu criei diretamente no banco de dados
- gera um arquivo txt no padrão do ACBR ( Nfe 4.00 )
- importa no componente ACBRNFE 
- finalmente exporta como Arquivo XML  ( Nfe 4.00 )

Como eles são Regime Simples, eu fiz teste com todas Situações Tributárias do Simples, apenas para constatar se estava tudo correto.

Constatei que apenas na Situação Tributária 900 ocorreu um erro :

a)-No Arquivo TXT:
N|
N10h|0|90|3|35.00||18.00|6.30| |||||||||3.41|1.19|

b)-No Arquivo XML:
<ICMS>
  <ICMSSN>
    <orig>0</orig>
    <CSOSN>0</CSOSN>
  </ICMSSN>
</ICMS>

Vejam que na Sit.Tributária 500 este erro não ocorre :
                <ICMS>
                    <ICMSSN500>
                        <orig>0</orig>
                        <CSOSN>500</CSOSN>
                    </ICMSSN500>

Sabem os companheiros a causa deste problema?

Grato

Vc fala que quer gerar o CSOSN 900 e na linha está informando apenas 90.

[carlos_augusto]

Sr. André

A expressão "N10h" corresponde justamente à CSOSN 900.

O problema é que quando o Arquivo XML é gerado não aparece o código 900.

Grato

[André Ferreira de Moraes]

Pq vc não está informando 900 no campo.

[carlos_augusto]

Prezado Sr.
André

Por favor me desculpe.
O Sr. está corretíssimo.

O problema está integralmente no Arquivo TXT que eu gerei.

No arquivo txt gerado o Código Situação Tributária está cortado, exibindo '90', quando deveria ser '900'.

Solicito desculpas também ao Sr. Amarildo.

Grato

Carlos Augusto
Franca-Sp

[Amarildo de Matos]

Boa tarde..

capaz.carlos..tudo tranquilo.

estamos aqui, para se ajudar..

obrigado pelo retorno.

 

[carlos_augusto]

Prezados Srs.
André e Amarildo

Bom Dia!

Apenas para finalizar o assunto, fiz novo teste utilizando a rotina de Conversão do Arquivo TXT para XML do ACBR e constatei que funcionou perfeitamente ( como um Relógio Suiço ).

Trata-se portanto de uma poderosa ferramenta para compatibilizar sistemas mais antigos com as novas normas da Nfe.

Assim, gostaria de agradecer sua ajuda e novamente pedir desculpas.

Eu me considero satisfeito com relação à este assunto.

Grato

[Rafael Dias]

Obrigado pelo retorno