From 1793f1141863ed4475169a5128e8fdd896f6f2d7 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 15 Jan 2025 16:19:43 -0700
Subject: [PATCH] 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 | 27 ++++++++++++++++++++-------
 1 file changed, 20 insertions(+), 7 deletions(-)

diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index bb60fcea8..795bce64e 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/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