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,157 @@
+{
+-----------------------------------------------------------------------
+ PROGRAMA          : PRMNmt000
+ OBJETIVO          : Menu de Mantenimiento del Sistema de Produccion
+ PROGRAMADOR       : Tadeo A. Ferreras F.
+ FECHA REALIZACION : Sept. 14,1994. 
+-----------------------------------------------------------------------
+}
+GLOBALS "prprgb000.4gl"
+
+MAIN                
+  # WHENEVER ERROR CONTINUE
+   DEFER INTERRUPT
+   CALL pantalla()
+   CALL opciones_prmnmt000()
+END MAIN    
+
+FUNCTION opciones_prmnmt000()
+
+   DEFINE p_user CHAR(9),
+          i smallint
+   DEFINE luz CHAR(5),
+   arrmenu dynamic array of record
+    chopciones  CHAR(30),
+    programas   CHAR(15),
+    imagenes    CHAR(80)
+    END RECORD
+    
+    OPEN WINDOW w1 WITH FORM "menuform" 
+      DECLARE cmenu CURSOR FOR
+       SELECT descripcion,programa from dstb00001
+       
+       LET i = 1
+       FOREACH cmenu INTO arrmenu[i].*
+        LET i = i +1
+       END FOREACH
+      
+      DISPLAY ARRAY arrmenu TO smenu.*
+    CLOSE WINDOW w1    
+    {
+    DISPLAY "          Mantenimiento            " AT 6,22
+    DISPLAY "prmnmt000"                           AT 4,3 ATTRIBUTE(blue)
+    DISPLAY "1- Maestra de Periodo de Semana   prprmt001"       AT 10,6 
+    DISPLAY "2- Prod. Diaria Personal no Prod. prprmt002"       AT 11,6 
+    DISPLAY "3- Prod. Diaria Personal Product. prprmt003"       AT 12,6 
+    DISPLAY "4- Maestra de Operacion           prprmt004"       AT 13,6 
+    DISPLAY "5- Departamentos de Planta        prfmmt007"       AT 14,6 
+    DISPLAY "6- Orden De Produccion            prprmt006"       AT 15,6 
+    DISPLAY "7- Monitoreo Status de la Orden   prprmt007"       AT 16,6 
+    DISPLAY "8- Orden de Pedidos               prprmt008"       AT 17,6 
+    DISPLAY "9- Maestra Areas                  prprmt010"       AT 18,6 
+
+    DISPLAY "S- Retorna Menu Anterior                   "       AT 20,6 
+                ATTRIBUTE (BOLD)
+
+    LET opcion = "  "  
+    LABEL vuelve:
+    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,"prmnmt000") RETURNING luz
+           IF luz = "roja" THEN
+              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
+#              GOTO vuelve
+           END IF
+       END IF
+
+    CASE
+        WHEN opcion = "1" 
+             CALL prprmt001() 
+             CLEAR SCREEN 
+             CALL pantalla()
+             CALL opciones_prmnmt000()
+
+        WHEN opcion = "2" 
+             CALL prprmt002() 
+             CLEAR SCREEN 
+             CALL pantalla()
+             CALL opciones_prmnmt000()  
+        WHEN opcion = "3" 
+             CALL prprmt003()
+             CLEAR SCREEN 
+             CALL pantalla()
+             CALL opciones_prmnmt000()    
+        WHEN opcion = "4" 
+             CALL prprmt004()
+             CLEAR SCREEN 
+             CALL pantalla()
+             CALL opciones_prmnmt000()    
+        WHEN opcion = "5" 
+             RUN "isql -fr prfmmt007"
+             CLEAR SCREEN 
+             CALL pantalla()
+             CALL opciones_prmnmt000()    
+        WHEN opcion = "6" 
+             CALL prprmt006()
+             CLEAR SCREEN
+             CALL opciones_prmnmt000()    
+        WHEN opcion = "7" 
+             CALL prprmt007()
+             CLEAR SCREEN
+             CALL opciones_prmnmt000()    
+        WHEN opcion = "8" 
+             CALL prprmt008()
+             CLEAR SCREEN
+             CALL opciones_prmnmt000()    
+         WHEN opcion = "9" 
+             RUN "fglrun %FGLPROG%\\prprmt010"
+             CLEAR SCREEN
+             CALL opciones_prmnmt000()    
+        
+    WHEN opcion = "S" or opcion = "s" 
+             RETURN 
+
+        OTHERWISE 
+             CALL opciones_prmnmt000()
+
+    END CASE 
+
+}
+
+END FUNCTION
+
+FUNCTION pantalla() 
+    DEFINE fecha CHAR(10),
+           hora char(5) 
+   SELECT * INTO p_compania.*
+   FROM companias
+   LET l = (80 - LENGTH(p_compania.nombre CLIPPED)) / 2
+   LET fecha = today USING "dd/mm/yyyy"  
+   LET hora = time
+   DISPLAY p_compania.nombre CLIPPED AT 4,l
+            ATTRIBUTE (REVERSE,blue)
+    LET fecha = today USING "dd/mm/yyyy"  
+    LET hora = time
+    DISPLAY fecha AT 4,68 ATTRIBUTE (blue)
+    DISPLAY "Sistema de Produccion" AT 5,29
+    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