diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 64ff4233c..fd069c6b0 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1409,6 +1409,7 @@ Partial Class Compras_Compras
                 ChkAplicaNotaCredito.Enabled = False
                 RBLPago.Enabled = False
                 BtnGuardar.Enabled = False
+                BtnGuardar.ToolTip = "Obliga a seleccionar una Orden de compra para su registro."
             End If
 
 
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 79d454b1f..a48a53404 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1498,9 +1498,11 @@ Partial Class Inventarios_EntradasSalidas
                         'Registro la prepóliza
                         If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
                             Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUM("Total", "").ToDecimal.RoundSQL()
+                            Dim tValorOtro As Decimal = tValorInventario
                             Dim idCtaContable As Integer = 0
                             Dim IdCtaContableOtro As Integer = UsuarioActual.Empresa.IdCuentaOtrosIngresos
                             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))
@@ -1530,8 +1532,8 @@ Partial Class Inventarios_EntradasSalidas
                                     End If
                                 Case 13, 29
                                     CveConceptoContable = 69
-                                    TipoMovtoAlmacen = False
-                                    tValorInventario = -tValorInventario
+                                    TipoMovtoOtro = True
+                                    tValorOtro = -tValorOtro
                                     Dim drr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimero("")
                                     If drr IsNot Nothing Then
                                         CveClasificacion = drr("CveClasificacion").ToString.ToEntero
@@ -1558,7 +1560,7 @@ Partial Class Inventarios_EntradasSalidas
                                 '    End If
                                 'Next
                                 'Case Else
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoAlmacen, tValorInventario, TxtObservaciones.Text.Trim, CveConceptoContable, TxtObservaciones.Text.Trim, TxtFecha.Text.ToDate, IdCtaContableOtro, -1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=tValorInventario, CveSubProyecto:=tCveSubProyecto, CveClasificacion:=CveClasificacion) Then
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtro, tValorOtro, TxtObservaciones.Text.Trim, CveConceptoContable, TxtObservaciones.Text.Trim, TxtFecha.Text.ToDate, IdCtaContableOtro, -1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=tValorOtro, CveSubProyecto:=tCveSubProyecto, CveClasificacion:=CveClasificacion) Then
                                     ErrorMovInv = True
                                 End If
                                 'End Select