ActiveDelphi

Fabianoluizdb · Enviada: Seg Out 10, 2011 2:35 pm Assunto: Retornar o Status da NFe

Boa tarde Pessoal

Alguém pode me dar uma dica, preciso fazer uma rotina em Delphi para me retornar o status da NFe dos meus fornecedores? qual componente da ACBR devo usar para fazer isso ?

Aguardo.

Obrigado

CENTURYINF · Enviada: Ter Out 11, 2011 12:26 am Assunto: Re: Retornar o Status da NFe

Ola

Com o acbrnfe, voce pode efetuar a consulta e gravar o retorno
em uma base de dados..

Até

Fabianoluizdb · Enviada: Ter Out 11, 2011 12:52 pm Assunto:

Obrigado pela dica, mas pode ser mais especifico, qual rotina nesse componente eu utilizo para ver ? tem alguma coisa parecido para dar uma olhada ?

Valeu

CENTURYINF · Enviada: Ter Out 11, 2011 5:46 pm Assunto:

Ola,

Bem , no demo do ACBR da pasta \exemplos
tem um demo, nele contem um modulo de consulta
com o XML, o qual utilizei a ideia para implementar
meu sistema e assim consultar notas de fornecedores.

procedure TNFE2.btnConsultarClick(Sender: TObject);
begin
OpenDialog1.Title := 'Selecione a NFE';
OpenDialog1.DefaultExt := '*-nfe.XML';
OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;
if OpenDialog1.Execute then
begin
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
ACBrNFe1.Consultar;
ShowMessage(ACBrNFe1.WebServices.Consulta.Protocolo);
MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetWS);
memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetornoWS);
LoadXML(MemoResp, WBResposta);
end;
end;

espero que ajude

Fabianoluizdb · Enviada: Qui Out 13, 2011 2:28 pm Assunto:

Certo Amigo obrigado pelo dica vou testar e depois te aviso.

Valeu