Pega O Numero Nfs-E

[Hetosoft Sistemas]

como façor para pega o numero da nfs-e depois que imprimir

 

 

 

 

 

var
 vAux, vNumLote : String;
begin
 if not(InputQuery('Gerar e Enviar Lote', 'Numero do RPS', vAux))
  then exit;

 if not(InputQuery('Gerar e Enviar Lote', 'Numero do Lote', vNumLote))
  then exit;

 ACBrNFSe1.NotasFiscais.Clear;
 GerarNFSe(vAux);
 ACBrNFSe1.Enviar(vNumLote);

 MemoResp.Lines.Add( 'Numero da nota'+  ?   )

 ACBrNFSe1.NotasFiscais.Clear;

 

 

 

 

-------------

Eu uso esse comando para pega algum dado da nf-e

 MemoResp.Lines.Add( 'Numero da nota'+  AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe   )

 

 

 

 

[Italo Giurizzato Junior]

Boa noite Heto Andrade,

 

Programa exemplo, veja a procedure TfrmDemo_ACBrNFSe.btnImprimirClick(Sender: TObject);

 

[Hetosoft Sistemas]

 TfrmDemo_ACBrNFSe.btnImprimirClick(Sender: TObject);

MemoDados.Lines.Add('Arquivo Carregado de: '+ACBrNFSe1.NotasFiscais.Items[0].NomeArq);

 MemoResp.Lines.LoadFromFile(ACBrNFSe1.NotasFiscais.Items[0].NomeArq);

 

eu sei que tem como eu pega o numero pelo nomeArq, mais nao tem nehuma outra funcao para

pega o numero da nota iqual do nfe

 

queria pega o

Protocolo - quando enviamos um lote

Numero da nota - quando o lote é processado

 

se tive como coloca o codigo blz, se nao , nao precisa responder. obrigado !

Editado 2 Maio, 2013 por hetoandrade

[Italo Giurizzato Junior]

Boa tarde Heto Andrade,

 

Pelo seu post anterior noto que os seus fontes do programa exemplo estão desatualizados.

 

Por favor mantenha todos os fontes atualizados.

 

Atualizando deve ficar assim:

 

   MemoDados.Lines.Add('Arquivo Carregado de: '+ACBrNFSe1.NotasFiscais.Items[0].NomeArq);

   MemoDados.Lines.Add('Nota Numero: '+ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero);

   MemoDados.Lines.Add('Código de Verificação: '+ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao);

   MemoResp.Lines.LoadFromFile(ACBrNFSe1.NotasFiscais.Items[0].NomeArq);

 

 

Para pegar o protocolo depois do envio:

 

sProtocolo :=  ACBrNFSe1.WebServices.Enviar.Protocolo;

[Hetosoft Sistemas]

obrigado, so mais um detalhe,

 

       if Form_NFSe.ACBrNFSe1.Enviar(vNumLote) then

       begin

          DM12.Client_NotaFiscal.edit;

          DM12.Client_NotaFiscalNFS_PROTOCOLO.Text:= Form_NFSe.ACBrNFSe1.WebServices.Enviar.Protocolo;

          DM12.Client_NotaFiscalNFS_PROTOCOLO_LOTE.Text:= Form_NFSe.ACBrNFSe1.WebServices.ConsLote.Protocolo;

          DM12.Client_NotaFiscalNFS_CODVERIFICACAO.Text:=    Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao;

          DM12.Client_NotaFiscalNUMERO.Text:= Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero;

          

          DM12.Client_NotaFiscal.ApplyUpdates(-1);

       end;

 

 

 

Ficou blz,

mais quando o lote ainda nao processado,

como façor para quarda o protocolo do LOTE, para depois conulta o lote,

na consulta do lote pede o numero e o protocolo.

 

Form_NFSe.ACBrNFSe1.WebServices.Enviar.Protocolo;

essa funcao so pega o protocolo quando o lote ja é processado logo apos enviar?

[Italo Giurizzato Junior]

Boa noite Heto Andrade,

 

Form_NFSe.ACBrNFSe1.WebServices.Enviar.Protocolo;

 

O numero do protocolo retornado na verdade é um numero que acusa o recebimento do lote pelo web services.

 

Sendo assim o processamento ainda não ocorreu.