diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 59ee002ea..9e249b427 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -3556,8 +3556,9 @@ Partial Class Inventarios_EntradasSalidas
         'MOVIMIENTO DE ENTRADA
         If DtMovimientosEntradaInvFisico.Rows.Count > 0 Then
             Dim FolioEntrada As Integer = ObjInventario.GetFolioSiguiente(2, UsuarioActual.CveEmpresa)
-            CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenInventarioFisico.SelectedValue.ToEntero, 2, 1, Fecha, FolioEntrada, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtIFDescripcion.Text.Trim)
-
+            CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenInventarioFisico.SelectedValue.ToEntero, 2, 1, Fecha, FolioEntrada, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtIFDescripcion.Text.Trim)
+        Else
+            CveMovimientoEntrada = -1
         End If
 
         'MOVIMIENTO DE SALIDA