diff --git a/Inventarios/RepAlmacen.aspx b/Inventarios/RepAlmacen.aspx
index 0476e8b34..e771607b1 100644
--- a/Inventarios/RepAlmacen.aspx
+++ b/Inventarios/RepAlmacen.aspx
@@ -151,24 +151,15 @@
                                 <asp:ListItem Text="No Inventariable" Value="0"></asp:ListItem>
                             </asp:DropDownList>                             
                         </div>
-
-
-
-
-
+                         
                          <div class="col-md-1 truncate" style="text-align: right!important">Grupo:</div>
                             <div class="col-md-2">
                                  <asp:DropDownList ID="DdlGrupo" runat="server" CssClass="input-small input-sm select2me" Width="100%">                                    
                                     <asp:ListItem Text="Almacen" Value="1"></asp:ListItem>
                                     <asp:ListItem Text="Clasificación" Value="2"></asp:ListItem>
+                                    <asp:ListItem Text="Tipo Almacen" Value="3"></asp:ListItem>
                                 </asp:DropDownList>         
-                            </div>
-
-
-
-
-
-
+                            </div>                         
                     </div>
                 </div>
             </div>
diff --git a/Inventarios/RepAlmacen.aspx.vb b/Inventarios/RepAlmacen.aspx.vb
index 1014abc19..b9e9dd4d8 100644
--- a/Inventarios/RepAlmacen.aspx.vb
+++ b/Inventarios/RepAlmacen.aspx.vb
@@ -123,7 +123,7 @@ Partial Class Inventarios_RepAlmacen
             End If
 
 
-            Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&CveClasificacion={e.Row.DataKey("CveClasificacion").ToEntero}&FechaInicio={e.Row.DataKey("FechaInicio").ToDate.ToString("dd/MM/yyyy")}&FechaCorte={e.Row.DataKey("FechaFin").ToDate.ToString("dd/MM/yyyy")}&Tipo=-1"
+            Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&CveClasificacion={e.Row.DataKey("CveClasificacion").ToEntero}&FechaInicio={e.Row.DataKey("FechaInicio").ToDate.ToString("dd/MM/yyyy")}&FechaCorte={e.Row.DataKey("FechaFin").ToDate.ToString("dd/MM/yyyy")}&CveTipoAlmacen={e.Row.DBCampo("CveTipoAlmacen")}&Tipo=-1"
             e.Row.Cells(0).Text = $"<a href='{Liga}' target='_blank' >{e.Row.DataKey("Gpo")}</a>"
 
             'If DdlGrupo.SelectedValue.ToEntero = 1 Then