diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index de4c0e719..f7709355b 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1308,7 +1308,11 @@ Public Class ClsInventarios
             If Ex1.Message.Contains("50019") Then
                 Me.OnError(" El producto no tiene existencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             Else
-                Me.OnError("Ocurrió un error al guardar los detalles del movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+                If Ex1.Message.Contains("50021") Then
+                    Me.OnError(" El producto ingresado previamente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+                Else
+                    Me.OnError("Ocurrió un error al guardar los detalles del movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+                End If
             End If
 
         Catch ex As Exception
@@ -1480,7 +1484,9 @@ Public Class ClsInventarios
         Return Retorno
 
     End Function
-    Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0, Optional Orden As Integer = -1, Optional Marcas As String = "-1") As Boolean
+    Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer,
+                                               IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0,
+                                               Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional @IncluyeProyectado As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexAlmacenHorizontalGet")
@@ -1500,6 +1506,7 @@ Public Class ClsInventarios
             .Add("@ExistenciasCondicion", SqlDbType.Int).Value = CondicionExistencias
             .Add("@Orden", SqlDbType.Int).Value = Orden
             .Add("@Marcas", SqlDbType.VarChar).Value = Marcas
+            .Add("@IncluyeProyectado", SqlDbType.TinyInt).Value = @IncluyeProyectado
         End With
 
         Try