AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--FIX

Browse Source 
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
This commit is contained in:
Jonathan Alexis Perez Morales
2024-12-31 15:12:01 -07:00
parent ed88d2c05a
commit b5e87bde63
2 changed files with 128 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Ventas/Ventas.aspx
View File

@@ -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;
}
@@ -579,9 +583,7 @@
<asp:TextBox ID="TxtDescripcionVenta" runat="server" Rows="2" TextMode="MultiLine" Width="100%" MaxLength="300" CssClass="form-control input-sm" Enabled="false"></asp:TextBox></td>
</tr>
<tr runat="server" id="TrCredito1" visible="false">
<td colspan="2">
</td>
<td colspan="2"></td>
</tr>
<tr runat="server" id="TrVentasMedicas1" visible="false">
<td><b>Médico:</b></td>
@@ -8225,6 +8227,7 @@
</div>
<div class="form-group form-md-line-input input-iconright col-xs-3">
<asp:Button ID="BtnValidarRFC" runat="server" CssClass="btn btn-success" Text="Validar" />
<asp:LinkButton ID="BtnRegresarBusqueda" runat="server" CssClass="btn btn-danger" Text="<i class='fas fa-arrow-left'></i>" OnClick="BtnRegresarBusqueda_Click" Visible="false" />
</div>
</asp:Panel>
</div>
@@ -8233,7 +8236,7 @@
<div class="row">
<asp:Panel ID="PnlValidaNombre" runat="server" DefaultButton="BtnValidaPorNombre">
<div class="form-group form-md-line-input input-iconright col-xs-9">
<asp:TextBox ID="TxtRFCNombre" Style="text-transform: uppercase;" placeholder="Ingrese el RFC/Nombre para su validación" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
<asp:TextBox ID="TxtRFCNombre" placeholder="Ingrese el RFC/Nombre" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtRFCNombre.ClientID.ToString()%>">RFC / Nombre:</label>
</div>
<div class="form-group form-md-line-input input-iconright col-xs-3" style="display: flex;">
@@ -8256,10 +8259,8 @@
</div>
<div class="row">
<div class="col-md-12">
<div id="DivBusquedaCliente" runat="server" visible="false">
<div style="overflow-y: auto; width: 100%; height: 250px;">
<asp:GridView ID="GvBusquedaCliente" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros"
CssClass="ScrollAD table table-smallpadding Widthall" GridLines="None">
<div id="DivBusquedaCliente" runat="server" visible="false" class="DivBusquedaCliente">
<asp:GridView ID="GvBusquedaCliente" runat="server" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False" data-heighterror="800" EmptyDataText="No se encontraron registros" GridLines="None" Style="overflow-x: hidden;">
<Columns>
<asp:TemplateField ItemStyle-Width="15%">
<HeaderTemplate>Código</HeaderTemplate>
@@ -8284,7 +8285,6 @@
</div>
</div>
</div>
</div>
<div class="row">
<div class="col-md-12" runat="server" id="DivRazonSocial2">
<div id="DivNombreCliente" runat="server" visible="false" class="form-group form-md-line-input input-iconright">

50
Ventas/Ventas.aspx.vb
View File

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