From bdd3c15b50c7e6101fa7e8de000116bc1eab05d0 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 12 Feb 2024 23:16:41 -0700 Subject: [PATCH] - --- App_Code/ClsNominas.vb | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index db7ea6e92..587854f03 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -2763,9 +2763,11 @@ Public Class ClsNominas End Try Return retorno End Function + Public Function GetNominaEmpleado(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, Optional RegimenContratacion As Integer = 1, Optional CvePersonal As Integer = -1, Optional NetoxSalario As Decimal = 0, Optional Neto As Decimal = 0, - Optional CveTipoTrabajador As Integer = -1) As Boolean + Optional CveTipoTrabajador As Integer = -1, Optional EsSimulador As Boolean = False, Optional TipoPeriodo As Integer = -1, Optional AreaGeografica As String = "A", + Optional EjercicioSimula As Integer = -1, Optional FactorISimula As Decimal = 1.0493150684931D) As Boolean Dim retorno As Boolean = False Try DTSet = New DataSet() @@ -2782,6 +2784,11 @@ Public Class ClsNominas .Add("@NetoxSalario", SqlDbType.Decimal).Value = NetoxSalario .Add("@Neto", SqlDbType.Decimal).Value = Neto .Add("@CveTipoTrabajador", SqlDbType.Decimal).Value = CveTipoTrabajador + .Add("@EsSimulador", SqlDbType.Bit).Value = EsSimulador + .Add("@TipoPeriodo", SqlDbType.Int).Value = TipoPeriodo + .Add("@AreaGeografica", SqlDbType.VarChar).Value = AreaGeografica.ToUpper() + .Add("@EjercicioSimula", SqlDbType.Int).Value = EjercicioSimula + .Add("@FactorISimula", SqlDbType.Decimal).Value = FactorISimula End With