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.DataSource = DtTemp
GvM.DataBind() GvM.DataBind()
UpAcciones.Update() UpAcciones.Update()
End If End If
If UsuarioActual.CveEmpresa <> 119 Then If UsuarioActual.CveEmpresa <> 119 Then
Dim drPs As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("", "")
Dim drPs As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "")
If drPs IsNot Nothing Then If drPs IsNot Nothing Then
Dim NumeroParte As String = drPs("NumeroParte").ToString Dim NumeroParte As String = drPs("NumeroParte").ToString
Dim Codigo As String = drPs("Codigo").ToString Dim PS As String = drPs("PSCodigo").ToString
Dim PS As String = drPs("PS").ToString LblNumeroParte.Visible = True
If NumeroParte.Trim.Length > 0 Then If NumeroParte.Trim.Length > 0 Then
If UsuarioActual.TienePermisoPagina(13) 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 Else
LblNumeroParte.Text = $" Producto: {NumeroParte}" LblNumeroParte.Text = $" Producto: {NumeroParte}"
End If End If
LblNumeroParte.Visible = True
End If End If
End If End If
End If End If
Else Else
Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia) Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
End If End If
UpNumeroParte.Update() UpNumeroParte.Update()
End Sub End Sub