Histórico da Página

O ponto de entrada tem como objetivo validar situações complementares ao padrão da rotina na inclusão do cadastro de afastamentos.

GPEA240.PRX

GP240VAL - Situações Complementares no Cad. Afastamentos ( [ Paramixb[1] ] ) --> lRetPE

lRetPE(logico)
• Indica se a linha está ok ou não.

A validação criada pelo ponto de entrada só será executada se a validação padrão do sistema indicar que a linha está Ok.

Estrutura do array recebido:
aCols[1] - Sequência
aCols[2] - Data Alteração
aCols[3] - Tipo Afastamento
aCols[4] - Data Afastamento
aCols[5] - Data Fim do Afastamento
aCols[6] - Código Afastamento RAIS
aCols[7] - Dias Empresa
aCols[8] - Dias a Pagar
aCols[9] - Código Comunicado CAT
aCols[10] - Data Registro CAT
aCols[11] - Continuação Afastamento Anterior?
aCols[12] - Continuação Sequência
aCols[13] - Número Dias
aCols[14] - Alias
aCols[15] - Recno
aCols[16] - Deletado?

//Exemplo abaixo, se o tipo do afastamento for P - Doença superior a 15 dias #INCLUDE 'PROTHEUS.CH'User Function GP240VAL()Local aArea	:= GetArea()Local aCols := Paramixb[1]Local lRet  := .T.//Alert("Passou pelo PE GP240VAL")If aCols[3] == "P" .And. aCols[6] == "  "//Tipo Afastamento-/-Cod. Afastamento RAIS	lRet := MsgNoYes("RAIS em branco. Continuar?")EndIfRestArea(aArea)Return (lRet)