diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx
index 5a7f0a38e..7fb7347b2 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -200,6 +200,7 @@
                         <asp:Label runat="server" ID="LblProyectado" Text="Incluir Proyectados" class="col-md-1 truncate" />
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlProyeccionFiltro" runat="server" CssClass="select2me" Width="100%" >
+                                 <asp:ListItem Text="Todos (Entradas/Salidas)" Value="3" />
                                  <asp:ListItem Text="Entradas" Value="1" />
                                  <asp:ListItem Text="Salidas" Value="2" />
                                 <asp:ListItem Text="No" Value="0" Selected="True"  />
@@ -273,7 +274,7 @@
                     <div class="modal-body">
                         <div class="row" style="width: 100%; text-align: center">
                             <asp:Label runat="server" ID="LblProyeccionOpcion" />
-                            <asp:RadioButtonList ID="RblProyeccionOpcion" runat="server" RepeatDirection="Horizontal" Width="50%" Style="margin: 0 25% 0 25%">
+                            <asp:RadioButtonList ID="RblProyeccionOpcion" runat="server" RepeatDirection="Horizontal" Width="50%" Style="margin: 0 25% 0 25%">                              
                                 <asp:ListItem Text="Entrada" Value="1" Selected="True" />
                                 <asp:ListItem Text="Salida" Value="2" />
                             </asp:RadioButtonList>
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index 9179c58de..bf8ebd251 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -396,9 +396,7 @@ Partial Class Inventarios_KardexAlmacen
         Dim ObjInventarios As New ClsInventarios
         ObjInventarios.IniciaTransacSQL()
 
-        Dim TipoMovot As Integer = If(RblProyeccionOpcion.SelectedValue = "1", 0, 1)
-
-        If ObjInventarios.DeleteMovimientosProyectados(TipoMovot) Then
+        If ObjInventarios.DeleteMovimientosProyectados(RblProyeccionOpcion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             Dim DtProductosEmpresas As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
             For Each dtRow As DataRow In dt.Rows
                 Dim Codigo As String = dtRow("Código").ToString