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

-- liga ps, directa liga a ps

Browse Source
This commit is contained in:
rrene
2025-03-27 11:13:24 -07:00
parent 9fe9f4d9e8
commit 67e487f971
1 changed files with 5 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Inventarios/Kardex.aspx.vb
View File

@@ -312,38 +312,28 @@ Partial Class Inventarios_Kardex
GvM.DataSource = DtTemp
GvM.DataBind()
UpAcciones.Update()
End If
If UsuarioActual.CveEmpresa <> 119 Then
Dim drPs As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "")
Dim drPs As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=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
Dim PS As String = drPs("PSCodigo").ToString
LblNumeroParte.Visible = True
If NumeroParte.Trim.Length > 0 Then
If UsuarioActual.TienePermisoPagina(13) Then
LblNumeroParte.Text = $" Producto: <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{Codigo}</a> - <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{NumeroParte}</a> - <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{PS}</a>"
LblNumeroParte.Text = $" Producto: <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{NumeroParte}</a> - <a href='../Ventas/ProductosServicios.aspx?CvePS={CvePS}' class='Texto' target='_blank' >{PS}</a>"
Else
LblNumeroParte.Text = $" Producto: {NumeroParte}"
End If
LblNumeroParte.Visible = True
End If
End If
End If
Else
Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
End If
UpNumeroParte.Update()
End Sub