Nuevo parametro de cultivos para la funcionalidad 590

App_Code/ClsCompras.vb

@@ -941,7 +941,7 @@ Public Class ClsCompras
     Public Function GetRepProductosServicios(CveProyecto As Integer, CveSubProyecto As String, CveCategoria As String, CveClasificacion As Integer, CvePS As Integer, FechaI As Date,
                                              FechaF As Date, CveProveedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Gpo As Integer,
                                              CveFamilia As Integer, CveSubFamilia As Integer, CveTipoActivoFijo As String, CveSubTipoActivoFijo As String, CveActivoFijo As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoGasto As String = "-1",
-                                             Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1", Optional Deducible As Integer = -1) As Boolean
+                                             Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1", Optional Deducible As Integer = -1, Optional CveCultivo As String = "-1") As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_GetRepPS")
@@ -970,6 +970,8 @@ Public Class ClsCompras
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
             .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
             .Add("@Deducible", SqlDbType.Int).Value = Deducible
+            .Add("@CveCultivo", SqlDbType.VarChar).Value = CveCultivo
+
         End With
 
         Try
@@ -984,8 +986,8 @@ Public Class ClsCompras
     Public Function GetRepProductosServiciosDetalle(CveProyecto As Integer, CveSubProyecto As String, CveCategoria As String, CveClasificacion As Integer, CvePS As Integer, FechaI As Date,
                                                     FechaF As Date, CveProveedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Gpo As Integer,
                                                     CveFamilia As Integer, CveSubFamilia As Integer, CveTipoActivoFijo As String, CveSubTipoActivoFijo As String, CveActivoFijo As Integer,
-                                                    CveMoneda As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1,
+                                                    CveMoneda As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoGasto As String = "-1", Optional CveUsuarioConsulta As Integer = -1,
-                                                    Optional TipoGasto As String = "-1", Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1", Optional Deducible As Integer = -1) As Boolean
+                                                    Optional TipoDocto As String = "-1", Optional Deducible As Integer = -1, Optional CveCultivo As String = "-1") As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_GetRepPSDetalle")
@@ -1018,6 +1020,7 @@ Public Class ClsCompras
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
             .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
             .Add("@Deducible", SqlDbType.Int).Value = Deducible
+            .Add("@CveCultivo", SqlDbType.VarChar).Value = CveCultivo
 
         End With
 

Compras/RepProductosServicios.aspx

@@ -188,8 +188,9 @@
                            <%-- <asp:DropDownList ID="DdlSubProyecto" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                             </asp:DropDownList>--%>
-                            <asp:ListBox ID="DdlSubProyecto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
+                            <asp:ListBox ID="DdlSubProyecto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" AutoPostBack="true"></asp:ListBox>
                         </div>
+
                         <label class="col-md-1 truncate">Estatus</label>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlEstatus" Width="100%" runat="server" CssClass="select2me" AppendDataBoundItems="true" DataTextField="EstatusFactura" DataValueField="CveEstatusFactura">
@@ -259,6 +260,10 @@
                                 <asp:ListItem Text="No deducible" Value="1"></asp:ListItem>
                             </asp:DropDownList>
                         </div> 
+                        <label id="lblCultivo" runat="server" class="col-md-1 truncate">Cultivo </label>
+                        <div class="col-md-2" id="DivCultivo" runat="server">
+                            <asp:ListBox ID="DdlCultivo" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="Cuadro" DataValueField="CveCultivoCuadroDetalle" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
+                        </div>
                     </div>
                 </div>
             </div>

Compras/RepProductosServicios.aspx.vb

@@ -129,6 +129,16 @@ Partial Class Compras_RepProductosServicios
         'Carga Tipo Centro de Costo
         CargaTipoCentroCosto()
 
+        If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
+            lblCultivo.Visible = True
+            DivCultivo.Visible = True
+        Else
+            lblCultivo.Visible = False
+            DivCultivo.Visible = False
+            DdlSubProyecto.AutoPostBack = False
+
+        End If
+
 
         'CARGA COSTOS
         If UsuarioActual.CveEmpresa = 66 Then
