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

3
App_Code/ClsProductosServicios.vb
View File

@@ -347,7 +347,7 @@ Public Class ClsProductosServicios
Return Retorno
End Function
Public Function GetPSLite(CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveTipoPS As Integer = -1, Optional UsoClasificacion As Integer = -1) As Boolean
Public Function GetPSLite(CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveTipoPS As Integer = -1, Optional UsoClasificacion As Integer = -1, Optional CveMarca As Integer = -1) As Boolean
Dim Retorno As Boolean = False
' @CveClasificacion int, @Codigo varchar(50) = '-1', @PS varchar(300) = '-1', @AplicaParaVenta int = -1, @Estado int = -1, @CodigoBarras varchar(50) = '-1', @CveTipoPS int = -1, @CveEmpresa int
DataAdapter("PA_ProductosServiciosLiteGet")
@@ -360,6 +360,7 @@ Public Class ClsProductosServicios
.Add("@AplicaParaVenta", SqlDbType.Int).Value = pAplicaParaVenta
.Add("@Estado", SqlDbType.Int).Value = pEstado
.Add("@CveTipoPS", SqlDbType.Int).Value = CveTipoPS
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@UsoClasificacion", SqlDbType.Int).Value = UsoClasificacion
End With

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