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

-- puesto

Browse Source
This commit is contained in:
rrene
2025-05-11 22:05:00 -07:00
parent 3d01e3e422
commit ed51b20c62
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
App_Code/ClsRH.vb
View File

@@ -3370,7 +3370,7 @@ Public Class ClsRH
Return Retorno Return Retorno
End Function End Function
Public Function AddPuesto(Puesto As String, CveUsuario As Integer, CveEmpresa As Integer, Optional CveOcupacion As Integer = Nothing) As Boolean Public Function AddPuesto(Puesto As String, CveUsuario As Integer, CveEmpresa As Integer, Optional CveOcupacion As Integer = Nothing, Optional ValorXHora As Decimal = 0) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_RH_PuestoAdd") DataAdapter("PA_RH_PuestoAdd")
@@ -3380,6 +3380,7 @@ Public Class ClsRH
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveOcupacion", SqlDbType.Int).Value = CveOcupacion .Add("@CveOcupacion", SqlDbType.Int).Value = CveOcupacion
.Add("@ValorXHora", SqlDbType.Money).Value = ValorXHora
End With End With
Try Try
@@ -3397,17 +3398,17 @@ Public Class ClsRH
Return Retorno Return Retorno
End Function End Function
Public Function UpdatePuesto(CvePuesto As Integer, Puesto As String, Estatus As Integer, CveUsuario As Integer, Optional CveOcupacion As Integer = Nothing) As Boolean Public Function UpdatePuesto(CvePuesto As Integer, Puesto As String, Estatus As Integer, CveUsuario As Integer, Optional CveOcupacion As Integer = Nothing, Optional ValorXHora As Decimal = 0) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_RH_PuestoUpdate") DataAdapter("PA_RH_PuestoUpdate")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@Puesto", SqlDbType.VarChar).Value = Puesto .Add("@Puesto", SqlDbType.VarChar).Value = Puesto
.Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@CvePuesto", SqlDbType.Int).Value = CvePuesto .Add("@CvePuesto", SqlDbType.Int).Value = CvePuesto
.Add("@CveOcupacion", SqlDbType.Int).Value = CveOcupacion .Add("@CveOcupacion", SqlDbType.Int).Value = CveOcupacion
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@ValorxHora", SqlDbType.Money).Value = ValorXHora
End With End With
Try Try