AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rakcsle
2025-01-15 16:19:43 -07:00
parent 0118481c17
commit 1793f11418
1 changed files with 20 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
Inventarios/Kardex.aspx.vb
View File

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