PUBLIC Impressao AS BoletoX.spdRetConsultarLoteImpressao

Impressao  = Boleto.ConsultarLoteImpressao(THISFORM.txtProtocoloRetornoImpressaoLote.Value,"") 


THISFORM.edtResposta.Value = ".:: Impressão em Lote - Boleto ::." + chr(13) + chr(10)
THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + "   Mensagem: " + Impressao.Mensagem + chr(13) + chr(10)
THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + "   Status: " + Impressao.Status + chr(13) + chr(10)
THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + chr(13) + chr(10)


IF Impressao.Status = "ERRO"
  THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + "ErroClasse: " + Impressao.ErroClasse
ENDIF