From 9a2dc39386a51c4d6715dc6d720896e7b9f15da8 Mon Sep 17 00:00:00 2001
From: MLopez <Mario.lopez@adssistemas.mx>
Date: Sat, 28 Jan 2023 13:12:55 -0700
Subject: [PATCH] =?UTF-8?q?E172=20Rep=20Compras=20AF=20Detalle:=20Opci?=
 =?UTF-8?q?=C3=B3n=20para=20filtrar=20por=20Tipo=20de=20Compra=20-=20Cambi?=
 =?UTF-8?q?os=20en=20BD=20=20=20SE=20MODIFIC=C3=93=20PA=5FComp=5FComprasAF?=
 =?UTF-8?q?DetalleGetRep=20EN=20SIG=5FResp=5FMLR=20y=20Ventas?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsCompras.vb              |  3 ++-
 Compras/RepComprasAFDetalle.aspx    | 11 ++++++++++-
 Compras/RepComprasAFDetalle.aspx.vb |  3 ++-
 3 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb
index f176a9b72..6341d821e 100644
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -700,7 +700,7 @@ Public Class ClsCompras
 
     Public Function GetRepComprasAFDetalle(FechaI As String, FechaF As String, CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, CveProyecto As Integer, CveSubProyecto As Integer,
                                     TipoCambio As Integer, TCEspecifico As Double, CveClasificacion As Integer, CveActivoFijo As Integer, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, CvePS As Integer,
-                                     Anio As Integer, Mes As Integer, AnioMes As String, Optional CveUsuarioConsulta As Integer = -1, Optional CveClasificacion2 As Integer = -1) As Boolean
+                                     Anio As Integer, Mes As Integer, AnioMes As String, Optional CveUsuarioConsulta As Integer = -1, Optional CveClasificacion2 As Integer = -1, Optional CveTipoCompraAF As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_ComprasAFDetalleGetRep")
 
@@ -726,6 +726,7 @@ Public Class ClsCompras
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
             .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
+            .Add("@CveTipoCompraAF", SqlDbType.Int).Value = CveTipoCompraAF
 
             'CveClasificacion
         End With
diff --git a/Compras/RepComprasAFDetalle.aspx b/Compras/RepComprasAFDetalle.aspx
index 44f7a0879..c715eade2 100644
--- a/Compras/RepComprasAFDetalle.aspx
+++ b/Compras/RepComprasAFDetalle.aspx
@@ -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>                
 
diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb
index 19de434b7..7b8a4c1d0 100644
--- a/Compras/RepComprasAFDetalle.aspx.vb
+++ b/Compras/RepComprasAFDetalle.aspx.vb
@@ -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