PUBLIC GerarResposta As Boleto.spdRetGerarRemessaAlteracao GerarResposta = Boleto.GerarRemessaAlteracao("0", THISFORM.edtTx2.Value) THISFORM.TxtProtocoloRetornoRemessaAlteracao.Value = GerarResposta.Protocolo THISFORM.edtResposta.Value = ".:: Gerar Remessa de Alteração ::." + chr(13) + chr(10) THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + " Mensagem: " + GerarResposta.Mensagem + chr(13) + chr(10) THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + " Status: " + GerarResposta.Status + chr(13) + chr(10) THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + " Protocolo: " + GerarResposta.Protocolo + chr(13) + chr(10) THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + chr(13) + chr(10) If (GerarResposta.Status = "ERRO") Then THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + "ErroClasse: " + GerarResposta.ErroClasse ENDIF