ACTION DEFAULTS
   ACTION nextfield ( ACCELERATOR2 = Right )
   ACTION prevfield ( ACCELERATOR2 = Left ) 

   ACTION show ( TEXT="Ejecutar", ACCELERATOR = Enter, ACCELERATOR2 = Return )
   ACTION close ( TEXT="Salir Sistema", ACCELERATOR = Escape )
   ACTION clave ( TEXT="Cambia Clave", ACCELERATOR =  Escape)
END

LAYOUT(text="MBS",VERSION="2",STYLE="main-mbs")
GRID
{
 <G                                                       > <G                                                   ><G                >
 [img                                                    ]    [ed1                                             ]   [img20          ]
                                                              [lu         ][usu                 ][pp  ]
                                                              [lfe        ][fe                  ]
                                                              [tas        ][tas1                ]
                                                              [rt                                          ]
                                                              
 <t t1                                    ><t t2                                                                                      >
   [ddir                                 ]  [demo             |prog            |t    |desc                                          ]
   [ddir                                 ]  [demo             |prog            |t    |desc                                          ]
   [ddir                                 ]  [demo             |prog            |t    |desc                                          ]
   [ddir                                 ]  [demo             |prog            |t    |desc                                          ]
   [ddir                                 ]  [demo             |prog            |t    |desc                                          ]
   [ddir                                 ]  [demo             |prog            |t    |desc                                          ]
   [ddir                                 ]  [demo             |prog            |t    |desc                                          ]
   [ddir                                 ]  [demo             |prog            |t    |desc                                          ]
   [ddir                                 ]  [demo             |prog            |t    |desc                                          ]
   [ddir                                 ]  [demo             |prog            |t    |desc                                          ]
   [ddir                                 ]  [demo             |prog            |t    |desc                                          ]
   [ddir                                 ]  [demo             |prog            |t    |desc                                          ]
   [ddir                                 ]  [demo             |prog            |t    |desc                                          ]
   [ddir                                 ]  [demo             |prog            |t    |desc                                          ]
   [ddir                                 ]  [demo             |prog            |t    |desc                                          ]
   [ddir                                 ]  [demo             |prog            |t    |desc                                          ]
   [ddir                                 ]  [demo             |prog            |t    |desc                                          ]
   [ddir                                 ]  [demo             |prog            |t    |desc                                          ]
   [ddir                                 ]  [demo             |prog            |t    |desc                                          ]
 
  [Description                                                                                                                   ]
  [                                                                                                                              ]
  [                                                                                                                              ]
  
  [                                                                            :sh         :ca         :cl                       ]
}
END 
END

ATTRIBUTES
IMAGE img:image="logo.png";
IMAGE img20:image="logocia.png";

ed1 = formonly.nombre_cia;

TABLE t1 : UNMOVABLECOLUMS;
TABLE t2 : UNMOVABLECOLUMS, DOUBLECLICK = show, style="detail";

rt  = formonly.file_path;
pp  = formonly.pperfil; 
lu  = formonly.lusuario;
lfe  = formonly.lfecha;
usu = formonly.usuario;
fe  = formonly.fecha_sistema type date,format="(ddd.) mmm. dd, yyyy";
tas = formonly.ltasa;
tas1= formonly.tasa;
EDIT  ddir = FORMONLY.ddir,UNSORTABLE,noentry,TITLE="OPCIONES";
EDIT  demo = FORMONLY.mbs,UNSORTABLE,STYLE="programas",TITLE="MODULOS";
EDIT  prog = FORMONLY.prog,UNSORTABLE,TITLE="PROGRAMAS";
IMAGE t    = FORMONLY.type,UNSORTABLE,TITLE="TIPO";
EDIT  desc = FORMONLY.desc,UNSORTABLE,TITLE="DESCRIPCION";
BUTTON sh: show;
BUTTON cl: close;
BUTTON ca: clave;

TEXTEDIT description = FORMONLY.longdesc, STRETCH=BOTH, FONTPITCH=FIXED;
END

INSTRUCTIONS
SCREEN RECORD dirs(FORMONLY.ddir);
SCREEN RECORD mbs(FORMONLY.mbs,FORMONLY.prog,FORMONLY.type,FORMONLY.desc);
delimiters " "
END