Histórico da Página

(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)

Dentro do componente oGrid é possível acessar dados do aHeader/aCols para captura das informações conforme linha posicionada.

#INCLUDE "Protheus.CH"
#INCLUDE 'RWMAKE.CH'

User Function GP240VAL()

    Local aArea := GetArea()
    Local oGrid := Paramixb[1]
    Local lRet  := .T.

    If oGrid:GetValue("R8_PROADIC") == "2" // Cálcula Dias Proporcionais igual a '2=Não'
        Help( , , 'HELP', , "Nao calcula Dias Proporcionais"  , 1, 0 )
        lRet := .F.
    EndIf

    RestArea(aArea)

Return (lRet)