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,69 @@
+{
+---------------------------------------------------------------------------
+ PROGRAMA          : ADMNCS000
+ OBJETIVO          : Menu de Consultas del Sistema 
+                     de Administracion de Personal
+ PROGRAMADOR       : Tadeo A. Ferreras F.
+ FECHA REALIZACION : Febrero 2, 1996 
+---------------------------------------------------------------------------
+}
+DATABASE rayovac
+GLOBALS "adprgb000.4gl"
+
+MAIN 
+DEFER INTERRUPT
+CALL admncs000()
+END MAIN
+FUNCTION admncs000()
+   CALL opciones_admncs000()
+END FUNCTION
+
+FUNCTION opciones_admncs000()
+  DEFINE opt CHAR(2)
+   DEFINE p_user CHAR(9)
+   DEFINE luz CHAR(5)
+         
+     CALL opcion_pantalla()
+
+MENU "CONSULTAS:"     
+       COMMAND  "1"
+           CALL seg000(1,"admncs000") RETURNING luz
+           IF luz = "azul" THEN
+              CALL adprcs001()
+              CALL opcion_pantalla() 
+           END IF
+       COMMAND "Retornar" 
+         EXIT MENU     
+      END MENU
+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,  S. A." AT 4,17
+            ATTRIBUTE (REVERSE,BLUE)
+    DISPLAY fecha AT 4,68 ATTRIBUTE (RED)
+    DISPLAY "Sistema de Administracion de Personal" AT 5,21 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 opcion_pantalla()
+
+    OPTIONS
+       PROMPT LINE 8,
+       ERROR LINE 24
+       CLEAR SCREEN
+
+    CALL pantalla()
+    DISPLAY "             Consultas          " AT 6,24 ATTRIBUTE(BLACK)
+    DISPLAY "admncs000"                          AT 4,3 ATTRIBUTE(RED)
+    DISPLAY " 1- Calculo de Liquidacion   adprcs001"  AT 10,1
+   # DISPLAY "S- Retorna Menu Anterior  "  AT 20,1
+           #  ATTRIBUTE(BLACK)
+
+END FUNCTION