From ed51b20c62769773c42be4a995e749ec3b7dfcf7 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 11 May 2025 22:05:00 -0700 Subject: [PATCH] -- puesto --- App_Code/ClsRH.vb | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 241ce2730..cd2840b87 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -3370,7 +3370,7 @@ Public Class ClsRH Return Retorno 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 DataAdapter("PA_RH_PuestoAdd") @@ -3380,6 +3380,7 @@ Public Class ClsRH .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveOcupacion", SqlDbType.Int).Value = CveOcupacion + .Add("@ValorXHora", SqlDbType.Money).Value = ValorXHora End With Try @@ -3397,17 +3398,17 @@ Public Class ClsRH Return Retorno 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 DataAdapter("PA_RH_PuestoUpdate") - With SqlAdapter.SelectCommand.Parameters .Add("@Puesto", SqlDbType.VarChar).Value = Puesto .Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@CvePuesto", SqlDbType.Int).Value = CvePuesto .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 Try