// Activar/Desactivar un botón, es con la propiedad Grayed
 
IF BTN_BUTTON6..Grayed=False THEN
   BTN_BUTTON6..Grayed=True
   RETURN
END
 
IF BTN_BUTTON6..Grayed=True THEN
   BTN_BUTTON6..Grayed=False
   RETURN
END
 
// Para evitar que siga el código/procedimiento utilizar RETURN para salir de él

// Borra todas las líneas de la tabla 
 
TableDeleteAll(TABLA_1)
 
// Ejemplo de uso: Tableaddline(nombre objeto, valor columna 1, valor columna 2, etc...)
 
TableAddLine(TABLA_1,1,True,("Prueba 1")) 
TableAddLine(TABLA_1,2,False,("Prueba 2"))
TableAddLine(TABLA_1,3,True,("Prueba 3"))
TableAddLine(TABLA_1,99,True,("Prueba 99"))
 
// Ir el foco a la tabla
 
SetFocus(TABLA_1)

PROGBAR_1..Value=0
LOOP
    PROGBAR_1..Value=PROGBAR_1..Value+1
    Wait(1,waitRedraw)
    IF PROGBAR_1..Value=100 THEN BREAK
END

// Borra el contenido de la gráfica
 
grDeleteAll(CHART_1)
 
// Asigna un título a la gráfica y configura su orientación
 
grTitle(CHART_1,"Operaciones por secciones en euros",grAtTop)
 
// Crea el tipo de gráfica
 
grCreate(CHART_1,grPie,False)
 
// Configura la orientación del cuadro de la leyenda
 
grLegend(CHART_1,grAtRight)
 
// Asigna las descripciones de cada categoría
 
grCategoryLabel(CHART_1,1,"Ventas")
grCategoryLabel(CHART_1,2,"Compras")
grCategoryLabel(CHART_1,3,"Intercambios")
 
// Asigna valores a cada categoría
 
grAddData(CHART_1,1,1,1293.75)
grAddData(CHART_1,1,2,130.00)
grAddData(CHART_1,1,3,807.00)
 
// Dibuja la gráfica
 
grDraw(CHART_1)