From b5e87bde63943fdda466d48cb28c45d504bbd22b Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 31 Dec 2024 15:12:01 -0700 Subject: [PATCH] --FIX MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 1.- Minusculas texto en buscar 2.- Alto del GRID 3.- Cambios en el combo Regimen y USO cuando cambias los radios de P. Fisica y Moral 4.- Telefono 5.- Boton Buscar 6.- Buscar LEN >=3 --- Ventas/Ventas.aspx | 164 +++++++++++++++++++++--------------------- Ventas/Ventas.aspx.vb | 52 ++++++++++++-- 2 files changed, 128 insertions(+), 88 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index b556ddb94..95b490c82 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -84,6 +84,10 @@ border-right: none; } + .DivBusquedaCliente > div > .ADScroller > .ADScroller-body { + overflow-x: hidden !important; + } + .GvEst > tbody > tr > td:nth-child(2) { padding-left: 36px; } @@ -578,11 +582,9 @@ - - - - - + + + Médico: @@ -1477,7 +1479,7 @@ <%--18--%> - +
@@ -8225,6 +8227,7 @@
+
@@ -8233,11 +8236,11 @@
- +
-
- +
+
@@ -8256,32 +8259,29 @@
-
-
- - - - Código - - - - - - Nombre - - - - - - RFC - - - - - - -
+
+ + + + Código + + + + + + Nombre + + + + + + RFC + + + + + +
@@ -8825,59 +8825,59 @@

Solicitar crédito

-
-
- - - - +
+
+ + + + +
+
+ + + + + + + +
+
+ +
+ + + + + +
-
- - - - - - - -
-
- -
- - - - - - +
+
+ + + + + + + +
+
+
+
+
-
-
- - - - - - - -
-
-
-
- -
-
-
- - - -
+
+
+ + +
+
-
-   +
+  
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index fd176c86f..0a60504ad 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -25088,6 +25088,11 @@ Partial Class Ventas End Sub Private Sub LnkAgregarCliente_Click(sender As Object, e As EventArgs) Handles LnkAgregarCliente.Click + LimpiarAgregarCliente() + RegistraScript("showDivEC();") + End Sub + + Private Sub LimpiarAgregarCliente() DivNombreCliente.Visible = False DivTipoPersona.Visible = False DivDireccionCliente.Visible = False @@ -25102,6 +25107,7 @@ Partial Class Ventas divRegimenCliente.Visible = False divGiro.Visible = False DivBusquedaCliente.Visible = False + BtnRegresarBusqueda.Visible = False CargaEstados() @@ -25119,8 +25125,9 @@ Partial Class Ventas TxtCorreoCliente.Text = "" TxtTelefonoCliente.Text = "" - If UsuarioActual.CveEmpresa = 189 Then + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then TxtRFCNombre.Text = "" + BtnCrearCliente.Visible = True DivValidaRFC.Visible = False DivValidaPorNombre.Visible = True @@ -25135,8 +25142,6 @@ Partial Class Ventas End If UpAgregarCliente.Update() - - RegistraScript("showDivEC();") End Sub Protected Sub GvBusquedaCliente_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBusquedaCliente.RowDataBound @@ -25153,6 +25158,12 @@ Partial Class Ventas End Sub Private Sub BtnValidaPorNombre_Click(sender As Object, e As EventArgs) Handles BtnValidaPorNombre.Click + + If TxtRFCNombre.Text.Length <= 2 Then + Alert("Debe escribir al menos 3 caracteres", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + Dim ObjCliente As New ClsClientes If ObjCliente.BuscarClienteRFCNombre(TxtRFCNombre.Text, UsuarioActual.CveEmpresa) Then If ObjCliente.DtResultados.Rows.Count = 1 AndAlso TxtRFCNombre.Text.Trim() <> "XAXX010101000" Then @@ -25278,6 +25289,8 @@ Partial Class Ventas TxtDireccionCliente.Text = DrSP("Calle").ToString() TxtNumExtCliente.Text = DrSP("NoExt").ToString() TxtNumIntCliente.Text = DrSP("NoInt").ToString() + TxtCorreoCliente.Text = DrSP("Correo").ToString() + TxtTelefonoCliente.Text = DrSP("Telefono").ToString() End If @@ -25307,6 +25320,12 @@ Partial Class Ventas End If DdlUsoCFDICliente.SelectedValueExist("3") + + BtnCrearCliente.Visible = False + BtnValidarRFC.Visible = False + BtnRegresarBusqueda.Visible = True + + UpAgregarCliente.Update() End If End Sub @@ -37501,9 +37520,26 @@ Partial Class Ventas DdlRegimenFiscalCliente.Items.Insert(0, New ListItem("Seleccione", "-1")) - 'DdlUsoCFDICliente.Items.Clear() - 'DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1")) - CargaComboCFDICliente() + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + 'PERSONA MORAL + If RdTipoPersona.SelectedValue = "1" Then + DdlRegimenFiscalCliente.SelectedValueExist("1") + DdlRegimenFiscalCliente_SelectedIndexChanged(Nothing, EventArgs.Empty) + 'PERSONA FISICA + Else + If TxtRFCCliente.Text.Trim() = "XAXX010101000" Then + DdlRegimenFiscalCliente.SelectedValueExist("11") + Else + DdlRegimenFiscalCliente.SelectedValueExist("9") + End If + + DdlRegimenFiscalCliente_SelectedIndexChanged(Nothing, EventArgs.Empty) + End If + + DdlUsoCFDICliente.SelectedValueExist("3") + Else + CargaComboCFDICliente() + End If UpAgregarCliente.Update() End Sub @@ -40135,5 +40171,9 @@ Partial Class Ventas Private Function EsRFC(texto As String) As Boolean Return Regex.IsMatch(texto, "^[a-zñA-ZÑ.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$") End Function + + Protected Sub BtnRegresarBusqueda_Click(sender As Object, e As EventArgs) + LimpiarAgregarCliente() + End Sub End Class