Como faço para remover essas mensagens?

[sostenescg]

Eu gostaria de que essa mensagem não aparecesse ao solicitar o status, alguém sabe como?

Vou citar a procedure do botão, do código exemplo do AcBr_MDF-e, vejam abaixo:

procedure TfrmDemo_ACBrMDFe.btnStatusServClick(Sender: TObject);
begin
 ACBrMDFe1.WebServices.StatusServico.Executar;
 MemoResp.Lines.Text := ACBrUTF8ToAnsi(ACBrMDFe1.WebServices.StatusServico.RetWS);
 memoRespWS.Lines.Text := ACBrUTF8ToAnsi(ACBrMDFe1.WebServices.StatusServico.RetWS);
 LoadXML(MemoResp, WBResposta);

 PageControl2.ActivePageIndex := 5;
 MemoDados.Lines.Add('');
 MemoDados.Lines.Add('Status Serviço');
 MemoDados.Lines.Add('tpAmb: '    +TpAmbToStr(ACBrMDFe1.WebServices.StatusServico.tpAmb));
 MemoDados.Lines.Add('verAplic: ' +ACBrMDFe1.WebServices.StatusServico.verAplic);
 MemoDados.Lines.Add('cStat: '    +IntToStr(ACBrMDFe1.WebServices.StatusServico.cStat));
 MemoDados.Lines.Add('xMotivo: '  +ACBrMDFe1.WebServices.StatusServico.xMotivo);
 MemoDados.Lines.Add('cUF: '      +IntToStr(ACBrMDFe1.WebServices.StatusServico.cUF));
 MemoDados.Lines.Add('dhRecbto: ' +DateTimeToStr(ACBrMDFe1.WebServices.StatusServico.dhRecbto));
 MemoDados.Lines.Add('tMed: '     +IntToStr(ACBrMDFe1.WebServices.StatusServico.TMed));
 MemoDados.Lines.Add('dhRetorno: '+DateTimeToStr(ACBrMDFe1.WebServices.StatusServico.dhRetorno));
 MemoDados.Lines.Add('xObs: '     +ACBrMDFe1.WebServices.StatusServico.xObs);
end;

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

Se eu deixar a procedure da forma abaixo, ela também continua aparecendo:

procedure TfrmDemo_ACBrMDFe.btnStatusServClick(Sender: TObject);
begin
 ACBrMDFe1.WebServices.StatusServico.Executar;
end;

 

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

Alguém sabe?

Editado 15 Maio, 2018 por sostenescg

[Italo Giurizzato Junior]

Boa tarde,

Nas configurações do componente no grupo webservice não tem uma propriedade chamada Visualizar?

Chegou a atribuir o valor False a ela para ver o que acontece?

[sostenescg]

59 minutos atrás, sostenescg disse:

Eu gostaria de que essa mensagem não aparecesse ao solicitar o status, alguém sabe como?

Vou citar a procedure do botão, do código exemplo do AcBr_MDF-e, vejam abaixo:

procedure TfrmDemo_ACBrMDFe.btnStatusServClick(Sender: TObject);
begin
 ACBrMDFe1.WebServices.StatusServico.Executar;
 MemoResp.Lines.Text := ACBrUTF8ToAnsi(ACBrMDFe1.WebServices.StatusServico.RetWS);
 memoRespWS.Lines.Text := ACBrUTF8ToAnsi(ACBrMDFe1.WebServices.StatusServico.RetWS);
 LoadXML(MemoResp, WBResposta);

 PageControl2.ActivePageIndex := 5;
 MemoDados.Lines.Add('');
 MemoDados.Lines.Add('Status Serviço');
 MemoDados.Lines.Add('tpAmb: '    +TpAmbToStr(ACBrMDFe1.WebServices.StatusServico.tpAmb));
 MemoDados.Lines.Add('verAplic: ' +ACBrMDFe1.WebServices.StatusServico.verAplic);
 MemoDados.Lines.Add('cStat: '    +IntToStr(ACBrMDFe1.WebServices.StatusServico.cStat));
 MemoDados.Lines.Add('xMotivo: '  +ACBrMDFe1.WebServices.StatusServico.xMotivo);
 MemoDados.Lines.Add('cUF: '      +IntToStr(ACBrMDFe1.WebServices.StatusServico.cUF));
 MemoDados.Lines.Add('dhRecbto: ' +DateTimeToStr(ACBrMDFe1.WebServices.StatusServico.dhRecbto));
 MemoDados.Lines.Add('tMed: '     +IntToStr(ACBrMDFe1.WebServices.StatusServico.TMed));
 MemoDados.Lines.Add('dhRetorno: '+DateTimeToStr(ACBrMDFe1.WebServices.StatusServico.dhRetorno));
 MemoDados.Lines.Add('xObs: '     +ACBrMDFe1.WebServices.StatusServico.xObs);
end;

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

Se eu deixar a procedure da forma abaixo, ela também continua aparecendo:

procedure TfrmDemo_ACBrMDFe.btnStatusServClick(Sender: TObject);
begin
 ACBrMDFe1.WebServices.StatusServico.Executar;
end;

 

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

Alguém sabe?

Obá!!! Deu Certo!!!

Olá Ítalo, Obrigado desde já pela ajuda!!!

Eu olhei agora e está visualizar := FALSE, alterei pra TRUE pra ver o que acontecia...

Ele estava mostrando a mensagem do Status, dos dois modos da configuração do Componente...

Procurei se estava sendo setado via código, e achei assim:

 ACBrMDFe1.Configuracoes.WebServices.Visualizar               := ckVisualizar.Checked;

removi esta linha e deu certo!!!

Muito Obrigado Ítalo!!!

Editado 15 Maio, 2018 por sostenescg