Child pages
  • LWIZARD:Set:STEP_VALID

Define um evento de validação para uma determinada etapa do Wizard.

Sintaxe

CALL _ADVPL_set_property(< l_reference >,"STEP_VALID", < l_step >, < l_event >)

Parâmetros

NomeTipoDescriçãoObrigatório?Padrão
l_step
CHARCódigo da etapa.Sim 
l_event
CHARFunção 4GL disparada ao tentar avançar a etapa. *Sim 

* A função de validação deve retornar TRUE ou FALSE, ao retornar FALSE não será possível avançar para a próxima etapa.

Exemplo

#------------------------------------------------------------------------------#
FUNCTION LWIZARD_setSTEPVALID()
#------------------------------------------------------------------------------#
    CALL _ADVPL_set_property(m_wiz_reference,"STEP_VALID","WELCOME","LWIZARD_stepWelcomeValid")
END FUNCTION
 
#------------------------------------------------------------------------------#
FUNCTION LWIZARD_stepWelcomeValid()
#------------------------------------------------------------------------------#
    IF  mr_wizard.agree = "N" THEN
        CALL log0030_processa_mensagem("Para continuar é preciso que você leia e aceite os termos de uso.","exclamation",0)
        RETURN FALSE
    END IF

    RETURN TRUE
END FUNCTION