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

alias flexible

Browse Source
This commit is contained in:
rrene
2021-08-20 10:06:21 -07:00
parent 634929721d
commit 39ebc429f6
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Compras/Compras.aspx.vb
View File

@@ -18653,12 +18653,18 @@ Partial Class Compras_Compras
UpPSAlias.Update() UpPSAlias.Update()
End Sub End Sub
Protected Sub BtnAddPSAlias_Click(sender As Object, e As EventArgs) Handles BtnAddPSAlias.Click Protected Sub BtnAddPSAlias_Click(sender As Object, e As EventArgs) Handles BtnAddPSAlias.Click
Dim PS As New ClsProductosServicios
Dim CvePS = -1 Dim CvePS As Integer = -1
Dim tPS = "" Dim tPS As String = ""
Dim CveSubProyecto As Integer = TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSubProyecto").ToString.ToEntero
CvePS = DdlPSAlias2.SelectedValue.ToEntero CvePS = DdlPSAlias2.SelectedValue.ToEntero
tPS = DdlPSAlias2.SelectedText tPS = DdlPSAlias2.SelectedText
If CvePS <= 0 Then
Alert("No se ha seleccionado el producto.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim CveSubProyecto As Integer = TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSubProyecto").ToString.ToEntero
Dim DtpsTemp As DataTable = Nothing Dim DtpsTemp As DataTable = Nothing
Dim CveContrato As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa, -1, CveSubProyecto).FiltroPrimeroValor("CveContrato").ToEntero Dim CveContrato As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa, -1, CveSubProyecto).FiltroPrimeroValor("CveContrato").ToEntero
If CveContrato > 0 Then If CveContrato > 0 Then
@@ -18672,7 +18678,7 @@ Partial Class Compras_Compras
DtpsTemp = GetPSContratoDetalle(CveContrato, dttemp) DtpsTemp = GetPSContratoDetalle(CveContrato, dttemp)
End If End If
Dim PS As New ClsProductosServicios
If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, UsuarioActual.CveUsuario, ChkAliasFlexible.Checked) Then If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, UsuarioActual.CveUsuario, ChkAliasFlexible.Checked) Then
GlobalDTProductosServiciosAlias(UsuarioActual.CveEmpresa) = PS.DtResultados GlobalDTProductosServiciosAlias(UsuarioActual.CveEmpresa) = PS.DtResultados