Erro Na Function Twebservices.envia(Alote: String; Const Asincrono: Boolean): Boolean;

[Fernando Di Pace]

 

Amigos,

 

Fiz um teste com a função ACBrNFe1.Enviar(iLoteId, true, Sincrono), com o pc desconectado da internet com o

intuíto de observar o retorno dessa função, e me deparei com a situação de retorno positivo = true onde na realidade 

erá para da um retorno negativo = false. Alem de excetions raise's (Mensagens de erros)

 

Observie que a função que é responsável por esse retorno está na Unit -> ACBrNFeWebServices -> Class -> TWebServices.Envia.

Segue abaixo o corpo da função que no fim sempre retorna true, algum moderador poderia corrigir e disponibilizar os 

fontes no SVN, pois seria bom ter o controle correto desse método.

 

 

function TWebServices.Envia(ALote: String; const ASincrono: Boolean): Boolean;

begin

  FEnviar.FLote     := ALote;

  FEnviar.FSincrono := ASincrono;

 

  if not Enviar.Executar then

    Enviar.GerarException(Enviar.Msg);

 

  if not ASincrono then

  begin

    FRetorno.Recibo := FEnviar.Recibo;

    if not FRetorno.Executar then

      FRetorno.GerarException(FRetorno.Msg);

  end;

 

  Result := True;

end;

Editado 2 Fevereiro, 2015 por Fernando Di Pace

[José Nilton Pace]

Bom dia Primo, rs, vc está usando try except end pra Função Envia?, pq se não enviar ele levanta uma exception, talvez vc consiga pegar a exception sem internet.

[Fernando Di Pace]

JPace, oi priomo será?, rsrsrs, em fim. Realmente deu certo a sua dica, porém seria bom algum membro do ACBR Moderador ou Tec. fazer a correção da função, pois deixaria o componente que já é fantástico mais robusto ainda.

 

 

 

o Trecho do código ficou assim:

 

...

    try

        if (ACBrNFe1.Enviar(iLoteId, true, Sincrono)) then

        begin

          SalvarNFCeProtocoloRec(ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe,

                                 ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt,

                                 FormatDateTime('mm/dd/yyyy hh:mm:ss', ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.dhRecbto)

                                 );

          _Utils.DeletaArquivosTemporarios(ACBrNFe1.Configuracoes.Geral.PathSalvar);

          ACBrNFe1.NotasFiscais.Clear;

          Result := true;

        end;

      except

        Result := false;

      end;

...

 

Valeu primo rsrsrs