diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index d187b5980..a72b6a8ea 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -2293,6 +2293,23 @@ Public Class ClsNominas End Function #End Region + Public Function ValidaFechaFinPersonal(CvePersonal As Integer, CveEmpresa As Integer, FechaFin As String) + Dim Retorno As Boolean = False + DataAdapter("PA_Nom_ValidaFechaFinPersonal") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaFin", SqlDbType.DateTime).Value = FechaFin + '.Add("@Limpiar", SqlDbType.Int).Value = Limpiar + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al validar el finiquito.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function Public Function GetFiniquitosPersonal(CvePersonal As Integer, CveEmpresa As Integer, Optional Limpiar As Integer = 0, Optional diasindemnizacion As Integer = 90) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Nom_FiniquitosGET") diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 4bed83d04..006d047fa 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -3356,8 +3356,9 @@ + - + <%----%>