Pesquisar na Comunidade
Showing results for tags 'mensagens do webservices'.
Encontrado 1 registro
-
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?
- 2 replies
-
- mdf-e
- remover mensagens
- (e 1 mais)