0 Comp: En OC, autoseleccionar lugar de entrega, y quitar ambos check de temporales, 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

@@ -289,22 +289,25 @@ Partial Class Inventarios_Kardex
                 UpAcciones.Update()
             End If
 
+            Dim NumeroParte As String = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimeroValor("NumeroParte")
+            If NumeroParte.Trim.Length > 0 Then
 
-
-
-            If CvePS > 0 Then
-                Dim NumeroParte As String = GlobalDTPS(UsuarioActual.CveEmpresa, ddlProducto2.SelectedValue.ToEntero).FiltroPrimeroValor("NumeroParte")
-                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}</a>"
+                Else
                     LblNumeroParte.Text = $" Número de Parte: {NumeroParte}"
-                    LblNumeroParte.Visible = True
                 End If
-            End If
 
-            UpNumeroParte.Update()
+                LblNumeroParte.Visible = True
+
+            End If
 
         Else
             Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
         End If
+
+        UpNumeroParte.Update()
+
     End Sub
 
     Private Sub CargarOCPendientesCompra()