[RESOLVIDO] Menu do Totvs 11 em progress

Mais ou menos assim ....

Código:

on CTRL-ALT-E anywhere do:
    run btb/btb944za.p (input self).
end.

on CTRL-ALT-H anywhere do:
    define variable v-dbname    as character no-undo.
    define variable v-table     as character no-undo.
    define variable v-name      as character no-undo.
    define variable v-data-type as character no-undo.
    define variable v-format    as character no-undo.

    if valid-handle(focus) then do:
        assign v-dbname = focus:dbname no-error.
        if error-status:error then assign v-dbname = ''.
        assign v-table = focus:table no-error.
        if  error-status:error then assign v-table = ''.
        assign v-name = focus:name no-error.
        if  error-status:error then assign v-name = ''.
        assign v-data-type = focus:data-type no-error.
        if  error-status:error then assign v-data-type = ''.
        assign v-format = focus:format no-error.
        if  error-status:error then assign v-format = ''.

        message "DBName:"      v-dbname    skip
                "Table:     "  v-table     skip
                "Name:     "   v-name      skip
                "Type:      "  v-data-type skip
                "Format:   "   v-format
                view-as alert-box information.
    end.
end.