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
Nome | Tipo | Descrição | Obrigatório? | Padrão |
---|
l_step | CHAR | Código da etapa. | Sim | |
l_event | CHAR | Funçã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