diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index 60f56f1b0..0637b9c25 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -444,23 +444,6 @@ Public Class ClsClientes
     End Function
 
 
-    Public Function RegistrarCliente(CveCliente As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_ClientesRegistrar")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al Registrar el Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
     'Public Function VincularCuentasContables(Id0CtaContClientes As Integer, Id0CtaContAnticipos As Integer, Id0CtaContRetIVA As Integer, Id0CtaContRetISR As Integer, CveCliente As Integer, Optional Id0CtaContComplementaria As Integer = -1, Optional Id0CtaContMonedaExtranjera As Integer = -1, Optional Id0CtaContMonedaExtranjeraAnticipos As Integer = -1, Optional Id0CtaContCompAnticipos As Integer = -1) As Boolean
 
     '    Dim Retorno As Boolean = False
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 781f9df7b..8added149 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -817,35 +817,7 @@
                                          </div>
                                     </div>
                                 </div>
-                            </div>
-
-                            <%-- Marcar el Cliente como Frecuente --%>
-                            <div class="col-md-6 " id="DivProtletRegistrar" visible="false" runat="server">
-                                <div class="portlet light xspadding bordered">
-                                    <div class="portlet-title">
-                                        <div class="caption font-green">
-                                            <i class="icon-pin font-green"></i>
-                                            <span class="caption-subject bold uppercase">Registrar</span>
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
-                                        </div>
-                                    </div>
-                                    <div class="portlet-body form">
-                                        <div class="table-responsive">
-                                            <table class="table table-striped table-advance table-hover" style="width: 100%">
-                                                <tr>
-                                                    <td style="text-align: center;">
-                                                        <asp:Button ID="BtnRegistrarCliente" runat="server" CssClass="btn btn-success" Text="Registrar" ValidationGroup="GrpGuardar" />
-                                                    </td>
-                                                </tr>
-                                            </table>
-                                        </div>
-                                    </div>
-                                </div>
-                            </div>
-
+                            </div>                           
                             <div class="col-md-6 " id="DivPortletSucursales" runat="server">
                                 <div class="portlet light xspadding bordered">
                                     <div class="portlet-title">
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 81da4b84e..60219d322 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/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"