diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index a66267ddf..c663c819a 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -7691,6 +7691,26 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
+
+    Public Function GetSMSIndicadores(Opcion As Integer, FechaInicio As Date, FechaFin As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_SMS_IndicadoresGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los indicadores de venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
 #Region "IDisposable Support"
 
 
diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index 6a9b0c2d3..f4540c2b1 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -312,38 +312,28 @@ Partial Class Inventarios_Kardex
                 GvM.DataSource = DtTemp
                 GvM.DataBind()
                 UpAcciones.Update()
-
             End If
 
             If UsuarioActual.CveEmpresa <> 119 Then
-
-                Dim drPs As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "")
+                Dim drPs As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("", "")
 
                 If drPs IsNot Nothing Then
                     Dim NumeroParte As String = drPs("NumeroParte").ToString
-                    Dim Codigo As String = drPs("Codigo").ToString
-                    Dim PS As String = drPs("PS").ToString
-
+                    Dim PS As String = drPs("PSCodigo").ToString
+                    LblNumeroParte.Visible = True
                     If NumeroParte.Trim.Length > 0 Then
                         If UsuarioActual.TienePermisoPagina(13) Then
-                            LblNumeroParte.Text = $" Producto: <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{Codigo}</a> - <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{NumeroParte}</a>  -  <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{PS}</a>"
+                            LblNumeroParte.Text = $" Producto: <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{NumeroParte}</a>  -  <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{PS}</a>"
                         Else
                             LblNumeroParte.Text = $" Producto: {NumeroParte}"
                         End If
-                        LblNumeroParte.Visible = True
+
                     End If
                 End If
-
-
-
             End If
-
-
-
         Else
             Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
         End If
-
         UpNumeroParte.Update()
 
     End Sub
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