UPC para desabilitar parâmetro reimpressao FT0516

Prezados,
Iniciei os estudos com a linguagem progress aplicada ao ems204 e estou tendo dificuldades em desabilitar o parâmetro radio-buttons impressão/reimpressao do emissor de DARF.
O problema e que não estou conseguindo desabilitar o parâmetro impressão/reimpressão quando o usuário não está cadastrado no grupo RDA(RDA – Reimpressão do DARF – Módulo de tecnologia).
Eu consigo fazer isso usando uma UPC? Alguém pode me ajudar?

Obrigado pela atenção de todos.
Grato,
Carlos Neto

Fala amigo... temos essa upc que desabilita o a pagina 2 de parametros... voce pode usar como um exemplo para desabilitar o botão...

Nessa nossa upc ele verifica se é o usuario SUP se for ele habilita se nao ele desabilita a pagina 2... então ao inves de vc é pegar o evento que monta frame.. voce pega o de botão...
Da uma olhada nesse codigo que voce vai ter uma ideia...

def input param p-ind-event as char no-undo.
def input param p-ind-object as char no-undo.
def input param p-wgh-object as handle no-undo.
def input param p-wgh-frame as widget-handle no-undo.
def input param p-cod-table as char no-undo.
def input param p-row-table as rowid no-undo.

DEF NEW GLOBAL SHARED VAR h-fpage1 AS HANDLE NO-UNDO.
DEF NEW GLOBAL SHARED VAR h-folder AS HANDLE NO-UNDO.

DEFINE VARIABLE h-label-pg AS WIDGET-HANDLE EXTENT 8 NO-UNDO.
DEFINE VARIABLE h-image-pg AS WIDGET-HANDLE EXTENT 8 NO-UNDO.

DEF VAR h-frame AS HANDLE NO-UNDO.

IF p-ind-event = "After-INITIALIZE" THEN
DO:
DO:
ASSIGN h-frame = p-wgh-frame:FIRST-CHILD.
ASSIGN h-frame = h-frame:FIRST-CHILD.
DO while valid-handle(h-frame):
IF h-frame:TYPE <> "field-group" THEN
DO:
IF h-frame:NAME = "fPage4" THEN
ASSIGN h-fpage1 = h-frame.

ASSIGN h-frame = h-frame:NEXT-SIBLING.
END.
ELSE
LEAVE.
END.
END.

IF VALID-HANDLE (h-fpage1) THEN
DO:
IF NOT CAN-FIND (FIRST mgcad.usuar_grp_usuar WHERE
mgcad.usuar_grp_usuar.cod_grp_usuar = "SUP" AND
mgcad.usuar_grp_usuar.cod_usuario = USERID('mgcad') NO-LOCK) THEN
DO:
h-fpage1:SENSITIVE = NO.
h-fpage1:VISIBLE = NO.
END.
END.
END.

Giuliano,
testei a UPC e funcionou blz. O problema é que eu não tenho domínio da linguagem progress, isso dificulta a adaptação do programa.
Estou com dificuldade em capturar o evento do radio, existe algum código que imprima mensagens com os eventos?

Obrigado pela atenção e a disponibilização da upc acima!

Grato,
Carlos

parceiro é só vc colocar essa msg dentro da sua upc, que ela vai mostrar, os eventos pra você


MESSAGE "p-ind-event..:" p-ind-event SKIP
"p-ind-object.:" p-ind-object SKIP
"p-wgh-object.:" p-wgh-object:FILE-NAME SKIP
"p-wgh-frame..:" STRING(p-wgh-frame) SKIP
"p-cod-table..:" STRING(p-cod-table) SKIP
"p-row-table..:" STRING(p-row-table) SKIP
"p-wgh-object type.:" STRING(p-wgh-object:TYPE) SKIP
"p-wgh-frame type.:" STRING(p-wgh-frame:TYPE) SKIP
VIEW-AS ALERT-BOX INFO BUTTONS OK.