Erro Ao Exportar Para Txt

[alexpseletr]

Estou usando o pcn2 do svn ACBR funcionou bem por muito tempo porem hoje quando fiz a atualização o arquivo de texto gerado esta faltando a tag <A>

 

Exemplo de arquivo antigo

NOTA FISCAL|1
A|2.00|NFe32141007680940000148550020000024041537731098
B|32| ....

 

 

Exemplo de arquivo novo

B|32| ...

 

Ou seja o arquivo falta as 2 primeiras linhas , ja procurei mas nao achei nada que houve de mudança a nao ser a exclusao da propriedade nfe.schema alguem pode me ajudar a resolver isso ?

[Juliomar Marchetti]

Boa tarde

Vi que é seu primeiro post

Seja Bem vindo do fórum

 

 

Confere senão está faltando informar a versão da NF-e !

por isso o problema de não gerar a linha desejada!

[alexpseletr]

desconfiei disso e coloquei    NFe.infNFe.Versao := 2.00;      NFe.Ide.verProc := '2.00';      mas nao resolveu estou colocando no lugar errado ? uso o lazarus e linux x64 nao sei se tem algo haver

[Juliomar Marchetti]

Bom dia

por favor se conseguir postar um pedaço de seu código que utiliza o PCN ou anexar para poder lhe ajudar com mais clareza a resolver o problema!

[alexpseletr]

é a copia exata do modelo contido no pcn só alterei os valores para funcionar ... Ele funcionava bem até umas 2 semanas atras , porem apos a atualização do svn parou de funcionar e ainda nao consegui encontrar qual o problema .

 

Obs.: Não fiz nenhuma alteração no codigo só compilei e quando fui testar o txt estava cortado tinha cerca de 1 mes que eu nao atualizava

Editado 23 Outubro, 2014 por alexpseletr

[Juliomar Marchetti]

Boa noite!

hum entendi na verdade é um pedaço do código baixado e usado fora do svn!

não mantendo a compatibilidade e atualização até o momento de agora para a nova versão ! isso?

[alexpseletr]

isso mesmo ele funcionava ja a bastante tempo , de uns tempos pra cá que perdeu a compatibilidade , acredito que foi a retirada do parametro ( NFeW.schema := tsPL005C;  ) depois que comentei isso e coloquei a versao (NFe.infNFe.Versao := 2.00;      NFe.Ide.verProc := '2.00'; ) que o problema apareceu porem no modelo do pcn nao vi alteração para isso acredito que esteja um pouco desatualizado em relação ao componente ...

[daniel.breda]

Atualizei minha versao hoje e tambem esta acontecendo isso.

[jdazevedo]

Boa Noite, 

Sei que este post está há muito tempo parado. Mas, estou enfrentando este problema.

Atualizei tudo, mudei a versão para ve310 e ao gerar o Arquivo TXT, não aparece a a linha A|3.10|.... 

Fiz um DEBUG e percebi que não estava gerando a linha porque na function a seguir: 

 

function CarregarLayoutTXT(const versao: string): AnsiString;

...

  else if versao = '2.00' then

  begin

    LoadLayout('<B01>       NOTA FISCAL|1');

    LoadLayout('<B01>     A|2.00|^id^'); //ok

...

  else if versao = '3.10' then

  begin

    LoadLayout('<B>       NOTA FISCAL|1');    

    LoadLayout('<B01>     A|versao¨|^id^');

...

Simplesmente substituí o campo <versao¨> por <3.10> e recompilei o pacote: PCN2 e funcionou. 

 

Ficou assim:

...

  else if versao = '3.10' then

  begin

    LoadLayout('<B>       NOTA FISCAL|1');    

    LoadLayout('<B01>     A|3.10|^id^');

...

 

Não sei se esta é a melhor solução. Também não pesquisei mais para ver porque o campo <versao¨> não estava sendo substituído. 

Se alguém que conhece melhor esta rotina puder dar uma olhada e me indicar uma melhor solução eu ficaria muito grato. 

[mmsuporte]

Boa Noite, 

Sei que este post está há muito tempo parado. Mas, estou enfrentando este problema.

Atualizei tudo, mudei a versão para ve310 e ao gerar o Arquivo TXT, não aparece a a linha A|3.10|.... 

Fiz um DEBUG e percebi que não estava gerando a linha porque na function a seguir: 

 

function CarregarLayoutTXT(const versao: string): AnsiString;

...

  else if versao = '2.00' then

  begin

    LoadLayout('<B01>       NOTA FISCAL|1');

    LoadLayout('<B01>     A|2.00|^id^'); //ok

...

  else if versao = '3.10' then

  begin

    LoadLayout('<B>       NOTA FISCAL|1');    

    LoadLayout('<B01>     A|versao¨|^id^');

...

Simplesmente substituí o campo <versao¨> por <3.10> e recompilei o pacote: PCN2 e funcionou. 

 

Ficou assim:

...

  else if versao = '3.10' then

  begin

    LoadLayout('<B>       NOTA FISCAL|1');    

    LoadLayout('<B01>     A|3.10|^id^');

...

 

Não sei se esta é a melhor solução. Também não pesquisei mais para ver porque o campo <versao¨> não estava sendo substituído. 

Se alguém que conhece melhor esta rotina puder dar uma olhada e me indicar uma melhor solução eu ficaria muito grato. 

 

 

Bom dia João, pode anexa o TXT para gente dá uma olhada?

[jdazevedo]

Olá Carbox, 

Muito grato pela atenção. 

No arquivo zipado, contem 2 arquivos TXT, um como estava sendo gerado e outro como está gerando após minha alteração. Contém também a Unit pcnLayoutTXT com a alteração. 

Nfe_txts.zip

[Tiago Ravache]

Oi João a alteração que tu propôs, um outro colega tbm realizou recentemente, fiz aqui também e pra mim está funcionando 100%

[jdazevedo]

Valeu Tiago, Grato.

[Claudemir Lopes]

Para  poder  fazer  a  exportação  do  TXT  do  ACBr  para  o  programa  gratuito  da  receita  versão  3.1  precisei  acertar  as  linhas   abaixo

 

 

  else if versao = '3.10' then

  begin

    LoadLayout('<B01>       NOTA FISCAL|1');

    LoadLayout('<B01>     A|3.10|^id^');

......................

    LoadLayout('<G01>  G02a|CPF¨');

    LoadLayout('<G01>  GA|CNPJ¨|CPF¨');

    LoadLayout('<G01>  GA02|CNPJ¨');

    LoadLayout('<G01>  GA03|CPF¨');

[Gabriel Frones]

João e Claudemir,

 

Tem outras correções também. Vejam este tópico, onde estou tentando centralizar essas correções:

 

Abraços,

Gabriel.

[Claudemir Lopes]

Vou  atualizar ... obrigado 

[jdazevedo]

Valeu Gabriel. Baixei. Vou testar e te dou feed-back.