primer commit subida

PROYECTO/codir/seg000.4gl

@@ -0,0 +1,44 @@
+{
+-----------------------------------------------------------------------------
+PROGRAMA     : SEG000
+OBJETIVO     : Controlar el acceso de los usuarios a los sistemas de la
+               Empresa.
+PROGRAMADOR  : Ing. Juan Soto
+FECHA        : Marzo 17, 1994.
+-----------------------------------------------------------------------------
+}
+FUNCTION seg000(usuarios,opt,p_menu)
+  DEFINE opt CHAR(2)
+  DEFINE luz CHAR(4)
+  DEFINE p_menu CHAR(9)
+  DEFINE usuarios CHAR(9)
+  DEFINE no_reg,p_opcion,numero SMALLINT
+
+WHENEVER ERROR CONTINUE
+  OPTIONS
+    ERROR LINE 24
+  LET luz = "azul"
+  LET p_opcion = opt
+
+     SELECT count(*) INTO no_reg FROM seg0001 
+     WHERE usuario = user 
+     IF no_reg = 1 THEN
+        SELECT opcion INTO p_opcion FROM seg0001
+        WHERE usuario = user
+     END IF
+  IF p_opcion != 99 THEN
+  SELECT UNIQUE a.usuario FROM seg0001 a
+  WHERE a.usuario = usuarios and
+        a.opcion = p_opcion and
+        a.us_menu = p_menu
+
+   IF status = notfound THEN
+      LET status = 0
+      LET luz = "roja"
+    END IF
+  END IF
+  IF p_opcion = 99 THEN
+     LET luz = "azul"
+  END IF
+RETURN luz
+END FUNCTION