Erro no acbrnfe1.DistribuicaoDFePorUltNSU

[nick souza]

Bom Dia.

Criei uma tela para baixar as notas emitidas para o meu cliente (DFe).   Fiz uma MThread para não travar o sistema dentro do botão de pesquisa.

E antes de qualquer coisa eu consulto a ultima NSU na base do Sefaz para poder continuar.

Só que é justamente no comando de pesquisa que da uma ação inesperada.

======================================================
       sUltimoNSU := '0';
       sTemMais   := 'S';
       vAuxM      := '';
       Inc(k);

       mmlog.lines.add('Consultando o NSU no Servidor do SEFAZ');
       If acbrnfe1.DistribuicaoDFePorUltNSU(xcodibge,CNPJ,'000000000000000') Then Begin //*** Buscando o último NSU no Sefaz.
          mmlog.lines.add('Não realizou pesquisa.');          
          mmlog.Refresh;
          TerminodeThred;  //habilita os botões e desliga o timer.
          Exit;
       End;

       mmlog.lines.add('Ultima NSU : ' + acbrnfe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU + '/' +
                                         acbrnfe1.WebServices.DistribuicaoDFe.retDistDFeInt.maxNSU);
       mmlog.lines.add('Motivo : ' + ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo);

       mmlog.Refresh;
======================================================

Qual o problema... ?

- Ele não entra no If
- Não continua...
- Nem entra no Finally do Try.

Simplesmente ele finaliza a minha MThread do nada ao executar o comando acbrnfe1.DistribuicaoDFePorUltNSU dentro do If.

Ou seja, não me permite tratar nada, nem me retorna nada... só fecha a MThread.

O que posso fazer neste caso ? Não entendi o erro...

Podem ajudar ? Plz

 

 

 

[nick souza]

Consegui resolver separando um botão apenas para consulta e outro para pegar o ultimo NSU.

E apliquei uma tratativa dentro do While da MThread.

Vlw vlw.

[Renato Rubinho]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.