Chave incorreta ao carregar Nfe Avulsa

[virtualsys]

Olá! Sei que este problema já havia sido tratado no passado, mas nos meus testes com trunk2 ao carregar o componente com uma Nfe Avulsa a chave de acesso é trocada pelo cnpj da empresa ao invés do cnpj do sefaz.

Exemplo: Nfe com chave de acesso: 43150987958674000181558900091201771274610356
 

<emit><CNPJ>01885252000108</CNPJ>
...
<avulsa><CNPJ>87958674000181</CNPJ>
...

O componente recalcula a chave de acesso para: 43150901885252000108558900091201771274610355

Analisando os fontes acredito que seja necessário modificar o arquivo pcnNfeW função GerarXML na linha 222:

function TNFeW.GerarXml: Boolean;
var
  chave: AnsiString;
  Gerar: Boolean;
  xProtNFe : String;
  xCNPJCPF : string; //Add
begin

  Usar_tcDe4 := (NFe.infNFe.Versao >= 3.10);
  Versao     := Copy(NFe.infNFe.VersaoStr, 9, 4);

  chave := '';
  if NFe.infNFe.Versao >= 2 then
   begin
     xCNPJCPF := nfe.emit.CNPJCPF;  //Add
     if nfe.Avulsa.CNPJ <> '' then  //Add
       xCNPJCPF := nfe.Avulsa.CNPJ; //Add
       
     if not GerarChave(Chave, nfe.ide.cUF, nfe.ide.cNF, nfe.ide.modelo, nfe.ide.serie,
       nfe.ide.nNF, StrToInt(TpEmisToStr(nfe.ide.tpEmis)), nfe.ide.dEmi, xCNPJCPF) then
       Gerador.wAlerta('A01', 'infNFe', DSC_CHAVE, ERR_MSG_GERAR_CHAVE);
   end
  else
   begin
     if not GerarChaveCTe(chave, nfe.ide.cUF, nfe.ide.cNF, nfe.ide.modelo, nfe.ide.serie,
       nfe.ide.nNF, nfe.ide.dEmi, nfe.emit.CNPJCPF) then
       Gerador.wAlerta('A01', 'infNFe', DSC_CHAVE, ERR_MSG_GERAR_CHAVE);
   end;
   ...

Peço aos que tem maior familiaridade com os fontes verifiquem se isso é suficiente!

Abraço!

pcnNFeW.pas

[Régys Silveira]

Realmente, no caso de nota avulsa precisa manter.

Já enviei as alterações para o repositório, obrigado pela contribuição.

[Antonio Carlos L]

movido

Editado 1 Outubro, 2015 por Antonio Carlos L

[Régys Silveira]

Utilize o método ValidarChave que está na unit pcnAuxiliar.

Por favor, não aproveite tópicos, abra um novo

[Antonio Carlos L]

movido para : http://www.projetoacbr.com.br/forum/topic/24797-função-para-validar-chave-acesso/

Editado 1 Outubro, 2015 por Antonio Carlos L

[Régys Silveira]

Você viu o post que postei antes do seu?

[Antonio Carlos L]

OK, feito

Editado 1 Outubro, 2015 por Antonio Carlos L