Consumo Interno activo fijo, RepCompras Activo Fijo integrar Consumo interno en reporte padre y detalle.

Inventarios/EntradasSalidas.aspx.vb

@@ -1508,6 +1508,11 @@ Partial Class Inventarios_EntradasSalidas
                     ActivoFijo = -2
                 End If
 
+                'Esto es parte de consumo interno
+                If DdlActivoFijo.SelectedValue.ToEntero > 0 Then
+                    ActivoFijo = DdlActivoFijo.SelectedValue.ToEntero
+                End If
+
                 'ACTUALIZAR
                 If CveMovimiento > 0 Then
                     Dim Mensaje As String = ""
@@ -3353,15 +3358,22 @@ Partial Class Inventarios_EntradasSalidas
 
             DVCultivosCuadro.Visible = True
             CargaCultivos()
-
         End If
 
+
+        TrActivoFijo.Visible = True
+        DdlActivoFijo.Items.Clear()
+        DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros(" CveEstadoActivoFijo IN(1,3,4,9) ")
+        DdlActivoFijo.DataBind()
+        DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        DdlActivoFijo.SelectedValueExist(-1)
+
     End Sub
 
 
     Private Sub CargaCultivos()
         DdlModalCultivosCuadro.Items.Clear()
-        DdlModalCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue}")
+        DdlModalCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue} AND Estatus = 1 ")
         DdlModalCultivosCuadro.DataBind()
         DdlModalCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
     End Sub