retro 3 Comp: Bug de numero de parte en Kardex, tambien poner liga al PS desde el numero de parte, siempre y cuando tengas permiso para PS

Inventarios/Kardex.aspx.vb

@@ -287,21 +287,34 @@ Partial Class Inventarios_Kardex
                 GvM.DataSource = DtTemp
                 GvM.DataBind()
                 UpAcciones.Update()
+
             End If
 
-            Dim NumeroParte As String = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimeroValor("NumeroParte")
-            If NumeroParte.Trim.Length > 0 Then
+            If UsuarioActual.CveEmpresa <> 119 Then
 
-                If UsuarioActual.TienePermisoPagina(13) Then
-                    LblNumeroParte.Text = $" Número de Parte: <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{NumeroParte}</a>"
-                Else
-                    LblNumeroParte.Text = $" Número de Parte: {NumeroParte}"
+                Dim drPs As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, 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
+
+                    If NumeroParte.Trim.Length > 0 Then
+                        If UsuarioActual.TienePermisoPagina(13) Then
+                            LblNumeroParte.Text = $" Número de Parte: <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{NumeroParte} - {Codigo} - {PS}</a>"
+                        Else
+                            LblNumeroParte.Text = $" Número de Parte: {NumeroParte}"
+                        End If
+                        LblNumeroParte.Visible = True
+                    End If
                 End If
 
-                LblNumeroParte.Visible = True
+
 
             End If
 
+
+
         Else
             Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
         End If