Histórico da Página

#INCLUDE 'TLPP-CORE.TH'
#INCLUDE 'FWMVCDEF.CH'

User Function CT020ROT()

    Local aNovoItemMenu As Array
    Local lPageAction   As Logical

    aNovoItemMenu := PARAMIXB[ 1 ]
    lPageAction   := .T. // Indica que o Botão Será Adicionado ao PageAction do Browse da Rotina.

    // Opção no Menu - Ações de Registro.
    ADD OPTION aNovoItemMenu TITLE 'Teste SmartX'               ACTION 'Alert("Teste SmartX")' OPERATION MODEL_OPERATION_UPDATE ACCESS 0

    // Opção Exibida Diretamente no Browse da Rotina - Page Action.
    ADD OPTION aNovoItemMenu TITLE 'Teste SmartX - Page Action' ACTION 'Alert("Teste SmartX")' OPERATION MODEL_OPERATION_UPDATE ACCESS 0 PAGEACTION

Return( aNovoItemMenu )