Endereço De Entrega Em Nota De Importação

[bochnia]

Olá a todos!

 

Estou tendo uma dificuldade para o correto preenchimento do endereço de entrega.
Estou emitindo NFe de Importação para entrega em um deposito terceirizado, o problema que na rotina TNFeW.GerarEntrega  "pcnNFeW.pas" os parâmetros que a rotina utiliza são do destinatário, não os parâmetros do endereço de entrega. Com isso eu defino o município, pais, CNPJ do endereço de entrega mais a rotina altera para :

<entrega>
<CNPJ/>
<xLgr>Rua Nome</xLgr>
<nro>1109</nro>
<xCpl>Complemento</xCpl>
<xBairro>Nome do Bairro</xBairro>
<cMun>9999999</cMun>
<xMun>EXTERIOR</xMun>
<UF>EX</UF>
</entrega>

Segue o código da rotina:

procedure TNFeW.GerarEntrega;
var
  cMun: integer;
  xMun: string;
  xUF: string;
begin
  if trim(nfe.Entrega.xLgr) <> '' then
  begin
    AjustarMunicipioUF(xUF, xMun, cMun, nfe.Dest.enderDest.cPais, nfe.Entrega.UF, nfe.Entrega.xMun, nfe.Entrega.cMun);
    Gerador.wGrupo('entrega', 'G01');
    Gerador.wCampoCNPJCPF('G02', 'G02a', nfe.Entrega.CNPJCPF, nfe.Dest.enderDest.cPais);
    Gerador.wCampo(tcStr, 'G03', 'xLgr   ', 02, 60, 1, nfe.Entrega.xLgr, DSC_XLGR);
    Gerador.wCampo(tcStr, 'G04', 'nro    ', 01, 60, 1, ExecutarAjusteTagNro(FOpcoes.FAjustarTagNro, nfe.Entrega.nro), DSC_NRO);
    Gerador.wCampo(tcStr, 'G05', 'xCpl   ', 01, 60, 0, nfe.Entrega.xCpl, DSC_XCPL);
    Gerador.wCampo(tcStr, 'G06', 'xBairro', 01, 60, 1, nfe.Entrega.xBairro, DSC_XBAIRRO);
    Gerador.wCampo(tcInt, 'G07', 'cMun   ', 01, 07, 1, cMun, DSC_CMUN);
    if not ValidarMunicipio(cMun) then
      Gerador.wAlerta('F07', 'cMun', DSC_CMUN, ERR_MSG_INVALIDO);
    Gerador.wCampo(tcStr, 'G08', 'xMun   ', 02, 60, 1, xMun, DSC_XMUN);
    Gerador.wCampo(tcStr, 'G09', 'UF     ', 02, 02, 1, xUF, DSC_UF);
    if not ValidarUF(xUF) then
      Gerador.wAlerta('G09', 'UF', DSC_UF, ERR_MSG_INVALIDO);
    Gerador.wGrupo('/entrega');
  end;
end;

Alguém poderia explicar porque a rotina verificar o endereço do destinatário e não o endereço de entrega?

Obrigado.
Ricardo

 

[Italo Giurizzato Junior]

Bom dia Ricardo,

 

Eu nunca emiti uma NF-e de importação, mas você esta informando como destinatário uma empresa estrangeira?

 

Lembre-se que o local de entrega esta atrelado ao destinatário.

[bochnia]

Olá Ítalo,

 

No caso de nota fiscal de importação o destinatário e empresa estrangeira e o endereço de entrega e no Brasil, por isso estou tendo o problema.

 

Emitente: Minha empresa
Destinatário: Empresa estrangeira
Endereço: endereço da empresa estrangeira
Endereço de Entrega: Endereço no Brasil.

 

Com isso a rotina não pode verificar essas propriedades com base no destinatário

e sim co m base no endereço de entrega.

Ricardo

[bochnia]

O endereço de entrega não pode ficar atrelado ao destinatário, pois no caso de importação o destinatário e a empresa estrangeira e o endereço de entrega é no Brasil.

 

Ricardo

[Italo Giurizzato Junior]

Ricardo,

 

Sendo assim a rotina que gera o XML vai ter que tratar essas duas situações, quando é de importação e quando não é.

[André Ferreira de Moraes]

Altere a função GerarEntrega para o código abaixo e veja se o problema é resolvido.

 

procedure TNFeW.GerarEntrega;
var
  cMun: integer;
  xMun: string;
  xUF: string;
begin
  if trim(nfe.Entrega.xLgr) <> '' then
  begin
    Gerador.wGrupo('entrega', 'G01');
    Gerador.wCampoCNPJCPF('G02', 'G02a', nfe.Entrega.CNPJCPF, 1058);
    Gerador.wCampo(tcStr, 'G03', 'xLgr   ', 02, 60, 1, nfe.Entrega.xLgr, DSC_XLGR);
    Gerador.wCampo(tcStr, 'G04', 'nro    ', 01, 60, 1, ExecutarAjusteTagNro(FOpcoes.FAjustarTagNro, nfe.Entrega.nro), DSC_NRO);
    Gerador.wCampo(tcStr, 'G05', 'xCpl   ', 01, 60, 0, nfe.Entrega.xCpl, DSC_XCPL);
    Gerador.wCampo(tcStr, 'G06', 'xBairro', 01, 60, 1, nfe.Entrega.xBairro, DSC_XBAIRRO);
    Gerador.wCampo(tcInt, 'G07', 'cMun   ', 01, 07, 1, nfe.Entrega.cMun, DSC_CMUN);
    if not ValidarMunicipio(nfe.Entrega.cMun) then
      Gerador.wAlerta('F07', 'cMun', DSC_CMUN, ERR_MSG_INVALIDO);
    Gerador.wCampo(tcStr, 'G08', 'xMun   ', 02, 60, 1, nfe.Entrega.xMun, DSC_XMUN);
    Gerador.wCampo(tcStr, 'G09', 'UF     ', 02, 02, 1, nfe.Entrega.UF, DSC_UF);
    if not ValidarUF(nfe.Entrega.UF) then
      Gerador.wAlerta('G09', 'UF', DSC_UF, ERR_MSG_INVALIDO);
    Gerador.wGrupo('/entrega');
  end;
end;

[Italo Giurizzato Junior]

Bom dia André,

 

Notei que foi removida a linha que dependendo do código do pais ele mantem a UF, código do municipio, não teria como identificar se a nota é de importação ou não ?

 

Se for em vez de pegar o código do pais do destinatário usariamos o código do Brasil.

[bochnia]

Olá Andre

A modificação apresentada por você funciona, pois eu fiz a geração da Nota Fiscal com uma modificação muito próxima a que você apresentou e funcionou perfeitamente.

 

Tem como colocar isso em produção?

 

Ricardo

[bochnia]

Olá André e Ítalo,

 

Em nossa conversa nesse post em Abril/2013, questionei se seria possível subir a modificação do fonte como descrido pelo André, mais visto que até hoje não foi efetuada, vocês saberiam porque, pois continuo com o mesmo problema toda vez que tenho que atualizar o ACBr, tenho que alterar as linha indicada pelo André.

 

Obrigado.

Ricardo

[Italo Giurizzato Junior]

Boa tarde Ricardo,

 

Enviei para o SVN a alteração proposta pelo André.

[bochnia]

Obrigado Ítalo.

 

 

Funcionou perfeitamente agora.

 

Ricardo