Erro no retorno da CONSULTA da NFe

[Jackson_rr]

Ola, amigos

Boa noite,

Sou novo no mundo do Delphi e Lazarus, pois estou convertendo meu sistema em xHarbour para inicialmente em LAZARUS, e me deparei com um problema que ao consultar um XML Assinado, o componente esta sempre me retornando verdadeiro, e ao analizar a rotina vi que tem um pequeno erro, o qual fiz a correção e funcionou.

 

Estou colocando aqui para que possa ser analisado, e se, de fato estiver correto, possam fazer a devida correção

function TACBrNFe.Consultar(AChave: String): Boolean;
var
  i: integer;
begin
  Result := False
  if (NotasFiscais.Count = 0) and EstaVazio(AChave) then
    GerarException(ACBrStr('ERRO: Nenhuma Nota Fiscal Eletrônica ou Chave Informada!'));

  if NaoEstaVazio(AChave) then
  begin
    NotasFiscais.Clear;
    WebServices.Consulta.NFeChave := AChave;
    Result := WebServices.Consulta.Executar;
  end
  else
  begin
    for i := 0 to NotasFiscais.Count - 1 do
    begin
      WebServices.Consulta.NFeChave := NotasFiscais.Items[i].NumID;
      Result := WebServices.Consulta.Executar;
    end;
  end;

  // Result := True;  <<=== aqui estava sempre retornando TRUE.
end;

 

Fico no aguardo para qualquer esclarecimento.

 

[Juliomar Marchetti]

Bom dia!

no caso ele inicia o retorno False!

se as execuções dos métodos forem Ok ele vai passar retornando true e também passará ao final com true!

agora se der algum erro ele não vai chegar até o true e nem vai retornar true nos métodos executar!

poderia até ser removido mas não fará diferença!

[Jackson_rr]

Ola, bom dia

Se voce observar onde tem o "Result :=" vera que nos fontes originais nao tem, foi eu quem colocou, eu só esqueci de colocar os comentarios onde foram as mudanças.

 

Fico no aguardo.

[Daniel Simoes]

Para sugerir modificações nos fontes... por favor anexe as Units modificadas, ou gere um Patch

[Jackson_rr]

Ola, Boa tarde Daniel

 

Como falei, nao tenho muito conhecimento em DELPHI ou LAZARUS, e não saberia como fazer isso, como postado acima, creio que mostrei onde possa ser feita a modificação, vou ver como faço e anexo aqui as modificações.

 

Obrigado pelo pronto atendimento, e será um prazer contribuir com o projeto.

 

Fico no aguardo para quaisquer esclarecimento.