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

-- filtro marca

Browse Source
This commit is contained in:
rrene
2024-03-22 09:55:57 -07:00
parent b9b417df52
commit 9d494cb247
3 changed files with 18 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Ventas/CatPS.aspx
View File

@@ -189,13 +189,18 @@
</asp:DropDownList>
</div>
<label class="col-md-1 truncate">Aplica para Venta:</label>
<div class="col-md-2">
<div class="col-md-1">
<asp:DropDownList runat="server" ID="DdlAplicaVenta" CssClass="form-control input-sm select2me" Width="90%">
<asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem>
<asp:ListItem Text="Si" Value="1"></asp:ListItem>
<asp:ListItem Text="No" Value="0"></asp:ListItem>
</asp:DropDownList>
</div>
<label class="col-md-1 truncate">Marca:</label>
<div class="col-md-2">
<asp:DropDownList runat="server" ID="DdlMarcas" DataTextField="Marca" DataValueField="CveMarca" CssClass="form-control input-sm select2me" Width="90%">
</asp:DropDownList>
</div>
</div>
</div>
</div>

11
Ventas/CatPS.aspx.vb
View File

@@ -58,6 +58,10 @@ Partial Class CatPS
Ddlclasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (UsoClasificacion = {0} OR {0} = -1)", DdlTipoClasificacion.SelectedValue))
Ddlclasificacion.DataBind()
Ddlclasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
DdlMarcas.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarcas.DataBind()
DdlMarcas.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Public Sub CargaDatos()
@@ -70,7 +74,12 @@ Partial Class CatPS
If TxtNombre.Text.Trim = "" Then Nombre = "-1" Else Nombre = TxtNombre.Text.ToUpper.Trim
Dim ObjPS As New ClsProductosServicios
If ObjPS.GetPSLite(Ddlclasificacion.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, Codigo, CodigoBarras, Nombre, DdlAplicaVenta.SelectedValue.ToEntero, DdlEstado.SelectedValue.ToEntero, DdlCveTipoPS.SelectedValue.ToEntero, DdlTipoClasificacion.SelectedValue.ToEntero) Then
If ObjPS.GetPSLite(Ddlclasificacion.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, Codigo, CodigoBarras, Nombre,
pAplicaParaVenta:=DdlAplicaVenta.SelectedValue.ToEntero,
pEstado:=DdlEstado.SelectedValue.ToEntero,
CveTipoPS:=DdlCveTipoPS.SelectedValue.ToEntero,
UsoClasificacion:=DdlTipoClasificacion.SelectedValue.ToEntero,
CveMarca:=DdlMarcas.SelectedValue.ToEntero) Then
DtDatos = ObjPS.DtResultados
GvDatos.DataSource = DtDatos
Else