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,67 @@
+{
+ PROGRAMA          : PLMN00000
+ OBJETIVO          : Menu principal del Sistema 
+                     de Planta. 
+ PROGRAMADOR       : Juan Fco. Soto (Johnny)
+ MODIFICADO        : Jose A. Paulino.        (19 de oct. 1992)
+ FECHA REALIZACION : Octubre 15, 1992.
+ MODIFICACION      :
+ FECHA             :
+}
+
+MAIN                
+   DEFER INTERRUPT
+   CALL opciones_plmn00000()
+END MAIN
+
+FUNCTION opciones_plmn00000()
+DEFINE opt char(2)
+   OPTIONS
+     PROMPT LINE 8,
+     ERROR LINE 24
+   CALL pantalla()
+
+    DISPLAY "          Menu Principal           " AT 6,22
+    DISPLAY "plmn00000"                          AT 4,3 ATTRIBUTE(YELLOW)
+    DISPLAY "1- Produccion                    prmn00000" AT 10,6
+    #DISPLAY "2- Activo Fijo                      acfm01" AT 11,6
+    #DISPLAY "3- Catalogo Activo Fijo          acprrp008" AT 12,6
+    DISPLAY "S- Retorna Menu Anterior" AT 14,6 ATTRIBUTE(YELLOW)
+
+     PROMPT "OPCION: " attribute(yellow) FOR OPT
+      LET opt = UPSHIFT(opt)  clipped 
+
+    CASE     
+       WHEN OPT = "1"
+          RUN "fglgo /users/rova/sysinfo/4gidir/prmn00000"
+          CLEAR SCREEN
+          CALL  opciones_plmn00000()
+       {WHEN OPT = "2"
+          RUN "isql -s rayovac -fr /users/rova/sysinfo/acfm01"
+          CLEAR SCREEN
+          CALL  opciones_plmn00000()
+       WHEN OPT = "3"
+          RUN "isql -s rayovac -rr /users/rova/sysinfo/acprrp008"
+          CLEAR SCREEN}
+       WHEN OPT = "S" or OPT = "s"
+          RETURN
+       OTHERWISE
+         CALL opciones_plmn00000()
+    END CASE
+END FUNCTION
+
+FUNCTION pantalla() 
+   DEFINE fecha CHAR(8),
+          hora char(5) 
+   LET fecha = today USING "dd/mm/yy"  
+   LET hora = time
+    DISPLAY " R A Y - O - V A C  D O M I N I C A N A " AT 4,19
+            ATTRIBUTE (REVERSE,YELLOW)
+    DISPLAY fecha AT 4,70 ATTRIBUTE (YELLOW)
+    DISPLAY "Sistema de Planta" AT 5,31
+    DISPLAY hora AT 6,73 ATTRIBUTE(YELLOW)
+
+    CALL fgl_drawbox(5,79,3,1)
+    CALL fgl_drawbox(1,79,22,1)
+END FUNCTION  
+