Pegar somente chave da NFS-e.

[fabiano ribeiro fernandes]

exemplo : H:\PROJETO\PRINCIPAL\Fontes\Dados\DFe\NFSe\2022\09\Notas\3522092730343100018356202200000000086-nfse.xml

 

uses StrUtils;

function ChaveAcesso(chave : string) : string;

function ChaveAcesso(chave : string) : string;
var
str:string;
begin
    str := chave;
    str := ReverseString(Str);
    delete(str,pos('\',str),length(Str));
    str := copy(str,pos('-',str)+1,length(Str));
    str := ReverseString(Str);
    Result := str;
end;

 

 

Resultado:

3522092730343100018356202200000000086

 

Modo de uso:

 

var chave_nfse : string;

chave_nfse   := ChaveAcesso( ACBrNFSeX1.NotasFiscais.Items[i].NomeArq );

Editado 6 Setembro, 2022 por fabiano ribeiro fernandes

[Juliomar Marchetti]

se fizesse somente o seguinte
 

uses

ACBrUtil.Strings;

var

  LChave :string;

begin

  LChave := OnlyNumber( ExtractFileName(ENDEREÇO));

 

[Italo Giurizzato Junior]

Boa tarde Fabiano,

H:\PROJETO\PRINCIPAL\Fontes\Dados\DFe\NFSe\2022\09\Notas\3522092730343100018356202200000000086-nfse.xml

O que está em negrito não se trata de uma chave de acesso e sim o nome do XML da nota composto pela UF (35) do emitente, Ano e Mês (2209) de emissão, CNPJ (27303431000183) do emitente, modelo (56) e o número da nota (202200000000086) mais o sufixo "-nfse".

Você concorda que a solução apresentada pelo nosso amigo Juliomar é muito mais simples?