Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: GP240VAL - Situações Complementares no Cad. Afastamentos


Versões:Microsiga Protheus 12
Compatível Países:Todos
Compatível às Bases de Dados:Todos


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

Programa Fonte:
GPEA240.PRX

Sintaxe:

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


Parâmetros:



Nome

Tipo

Descrição

Default

Obrigatório

Referência

Paramixb[1]

Object

Submodelo de edição por grid do modelo de dados do Cadastro do Afastamento (GPEA240_SR8).










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

Observações

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.

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


Exemplo:

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