PROGRAMA 'Ejemplo I-4 grafica tendencias'
*
* Este programa se asume un ejemplo de ventas en los bimestres
*
* Definir el area para desplegarla
*
OPCION TERMINAL AREA 10 /IMAGEN $
/LONG. 18 76 /POS. 3 3 /MARCO /CONFIRMAR $
/BN VI /COLOR GRIS GRIS NEGRO $
/TECLAS-DE-FUNCION 3 'Imprimir' $
/CAMPOS 2 2 GRAF-EST /VAR. /ESC. /LONG. 72 /RENG. 15
*
* Se calculan los valores de la ventas
* (Aqui Usted pone su logica para hacerlo)
*
IGUAL AREA N22 VEN-1 VEN-2 VEN-3 VEN-4 VEN-5 VEN-6
VEN-1 = 1234.45
VEN-2 = 2345.28
VEN-3 = 890.10
VEN-4 = 1534.78
VEN-5 = 1645.45
VEN-6 = 1004.32
*
* Formar la grafica
*
FORMAR IMAGEN GRAF-EST /GRAFICA-TENDENCIAS $
'Ventas de 2003' /COLOR 'GRIS' $
/SERIE 'Ventas' 'ROJO' $
/DATO VEN-1 'Ene-Feb' $
/DATO VEN-2 'Mar-Abr' $
/DATO VEN-3 'May-Jun' $
/DATO VEN-4 'Jun-Ago' $
/DATO VEN-5 'Sep-Oct' $
/DATO VEN-6 'Nov-Dic' $
/CONSTRUIR
*
* Se despliega
*
OPCION TERMINAL AREA 10 /DESPLEGAR
ESCRIBIR TERMINAL GRAF-EST
OPCION TERMINAL AREA 10 /TERMINAR
*
* Se imprime
*
IGUAL AREA N10 COND
SACAR PARAMETROS CONDICION-TERMINAR COND
SI COND <> 3 FIN 'SIA5'
OPCION IMPRIMIR /NO-RENGLON-INICIAL $
/DF 'SUIZO' 16 -5 $
/ENC. 30 'Grafica de evaluaciones' /AR 1 /CEL $
/ENC. 1 70 /LHS
IMPRIMIR DETALLE 5 GRAF-EST /L 400 /R 200
FIN 'SIA5'