Como pegar o número da chave da Nfe antes de enviar?

[ANTONIO CARLOS ANT.CARLOS]

Bom dia!
Desejaria saber como faço para pegar o número da chave da nota antes
do envio?

Exemplo:
=======
   ChNfe := DMACBRNFE.ACBrNFe1.NotasFiscais.Items[0].NFe....;

   Enviou := DMACBRNFE.ACBrNFe1.Enviar(0);

Algo assim.

Desde já meus agradecimentos a quem puder responder.

sem mais,

ANT.CARLOS/SP

 

[Agnaldo Prates]

6 minutos atrás, ANTONIO CARLOS ANT.CARLOS disse:

   ChNfe := DMACBRNFE.ACBrNFe1.NotasFiscais.Items[0].NFe....;

Depois de gerar, basta usar:
cChave := OnlyNumber(NFe.NotasFiscais.Items[0].NFe.infNFe.id) + '-NFe.xml';

 

[ANTONIO CARLOS ANT.CARLOS]

Então, neste ponto antes do Enviar ainda não foi gerado o XML?

 

[Agnaldo Prates]

4 minutos atrás, ANTONIO CARLOS ANT.CARLOS disse:

Então, neste ponto antes do Enviar ainda não foi gerado o XML?

O XML já foi gerado.

Try
    AcbrNFe1.NotasFiscais.GerarNFe;
Except
      Exit;
End;

Só executa o comando abaixo se gerar o XML.

cChave := OnlyNumber(NFe.NotasFiscais.Items[0].NFe.infNFe.id) + '-NFe.xml';

 

[ANTONIO CARLOS ANT.CARLOS]

Encontre outra solução mesmo antes de gerar o XML.

   

femiss := 1;
coduf  := Empresa.coduf;
modelo := 55;
serie  := 1;

pcnAuxiliar.GerarChave(vChave, coduf, Nfe.numnota, modelo, serie, Nfe.numnota, femiss, Date(), DMACBRNFE.getCnpjEmpresa());
vChave := pcnAuxiliar.SomenteNumeros(vChave);