Frameworkjoi

Home

Frameworkjoi

Child pages
  • LWIZARD:Set:ADD_STEP
  • Created by Unknown User (rubens.santos), last modified on 08 Feb, 2017

Adiciona uma nova etapa no Wizard.

Sintaxe

CALL _ADVPL_set_property(< l_reference >,"ADD_STEP", < l_code >, < l_title >, [ l_desc ], < l_function >)

Parâmetros

NomeTipoDescriçãoObrigatório?Padrão
l_code
CHARCódigo identificador da etapa.Sim 
l_title
CHARTítulo da etapa.Sim 
l_desc
CHARBreve descrição do objetivo da etapa.Não 
l_function
CHARFunção de criação da etapa.Sim 

Exemplo

#------------------------------------------------------------------------------#
FUNCTION LWIZARD_setADDSTEP()
#------------------------------------------------------------------------------#
    # Etapa de boas vindas.
    CALL _ADVPL_set_property(m_wiz_reference,"ADD_STEP","WELCOME","Bem vindo!","Wizard de configuração Logix.","LWIZARD_stepWelcome")
END FUNCTION
 
#------------------------------------------------------------------------------#
FUNCTION LWIZARD_stepWelcome()
#------------------------------------------------------------------------------#
    DEFINE l_wiz_container VARCHAR(10)
    DEFINE l_pnl_reference VARCHAR(10)
    DEFINE l_ltm_reference VARCHAR(10)
    DEFINE l_lbl_reference VARCHAR(10)
    DEFINE l_cmp_reference VARCHAR(10)

    # Recupera a referência do painél onde será criado o painél da etapa atual.
    LET l_wiz_container = _ADVPL_get_property(m_wiz_reference,"WIZARD_CONTAINER_REFERENCE")

    LET l_pnl_reference = _ADVPL_create_component(NULL,"LPANEL",l_wiz_container)
    CALL _ADVPL_set_property(l_pnl_reference,"ALIGN","CENTER")

    LET l_ltm_reference = _ADVPL_create_component(NULL,"LLAYOUTMANAGER",l_pnl_reference)
    CALL _ADVPL_set_property(l_ltm_reference,"MARGIN",TRUE)
    CALL _ADVPL_set_property(l_ltm_reference,"COLUMNS_COUNT",1)

    LET l_lbl_reference = _ADVPL_create_component(NULL,"LLABEL",l_ltm_reference)
    CALL _ADVPL_set_property(l_lbl_reference,"TEXT","Leia atentamente os termos de uso abaixo:")

    # Indica que o próximo componente será expansível.
    CALL _ADVPL_set_property(l_ltm_reference,"EXPANSIBLE",TRUE)

    LET l_cmp_reference = _ADVPL_create_component(NULL,"LTEXTAREA",l_ltm_reference)
    CALL _ADVPL_set_property(l_cmp_reference,"ALIGN","CENTER")
    CALL _ADVPL_set_property(l_cmp_reference,"ENABLE",TRUE)
    CALL _ADVPL_set_property(l_cmp_reference,"EDITABLE",FALSE)
    CALL _ADVPL_set_property(l_cmp_reference,"VARIABLE",mr_wizard,"terms")

    LET l_cmp_reference = _ADVPL_create_component(NULL,"LCHECKBOX",l_ltm_reference)
    CALL _ADVPL_set_property(l_cmp_reference,"TEXT","Eu li e concordo com os termos de uso")
    CALL _ADVPL_set_property(l_cmp_reference,"VALUE_CHECKED","S")
    CALL _ADVPL_set_property(l_cmp_reference,"VALUE_NCHECKED","N")
    CALL _ADVPL_set_property(l_cmp_reference,"ENABLE",TRUE)
    CALL _ADVPL_set_property(l_cmp_reference,"VARIABLE",mr_wizard,"agree")

    # Aplica o leiaute.
    CALL _ADVPL_set_property(l_ltm_reference,"APPLY_LAYOUT")

    RETURN l_pnl_reference
END FUNCTION

Observações

  • A função de criação da etapa deverá sempre criar um componente LPANEL de alinhamento CENTER para agrupar todos os componentes visuais desta etapa e, ao final da criação dos componentes visuais, a referência do componente agrupador deverá ser retornada.