GDiaz- 2024.04.18 Kardex Filtro Marca, proveedor
This commit is contained in:
rakcsle
@@ -1588,7 +1588,7 @@ Public Class ClsInventarios
|
||||
End Function
|
||||
|
||||
Public Function GetKardex(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer,
|
||||
Optional AgruparAlmacen As Boolean = False, Optional Serie As String = "-1", Optional CveAlmacenes As String = "-1") As Boolean
|
||||
Optional AgruparAlmacen As Boolean = False, Optional Serie As String = "-1", Optional CveAlmacenes As String = "-1", Optional CveMarca As Integer = -1, Optional CveProveedor As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Inv_KardexGet")
|
||||
@@ -1607,6 +1607,8 @@ Public Class ClsInventarios
|
||||
.Add("@AgruparAlmacen", SqlDbType.Bit).Value = AgruparAlmacen
|
||||
.Add("@Serie", SqlDbType.VarChar).Value = Serie
|
||||
.Add("@CveAlmacenes", SqlDbType.VarChar).Value = CveAlmacenes
|
||||
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
|
||||
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
|
||||
|
||||
End With
|
||||
|
||||
@@ -1626,7 +1628,8 @@ Public Class ClsInventarios
|
||||
End Function
|
||||
|
||||
Public Function GetKardexPSNavegacion(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer,
|
||||
Optional CveAlmacenes As String = "-1", Optional Siguiente As Boolean = True, Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
|
||||
Optional CveAlmacenes As String = "-1", Optional Siguiente As Boolean = True, Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1", Optional CveMarca As Integer = -1,
|
||||
Optional CveProveedor As Integer = -1) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
@@ -1647,6 +1650,8 @@ Public Class ClsInventarios
|
||||
.Add("@Siguiente", SqlDbType.Bit).Value = Siguiente
|
||||
.Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
|
||||
.Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
|
||||
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
|
||||
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
|
||||
|
||||
End With
|
||||
|
||||
|
||||
@@ -194,7 +194,7 @@
|
||||
</div>
|
||||
|
||||
</div>
|
||||
<label class="col-md-1 " style="max-width: 70px;">Fecha Fin:</label>
|
||||
<label class="col-md-1 " style="max-width: 85px;">Fecha Fin:</label>
|
||||
<div class="col-md-1" style="min-width: 115px;">
|
||||
<div style="display: inline-block; vertical-align: text-bottom;">
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 105px !important; padding: 0px;">
|
||||
@@ -228,7 +228,7 @@
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
<label class="col-md-1 truncate">Unidad Medida:</label>
|
||||
<label class="col-md-1 truncate" style="max-width: 80px;">Unidad Medida:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlUnidadMedida" runat="server" CssClass="select2me " Style="width: 200px !important;" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida">
|
||||
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
|
||||
@@ -260,8 +260,19 @@
|
||||
<div class="row" runat="server" visible="false" id="DVFiltroCodigo">
|
||||
<div class="col-md-1">Código Inicio:</div>
|
||||
<div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoInicio" Height="26px"></asp:TextBox></div>
|
||||
<div class="col-md-1">Código Fin:</div>
|
||||
<div class="col-md-1" style="max-width: 80px;">Código Fin:</div>
|
||||
<div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoFinal" Height="26px"></asp:TextBox></div>
|
||||
<div class="col-md-1" style="max-width: 85px;">Marca</div>
|
||||
<div class="col-md-1" style="min-width: 150px;">
|
||||
<asp:DropDownList ID="DdlMarca" CssClass="form-control input-sm select2me" CssStyle="width: 100%;" Width="100%" runat="server" DataTextField="Marca" DataValueField="CveMarca" >
|
||||
<asp:ListItem Text="Todas" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<div class="col-md-1" style="max-width: 85px;">Proveedor:</div>
|
||||
<div class="col-md-1" style="min-width: 150px;">
|
||||
<ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
|
||||
</div>
|
||||
|
||||
<div class="col-md-1" runat="server" id="DVNavegar" >
|
||||
<div class="row">
|
||||
<div class="col-md-5">
|
||||
|
||||
@@ -118,7 +118,27 @@ Partial Class Inventarios_Kardex
|
||||
item.Selected = True
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
|
||||
CargarMarcas()
|
||||
End If
|
||||
|
||||
|
||||
DdlProveedores.setEsWebService(True)
|
||||
DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
|
||||
DdlProveedores.SelectedText = "Todos"
|
||||
DdlProveedores.SelectedValue = "-1"
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub CargarMarcas()
|
||||
DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
|
||||
DdlMarca.DataBind()
|
||||
DdlMarca.Items.Insert(0, New ListItem("Todas", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargaFuncionalidad105()
|
||||
ddlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
|
||||
|
||||
@@ -333,7 +353,7 @@ Partial Class Inventarios_Kardex
|
||||
|
||||
Dim ObjInventarios As New ClsInventarios
|
||||
If ObjInventarios.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
|
||||
ChkAgruparAlmacen.Checked, Serie, CveAlmacenes) Then
|
||||
ChkAgruparAlmacen.Checked, Serie, CveAlmacenes, CveMarca:=DdlMarca.SelectedValue.ToEntero, CveProveedor:=DdlProveedores.SelectedValue.ToEntero) Then
|
||||
dt = ObjInventarios.DtResultados.Copy
|
||||
End If
|
||||
ObjInventarios.Dispose()
|
||||
@@ -608,7 +628,7 @@ Partial Class Inventarios_Kardex
|
||||
|
||||
Dim ObjInventarios As New ClsInventarios
|
||||
If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
|
||||
CveAlmacenes, Siguiente:=Siguiente, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
|
||||
CveAlmacenes, Siguiente:=Siguiente, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin, CveMarca:=DdlMarca.SelectedValue.ToEntero, CveProveedor:=DdlProveedores.SelectedValue.ToEntero) Then
|
||||
dt = ObjInventarios.DtResultados.Copy
|
||||
End If
|
||||
ObjInventarios.Dispose()
|
||||
@@ -618,6 +638,7 @@ Partial Class Inventarios_Kardex
|
||||
ddlProducto2.SelectedText = dt.Rows(0)("CodigoPS").ToString
|
||||
ddlProducto2.txtValue.Value = dt.Rows(0)("CvePS").ToString
|
||||
ddlProducto2.txtText.Value = dt.Rows(0)("CodigoPS").ToString
|
||||
CargaDatos()
|
||||
UPFiltros.Update()
|
||||
UPDatos.Update()
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user