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,116 @@
+{
+-----------------------------------------------------------------------
+ PROGRAMA          : CGMN00001
+ OBJETIVO          : Menu Principal del Sistema de Contabilidad General
+ PROGRAMADOR       : Ing. Juan Soto.        
+ FECHA REALIZACION : Septiembre 27, 1993.
+-----------------------------------------------------------------------
+}
+DATABASE marmotech
+
+GLOBALS
+DEFINE opcion CHAR(2),
+       bandera CHAR(1)
+DEFINE numero_msg SMALLINT
+END GLOBALS
+MAIN                
+   DEFER INTERRUPT
+   CALL pantalla()
+   CALL opciones_cgmn00001()
+END MAIN    
+
+FUNCTION opciones_cgmn00001()
+DEFINE p_user CHAR(9),
+       luz CHAR(5)
+
+OPTIONS
+    PROMPT LINE 8,
+    MESSAGE LINE 24 
+
+    DISPLAY "          Menu Principal           " AT 6,22
+    DISPLAY "cgmn00001"                           AT 4,3 ATTRIBUTE(blue)
+    DISPLAY "1- Mantenimientos   cgmnmt000"       AT 10,6 
+    DISPLAY "2- Consultas        cgmncs000"       AT 11,6
+    DISPLAY "3- Reportes         cgmnrp000"       AT 12,6
+    DISPLAY "S- Retorna Menu Anterior     "       AT 14,6 
+                ATTRIBUTE (BOLD)
+
+    LABEL vuelve:
+    LET opcion = "  "  
+    PROMPT " OPCION: " FOR opcion HELP 1 
+    LET opcion = upshift(opcion)
+
+       IF opcion != "S" THEN
+           SELECT unique @usuario INTO p_user FROM seg0001
+           WHERE @usuario = user
+           CALL seg000(p_user,opcion,"cgmn00001") RETURNING luz
+           IF luz = "roja" THEN
+              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
+              GOTO vuelve
+           END IF
+       END IF
+
+    CASE
+        WHEN opcion = "1" 
+             RUN "fglrun %FGLPROG%\\cgmnmt000"
+             CLEAR SCREEN 
+             CALL pantalla()
+             CALL opciones_cgmn00001()
+
+        WHEN opcion = "2" 
+             RUN "fglrun %FGLPROG%\\cgmncs000"
+             CLEAR SCREEN 
+             CALL pantalla()
+             CALL opciones_cgmn00001()  
+ 
+        WHEN opcion = "3" 
+             RUN "fglrun %FGLPROG%\\cgmnrp000"
+             CLEAR SCREEN 
+             CALL pantalla()
+             CALL opciones_cgmn00001()    
+
+        WHEN opcion = "S" or opcion = "s" 
+             RETURN 
+
+        OTHERWISE 
+             CALL opciones_cgmn00001()
+
+    END CASE 
+
+END FUNCTION
+
+FUNCTION pantalla() 
+    DEFINE fecha CHAR(8),
+           hora char(5) ,
+           p_compania RECORD LIKE companias.*,
+           l SMALLINT
+    SELECT * INTO p_compania.*
+    FROM companias
+    
+    LET l = (80 - LENGTH(p_compania.nombre CLIPPED))/2
+    LET fecha = today USING "dd/mm/yy"  
+    LET hora = time
+    DISPLAY p_compania.nombre CLIPPED  AT 4,l
+            ATTRIBUTE (REVERSE,blue)
+    DISPLAY fecha AT 4,70 ATTRIBUTE (blue)
+    DISPLAY "Sistema de Contabilidad General" AT 5,24
+    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
+   RETURN
+END FUNCTION
+
+