activacion cuadro cultivo,

Compras/Compras.aspx.vb

@@ -1319,6 +1319,15 @@ Partial Class Compras_Compras
             DdlPersonal.DataBind()
             DdlPersonalReembolso.DataBind()
 
+            If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
+                DVCultivosCuadro.Visible = True
+                DdlSubProyecto.AutoPostBack = True
+                DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue}")
+                DdlCultivosCuadro.DataBind()
+                DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+            End If
+
 
             'Carga Proveedor
             If Request("CveProveedor") IsNot Nothing AndAlso IsNumeric(Request("CveProveedor")) AndAlso Request("CveProveedor").ToEntero > 0 Then
@@ -17655,6 +17664,15 @@ Partial Class Compras_Compras
         If Modalidad <> "U" Or Not CveFactura > 0 Then
             DdlPSChange()
         End If
+
+        If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
+
+            DdlCultivosCuadro.Items.Clear()
+            DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($" CveSubProyecto = {DdlSubProyecto.SelectedValue}")
+            DdlCultivosCuadro.DataBind()
+            DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+        End If
     End Sub
     Private Sub DdlPSChange()
         If CveProveedor > 0 Then