DEFINE RIBBONBAR oRBar WINDOW oVentPrinc HEIGHT 95*ProporV TOPMARGIN 0 2010
ADD GROUP oGrupos RIBBON oRBar to OPTION 1 width 1280
@ 5, 5 ADD BUTTON xPul01 PROMPT LocaText( 1, 1,836) BITMAP xruta + "user.bmp" GROUP oGrupos ACTION OpciMenu(0,1,0) FONT oFon01 ROUND SIZE 80,75
@ 5, 85 ADD BUTTON xPul02 PROMPT LocaText( 1, 1,646) BITMAP xruta + "peen.bmp" GROUP oGrupos ACTION OpciMenu(1,1,70) FONT oFon01 ROUND SIZE 80,75
@ 5,165 ADD BUTTON xPul03 PROMPT LocaText( 1, 1,162) BITMAP xruta + "conc.bmp" GROUP oGrupos ACTION OpciMenu(2,5,70) FONT oFon01 ROUND SIZE 80,75
@ 5,245 ADD BUTTON xPul04 PROMPT LocaText( 1, 1,140) BITMAP xruta + "pers.bmp" GROUP oGrupos ACTION OpciMenu(2,8,70) FONT oFon01 ROUND SIZE 80,75
@ 5,325 ADD BUTTON xPul05 PROMPT LocaText( 1, 1, 39) BITMAP xruta + "alba.bmp" GROUP oGrupos ACTION OpciMenu(3,2,70) FONT oFon01 ROUND SIZE 80,75
@ 5,405 ADD BUTTON xPul06 PROMPT LocaText( 1, 1,283) BITMAP xruta + "fact.bmp" GROUP oGrupos ACTION OpciMenu(3,3,70) FONT oFon01 ROUND SIZE 80,75
@ 5,485 ADD BUTTON xPul07 PROMPT LocaText( 1, 1,151) BITMAP xruta + "come.bmp" GROUP oGrupos ACTION OpciMenu(3,4,70) FONT oFon01 ROUND SIZE 80,75
@ 5,565 ADD BUTTON xPul08 PROMPT LocaText( 1, 1,671) BITMAP xruta + "pers.bmp" GROUP oGrupos ACTION OpciMenu(2,7,70) FONT oFon01 ROUND SIZE 80,75
@ 5,645 ADD BUTTON xPul09 PROMPT LocaText( 1, 1,280) BITMAP xruta + "fact.bmp" GROUP oGrupos ACTION OpciMenu(3,10,70) FONT oFon01 ROUND SIZE 80,75
@ 5,725 ADD BUTTON xPul10 PROMPT LocaText( 1, 1,736) BITMAP xruta + "exit.bmp" GROUP oGrupos ACTION OpciMenu(1,9,0) FONT oFon01 ROUND SIZE 80,75