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

- aliias flexible

Browse Source
This commit is contained in:
rrene
2021-08-18 07:16:55 -07:00
parent 3890230d9b
commit 9d705a520b
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsProductosServicios.vb
View File

@@ -1342,7 +1342,7 @@ Public Class ClsProductosServicios
Return Retorno Return Retorno
End Function End Function
Public Function AddPSAlias(PS As String, CvePS As Integer, Optional CveUsuarioModifico As Integer = -1) As Boolean Public Function AddPSAlias(PS As String, CvePS As Integer, Optional CveUsuarioModifico As Integer = -1, Optional Flexible As Boolean = False) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Gral_ProductosServiciosAliasAdd") DataAdapter("PA_Gral_ProductosServiciosAliasAdd")
@@ -1350,6 +1350,7 @@ Public Class ClsProductosServicios
.Add("@PSAlias", SqlDbType.VarChar).Value = If(PS.Length > 845, PS.Substring(0, 845), PS) .Add("@PSAlias", SqlDbType.VarChar).Value = If(PS.Length > 845, PS.Substring(0, 845), PS)
.Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
.Add("@Flexible", SqlDbType.Bit).Value = If(Flexible, 1, 0)
End With End With
Try Try