[RESOLVIDO] Menu legado

Aqui nós criamos um menu estilo o antigo e executamos via linha de comando

eu fiz uma versão minha do menu, tanto menu como atalho indo do icone de tela para o programa, mas sempre passando pelo LS

Infelizmente não posso mandar porque não foi eu que fiz.

Assim que ficou a tela:


O treeview foi feito com base na tabela grp_aplicat_dtsul e aplicat_dtsul

E os botões chamam os seguinte programas:
Executar: men\men702dc.r.
Edit: _edit.p.
Dicionário: _dict.p.
Data Administrator: _admin.p.
Propath: protools\_propath.w.
AppBuilder: _ab.p.

E o CTRL+ALT+H, basta colocar esse código no MainBlock, é mais amplo que o Default da Totvs:

Código:

ON ALT-CTRL-H ANYWHERE DO: /* Evento que substitui o evento padrão do EMS */
   DEF VAR vCampos AS CHAR EXTENT 9.
   ASSIGN vCampos[1] = SELF :DBNAME NO-ERROR.
   ASSIGN vCampos[2] = SELF :TABLE NO-ERROR.
   ASSIGN vCampos[3] = SELF :NAME NO-ERROR.
   IF SELF:INDEX > 0 THEN ASSIGN vCampos[3] = vCampos[3] + "[" + STRING(SELF:INDEX) + "]".
   ASSIGN vCampos[4] = SELF :DATA-TYPE NO-ERROR.
   ASSIGN vCampos[5] = SELF :FORMAT NO-ERROR.
   ASSIGN vCampos[6] = SELF :FRAME-NAME NO-ERROR.
   ASSIGN vCampos[7] = SELF :IMAGE-UP NO-ERROR.
   ASSIGN vCampos[8] = SELF :IMAGE-DOWN NO-ERROR.
   ASSIGN vCampos[9] = SELF :IMAGE-INSENSITIVE NO-ERROR.
   MESSAGE "DBName" + CHR(9) + ":  " + (IF vCampos[1] = ? THEN "?" ELSE vCampos[1])  SKIP
           "Table"  + CHR(9) + ":  " + (IF vCampos[2] = ? THEN "?" ELSE vCampos[2])    SKIP
           "Name"   + CHR(9) + ":  " + (IF vCampos[3] = ? THEN "?" ELSE vCampos[3])      SKIP
           "Type"   + CHR(9) + ":  " + (IF vCampos[4] = ? THEN "?" ELSE vCampos[4]) SKIP
           "Format" + CHR(9) + ":  " + (IF vCampos[5] = ? THEN "?" ELSE vCampos[5])  SKIP
           "FRAME"  + CHR(9) + ":  " + (IF vCampos[6] = ? THEN "?" ELSE vCampos[6])  SKIP
           "Img.1"  + CHR(9) + ":  " + (IF vCampos[7] = ? THEN "?" ELSE vCampos[7])  SKIP
           "Img.2"  + CHR(9) + ":  " + (IF vCampos[8] = ? THEN "?" ELSE vCampos[8])  SKIP
           "Img.3"  + CHR(9) + ":  " + (IF vCampos[9] = ? THEN "?" ELSE vCampos[9])  SKIP
           VIEW-AS ALERT-BOX INFO BUTTONS OK.
   RETURN NO-APPLY. /* Cancela qualquer operação adicional do EMS */
END.

Bom, só dá pra passar isso...desculpa qualquer coisa.

Att,

Rafael