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