Como pegar o nome do XML antes de enviar

[Rodrigo Guelf]

Gostaria de saber como eu faço para pegar o nome do arquivo xml ou a chave dele antes do comando enviar.

Ou como eu faço para gerar o nome do arquivo.

[peterson161]

ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44

[Rodrigo Guelf]

Amigo, não deu certo estou fazenda assim:

ShowMessage(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID);

ACBrNFe1.Enviar(0, Imprimir);

....

só vem o Numero da Nota Fiscal que eu estou enviando tipo 21610

eu quero guardar no meu banco de dados o nome do arquivo para que eu possa mandar consultar novamente,

ou fazer qualquer outra operação sem a necessidade do usuário ter que ficar procurando o arquivo xml, pois tem usuários que não consegue

entender este tipo de coisa.

eu estava pegando por aqui: "ACBrNFe1.WebServices.Retorno.ChaveNFe" só que quando da erro de transmissão tipo nfe sem autorização de uso, ferra tudo, ai

o usuario tentar enviar novamente e vem a mensagem de nfe rejeitada duplicidade, se eu conseguir guardar a chave/nome do arquivo antes de enviar ai fica mais facil.

Att

Rodrigo Guelf

[felipehf]

Eu faço assim para garantir o retorno em qualquer caso:

try

result:=Self.ACBrNFe1.Enviar(0);

except

on Exc: Exception do

begin

Update_tb014(Self.FNumMov,0,true); {se deu qq erro, aqui eu faço update com o nome do XML: 'nfe_arquivo='+QuotedStr(Copy(Self.ACBrNFe1.NotasFiscais.Items[iNFLote].NFe.infNFe.ID,

(Length(Self.ACBrNFe1.NotasFiscais.Items[iNFLote].NFe.infNFe.ID)-44)+1, 44)+'-NFe.xml')}

G_Mensagem(exc.message);

end;

end;

if not Self.ACBrNFe1.NotasFiscais.Items[0].Confirmada then

begin

Self.Consulta_pela_chave(Copy(Self.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID,

(Length(Self.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID)-44)+1, 44), true);

end;

if not bErro then Self.Update_tb014(Self.FNumMov);//{se não deu nenhum erro, aqui eu faço update com o nome do XML, protocolo e demais}

[Rodrigo Guelf]

Obrigado pela dica, vou fazer assim para testar e depois posto aqui se deu tudo certo.

[Rodrigo Guelf]

felipehf tem como você me passar estas rotinas

"Update_tb014(Self.FNumMov,0,true);"

"Consulta_pela_chave"

"bErro"

vou fazer igual ao seu exemplo.

[felipehf]

bErro é uma variavel boolean do procedimento para armazenar se houve erro ou não;

Consulta_pela_chave faz a consulta pela chave da NFe:

sChave:=Copy(Self.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID,

(Length(Self.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID)-44)+1, 44);

with Self.ACBrNFe1 do

begin

NotasFiscais.Clear;

WebServices.Consulta.NFeChave:=sChave;

WebServices.Consulta.Executar;

end;

Update_tb014 são os updates que faço nos campos na minha base de dados, tipo:

Update tabelavendas set arquivo_nfe='nomearquivo' , etc