@@ -244,6 +254,8 @@ Partial Class Compras_RepProductosServicios
         Dim TipoGasto As String = IIf(DdlTipoGasto.GetSelectedValuesM = "", "-1", DdlTipoGasto.GetSelectedValuesM).ToString
         Dim Categoria As String = IIf(DdlCategoria.GetSelectedValuesM = "", "-1", DdlCategoria.GetSelectedValuesM).ToString
         Dim SubProyectos As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString
+        Dim Cultivo As String = IIf(DdlCultivo.GetSelectedValuesM = "", "-1", DdlCultivo.GetSelectedValuesM).ToString
+
 
         Dim TipoAF As String = IIf(DdlTipoAF.GetSelectedValuesM = "", "-1", DdlTipoAF.GetSelectedValuesM).ToString
         Dim SubTipoAF As String = IIf(DdlSubTipoAF.GetSelectedValuesM = "", "-1", DdlSubTipoAF.GetSelectedValuesM).ToString
@@ -253,7 +265,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, Deducible:=DdlDeducible.SelectedValue.ToEntero) Then
+                                               TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero, CveCultivo:=Cultivo) Then
 
             DtDatos = ObjCompras.DtResultados
             GvDatos.DataSource = DtDatos
@@ -331,11 +343,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}&Deducible={24}",
+            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}&CveCultivo={25}",
                                                 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"), DdlDeducible.SelectedValue.ToEntero)
+                                                DdlTipoGasto.GetSelectedValuesM, e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), DdlDeducible.SelectedValue.ToEntero, e.Row.DBCampo("CveCultivo"))
 
 
             If Not e.Row.DBCampo("GpoID") = "1" Then
@@ -385,6 +397,18 @@ Partial Class Compras_RepProductosServicios
         ' DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
+    Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
+        DdlCultivo.Items.Clear()
+        If DdlSubProyecto.GetSelectedValuesM(True) <> "" Then
+            DdlCultivo.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto IN ({0})", DdlSubProyecto.GetSelectedValuesM(True)))
+            DdlCultivo.DataBind()
+        Else
+            DdlCultivo.DataSource = Nothing
+            DdlCultivo.DataBind()
+        End If
+        ' DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
     Protected Sub DdlFamilia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFamilia.SelectedIndexChanged
         DdlSubFamilia.Items.Clear()
 

Compras/RepProductosServiciosDetalle.aspx

@@ -251,6 +251,10 @@
                                 <asp:ListItem Text="No deducible" Value="1"></asp:ListItem>
                             </asp:DropDownList>
                         </div> 
+                        <label id="lblCultivo" runat="server" class="col-md-1 truncate">Cultivo </label>
+                        <div class="col-md-2" id="DivCultivo" runat="server">
+                            <asp:ListBox ID="DdlCultivo" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="Cuadro" DataValueField="CveCultivoCuadroDetalle" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
+                        </div>
                     </div>
                 </div>
             </div>

Compras/RepProductosServiciosDetalle.aspx.vb

@@ -72,7 +72,7 @@ Partial Class Compras_RepProductosServiciosDetalle
 #Region "CARGAS"
 
     Private Sub InicializaValores()
-        Dim Grupo, Proyecto, SubProyecto, Categoria, Clasificacion, PS, Proveedor, Estatus, Usuario, Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, TipoGasto As String
+        Dim Grupo, Proyecto, SubProyecto, Categoria, Clasificacion, PS, Proveedor, Estatus, Usuario, Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, TipoGasto, CveCultivo 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
@@ -82,6 +82,7 @@ Partial Class Compras_RepProductosServiciosDetalle
         SubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto") <> "", Request("CveSubProyecto"), "-1").ToString
         SubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() = -2, "-2", SubProyecto)
 
