diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 2a458ea07..634350948 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -4095,7 +4095,8 @@ Partial Class Inventarios_EntradasSalidas
         Dim ImporteConcepto As Decimal = 0
         Dim tConcepto As String = TxtIFDescripcion.Text.Trim
         Dim Fecha = TxtFechaInvFisico.Text.ToDate.ToString("yyyy/MM/dd").ToDate
-        Dim tCveSubProyecto As Integer = -1
+        Dim tCveSubProyectoEntrada As Integer = -1
+        Dim tCveSubProyectoSalida As Integer = -1
         Dim TipoMovto As Boolean = False
         Dim idCtaContableEntrada As Integer = 0
         Dim idCtaContableSalida As Integer = 0
@@ -4179,7 +4180,7 @@ Partial Class Inventarios_EntradasSalidas
                 Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacenInventarioFisico.SelectedValue))
                 If drA2 IsNot Nothing Then
                     idCtaContableEntrada = drA2("IdCtaContable").ToString.ToEntero
-                    tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero
+                    tCveSubProyectoEntrada = drA2("CveSubProyecto").ToString.ToEntero
                 End If
             Else
                 ErrorMovInv = True
@@ -4195,7 +4196,7 @@ Partial Class Inventarios_EntradasSalidas
                 Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacenInventarioFisico.SelectedValue))
                 If drA2 IsNot Nothing Then
                     idCtaContableSalida = drA2("IdCtaContable").ToString.ToEntero
-                    tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero
+                    tCveSubProyectoSalida = drA2("CveSubProyecto").ToString.ToEntero
                 End If
             Else
                 ErrorMovInv = True
@@ -4214,7 +4215,7 @@ Partial Class Inventarios_EntradasSalidas
                 If ValorEntrada <= ValorSalida Then
                     TipoMovto = True : ValorEntrada = -ValorEntrada ' invierto su naturaleza
                 End If
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, ValorEntrada, "", 68, tConcepto, Fecha, idCtaContableEntrada, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=ValorEntrada, Contabilizable:=EsContabilizable) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, ValorEntrada, "", 68, tConcepto, Fecha, idCtaContableEntrada, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=ValorEntrada, CveSubProyecto:=tCveSubProyectoEntrada, Contabilizable:=EsContabilizable) Then
                     ErrorMovInv = True
                     Mensaje = "Ocurrió un error al guardar los movimientos contables de entrada"
                 End If
@@ -4226,14 +4227,14 @@ Partial Class Inventarios_EntradasSalidas
                 If ValorSalida < ValorEntrada Then
                     TipoMovto = False : ValorSalida = -ValorSalida ' invierto su naturaleza
                 End If
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, ValorSalida, "", 68, tConcepto, Fecha, idCtaContableSalida, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ValorSalida, Contabilizable:=EsContabilizable) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, ValorSalida, "", 68, tConcepto, Fecha, idCtaContableSalida, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ValorSalida, CveSubProyecto:=tCveSubProyectoSalida, Contabilizable:=EsContabilizable) Then
                     ErrorMovInv = True
                     Mensaje = "Ocurrió un error al guardar los movimientos contables de salida"
                 End If
             End If
 
             If ValorEntrada >= ValorSalida Then
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, IdCuentaOtrosIngresos, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveSubProyecto:=tCveSubProyecto, ImporteMX:=ValorEntrada + ValorSalida, Contabilizable:=EsContabilizable) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, IdCuentaOtrosIngresos, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveSubProyecto:=tCveSubProyectoSalida, ImporteMX:=ValorEntrada + ValorSalida, Contabilizable:=EsContabilizable) Then
                     ErrorMovInv = True
                     Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de ingreso"
                 End If
@@ -4253,7 +4254,7 @@ Partial Class Inventarios_EntradasSalidas
                         tIdCtaGasto = 1321
                 End Select
 
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorSalida + ValorEntrada, "", 51, tConcepto, Fecha, tIdCtaGasto, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=tCveClasificacion, CveSubProyecto:=tCveSubProyecto, ImporteMX:=ValorSalida + ValorEntrada, Contabilizable:=EsContabilizable) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorSalida + ValorEntrada, "", 51, tConcepto, Fecha, tIdCtaGasto, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=tCveClasificacion, CveSubProyecto:=tCveSubProyectoSalida, ImporteMX:=ValorSalida + ValorEntrada, Contabilizable:=EsContabilizable) Then
                     ErrorMovInv = True
                     Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de salida"
                 End If