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,95 @@
+{
+-------------------------------------------------------------------
+ PROGRAMA          : CGMNRP003
+ OBJETIVO          : Menu de Reportes del Sistema Entrega de Cheques
+ PROGRAMADOR       : Ing. Juan F. Soto
+ FECHA REALIZACION : Diciembre 5, 1995
+-------------------------------------------------------------------
+}
+
+GLOBALS "cgprgb000.4gl"
+DEFINE opc2 CHAR(1)
+MAIN
+DEFER INTERRUPT
+CALL cgmnrp003()
+END MAIN
+
+FUNCTION cgmnrp003()
+
+   DEFINE p_user CHAR(9)
+   DEFINE luz CHAR(5)
+OPTIONS 
+    PROMPT LINE 8, 
+    HELP FILE "cgpray000.exe",
+    HELP KEY CONTROL-W,
+    MESSAGE LINE 24 
+    CLEAR SCREEN 
+    CALL pantalla()
+
+    DISPLAY "                                " AT 6,20
+    DISPLAY "Reportes Entrega de Cheques" AT 6,26
+    DISPLAY "cgmnrp003"                           AT 4,3 ATTRIBUTE(blue)
+    DISPLAY " 1- Validacion Cronologico   cgprrp026" AT 10,1
+    DISPLAY " 2- Cheques Entregados       cgprrp025" AT 11,1
+    DISPLAY "S- Retorna Menu Anterior         " AT 20,1   
+                ATTRIBUTE (BOLD)
+
+    LET opcion = NULL 
+    LABEL vuelve:
+    PROMPT " OPCION: " FOR opcion HELP 2 
+    LET opcion = upshift(opcion)
+
+       IF opcion != "S" THEN
+           SELECT unique @usuario INTO p_user FROM seg0001
+           WHERE @usuario = user
+           CALL seg000(p_user,opcion,"cgmnrp003") RETURNING luz
+           IF luz = "roja" THEN
+              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
+              GOTO vuelve
+           END IF
+       END IF
+
+    CASE     
+       WHEN opcion = "1"
+            CALL  cgprrp026()
+            CALL  cgmnrp003()
+       WHEN opcion = "2"
+            CALL  cgprrp025()
+            CALL  cgmnrp003()
+       WHEN opcion = "S" or opcion = "s" 
+            RETURN
+       OTHERWISE 
+            CALL cgmnrp003()
+    END CASE
+
+END FUNCTION
+
+# Desplega pantalla con logo de la compania
+FUNCTION pantalla() 
+    DEFINE fecha CHAR(8),
+           hora char(5) 
+    LET fecha = today USING "dd/mm/yy"  
+    LET hora = time
+    DISPLAY "M A R M O T E C H, S. A." AT 4,17
+            ATTRIBUTE (REVERSE,blue)
+    DISPLAY fecha AT 4,70 ATTRIBUTE (blue)
+    DISPLAY "  Sistema Entrega de Cheques   " 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
+# Funcion que chequea los errores 
+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
+