Ajuste NF de exportação com CFOP 7501 <TAG> grupo exportação indireta

[EvertonEVN035]

Quando informado o CFOP DE EXPORTAÇÃO 7501, o grupo <exportInd> (Exportação Indireta) deve ser gerado, porém o usuário pode informar apenas a chave da NF-e referênciada sem informar a nRE, dessa forma o ACBr não gera a TAG pois a validação não permite, para resolver o problema efetuei o seguinte ajuste:

Manual: NT2013.005_Exportação_CFOP-7501.pdf
unit pcnNFeW.pas
Repositório:
procedure TNFeW.GerarDetProddetExport(const i: Integer);
  if nfe.Det.Prod.detExport[j].nRE <> '' then
  begin
    Gerador.wGrupo('exportInd', 'I52');

Ajuste:
procedure TNFeW.GerarDetProddetExport(const i: Integer);
  if (nfe.Det.Prod.detExport[j].nRE <> '')or(nfe.Det.Prod.detExport[j].chNFe <> '') then
  begin
    Gerador.wGrupo('exportInd', 'I52');

 

Caso alguém tenha passado pelo mesmo problema e puder contribuir com uma possível solução, também gostaria se possível ser executado estas alterações no ACBr.

Att

pcnNFeW.pas

NT2013.005_Exportação_CFOP-7501.pdf

Editado 21 Agosto, 2015 por EvertonEVN035
Título não estava entendível

[Juliomar Marchetti]

Boa noite

este código é para o trunk ou trunk2?

[Daniel Simoes]

Comparando a Unit com a do Trunk2 notei que a mesma é para o "Trunk"...

Não foi possível fazer o merge...

[EvertonEVN035]

Bom dia Daniel, desculpe a demora,

No trunck2 esta alteração deve ser efetuado na unit pcnNFeW.pas na linha 886 procedure TNFeW.GerarDetProddetExport(const i: Integer); a qual está da seguinte forma:

Trunck2

if nfe.Det.Prod.detExport[j].nRE <> '' then

    begin
      Gerador.wGrupo('exportInd', 'I52');
      Gerador.wCampo(tcStr, 'I53', 'nRE    ', 12, 12, 1, nfe.Det.Prod.detExport[j].nRE, DSC_NRE);
      if not ValidaRE(nfe.Det.Prod.detExport[j].nRE) then
        Gerador.wAlerta('I53', 'nRE', DSC_NRE, ERR_MSG_INVALIDO);

....

Ajuste

if (nfe.Det.Prod.detExport[j].nRE <> '')or(nfe.Det.Prod.detExport[j].chNFe <> '') then // Ajustado para gerar TAG também quando existir NF-e Referênciada

    begin
      Gerador.wGrupo('exportInd', 'I52');
      Gerador.wCampo(tcStr, 'I53', 'nRE    ', 12, 12, 0, nfe.Det.Prod.detExport[j].nRE, DSC_NRE);
      if (nfe.Det.Prod.detExport[j].nRE <> '') and (not DFeUtil.ValidaRE(nfe.Det.Prod.detExport[j].nRE)) then
        Gerador.wAlerta('I53', 'nRE', DSC_NRE, ERR_MSG_INVALIDO);....

Qualquer dúvida estou a disposição, obrigado!

Editado 18 Setembro, 2015 por EvertonEVN035

[Daniel Simoes]

O correto não seria:

    if (nfe.Det[i].Prod.detExport[j].nRE <> '') or (nfe.Det[i].Prod.detExport[j].chNFe <> '') then

?

[EvertonEVN035]

Boa tarde, o correto é sim esta validação utilizando o "OR", também ajustei para que quando não existir nRE, para que seja criada a TAG "<nRE>" com valor ZERO, caso contrário a validação dos XSDs reprovam o mesmo.

[Daniel Simoes]

Ok quanto o OR no IF... O que notei que no seu código, não tem o Índice

Det.Prod

O correto não seria:

Det[i].Prod

?

(Compilando aqui da sua maneira, ocorreu um erro de compilação)

[Daniel Simoes]

Comparei o código com o "trunk" antigo, e verifique que a implementação que apliquei está correta...  Enviado para o SVN

-- pcnNFeW --
[*] Ajustado para gerar grupo "exportInd" também quando existir NF-e Referênciada
   (por: Everton)  http://www.projetoacbr.com.br/forum/index.php?showtopic=23811 

[EvertonEVN035]

Obrigado Daniel, estarei sincronizando aqui