PROGRAMA 'Ejemplo I-5 grafica tendencias'
*
* Este programa es parecido al PSSIA4 pero se agregan los gastos
* es decir es una grafica de ventas y gastos
*
*
* Definir el area para desplegarla
*
OPCION TERMINAL AREA 10 /IMAGEN $
/LONG. 18 76 /POS. 3 3 /MARCO /CONFIRMAR $
/BN VI /COLOR BLANCO-B BLANCO-B NEGRO $
/TECLAS-DE-FUNCION 3 'Imprimir' $
/CAMPOS 2 2 GRAF-EST /VAR. /ESC. /LONG. 72 /RENG. 15
*
* Inicia la grafica
*
FORMAR IMAGEN GRAF-EST /GRAFICA-TENDENCIAS $
'Ventas y gastos del 2003' /VARIAS-INSTRUCCIONES
*
* Se calculan los valores de la ventas y se pasan a la grafica
* (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 IMAGEN GRAF-EST /SERIE 'Ventas' 'AZUL' $
/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'
*
* Se calculan los valores de los gastoss y se pasan a la grafica
* (Aqui Usted pone su logica para hacerlo)
*
IGUAL AREA N22 GAS-1 GAS-2 GAS-3 GAS-4 GAS-5 GAS-6
GAS-1 = 600
GAS-2 = 1200
GAS-3 = 2000
GAS-4 = 1200
GAS-5 = 1000
GAS-6 = 800
FORMAR IMAGEN GRAF-EST /SERIE 'Gastos' 'ROJO' $
/DATO GAS-1 /DATO GAS-2 /DATO GAS-3 $
/DATO GAS-4 /DATO GAS-5 /DATO GAS-6
*
* Se contruye y se desplliega
*
FORMAR IMAGEN GRAF-EST /FIN-DE-INSTRUCCIONES /CONSTRUIR
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
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