Nf-E 3.10 - Notas Fiscais Referenciadas Na Devolução, Não Estão Gerando As Tags.

[daniel.breda]

Estou gerando o TXT para NF-e 3.10 e ao gerar preenchendo a tag NFref ele gera o TXT, mas não gera as referencias, segue a parte do código:

 

for I := 0 to Origens.Count - 1 do
begin
with NFe.Ide.NFref.Add do
begin
if (Origens[I].Modelo = '55') then
refNFe := Origens[I].ChaveAcesso
else if (Origens[I].Modelo = '04') then
begin
with RefNFP do
begin
cUF := Origens[I].CodigoUF;
AAMM := FormatDateTime('yymm', Origens[I].DataEmissao);
CNPJCPF := Origens[I].CNPJ;
IE := Origens[I].InscricaoEstadual;
modelo := Origens[I].Modelo;
serie := Origens[I].Serie;
nNF := Origens[I].NUmero;
end;
end
else if (Origens[I].Modelo = '03') then
begin
with RefECF do
begin
modelo := ECFModRef2B;
nECF := Origens[I].Sequencia;
nCOO := Origens[I].COO;
end;
end
else
begin
with RefNF do
begin
cUF := Origens[I].CodigoUF;
AAMM := FormatDateTime('yymm', Origens[I].DataEmissao);
CNPJ := Origens[I].CNPJ;
modelo := Origens[I].Modelo;
serie := Origens[I].Serie;
nNF := Origens[I].Numero;
end;
end;
end;

 

[daniel.breda]

Segue correção que tive que fazer no arquivo Fontes\PCN2\pcnNFeW.pas

 

procedure TNFeW.GerarIdeNFref;
var
  i: Integer;
begin
  // Gera TAGs se NÃO for uma NFe referência
  for i := 0 to nfe.ide.NFref.Count - 1 do
  begin
    Gerador.wGrupo('NFref', IfThen(nfe.infNFe.Versao >= 3, 'BA', 'B12a'));
    //Gerador.wGrupo('NFref', 'B12a');
    if nfe.ide.NFref[i].refNFe      <> '' then (**)GerarIdeNFrerefNFe(i);
    if nfe.Ide.NFref[i].RefNF.nNF    >  0 then (**)GerarIdeNFrefRefNF(i);
    if nfe.ide.NFref[i].RefNFP.nNF   >  0 then (**)GerarRefNFP(i);
    if nfe.ide.NFref[i].refCTe      <> '' then (**)GerarIdeNFrerefCTe(i);
    if nfe.ide.NFref[i].RefECF.nCOO <> '' then (**)GerarRefECF(i);
    Gerador.wGrupo('/NFref');
  end;


  if nfe.ide.NFref.Count > 500 then
    Gerador.wAlerta(IfThen(nfe.infNFe.Versao >= 3, 'BA', 'B12a'), 'NFref', DSC_QNF, ERR_MSG_MAIOR_MAXIMO + '500');
    //Gerador.wAlerta('B12a', 'NFref', DSC_QNF, ERR_MSG_MAIOR_MAXIMO + '500');
end;

[Gabriel Frones]

Colega,

 

Isso resolveu o seu problema com o layout TXT da NFe 3.10? Usando a última atualização dos fontes (trunk apenas) e com essa sua correção, eu ainda tenho os seguintes problemas:

 

- Não gera as tags iniciais, "NOTA FISCAL|1" e "A|3.10|NFexxx";

- Não gera a tag pai do BA02, "BA|"; //o manual não menciona a necessidade mas o emissor rejeita o arquivo

- Não gera a tag pai do GA02, "GA|"; //o manual não menciona a necessidade mas o emissor rejeita o arquivo

- O CNPJ que vem em GA02 é o mesmo do local de entrega (G02), e não o informado em autXML;

- Gera as tags O10 e O11 simultaneamente quando tem IPI (elas são excludentes);

- Gera UF e xMun invertidos em X03 (isso acho que está errado no manual do layout txt).

 

Isso é uma análise preliminar de uma nota apenas que tive que corrigir para o emissor importar o TXT. Ainda falta verificar se todas as tags foram exportadas realmente.

 

Eu estava trabalhando nessas correções, mas agora que vi que você parece não ter tido os mesmos problemas que eu, fiquei preocupado de estar trabalhando em fontes desatualizados.

Editado 20 Fevereiro, 2015 por Gabriel Frones