{
============================================================================
PROGRAMA     : TERMOMETRO
OBJETIVO     : DESPLEGAR TERMOMETRO PORCENTUAL PARA LOS REPORTES
PROGRAMADOR  : JUAN F. SOTO
FECHA        : MARZO 10, 1995 
============================================================================
}

DATABASE exterior

GLOBALS
DEFINE cuenta1,p,cuenta SMALLINT
END GLOBALS

FUNCTION termometro(registros,primera)
DEFINE registros INTEGER
DEFINE i,veces SMALLINT
DEFINE porcentaje,vez DECIMAL(8,2)
DEFINE primera CHAR(1)

IF primera = "S" THEN
   LET porcentaje = 0
   LET primera = "N"
   LET p = 27
   CALL fgl_drawbox(3,8,19,18)
   CALL fgl_drawbox(3,35,19,26)
   IF registros <= 33 THEN
      FOR i = 1 TO 33
          LET cuenta1 = 1
          DISPLAY " " AT 20,p ATTRIBUTE(REVERSE,BOLD)
          LET p = p + 1
      END FOR
   END IF
END IF

IF registros > 33 THEN
   LET vez   = registros / 33
   LET veces = vez USING "#####"
   IF cuenta >= veces THEN
      LET cuenta = 0
      IF p <= 58 THEN
         DISPLAY " " AT 20,p ATTRIBUTE(REVERSE,BOLD)
      END IF
      LET p = p + 1
   END IF
   LET porcentaje = (cuenta1/registros) * 100
   DISPLAY porcentaje using "###","%" AT 20,19 ATTRIBUTE(BOLD)
   LET cuenta = cuenta + 1
   LET cuenta1 = cuenta1 + 1
END IF

END FUNCTION