diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 6e8b208c6..7f1804feb 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1795,21 +1795,13 @@ Partial Class Inventarios_EntradasSalidas
             Try
 
                 'Para Campos Nuevos AF y OC
-                Dim SubProyecto As Integer = -1
                 Dim ActivoFijo As Integer = -1
-
-                If UsuarioActual.CveEmpresa = 66 AndAlso (DdlConcepto.SelectedValue.ToEntero = 3 Or DdlConcepto.SelectedValue.ToEntero = 11) Then
-                    SubProyecto = DdlSubProyecto.SelectedValue.ToEntero
-                    ActivoFijo = -1 'HdnCveActivoFijo.Value.ToEntero
-                ElseIf UsuarioActual.CveEmpresa = 66 AndAlso Not CveMovimiento > 0 Then
-                    SubProyecto = -2
-                    ActivoFijo = -2
-                End If
-
                 'Esto es parte de consumo interno
                 If DdlActivoFijo.SelectedValue.ToEntero > 0 Then
                     ActivoFijo = DdlActivoFijo.SelectedValue.ToEntero
                 End If
+                Dim tCveSubProyecto As Integer = -1
+                If DdlSubProyecto.Visible = True AndAlso DdlSubProyecto.SelectedValue.ToEntero > 0 Then tCveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
 
                 Dim FechaMovimiento As DateTime = TxtFecha.Text.Replace(",", "").ToDateTime
                 Dim FechaMovtoStr As String = $"{FechaMovimiento.ToString("yyyy/MM/dd")} {FechaMovimiento.ToString("HH:mm:ss")}"
@@ -1819,16 +1811,12 @@ Partial Class Inventarios_EntradasSalidas
                     Dim Mensaje As String = ""
 
                     'Actualiza  Movimiento
-
-
-
                     If Not ObjInventario.UpdateMovimiento(CveMovimiento, DdlAlmacen.SelectedValue.ToEntero, DdlConcepto.SelectedValue.ToEntero, 1, FechaMovimiento,
-                                                          TxtFolio.Text.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text) Then
+                                                          TxtFolio.Text.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, tCveSubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text) Then
                         Mensaje = "Error al Actualizar el Movimiento"
                         ErrorMovInv = True
                     End If
 
-
                     If Not ErrorMovInv Then
 
                         ' Actualizo los movimientos
@@ -1951,15 +1939,11 @@ Partial Class Inventarios_EntradasSalidas
                         If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
                         Alert(Mensaje, TipoMensaje.MsgError)
                     End If
-
-
                     'GUARDAR
                 Else
                     Dim Fecha As DateTime = FechaMovimiento
                     Dim CveCliente As Integer = CInt(IIf((DdlClientes.SelectedValue.ToEntero <= 0), -1, DdlClientes.SelectedValue.ToEntero))
                     Dim CveClienteSucursal As Integer = CInt(IIf((DdlClientesSucursales.SelectedValue.ToEntero <= 0), -1, DdlClientesSucursales.SelectedValue.ToEntero))
-
-
                     'cuando es APH
                     Dim tFolio As Integer = -1
                     If UsuarioActual.CveEmpresa = 48 And EsConsumoInterno = False Then tFolio = TxtFolio.Text.ToEntero
@@ -1983,7 +1967,7 @@ Partial Class Inventarios_EntradasSalidas
 
                     Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv/ES", 53, 0, 0, 1, TxtFecha.Text.Replace(",", "").ToDate, obs, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
 
-                    CveMovimiento = ObjInventario.AddMovimiento(CveAlmacen, DdlConcepto.SelectedValue.ToEntero, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text, PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor, Modulo:="ES/1", CveEntregaAlmacen:=CveEntregaAlmacen)
+                    CveMovimiento = ObjInventario.AddMovimiento(CveAlmacen, DdlConcepto.SelectedValue.ToEntero, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, tCveSubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text, PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor, Modulo:="ES/1", CveEntregaAlmacen:=CveEntregaAlmacen)
 
                     If CveMovimiento <= 0 OrElse CvePrePoliza <= 0 Then
                         Alert("No se pudo almacenar el movimiento correctamente", TipoMensaje.MsgError)
@@ -2069,7 +2053,7 @@ Partial Class Inventarios_EntradasSalidas
 
                             Dim TipoMovtoAlmacen As Boolean = False
                             Dim TipoMovtoOtro As Boolean = True
-                            Dim tCveSubProyecto As Integer = -1
+
 
                             Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacen.SelectedValue))
                             If drA2 IsNot Nothing Then