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,159 @@
+{
+---------------------------------------------------------------------------
+ PROGRAMA          : IPMNMT000
+ OBJETIVO          : Menu de Mantenimientos del Sistema 
+                     de Inventario  de Producto.
+ PROGRAMADOR       : Juan Fco. Soto (Johnny)
+ FECHA REALIZACION : Agosto, 1997. 
+ ASESOR            : JOSE ALFREDO PAULINO 
+---------------------------------------------------------------------------
+}
+GLOBALS "ipprgb000.4gl"
+# DEFINE numero_msg LIKE msgtable.cod_msg
+ DEFINE l SMALLINT
+
+MAIN 
+DEFER INTERRUPT
+CALL ipmnmt000()
+END MAIN
+
+FUNCTION ipmnmt000()
+   CLEAR SCREEN 
+   CALL opciones_ipmnmt000()
+   END FUNCTION
+
+FUNCTION opciones_ipmnmt000()
+  DEFINE oip CHAR(2)
+  DEFINE p_user CHAR(9)
+  DEFINE luz CHAR(5),
+         opt CHAR(2)
+    OPTIONS
+       PROMPT LINE 8,
+       ERROR LINE 24
+
+    CALL pantalla()
+    DISPLAY "           Mantenimientos          " AT 6,22
+    DISPLAY "ipmnmt000"                          AT 4,3 ATTRIBUTE(BLUE)
+    DISPLAY " 1- Catalogo De Productos         ipprmt002" AT 10,6
+    DISPLAY " 2- Catalogo De Movimientos       ipprmt003" AT 11,6
+    DISPLAY " 3- Movimientos del Inventario    ipmnmt001" AT 12,6
+    DISPLAY " 4- Conteo Fisico y Ajuste (es)   ipprmt008" AT 13,6
+    DISPLAY " 5- Costos Estandares             ipprmt013" AT 14,6
+    DISPLAY " 6- Precios Productos             ipprmt017" AT 15,6
+    DISPLAY " 7- Tipo Producto                 ipprmt010" AT 16,6
+    DISPLAY " 8- Factor de Conversion          ipprmt018" AT 17,6
+    DISPLAY " 9- Catalogo de Origen Productos  ipprmt004" AT 18,6
+    DISPLAY "S- Retorna Menu Anterior                 "  AT 20,6
+             ATTRIBUTE(BOLD)
+  LABEL vuelve:
+     PROMPT "OPCION: " attribute(BLUE) FOR OPT
+      LET opt = UPSHIFT(opt)
+
+        IF opt != "S" THEN
+           SELECT unique usuario INTO p_user FROM seg0001
+           WHERE usuario = user
+           CALL seg000(p_user,opt,"ipmnmt000") RETURNING luz
+           IF luz = "roja" THEN
+              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
+         #     GOTO vuelve
+           END IF
+        END IF
+
+    CASE     
+       WHEN OPT = "1"
+          CALL  ipprmt002()
+          CLEAR SCREEN
+          CALL  opciones_ipmnmt000()
+       WHEN OPT = "2"
+          CALL  ipprmt003()
+          CLEAR SCREEN
+          CALL  opciones_ipmnmt000()
+       WHEN OPT = "3"
+          CALL  ipmnmt001()
+          CLEAR SCREEN
+          CALL  opciones_ipmnmt000()
+       WHEN OPT = "4"
+          CALL  ipprmt008()
+          CLEAR SCREEN
+          CALL  opciones_ipmnmt000()
+       WHEN OPT = "5"
+          CALL  ipprmt013()
+          CLEAR SCREEN
+          CALL  opciones_ipmnmt000()
+       WHEN OPT = "6"
+          CALL  ipprmt017()
+          CLEAR SCREEN
+          CALL  opciones_ipmnmt000()
+       WHEN OPT = "7"
+          CALL  ipprmt010()
+          CLEAR SCREEN
+          CALL  opciones_ipmnmt000()
+       WHEN OPT = "8"
+          CALL  ipprmt018()
+          CLEAR SCREEN
+          CALL  opciones_ipmnmt000()
+       WHEN OPT = "9"
+          CALL  ipprmt004()
+          CLEAR SCREEN
+          CALL  opciones_ipmnmt000()
+       WHEN OPT = "S" or OPT = "s"
+          RETURN
+       OTHERWISE
+         CALL opciones_ipmnmt000()       
+    END CASE
+END FUNCTION
+    
+
+FUNCTION pantalla() 
+   DEFINE fecha CHAR(10),
+          hora char(5) 
+   SELECT a.* INTO p_companias.* FROM companias a
+
+   LET fecha = today USING "dd/mm/yyyy"  
+   LET hora = time
+   LET l = (80 - LENGTH(p_companias.nombre CLIPPED))/2
+   DISPLAY p_companias.nombre CLIPPED AT 4,l ATTRIBUTE (REVERSE,BLUE)
+    DISPLAY fecha AT 4,68 ATTRIBUTE (BLUE)
+    DISPLAY "Sistema Inventario de Productos" AT 5,25
+    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)
+            LET bandera = 1    
+            SLEEP 2
+            RETURN
+        END IF
+END FUNCTION
+
+FUNCTION busca_cliente()
+LET int_flag = FALSE
+  
+OPEN WINDOW cliente AT 10,9 WITH FORM "ipfmwd009" 
+ATTRIBUTE(BORDER,FORM LINE FIRST + 2)
+CONSTRUCT BY NAME criterio ON a.tipo_cliente,a.sec_cliente,a.nombre
+
+LET selec = "SELECT a.tipo_cliente,a.sec_cliente,a.nombre FROM vetb00004 a ",
+             "WHERE a.status_t IS NULL AND ",criterio CLIPPED, "ORDER BY 1,2"
+
+PREPARE comando3 FROM selec 
+DECLARE comp3 CURSOR FOR comando3
+
+LET idx = 1
+FOREACH comp3 INTO clientes[idx].*
+ LET idx = idx + 1
+ IF idx = 49 THEN
+    EXIT FOREACH
+ END IF
+END FOREACH
+CALL SET_COUNT(idx - 1)
+
+DISPLAY ARRAY clientes TO s_cliente.*
+LET idx = ARR_CURR()
+CLOSE WINDOW cliente
+END FUNCTION