-- quitar el marcado de tipocliente

Ventas/Clientes.aspx.vb

@@ -1753,7 +1753,6 @@ Partial Class Clientes
                     'DivPortletBitacora.Visible = False
                     BtnEliminar.Visible = False
 
-                    DivProtletRegistrar.Visible = True
                 End If
 
                 TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString()
@@ -5847,19 +5846,8 @@ Partial Class Clientes
         Catch ex As Exception
             OnError("Ocurrió error al mandar MAIL", ex)
         End Try
-    End Sub
-
-    Private Sub BtnRegistrarCliente_Click(sender As Object, e As EventArgs) Handles BtnRegistrarCliente.Click
-        Dim ObjClientes As New ClsClientes
-
-        If ObjClientes.RegistrarCliente(CveCliente) Then
-            RegistraScript("location.reload();")
-        End If
-
-        ObjClientes.Dispose()
     End Sub
 
-
 #End Region
 
 #Region "C O N T R A T O S"