+        CveCultivo = If(Request("CveCultivo") IsNot Nothing AndAlso Request("CveCultivo") <> "", Request("CveCultivo"), "-1").ToString
         TipoGasto = If(Request("CveTipoGasto") IsNot Nothing AndAlso Request("CveTipoGasto") <> "", Request("CveTipoGasto"), "-1").ToString
         Categoria = If(Request("CveCategoria") IsNot Nothing AndAlso Request("CveCategoria") <> "", Request("CveCategoria"), "-1").ToString
         TipoActivoFijo = If(Request("CveTipoAF") IsNot Nothing AndAlso Request("CveTipoAF") <> "", Request("CveTipoAF"), "-1").ToString
@@ -133,13 +134,17 @@ Partial Class Compras_RepProductosServiciosDetalle
                 txtFechaF.Text = FechaF
             End If
         End If
-
+        DdlProyecto.SelectedValueExist(Proyecto)
+        If DivProyecto.Visible Then CargaSubProyecto()
         'CARGA LISTBOXs
         DdlSubProyecto.SelectedValuesIfExistM(SubProyecto)
         DdlTipoGasto.SelectedValuesIfExistM(TipoGasto)
         DdlCategoria.SelectedValuesIfExistM(Categoria)
         DdlTipoAF.SelectedValuesIfExistM(TipoActivoFijo)
         DdlSubTipoAF.SelectedValuesIfExistM(SubTipoActivoFijo)
+
+        If SubProyecto <> "" Then CargaCultivo()
+        DdlCultivo.SelectedValuesIfExistM(CveCultivo)
         'END CARGA LISTBOXs
 
         'DdlCategoria.SelectedValueExist(Categoria)
@@ -148,13 +153,12 @@ Partial Class Compras_RepProductosServiciosDetalle
             DdlPS.SelectedValue = PS
             DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PS.ToEntero)(0)("PSCodigo").ToString
         End If
-        DdlProyecto.SelectedValueExist(Proyecto)
+
-        If DivProyecto.Visible Then CargaSubProyecto()
         'DdlSubProyecto.SelectedValueExist(SubProyecto)
         DdlFamilia.SelectedValueExist(Familia)
         DdlSubFamilia.SelectedValueExist(SubFamilia)
         DdlProveedor.SelectedValue = Proveedor
-        If DdlProveedor.SelectedValue.ToEntero > 0 Then
+        If Proveedor.ToEntero > 0 Then
             DdlProveedor.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {Proveedor}").Rows(0)("RazonSocial").ToString
         Else
             DdlProveedor.SelectedText = "Todos"
@@ -172,17 +176,16 @@ Partial Class Compras_RepProductosServiciosDetalle
 
         DdlGrupo.SelectedValueExist(Grupo)
 
-        CargaDatos(Proyecto.ToEntero, SubProyecto, Categoria, Clasificacion.ToEntero, PS.ToEntero, Proveedor.ToEntero, Usuario.ToEntero, Estatus.ToEntero, Grupo.ToEntero, Familia.ToEntero, SubFamilia.ToEntero, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo.ToEntero, TipoGasto)
+        CargaDatos(Proyecto.ToEntero, SubProyecto, Categoria, Clasificacion.ToEntero, PS.ToEntero, Proveedor.ToEntero, Usuario.ToEntero, Estatus.ToEntero, Grupo.ToEntero, Familia.ToEntero, SubFamilia.ToEntero, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo.ToEntero, TipoGasto, CveCultivo)
 
     End Sub
 
     Private Sub SetValues()
 
         'Cargo Proyectos 
-        DdlProveedor.setEsWebService(True)
+        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
+        DdlProyecto.DataBind()
-        DdlProveedor.SelectedText = "Todos"
+
-        DdlProveedor.SelectedValue = "-1"
 
         'CAarga Tipos de Gasto
         DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
@@ -354,6 +357,7 @@ Partial Class Compras_RepProductosServiciosDetalle
         Dim TipoGasto As String = IIf(DdlTipoGasto.GetSelectedValuesM = "", "-1", DdlTipoGasto.GetSelectedValuesM).ToString
         Dim Categoria As String = IIf(DdlCategoria.GetSelectedValuesM = "", "-1", DdlCategoria.GetSelectedValuesM).ToString
         Dim SubProyectos As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString
