Kardex correción numero de parte cuando se llega desde link, OC mostrar liga de impreison al actualizar oc

Inventarios/Kardex.aspx.vb

@@ -246,6 +246,8 @@ Partial Class Inventarios_Kardex
     Private Sub CargaDatos()
 
         Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
+        LblNumeroParte.Text = ""
+        LblNumeroParte.Visible = False
 
         If CvePS > 0 Then
             Dim DtTemp = CargarKardex(CvePS)
@@ -286,6 +288,20 @@ Partial Class Inventarios_Kardex
                 GvM.DataBind()
                 UpAcciones.Update()
             End If
+
+
+
+
+            If CvePS > 0 Then
+                Dim NumeroParte As String = GlobalDTPS(UsuarioActual.CveEmpresa, ddlProducto2.SelectedValue.ToEntero).FiltroPrimeroValor("NumeroParte")
+                If NumeroParte.Trim.Length > 0 Then
+                    LblNumeroParte.Text = $" Número de Parte: {NumeroParte}"
+                    LblNumeroParte.Visible = True
+                End If
+            End If
+
+            UpNumeroParte.Update()
+
         Else
             Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
         End If
@@ -809,11 +825,14 @@ Partial Class Inventarios_Kardex
 
 
     Protected Sub ddlProducto2_selectedindexchange(sender As Object, e As EventArgs)
+
         LnkKPIVerComportamiento.Visible = False
         If ddlProducto2.SelectedValue.ToEntero > 0 And UsuarioActual.CveRol = 1 Then
             LnkKPIVerComportamiento.Visible = True
         End If
         UpAcciones.Update()
+
+
     End Sub
 
 End Class