Private Sub btnAlterarCedente_Click(Index As Integer)
  Dim AlterarCedente As BoletoX.spdRetAlterarCedente
  Dim ID_Cedente As String

ID_Cedente = txtIDCedente.Text


Set AlterarCedente = FBoletoX.AlterarCedente(ID_Cedente, txtTx2.Text)


txtRetorno.Text = ".:: ALTERAR CEDENTE ::."
  txtRetorno.Text = txtRetorno.Text & vbNewLine & "Mensagem : " & AlterarCedente.Mensagem
  txtRetorno.Text = txtRetorno.Text & vbNewLine & "Status : " & AlterarCedente.Status
  txtRetorno.Text = txtRetorno.Text & vbNewLine


If (AlterarCedente.Status = "SUCESSO") Then


txtRetorno.Text = txtRetorno.Text & "Id Cedente : " & AlterarCedente.IDCedente & vbNewLine
txtRetorno.Text = txtRetorno.Text & "Situacao : " & AlterarCedente.Situacao & vbNewLine
txtRetorno.Text = txtRetorno.Text & "Token : " & AlterarCedente.Token & vbNewLine
txtRetorno.Text = txtRetorno.Text & "CPF / CNPJ : " & AlterarCedente.CpfCnpj & vbNewLine
txtRetorno.Text = txtRetorno.Text & "Razao Social : " & AlterarCedente.RazaoSocial & vbNewLine
txtRetorno.Text = txtRetorno.Text & "Nome Fantasia : " & AlterarCedente.NomeFantasia & vbNewLine

End If


End Sub