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,87 @@
+{
+----------------------------------------------------------------------------
+ PROGRAMA          : ISMNCS00
+ OBJETIVO          : Menu de Consultas del Sistema de 
+                     Inventario de Suministro.   
+ PROGRAMADOR       : Ing. Juan Soto.   
+ FECHA REALIZACION : Octubre 29, 1993. 
+----------------------------------------------------------------------------
+ PROGRAMADOR       : Lic. Abner Montalvo
+ FECHA REALIZACION : Marzo 27, 1999. 
+
+ OBJETIVO          : Utilizar COMMAND para los menues de este sistema.
+                     Optimizar el procedimiento de llamadas de programas.
+---------------------------------------------------------------------------
+}
+DATABASE rayovac    
+GLOBALS 
+ DEFINE bandera,numero_msg SMALLINT
+END GLOBALS
+
+MAIN                    
+   CLEAR SCREEN 
+   DEFER INTERRUPT
+   CALL opciones_ismncs000()
+END MAIN    
+
+FUNCTION opciones_ismncs000()
+   DEFINE opt CHAR(2)
+   DEFINE p_user CHAR(9)
+   DEFINE luz CHAR(5)
+
+   OPTIONS 
+      PROMPT LINE 8,
+      ERROR LINE 24
+      CALL desplega_mncs000()
+
+    MENU "Consultas: "
+       COMMAND "1"
+          CALL seg000(1,"ismncs000") RETURNING luz
+          IF luz = "azul" THEN
+             #RUN "fglrun %FGLPROG%\\isprcs006()" 
+             CALL isprcs006()
+             CALL desplega_mncs000()
+          END IF 
+
+       COMMAND KEY("R") "Retornar" "Retorna Menu Principal"
+          EXIT MENU
+
+    END MENU
+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    
+            SLEEP 2
+            RETURN
+        END IF
+END FUNCTION
+
+FUNCTION pantalla() 
+    DEFINE fecha CHAR(10),
+           hora char(5) 
+    LET fecha = today USING "dd/mm/yyyy"  
+    LET hora = time
+    DISPLAY "R A Y . O . V A C  D O M I N I C A N A" AT 4,21
+            ATTRIBUTE (REVERSE,BLUE)
+    DISPLAY fecha AT 4,68 ATTRIBUTE (RED)
+    DISPLAY "Sistema Inventario de Suministros" AT 5,23 ATTRIBUTE(BLACK)
+    DISPLAY hora AT 6,73 ATTRIBUTE(RED)
+
+    CALL fgl_drawbox(5,79,3,1)
+    CALL fgl_drawbox(1,79,22,1)
+END FUNCTION
+
+FUNCTION desplega_mncs000()
+    CLEAR SCREEN 
+    CALL pantalla() 
+    DISPLAY "Consultas" AT 6,35 ATTRIBUTE(BLACK)
+    DISPLAY "ismncs000" AT 4,3 ATTRIBUTE(RED)
+    DISPLAY "1- Balance Suministro            isprcs006" AT 10,1 
+#   DISPLAY "R- Retorna Menu Anterior"                  AT 15,1 
+#           ATTRIBUTE (BLACK)
+END FUNCTION
+