function NotaUtil.ChaveAcesso

[Leao]

Preciso processar meu db, e criar as chaves de acessos para cada nf-e, estava

usando o emissor gratuito do governo, e para criar o sped fiscal precisa da chave,

estou usando a função abaixo, tenho uma dúvida:

vNumero := NotaUtil.Poem_Zeros(ANumero, 9); é o número da nf

vCodigo := NotaUtil.Poem_Zeros(ACodigo, 9); vCodigo a quem refere?

Gerei a chave usando os parametros mas deu diferente. Comparo com a emitida

pelo emissor do governo gratuito.

class function NotaUtil.ChaveAcesso(AUF: Integer; ADataEmissao: TDateTime;

ACNPJ: String; ASerie, ANumero, ACodigo: Integer; AModelo: Integer): String;

var

vUF, vDataEmissao, vSerie, vNumero,

vCodigo, vModelo: String;

begin

vUF := NotaUtil.Poem_Zeros(AUF, 2);

vDataEmissao := FormatDateTime('YYMM', ADataEmissao);

vModelo := NotaUtil.Poem_Zeros(AModelo, 2);

vSerie := NotaUtil.Poem_Zeros(ASerie, 3);

vNumero := NotaUtil.Poem_Zeros(ANumero, 9);

vCodigo := NotaUtil.Poem_Zeros(ACodigo, 9);

Result := vUF+vDataEmissao+ACNPJ+vModelo+vSerie+vNumero+vCodigo;

Result := Result+NotaUtil.Modulo11(Result);

end;

Ou se alguém tiver outra função para criar-la, de já agradeço.

Obrigado,

Leão

[Kiko Fernandes]

http://www.djsystem.com.br/acbr/forum/viewtopic.php?f=6&t=3464