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

2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
@@ -0,0 +1,104 @@
+{
+------------------------------------------------------------------------------
+ PROGRAMA          : COMN00000
+ OBJETIVO          : Menu principal del Sistema 
+                     de Compras.
+ PROGRAMADOR       : JUAN SOTO            
+ FECHA REALIZACION : AGOSTO, 1997   
+ DIRECTOR PROYECTO : JOSE ALFREDO PAULINO
+------------------------------------------------------------------------------
+}
+GLOBALS
+   "coprgb000.4gl"
+MAIN                
+   WHENEVER ERROR CONTINUE
+   DEFER INTERRUPT
+   CALL opciones_comn00000()
+END MAIN  
+
+FUNCTION opciones_comn00000()
+   DEFINE p_user CHAR(9)
+   DEFINE luz CHAR(5)
+
+   CALL pantalla()
+   OPTIONS
+      PROMPT LINE 8 
+
+    DISPLAY "Menu Principal" AT 6,33
+    DISPLAY "comn00000"                          AT 4,3 ATTRIBUTE(blue)
+    DISPLAY "1- Mantenimientos              comnmt000" AT 10,6 
+    #DISPLAY "2- Consultas                   comncs000" AT 11,6
+    DISPLAY "2- Reportes                    comnrp000" AT 12,6
+    DISPLAY "S- Retorna Menu Anterior" AT 16,6 ATTRIBUTE(blue)
+
+      LET OPT = " "
+LABEL vuelve:
+     PROMPT "OPCION: " attribute(blue) FOR OPT 
+     LET opt = upshift(opt)
+
+       IF opt != "S" THEN
+           SELECT unique usuario INTO p_user FROM seg0001
+           WHERE usuario = user
+           CALL seg000(p_user,opt,"comn00000") RETURNING luz
+           IF luz = "roja" THEN
+              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
+              GOTO vuelve
+           END IF
+       END IF
+
+
+    CASE     
+       WHEN OPT = "1"
+          RUN   "fglrun %FGLPROG%\\comnmt000"
+          CLEAR SCREEN
+          CALL pantalla()
+          CALL opciones_comn00000()
+       {WHEN OPT = "2"
+          RUN "fglrun %FGLPROG%\\comncs000"
+          CLEAR SCREEN
+          CALL pantalla()
+          CALL opciones_comn00000()}
+       WHEN OPT = "2"
+          RUN   "fglrun %FGLPROG%\\comnrp000"
+          CLEAR SCREEN
+          CALL pantalla()
+          CALL opciones_comn00000()
+       WHEN OPT = "S" OR OPT = "s"
+            RETURN
+       OTHERWISE
+            CALL opciones_comn00000()
+
+    END CASE
+
+END FUNCTION
+
+FUNCTION pantalla() 
+    DEFINE fecha CHAR(8),
+           hora char(5) 
+    LET fecha = today USING "dd/mm/yy"  
+    LET hora = time
+    SELECT * INTO p_companias.*
+    FROM companias a
+    LET l = (80 - LENGTH(p_companias.nombre CLIPPED))/2
+    DISPLAY p_companias.nombre CLIPPED AT 4,l
+            ATTRIBUTE (REVERSE,blue)
+    DISPLAY fecha AT 4,70 ATTRIBUTE (blue)
+    DISPLAY "Sistema de Compras" AT 5,31
+    DISPLAY hora AT 6,73 ATTRIBUTE(blue)
+
+    CALL fgl_drawbox(5,79,3,1)
+    CALL fgl_drawbox(1,79,22,1)
+END FUNCTION  
+
+FUNCTION integridad()
+         IF sqlca.sqlcode <  0 THEN
+            LET numero_msg = sqlca.sqlcode
+            CALL msg(numero_msg)
+            DISPLAY numero_msg AT 23,70
+            LET bandera = 1    
+            LET STATUS = 0
+            SLEEP 2
+            RETURN
+        END IF
+END FUNCTION
+