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

nuevo filtro que considera el producto servicio para traer los movimientos detalle

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-07-30 12:06:44 -07:00
parent 79f075ae1e
commit 17c9554670
3 changed files with 17 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsInventarios.vb
View File

@@ -4810,7 +4810,7 @@ Public Class ClsInventarios
#Region "MOVIMIENTOS DETALLE SECCION ALMACEN" #Region "MOVIMIENTOS DETALLE SECCION ALMACEN"
Public Function GetMovimientosDetalleSeccionesAlmacen(CveAlmacen As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Folio As String) As Boolean Public Function GetMovimientosDetalleSeccionesAlmacen(CveAlmacen As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Folio As String, CvePS As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_MovimientosDetalleAjusteSeccionesGet") DataAdapter("PA_Inv_MovimientosDetalleAjusteSeccionesGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -4818,6 +4818,7 @@ Public Class ClsInventarios
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Folio", SqlDbType.NVarChar).Value = Folio .Add("@Folio", SqlDbType.NVarChar).Value = Folio
.Add("@CvePS", SqlDbType.Int).Value = CvePS
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

17
Inventarios/AjustesSeccionAlmacen.aspx
View File

@@ -37,18 +37,23 @@
<div class="titlefiltros caption "> <div class="titlefiltros caption ">
<label class="col-md-1 truncate" style="text-align: right;">Almacen:</label> <label class="col-md-1 truncate" style="text-align: right;">Almacen:</label>
<div class="col-md-3"> <div class="col-md-1">
<asp:DropDownList ID="DdlAlmacen" runat="server" DataValueField="CveAlmacen" DataTextField="Almacen" class="select2me" Width="300px"></asp:DropDownList> <asp:DropDownList ID="DdlAlmacen" runat="server" DataValueField="CveAlmacen" DataTextField="Almacen" class="select2me" Width="170px"></asp:DropDownList>
</div> </div>
<label class="col-md-1 truncate" style="text-align: right;">Clasificacion:</label> <label class="col-md-1 truncate" style="text-align: right;">Clasificacion:</label>
<div class="col-md-3"> <div class="col-md-1">
<asp:DropDownList ID="DdlClasificaciones" runat="server" DataValueField="CveClasificacion" DataTextField="Clasificacion" class="select2me" Width="300px"></asp:DropDownList> <asp:DropDownList ID="DdlClasificaciones" runat="server" DataValueField="CveClasificacion" DataTextField="Clasificacion" class="select2me" Width="170px"></asp:DropDownList>
</div> </div>
<label class="col-md-1 truncate" style="text-align:right;">Folio:</label> <label class="col-md-1 truncate" style="text-align:right;">Folio:</label>
<div class="col-md-3"> <div class="col-md-1">
<asp:TextBox runat="server" ID="TxtFolioFiltro" Width="100px"/> <asp:TextBox runat="server" ID="TxtFolioFiltro" Width="170px"/>
</div>
<label class="col-md-1 truncate" style="text-align:right;">Producto:</label>
<div class="col-md-1">
<ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width: 170px;" CssClass="DdlPS " CssClassDdl="select2me" data-metodo="getps" UsaWebService="true" IncluyeTodos="false" DataTextField="PSCodigo" DataValueField="CvePS" />
</div> </div>
</div> </div>
</div> </div>

7
Inventarios/AjustesSeccionAlmacen.aspx.vb
View File

@@ -24,6 +24,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
DdlClasificaciones.DataBind() DdlClasificaciones.DataBind()
DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1")) DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -32,9 +33,9 @@ Partial Class Inventarios_AjustesSeccionAlmacen
Private Sub CargaDatos() Private Sub CargaDatos()
Dim ObjInv As New ClsInventarios Dim ObjInv As New ClsInventarios
Dim CvePS As String = If(DdlPS.SelectedValue = "", "-1", DdlPS.SelectedValue)
Dim FolioAux As String = If(TxtFolioFiltro.Text.Length > 0, TxtFolioFiltro.Text, "-1") Dim FolioAux As String = If(TxtFolioFiltro.Text.Length > 0, TxtFolioFiltro.Text, "-1")
If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacen.SelectedValue.ToEntero, DdlClasificaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FolioAux) Then If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacen.SelectedValue.ToEntero, DdlClasificaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FolioAux, CvePS.ToEntero) Then
GvD.DataSource = ObjInv.DtResultados GvD.DataSource = ObjInv.DtResultados
End If End If
@@ -298,7 +299,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
Try Try
Dim DtExistenciasSecciones As DataTable = Nothing Dim DtExistenciasSecciones As DataTable = Nothing
If ObjInventario.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacenExcel.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, "-1") Then If ObjInventario.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacenExcel.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, "-1", -1) Then
DtExistenciasSecciones = ObjInventario.DtResultados.Copy() DtExistenciasSecciones = ObjInventario.DtResultados.Copy()
End If End If