...
| Code Block | ||
|---|---|---|
| ||
#------------------------------------------------------------------------------#
FUNCTION prg00001()
#------------------------------------------------------------------------------#
IF LOG_initApp("[SYSTEMKEY]") = 0 THEN
IF LICENSE_isExtendedWarrantyValid(p_user,p_cod_empresa,0) THEN
INITIALIZE mr_tela.* TO NULL
LET m_form_reference = _ADVPL_create_component(NULL,"LFORMMETADATA")
CALL _ADVPL_set_property(m_form_reference,"INIT_FORM","prg00001",mr_tela)
END IF
END IF
END FUNCTION |
Se o parâmetro do modo de exibição de mensagem informado for ONLINE e o cliente não possui um contrato de garantia estendida válido, será exibida a mensagem de alerta conforme ilustrada na imagem:
