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

filtro por subproyecto

Browse Source
This commit is contained in:
rrene
2022-04-13 10:42:17 -07:00
parent 7b3037d875
commit bebacfd376
3 changed files with 16 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Inventarios/RepAlmacenCompras.aspx
View File

@@ -33,10 +33,18 @@
</div>
<div class="titlefiltros caption ">
<ul class="list-inline" style="font-size: 12px;">
<li>SubProyecto:</li>
<%--SubProyecto--%>
<li>
<div >
<asp:DropDownList runat="server" ID="DdlSubProyectos" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm">
</asp:DropDownList>
</div>
</li>
<li>Almacén:</li>
<li>
<div>
<asp:DropDownList ID="DdlAlmacen" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm" Style="width: 150px !important;" ValidationGroup="GrpConsultar"></asp:DropDownList>
<asp:DropDownList ID="DdlAlmacen" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm select2me" Style="width: 150px !important;" ValidationGroup="GrpConsultar"></asp:DropDownList>
</div>
</li>
<li>FechaInicio:</li>
@@ -93,7 +101,7 @@
</tr>
<tr>
<td>
<asp:GridView ID="GvDatos" runat="server" data-sort="true" AutoGenerateColumns="False" EmptyDataText="No hay movimientos." ToolTip="Listado de Movimientos" CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center;" GridLines="None">
<asp:GridView ID="GvDatos" runat="server" data-sort="true" AutoGenerateColumns="False" EmptyDataText="No hay movimientos." ToolTip="Listado de Movimientos" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None">
<Columns>
<asp:HyperLinkField HeaderText="Folio Almacen" DataTextField="FolioAlmacen" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Left"/>
<asp:BoundField HeaderText="Almacen" DataField="Almacen" ItemStyle-Width="20%" />

6
Inventarios/RepAlmacenCompras.aspx.vb
View File

@@ -70,10 +70,12 @@ Partial Class Inventarios_RepAlmacenCompras
Private Sub CargaCombos()
'Llena Almacen
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN ( 1, 22, 27)")
DdlAlmacen.DataBind()
DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, Nothing)
End Sub
#End Region
@@ -90,7 +92,7 @@ Partial Class Inventarios_RepAlmacenCompras
Dim FechaF As Date = If(TxtFechaFin.Text = "" Or TxtFechaFin.Text = "__/__/____", MaxFecha, TxtFechaFin.Text.ToDate)
If ObjInventarios.RepAlmacenCompras(DdlAlmacen.SelectedValue.ToEntero, FechaI, FechaF, UsuarioActual.CveEmpresa) Then
If ObjInventarios.RepAlmacenCompras(DdlAlmacen.SelectedValue.ToEntero, FechaI, FechaF, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
DtDatos = ObjInventarios.DtResultados
DtAlmacenCompra = ObjInventarios.DtResultados
Else