Criado ponto de entrada LIBRECPAG para mostrar ou não o recibo de pagamento. Caso exista o Ponto de entrada a regra definida pelo sistema padrão deixa de ser executada e o sistema obedecerá o retorno do ponto de entrada. Nome : LIBRECPAG Parametros de Entrada : aParam[1] - Data de pagamento aParam[2] - Filial do Funcionário aParam[3] - matricula do Funcionário aParam[4] - Tipo de Recibo aParam[5] - Ano do Recibo(período) aParam[6] - Mes do Recibo(Período) Retorno : Verdadeiro ou Falso
Fonte de Exmplo : Não mostrar recibos anteriores a 2017 User Function LIBRECPAG() Local aParam := PARAMIXB Local lRet := .T. //aParam[1] - Data de pagamento //aParam[2] - Filial do Funcionario //aParam[3] - matricula do Funcionario //aParam[4] - Tipo de Recibo //aParam[5] - Ano do Recibo(periodo) //aParam[6] - Mes do Recibo(Periodo) /* Tipo de Recibo : 0 = Ferias 1 = Adiantamento 2 = Folha 3 = Primeira Parcela 13 4 = Segunda Parcela 13 5 = PLR 6 = Autonomo */ If aParam[5] < 2017 lRet := .F. EndIf Return lRet |