diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index 6e4303c84..5b031227a 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