-- quitar el marcado de tipocliente

This commit is contained in:
2024-01-06 12:57:53 -07:00
parent 9e9855e0f6
commit c4cee9b308
3 changed files with 1 additions and 58 deletions

View File

@@ -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">

View File

@@ -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"