Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

PROYECTOS/isdir/termo.4gl

@@ -0,0 +1,53 @@
+{
+============================================================================
+PROGRAMA     : TERMOMETRO
+OBJETIVO     : DESPLEGAR TERMOMETRO PORCENTUAL PARA LOS REPORTES
+PROGRAMADOR  : JUAN F. SOTO
+FECHA        : MARZO 10, 1995 
+============================================================================
+}
+
+DATABASE rayovac
+
+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