PUBLIC RetornoConsultarAlteracao As BoletoX.spdRetConsultarRemessaAlteracaoLista
PUBLIC RetornoConsultarAlteracaoItem As BoletoX.spdRetConsultarRemessaAlteracaoItem

RetornoConsultarAlteracao = Boleto.ConsultarRemessaAlteracao(THISFORM.TxtProtocoloRetornoRemessaAlteracao.Value)


THISFORM.edtResposta.Value = ".:: Consultar Protocolo da Remessa de Alteração ::." + chr(13) + chr(10)
THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + "   Mensagem: " + RetornoConsultarAlteracao.Mensagem + chr(13) + chr(10)
THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + "   Status: " + RetornoConsultarAlteracao.Status + chr(13) + chr(10)
THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + "   Situação: " + RetornoConsultarAlteracao.Status + chr(13) + chr(10)
THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + chr(13) + chr(10)


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


For i = 0 To RetornoConsultarAlteracao.Count - 1
  RetornoConsultarAlteracaoItem= RetornoConsultarAlteracao.Item[i]
  THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + "Item : " + STR(i + 1) + chr(13) + chr(10)
  THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + "  Mensagem: " + RetornoConsultarAlteracaoItem.Mensagem + chr(13) + chr(10)
  THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + "  Remessa : " + RetornoConsultarAlteracaoItem.Remessa + chr(13) + chr(10)
  THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + "  Banco : " + RetornoConsultarAlteracaoItem.Banco + chr(13) + chr(10)
  THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + "  Conta : " + RetornoConsultarAlteracaoItem.Conta + chr(13) + chr(10)
  THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + "  Número Atual da Remessa: " + STR(RetornoConsultarAlteracaoItem.NumeroAtualRemessa) + chr(13) + chr(10)
  THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + "  Transmissao automática?  " + IIF(RetornoConsultarAlteracaoItem.TransmissaoAutomatica, "True","False") + chr(13) + chr(10)
  THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + "  Erro : " + RetornoConsultarAlteracaoItem.Erro + chr(13) + chr(10)


For j = 0 To RetornoConsultarAlteracaoItem.Titulos.Count - 1
    THISFORM.edtResposta.Value = THISFORM.edtResposta.Value + "Id Integração : " + STR(j + 1) + " - " + RetornoConsultarAlteracaoItem.Titulos.Item[j] + chr(13) + chr(10)
  ENDFOR
ENDFOR