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,161 @@
+{
+------------------------------------------------------------------------------
+PROGRAMA        : CGPRMT002
+OBJETIVO        : Mantenimiento de los tipos de transacciones 
+PROGRAMADOR     : Ing. Juan F. Soto
+FECHA REALIZACION : Septiembre 28, 1993.
+------------------------------------------------------------------------------
+}
+GLOBALS 
+ "cgprgb000.4gl"
+
+FUNCTION cgprmt002()
+OPTIONS
+ FORM LINE 9,
+ ERROR LINE 24,
+ COMMENT LINE 23
+
+ CALL pantalla()  
+ OPEN FORM cgfmmt002 FROM "cgfmmt002"
+ DISPLAY FORM cgfmmt002
+ CLEAR FORM
+ MENU "OPCION"
+      COMMAND "Adicionar" "<Esc> Adiciona Registro  <Supr> Cancela Operacion"
+              LET int_flag = false
+              CALL cgpcad02()
+      COMMAND "Consultar-modificar"
+              "<Esc> Busca informacion   <Supr> Cancela Operacion"
+              CALL cgpcmod02()
+      COMMAND "Salir"
+              EXIT MENU
+              END MENU
+END FUNCTION
+
+FUNCTION cgpcad02()
+
+# Captura de informacion
+INITIALIZE p_tipos.* TO NULL
+INPUT BY NAME p_tipos.*  WITHOUT DEFAULTS ATTRIBUTE (BOLD)
+AFTER FIELD tipo
+ DISPLAY BY NAME p_tipos.*
+ IF p_tipos.tipo is not null THEN
+    SELECT * INTO p_tipos.* FROM cgtb00003
+           WHERE tipo = p_tipos.tipo and
+                 status_t is null
+
+# Chequeo del registro si esta eliminado
+     IF p_tipos.status_t = "E" THEN
+        LET numero_msg = 36
+        CALL msg(numero_msg)
+        NEXT FIELD tipo
+     END IF
+
+# Chequeo si el registro existe, si existe desplega las informaciones
+     IF status != notfound THEN
+        LET numero_msg = 12
+        CALL msg(numero_msg)
+        DISPLAY BY NAME p_tipos.*
+        INITIALIZE p_tipos.* TO NULL
+        NEXT FIELD tipo
+     END IF
+  DISPLAY BY NAME p_tipos.descripcion
+  END IF
+  AFTER INPUT
+       IF int_flag THEN
+          LET numero_msg = 2
+          CALL msg(numero_msg)
+          LET int_flag = false
+          RETURN
+        END IF
+        INSERT INTO cgtb00003 values
+                    (p_tipos.tipo,p_tipos.clave,p_tipos.descripcion,
+                     null,user,current,null,null)
+        CALL integridad()
+        IF bandera = 1 THEN
+           LET bandera = 0
+           RETURN
+        END IF
+        LET numero_msg = 1
+        CALL msg(numero_msg)
+        INITIALIZE p_tipos.* TO NULL
+        CLEAR FORM 
+        NEXT FIELD tipo
+
+   EXIT INPUT
+   END INPUT
+END FUNCTION
+ 
+FUNCTION cgpcmod02()
+# Captura del criterio de seleccion
+CONSTRUCT BY NAME criterio ON cgtb00003.*
+
+LET selec2 = "SELECT * FROM cgtb00003 WHERE ",criterio clipped,
+             "ORDER BY 1"
+PREPARE comando FROM selec2
+DECLARE busca SCROLL CURSOR FOR comando
+OPEN busca
+
+FETCH FIRST busca INTO p_tipos.*
+IF status = notfound THEN
+   LET numero_msg = 3
+   CALL msg(numero_msg)
+   RETURN
+END IF
+DISPLAY BY NAME p_tipos.*
+MENU "OPCION"
+     COMMAND "Siguiente"
+             FETCH NEXT busca INTO p_tipos.*
+             IF status = notfound THEN
+                LET numero_msg = 4
+                CALL msg(numero_msg)
+             END IF
+             DISPLAY BY NAME p_tipos.*
+     COMMAND "Anterior" 
+             FETCH PREVIOUS busca INTO p_tipos.*
+             IF status = notfound THEN
+                LET numero_msg = 5
+                CALL msg(numero_msg)
+             END IF
+             DISPLAY BY NAME p_tipos.*
+     COMMAND "Primero"  
+             FETCH FIRST busca INTO p_tipos.*
+                LET numero_msg = 5
+                CALL msg(numero_msg)
+             DISPLAY BY NAME p_tipos.*
+     COMMAND "Ultimo"   
+             FETCH FIRST busca INTO p_tipos.*
+                LET numero_msg = 4
+                CALL msg(numero_msg)
+             DISPLAY BY NAME p_tipos.*
+     COMMAND "Escoger"
+INPUT BY NAME p_tipos.* WITHOUT DEFAULTS ATTRIBUTE (BOLD)
+   BEFORE FIELD tipo
+     NEXT FIELD clave
+
+  AFTER INPUT
+       IF int_flag THEN
+          LET numero_msg = 2
+          CALL msg(numero_msg)
+          LET int_flag = false
+          RETURN
+        END IF
+
+   EXIT INPUT
+   END INPUT
+                UPDATE cgtb00003 set descripcion = p_tipos.descripcion,
+                                     clave       = p_tipos.clave
+                       WHERE tipo = p_tipos.tipo
+                 CALL integridad()
+                 IF bandera = 1 THEN
+                    LET bandera = 0
+                    RETURN
+                 END IF
+        COMMAND KEY("L") "eLiminar"
+                UPDATE cgtb00003 set status_t = "E"
+                       WHERE tipo = p_tipos.tipo
+                LET numero_msg = 39
+                CALL msg(numero_msg)
+        COMMAND "Retornar"
+                EXIT MENU
+                END MENU
+  END FUNCTION