[RESOLVIDO] Janela Corrente

Esse é o codigo do CTRL-ALT-H, veja se consegue te dar alguma luz, por exemplo, ao chamar o seu programa, passar como parametro um campo handle, que pode ser o THIS-PROCEDURE, que seria o handle do programa em execução, já a questão da sessão, tem no help do progress tudo que a função SESSION:..... pode te trazer.

Código:

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.