[NF-e] Cálculo do Dígito Verificador - Planilha

[Marcos Jordão]

Bom dia.

 

Talvez possa ajudar alguém.

Como estava com problemas no dígito verificador calculado pelo sistema, montei uma planilha para fazer uma conferência.

É só informar as 43 casas da Chave da NFe e o cálculo é feito automaticamente.

 

Abraços,

 

Marcos Antonio Campos Jordão''

[Diego]

Segue abaixo código que retorna o dig. verificador.

 

function ValidarChaveNFE(pstChaveNFE: string): Integer;
var
  linPosicao, linSoma, linMult: Integer;
begin
  linSoma := 0;
  linMult := 2;
 
  // multiplicador vai de 9 a 2
  // "começa do final"
  for linPosicao := Length(pstChaveNFE) downto 1 do
  begin
    linSoma := linSoma + (StrToInt(pstChaveNFE[linPosicao]) * linMult);
    Inc(linMult);

 

    if (linMult > 9) then
      linMult := 2;
  end;{for}

 

  result := 11 - (linSoma mod 11);
  if result >= 10 then
    result := 0;
end;

 

Att,

 

Diego Rocha Affonso

Cel.(41) 9164-3003

 

Ausland Consultoria & Informática Ltda.

Rua Waldemar Loureiro Campos, 1960

Boqueirão - Curitiba - PR

Fone/Fax: (41) 3377-2730

www.ausland.com.br

 

 

---

De: sped...@googlegroups.com [mailto:sped...@googlegroups.com] Em nome de Marcos Jordão
Enviada em: quarta-feira, 24 de junho de 2009 09:11
Assunto: [SPED] [NF-e] Cálculo do Dígito Verificador - Planilha