Nuevo Filtro: deducible

Compras/RepProductosServicios.aspx

@@ -243,13 +243,23 @@
                         <div class="col-md-1">Tipo Docto:</div>
                         <div class="col-md-2">
                             <asp:DropDownList CssClass="select2me" Width="100%" ID="DdlTipoDocto" runat="server" AppendDataBoundItems="true" >
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                  <asp:ListItem Text="Factura" Value="Fac"></asp:ListItem>
                                  <asp:ListItem Text="Nota de Crédito" Value="NC"></asp:ListItem>
                                  <asp:ListItem Text="Anticipo" Value="Ant" ></asp:ListItem>
                             </asp:DropDownList>
                         </div>
                     </div>
+                    <div class="row">
+                        <label id="lbDeducible" runat="server" class="col-md-1 truncate">Deducible</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlDeducible" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Deducible" Value="0"></asp:ListItem>
+                                <asp:ListItem Text="No deducible" Value="1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div> 
+                    </div>
                 </div>
             </div>
         </ContentTemplate>

Compras/RepProductosServicios.aspx.vb

@@ -253,7 +253,7 @@ Partial Class Compras_RepProductosServicios
                                                 DdlPS.SelectedValue.ToEntero, FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero,
                                                 UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero,
                                                 TipoAF, SubTipoAF, DdlAF.SelectedValue.ToEntero, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
-                                               TipoDocto:=DdlTipoDocto.SelectedValue) Then
+                                               TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero) Then
 
             DtDatos = ObjCompras.DtResultados
             GvDatos.DataSource = DtDatos
@@ -331,10 +331,11 @@ Partial Class Compras_RepProductosServicios
             End If
 
 
-            Dim Liga = String.Format("/Compras/RepProductosServiciosDetalle.aspx?GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveEstatusFactura={7}&FechaI={8}&FechaF={9}&CveProyecto={10}&CveSubProyecto={11}&CveCategoria={12}&CveClasificacion={13}&CvePS={14}&CveFamilia={15}&CveSubFamilia={16}&CveTipoAF={17}&CveSubTipoAF={18}&CveAF={19}&CveMoneda={20}&CveTipoGasto={21}&TipoCambio={22}&TCEspecifico={23}",
+            Dim Liga = String.Format("/Compras/RepProductosServiciosDetalle.aspx?GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveEstatusFactura={7}&FechaI={8}&FechaF={9}&CveProyecto={10}&CveSubProyecto={11}&CveCategoria={12}&CveClasificacion={13}&CvePS={14}&CveFamilia={15}&CveSubFamilia={16}&CveTipoAF={17}&CveSubTipoAF={18}&CveAF={19}&CveMoneda={20}&CveTipoGasto={21}&TipoCambio={22}&TCEspecifico={23}&Deducible={24}",
                                                 DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"),
                                                 e.Row.DBCampo("CveEstatusFactura"), FechaI, FechaF, e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"),
-                                                e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveFamilia"), e.Row.DBCampo("CveSubFamilia"), e.Row.DBCampo("CveTipoAF"), e.Row.DBCampo("CveSubTipoAF"), e.Row.DBCampo("CveAF"), e.Row.DBCampo("CveMoneda"), DdlTipoGasto.GetSelectedValuesM, e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"))
+                                                e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveFamilia"), e.Row.DBCampo("CveSubFamilia"), e.Row.DBCampo("CveTipoAF"), e.Row.DBCampo("CveSubTipoAF"), e.Row.DBCampo("CveAF"), e.Row.DBCampo("CveMoneda"),
+                                                DdlTipoGasto.GetSelectedValuesM, e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), DdlDeducible.SelectedValue.ToEntero)
 
 
             If Not e.Row.DBCampo("GpoID") = "1" Then

Compras/RepProductosServiciosDetalle.aspx

@@ -242,6 +242,16 @@
                             </asp:DropDownList>
                         </div>
                     </div>
+                    <div class="row">
+                        <label id="lbDeducible" runat="server" class="col-md-1 truncate">Deducible</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlDeducible" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Deducible" Value="0"></asp:ListItem>
+                                <asp:ListItem Text="No deducible" Value="1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div> 
+                    </div>
                 </div>
             </div>
         </ContentTemplate>

Compras/RepProductosServiciosDetalle.aspx.vb

@@ -73,7 +73,7 @@ Partial Class Compras_RepProductosServiciosDetalle
 
     Private Sub InicializaValores()
         Dim Grupo, Proyecto, SubProyecto, Categoria, Clasificacion, PS, Proveedor, Estatus, Usuario, Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, TipoGasto As String
-        Dim Anio, Mes, AnioMes, Fecha, FechaI, FechaF, TipoDocto As String
+        Dim Anio, Mes, AnioMes, Fecha, FechaI, FechaF, TipoDocto, Deducible As String
 
         Grupo = If(Request("GPO") IsNot Nothing AndAlso Request("GPO").ToEntero() > 0, Request("GPO").ToEntero(), -1).ToString
         Proyecto = If(Request("CveProyecto") IsNot Nothing AndAlso Request("CveProyecto").ToEntero() > 0, Request("CveProyecto").ToEntero(), -1).ToString
@@ -105,6 +105,8 @@ Partial Class Compras_RepProductosServiciosDetalle
         ActivoFijo = If(Request("CveAF") IsNot Nothing AndAlso Request("CveAF").ToEntero() > 0, Request("CveAF").ToEntero(), -1).ToString
         CveMoneda = If(Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero() > 0, Request("CveMoneda").ToEntero(), -1).ToString.ToEntero
         TipoDocto = If(Request("TipoDocto") IsNot Nothing, Request("TipoDocto").ToString, "-1").ToString
+        Deducible = If(Request("Deducible") IsNot Nothing, Request("Deducible").ToString, "-1").ToString
+
         Anio = If(Request("Anio") IsNot Nothing, Request("Anio").ToString, "-1").ToString
         Mes = If(Request("Mes") IsNot Nothing, Request("Mes").ToString, "-1").ToString
         AnioMes = If(Request("AnioMes") IsNot Nothing, Request("AnioMes").ToString, "-1").ToString
@@ -158,6 +160,7 @@ Partial Class Compras_RepProductosServiciosDetalle
             DdlProveedor.SelectedText = "Todos"
         End If
         DdlTipoDocto.SelectedValueExist(TipoDocto)
+        DdlDeducible.SelectedValueExist(Deducible)
         DdlEstatus.SelectedValueExist(Estatus)
         DdlUsuario.SelectedValueExist(Usuario)
         'DdlTipoAF.SelectedValueExist(TipoActivoFijo)
@@ -359,7 +362,9 @@ Partial Class Compras_RepProductosServiciosDetalle
 
         If ObjCompras.GetRepProductosServiciosDetalle(DdlProyecto.SelectedValue.ToEntero, SubProyectos, Categoria, DdlClasificacion.SelectedValue.ToEntero,
                                               DdlPS.SelectedValue.ToEntero, FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero,
-                                              UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero, TipoAF, SubTipoAF, DdlAF.SelectedValue.ToEntero, CveMoneda, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=DdlTipoDocto.SelectedValue) Then
+                                              UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero, TipoAF, SubTipoAF,
+                                              DdlAF.SelectedValue.ToEntero, CveMoneda, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
+                                              TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero) Then
             DtDatos = ObjCompras.DtResultados
         Else
             DtDatos = Nothing