+        Dim Cultivo As String = IIf(DdlCultivo.GetSelectedValuesM = "", "-1", DdlCultivo.GetSelectedValuesM).ToString
 
         Dim TipoAF As String = IIf(DdlTipoAF.GetSelectedValuesM = "", "-1", DdlTipoAF.GetSelectedValuesM).ToString
         Dim SubTipoAF As String = IIf(DdlSubTipoAF.GetSelectedValuesM = "", "-1", DdlSubTipoAF.GetSelectedValuesM).ToString
@@ -364,7 +368,7 @@ Partial Class Compras_RepProductosServiciosDetalle
                                               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, Deducible:=DdlDeducible.SelectedValue.ToEntero) Then
+                                              TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero, CveCultivo:=Cultivo) Then
             DtDatos = ObjCompras.DtResultados
         Else
             DtDatos = Nothing
@@ -376,14 +380,16 @@ Partial Class Compras_RepProductosServiciosDetalle
         Agrupador = DdlGrupo.SelectedItem.Text
     End Sub
 
-    Private Sub CargaDatos(Proyecto As Integer, SubProyecto As String, Categoria As String, Clasificacion As Integer, PS As Integer, Proveedor As Integer, Usuario As Integer, Estatus As Integer, Grupo As Integer, Familia As Integer, SubFamilia As Integer, TipoActivoFijo As String, SubTipoActivoFijo As String, ActivoFijo As Integer, TipoGasto As String)
+    Private Sub CargaDatos(Proyecto As Integer, SubProyecto As String, Categoria As String, Clasificacion As Integer, PS As Integer, Proveedor As Integer, Usuario As Integer, Estatus As Integer, Grupo As Integer, Familia As Integer, SubFamilia As Integer, TipoActivoFijo As String, SubTipoActivoFijo As String, ActivoFijo As Integer, TipoGasto As String, CveCultivo As String)
         Dim ObjCompras As New ClsCompras()
 
         Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha)
         Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha)
         If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then TCEspecifico = TxtEspecifico.Text.ToDouble Else TCEspecifico = -1
 
-        If ObjCompras.GetRepProductosServiciosDetalle(Proyecto, SubProyecto, Categoria, Clasificacion, PS, FechaI, FechaF, Proveedor, Usuario, Estatus, UsuarioActual.CveEmpresa, Grupo, Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, CveMoneda, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero) Then
+        If ObjCompras.GetRepProductosServiciosDetalle(Proyecto, SubProyecto, Categoria, Clasificacion, PS, FechaI, FechaF, Proveedor, Usuario, Estatus, UsuarioActual.CveEmpresa, Grupo,
+                                                      Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, CveMoneda, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto,
+                                                      CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero, CveCultivo:=CveCultivo) Then
             DtDatos = ObjCompras.DtResultados
         Else
             DtDatos = Nothing
@@ -404,6 +410,17 @@ Partial Class Compras_RepProductosServiciosDetalle
         End If
         'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
+    Private Sub CargaCultivo()
+        DdlCultivo.Items.Clear()
+        If DdlSubProyecto.GetSelectedValuesM(True) <> "" Then
+            DdlCultivo.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto IN ({0})", DdlSubProyecto.GetSelectedValuesM(True)))
+            DdlCultivo.DataBind()
+        Else
+            DdlCultivo.DataSource = Nothing
+            DdlCultivo.DataBind()
+        End If
+        'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
 
 #End Region
 
@@ -411,6 +428,10 @@ Partial Class Compras_RepProductosServiciosDetalle
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
         CargaSubProyecto()
     End Sub
+    Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
+        CargaCultivo()
+        ' DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
 
     'Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged
     '    CargaClasificaciones(DdlCategoria.SelectedValue.ToEntero)