diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 9d19306d1..d29728f94 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -3265,6 +3265,26 @@ Public Class ClsNominas End Try Return retorno End Function + Public Function GetMovtoPermanenteSaldos(CveEmpresa As Integer, CvePersonal As Integer, CveMovtoPermanente As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_GetMovtoPermanenteSaldos", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveMovtoPermanente", SqlDbType.Int).Value = CveMovtoPermanente + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al obtener los Movtos Permanentes Saldos.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al obtener los Movtos Permanentes Saldo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function Public Function AddMovtoPermanente(cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer, Optional CveIE As Integer = -1) As Integer Dim retorno As Integer = 0 DataAdapter("PA_AddMovtoPermanente", CommandType.StoredProcedure) diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index 2ffbc6633..81df2ceb8 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -1554,7 +1554,67 @@
- + +