From c4d4a672e332e05ef20869e7e7c00eebd17a755f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 24 Apr 2024 12:23:45 -0700
Subject: [PATCH] -- siempre activo subproyecto cuando es consumo interno

---
 Inventarios/EntradasSalidas.aspx    |  2 +-
 Inventarios/EntradasSalidas.aspx.vb | 26 +++++++++-----------------
 2 files changed, 10 insertions(+), 18 deletions(-)

diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index f7ff4f447..4788c2718 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -295,7 +295,7 @@
                                                 <asp:Literal ID="LtTipo" runat="server"></asp:Literal>
                                             </div>
                                         </div>
-                                        <div class="row" runat="server" id="TrSubProyectoActivoFijo" visible="false">
+                                        <div class="row" runat="server" id="TrSubProyecto" visible="false">
                                             <asp:Label runat="server" ID="LblSubProyecto" class="col-md-1 truncate">Proyecto:</asp:Label>
                                             <div class="col-md-5">
                                                 <asp:DropDownList ID="DdlSubProyecto" CssClass=" form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="max-width: 100%"></asp:DropDownList>
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index c89c8e8a7..6e8b208c6 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -460,7 +460,7 @@ Partial Class Inventarios_EntradasSalidas
             If CveMovimiento > 0 Then
                 BloqueaEdicionEncabezado()
                 If UsuarioActual.CveEmpresa.Contiene(66, 13) Then
-                    TrSubProyectoActivoFijo.Visible = True
+                    TrSubProyecto.Visible = True
                     VisualizaAF(True)
                     CargaSubProyectos()
                 End If
@@ -605,7 +605,7 @@ Partial Class Inventarios_EntradasSalidas
     Sub AsignacionOpcion()
         DdlConcepto.SelectedValueExist("-1")
         If UsuarioActual.CveEmpresa.Contiene(66, 13) Then
-            TrSubProyectoActivoFijo.Visible = True
+            TrSubProyecto.Visible = True
             VisualizaAF(True)
             CargaSubProyectos()
         End If
@@ -1024,7 +1024,7 @@ Partial Class Inventarios_EntradasSalidas
                 End If
 
                 DdlSubProyecto.SelectedValue = Mov.CveSubProyecto.ToString
-                TrSubProyectoActivoFijo.Visible = True
+                TrSubProyecto.Visible = True
             End If
 
             'LblCodigo.Text = If(Mov.CodigoAF = 0, "-1", Mov.CodigoAF.ToString)
@@ -2551,7 +2551,7 @@ Partial Class Inventarios_EntradasSalidas
                 TrPersonal.Visible = False
                 TrResponsable.Visible = True
                 If UsuarioActual.CveEmpresa.Contiene(66, 13) Then
-                    TrSubProyectoActivoFijo.Visible = True
+                    TrSubProyecto.Visible = True
                     VisualizaAF(True)
                     CargaSubProyectos()
                 End If
@@ -2562,7 +2562,7 @@ Partial Class Inventarios_EntradasSalidas
                 TrPersonal.Visible = False
                 TrResponsable.Visible = True
                 If UsuarioActual.CveEmpresa.Contiene(66, 13) Then
-                    TrSubProyectoActivoFijo.Visible = True
+                    TrSubProyecto.Visible = True
                     VisualizaAF(True)
                     CargaSubProyectos()
                 End If
@@ -2574,7 +2574,7 @@ Partial Class Inventarios_EntradasSalidas
 
             Case "7"
                 VisualizaPU(False)
-                TrSubProyectoActivoFijo.Visible = False
+                TrSubProyecto.Visible = False
                 TrResponsable.Visible = False
                 CargaPersonal()
                 If GvM.Rows.Count > 0 Then GvM.FooterRow.Visible = False
@@ -2587,7 +2587,7 @@ Partial Class Inventarios_EntradasSalidas
                 DdlProveedor.DataBind()
 
             Case Else
-                TrSubProyectoActivoFijo.Visible = False
+                TrSubProyecto.Visible = False
                 VisualizaAF(False)
                 If GvM.Rows.Count > 0 Then GvM.FooterRow.Visible = True
                 TrPersonal.Visible = False
@@ -3553,6 +3553,8 @@ Partial Class Inventarios_EntradasSalidas
         divMonedaSeccion.Visible = False
         divGuia.Visible = False
         TrResponsable.Visible = False
+        TrSubProyecto.Visible = True
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, "Seleccione Uno")
         CargaPersonal()
         LtlTitulo.Text = "Consumo Interno"
 
@@ -3572,19 +3574,9 @@ Partial Class Inventarios_EntradasSalidas
         End If
 
         If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
-            TrSubProyectoActivoFijo.Visible = True
-            CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, "Seleccione Uno")
-
             DVCultivosCuadro.Visible = True
             CargaCultivos()
         End If
-
-        If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then 'citrícola
-            TrSubProyectoActivoFijo.Visible = True
-            CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, "Seleccione Uno")
-        End If
-
-
         TrActivoFijo.Visible = True
         DdlActivoFijo.Items.Clear()
         DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros(" CveEstadoActivoFijo IN(1,3,4,9) ")