diff --git a/Inventarios/RepMaximoMinimo.aspx b/Inventarios/RepMaximoMinimo.aspx
index 3be94d878..364c9d148 100644
--- a/Inventarios/RepMaximoMinimo.aspx
+++ b/Inventarios/RepMaximoMinimo.aspx
@@ -127,7 +127,7 @@
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <div>
-                <asp:GridView ID="GvDatos" DataKeyNames="CvePS,PS,CodigoPS,Maximo,Minimo,CveAlmacen"  CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" runat="server" AutoGenerateColumns="False" GridLines="None">
+                <asp:GridView ID="GvDatos" DataKeyNames="CvePS,PS,CodigoPS,Maximo,Minimo,CveAlmacen,Almacen"  CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" runat="server" AutoGenerateColumns="False" GridLines="None">
                     <Columns>
                         <asp:TemplateField ItemStyle-Width="10%" HeaderText="Código">
                             <ItemTemplate>
diff --git a/Inventarios/RepMaximoMinimo.aspx.vb b/Inventarios/RepMaximoMinimo.aspx.vb
index a9b3d4bed..d113b1b1c 100644
--- a/Inventarios/RepMaximoMinimo.aspx.vb
+++ b/Inventarios/RepMaximoMinimo.aspx.vb
@@ -235,6 +235,7 @@ Partial Class Inventarios_RepMaximoMinimo
         Dim CveAlmacen As Integer = GvRow.DataKey("CveAlmacen").ToString.ToEntero
         Dim CvePS As Integer = GvRow.DataKey("CvePS").ToString.ToEntero
         Dim strPS As String = GvRow.DataKey("PS").ToString()
+        Dim strAlmacen As String = GvRow.DataKey("Almacen").ToString()
         Dim Maximo As String = GvRow.DataKey("Maximo").ToString
         Dim Minimo As String = GvRow.DataKey("Minimo").ToString
 
@@ -243,6 +244,10 @@ Partial Class Inventarios_RepMaximoMinimo
 
         DdlAlmacenModal.SelectedValue = "-1"
         DdlAlmacenModal.SelectedValueExist(CveAlmacen.ToString())
+        If (DdlAlmacenModal.SelectedValue = "-1") Then
+            DdlAlmacenModal.Items.Add(New ListItem(strAlmacen, CveAlmacen.ToString()))
+        End If
+        DdlAlmacenModal.SelectedValueExist(CveAlmacen.ToString())
         DdlPSModal.SelectedText = strPS
         DdlPSModal.SelectedValue = CvePS.ToString
         TxtMaximo.Text = Maximo