Importar Txt Nfe - Pcnlayouttxt

[joseadolfojr]

Olá amigos,

 

estou fazendo uma rotina de gerar o TXT da NFe utilizando o ACBr.

 

Posteriomente vou utilizar o ACBr para importar este mesmo txt gerado.

 

Ao fazer a importação do TXT não estava carregando os dados da nota. Ao fazer um Debug observei que na unit PCNLayoutTXT.PAS,

 

na linha 272 estava :

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

Tive que fazer a alteração para

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

Tirei como base as instruções referentes as versões anteriores, linha 73 e 64:

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

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

Com estas alterações passou a funcionar.

 

Observando que na importação do txt a rotina verifica isto ai.

 

PCNNFERTXT.PAS linha 127:

const
  VERSOES_VALIDAS_LAYOUT_TXT = '|1.10|2.00|3.10|';

versao := copy(FconteudoArquivo[1], 3, 4);
if pos('|' + Versao + '|', VERSOES_VALIDAS_LAYOUT_TXT) = 0 then 
  exit;

é possível atualizar esta alteração no repositório uma vez que a unit faz parte do projeto PCN ? 

Editado 30 Abril, 2015 por joseadolfojr

[Tiago Ravache]

Olá essa alteração já foi proposta por um colega chamado Gabriel, na pesquisa vc deve encontrar o tópico dele, de qualquer maneira não me recordo se os moderadores/administradores deram um feedback se essa alteração seria incorporada ao svn, o jeito é aguardar um deles nos avisar se vai ou nõa incorporar no svn.

 

Abraço

[Régys Silveira]

Poderia anexar o arquivo alterado para que possamos fazer a análise?

[joseadolfojr]

Segue anexo.

pcnLayoutTXT.pas

[Régys Silveira]

Analisado e já submetido ao repositório, obrigado pela contribuição.

[Gabriel Frones]

Essa alteração quebra a leitura do arquivo TXT, que depende dessa linha para identificar a versão do arquivo importado.

 

Para resolver, sugiro alterar em pcnNFeRTXT.pas:

 

Remover este bloco (essa parte depende do versao¨ que estava no pcnLayoutTXT):

  if ID = 'A' then
  begin
     NFe.infNFe.Versao := LerCampo(tcDe2, 'versao');
  end;

E colocar essas linhas para ler a versão (as duas últimas. As duas primeiras são só pra localizar no código):

  // Ler chave da NFe
  NFe.infNFe.ID := copy(FconteudoArquivo[1], 8, maxInt);
  //Preenche número da versão
  NFe.infNFe.Versao := StrToFloat(StringReplace('0' + versao, '.', DecimalSeparator, [])); 

[Zoobre]

Com a alteração do Tiago a importação de arquivo TXT para versão 3.1 esta apresentando erro na importação no campo data, na versão atual no truck (30/09/15)

Segue em anexo alteração para subir para o truck.

Agora está funcional.

pcnNFeRTXT.pas

pcnLayoutTXT.pas

[Juliomar Marchetti]

Boa tarde!

o trunk está congelado. sugiro migrar logo para o trunk2

NT 003 deste ano só vai ser atendido nele

[Zoobre]

Esta alteração vale também para o trunck2

[Juliomar Marchetti]

Esta alteração vale também para o trunck2

Que alteração?

se leu com calma informei que o trunk está congelado, então não tem nada de novo nele e nem será feito!

migre trunk2