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

E172 Rep Compras AF Detalle: Opción para filtrar por Tipo de Compra

Browse Source 
- Cambios en BD
  SE MODIFICÓ PA_Comp_ComprasAFDetalleGetRep EN SIG_Resp_MLR y Ventas
This commit is contained in:
MLopez
2023-01-28 13:12:55 -07:00
parent 8a0eecfe4a
commit 9a2dc39386
3 changed files with 14 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Compras/RepComprasAFDetalle.aspx
View File

@@ -186,7 +186,16 @@
<asp:DropDownList CssClass=" select2me" ID="DdlProveedores" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="95%">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
<div class="col-md-1">Tipo de Compra</div>
<div class="col-md-2">
<asp:DropDownList ID="DdlTipoCompra" runat="server" CssClass="form-control input-sm select2me" Width="95%">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Insumos" Value="1"></asp:ListItem>
<asp:ListItem Text="Compras" Value="2"></asp:ListItem>
</asp:DropDownList>
</div>
</div>

3
Compras/RepComprasAFDetalle.aspx.vb
View File

@@ -106,6 +106,7 @@ Partial Class Compras_RepComprasAFDetalle
DdlProyecto.SelectedValueExist(Request.QueryString("CveProyecto").ToString)
DdlSubProyecto.SelectedValueExist(Request.QueryString("CveSubProyecto").ToString)
DdlProveedores.SelectedValueExist(Request.QueryString("CveProveedor").ToString)
DdlTipoCompra.SelectedValueExist(Request.QueryString("CveTipoCompraAF").ToString)
DdlClasificacion.SelectedValueExist(Request.QueryString("CveClasificacion").ToString)
DdlClasificacion2.SelectedValueExist(Request.QueryString("CveClasificacion2").ToString)
@@ -284,7 +285,7 @@ Partial Class Compras_RepComprasAFDetalle
If ObjCompras.GetRepComprasAFDetalle(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlMonedas.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1,
DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico,
DdlClasificacion.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, DdlTipoActivoFijo.SelectedValue.ToEntero, DdlSubTipoActivoFijo.SelectedValue.ToEntero,
CvePS, Anio.ToEntero, Mes.ToEntero, AnioMes, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero) Then
CvePS, Anio.ToEntero, Mes.ToEntero, AnioMes, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero, CveTipoCompraAF:=DdlTipoCompra.SelectedValue.ToEntero) Then
DTDatos = ObjCompras.DtResultados
GvDatos.DataSource = DTDatos