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,152 @@
+{
+==============================================================================
+ PROGRAMA          : COMNCS000
+ OBJETIVO          : Menu de Consultas del 
+                     Sistema de Compras 
+ PROGRAMADOR       : JUAN SOTO              
+ FECHA REALIZACION : AGOSTO 1997     
+ DIRECTOR PROYECTO : JOSE ALFREDO PAULINO
+==============================================================================
+}
+
+GLOBALS "coprgb000.4gl"
+DEFINE nombre_mon CHAR(30),
+       simb_mon CHAR(4),
+       nom_via CHAR(10)
+MAIN
+  DEFER INTERRUPT
+  CALL comncs000()
+END MAIN
+FUNCTION comncs000()
+   DEFINE p_user CHAR(9)
+   DEFINE luz CHAR(5)
+OPTIONS
+   PROMPT LINE 8
+   CLEAR SCREEN 
+   CALL pantalla() 
+    DISPLAY "Consultas" AT 6,35
+    DISPLAY "comncs000"                          AT 4,3 ATTRIBUTE(YELLOW)
+    DISPLAY " 1-Codigos Arancelarios               coprcs002" AT 10,6
+    DISPLAY " 2-Catalogo de Furgones               coprcs003" AT 11,6
+    DISPLAY " 3-Forma de Embarque - Materia Prima  coprcs004" AT 12,6
+    DISPLAY " 4-Suplidor - Bienes y Servicios      coprcs005" AT 13,6
+    DISPLAY " 5-Ordenes por Suplidor               coprcs008" AT 14,6
+    DISPLAY " 6-Ordenes De Compras                 coprcs009" AT 15,6
+    DISPLAY " 7-Compra Bien Y/O Servicio           coprcs010" AT 16,6
+    DISPLAY " S-Retorna Menu Anterior       "               AT 20,6 
+     ATTRIBUTE(YELLOW)
+
+LABEL vuelve:
+     PROMPT "OPCION: " attribute(yellow) FOR OPT
+      LET opt = upshift(opt) clipped 
+       IF opt != "S" THEN
+           SELECT unique usuario INTO p_user FROM seg0001
+           WHERE usuario = user
+           CALL seg000(p_user,opt,"comncs000") RETURNING luz
+           IF luz = "roja" THEN
+              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
+              GOTO vuelve
+           END IF
+       END IF
+
+    CASE     
+       WHEN OPT = "1"
+          CALL  coprcs002()
+          CLEAR SCREEN
+          CALL comncs000()
+       WHEN OPT = "2"
+          CALL  coprcs003()
+          CLEAR SCREEN
+          CALL comncs000()
+       WHEN OPT = "3"
+          CALL  coprcs004()
+          CLEAR SCREEN
+          CALL comncs000()
+       WHEN OPT = "4"
+          CALL  coprcs005()
+          CLEAR SCREEN
+          CALL comncs000()
+       WHEN OPT = "5"
+          CALL  coprcs008()
+          CLEAR SCREEN
+          CALL comncs000()
+       WHEN OPT = "6"
+          CALL  coprcs009()
+          CLEAR SCREEN
+          CALL comncs000()
+       WHEN OPT = "7"
+          CALL  coprcs010()
+          CLEAR SCREEN
+          CALL comncs000()
+       WHEN OPT = "S" or OPT = "s"
+          RETURN
+        OTHERWISE
+          CALL  comncs000()
+     END CASE
+
+END FUNCTION
+
+FUNCTION pantalla() 
+    DEFINE fecha CHAR(8),
+           hora char(5) 
+    LET fecha = today USING "dd/mm/yy"  
+    LET hora = time
+    DISPLAY "E L E C T R O D O M E S T I C O S  J U V I A R   " AT 4,17
+            ATTRIBUTE (REVERSE,YELLOW)
+    DISPLAY fecha AT 4,70 ATTRIBUTE (YELLOW)
+    DISPLAY "Sistema de Compras" 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  
+
+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    
+            LET STATUS = 0
+            SLEEP 2
+            RETURN
+        END IF
+END FUNCTION
+
+FUNCTION escoge()
+    SELECT nom_sp INTO suplidor.nom_sp FROM cotb00001
+    WHERE cod_sp     = ordenes.cod_sp AND
+                 cod_sp_sec = ordenes.cod_sp_sec AND
+                 status_t is null
+
+    IF ordenes.cod_sp = 23 THEN
+       SELECT descrip_term INTO pagos.descrip_term FROM cotb00024
+       WHERE term_sp = ordenes.term_sp AND status_t is null
+    ELSE
+       SELECT descrip_ting INTO pagos.descrip_term FROM cotb00024
+       WHERE term_sp = ordenes.term_sp AND status_t is null
+    END IF
+
+    LET nombre_mon = null
+    LET simb_mon   = null
+    IF p_programa != "CS" THEN
+    SELECT a.descrip_mon,a.simbolo INTO nombre_mon,simb_mon FROM cotb00031 a
+    WHERE a.cod_mon = cod_mon AND a.status_t is null
+    END IF
+  LET nombre_p = null
+  IF ordenes.cod_pt IS NOT NULL THEN
+    SELECT nom_pt INTO nombre_p FROM cotb00019
+           WHERE cod_pt = ordenes.cod_pt AND
+                 status_t is null
+  END IF
+
+    IF ordenes.via = "01" THEN
+       LET nom_via = "MARITIMA"
+    END IF
+    IF ordenes.via = "02" THEN
+       LET nom_via = "AEREA"
+    END IF
+    IF ordenes.via = "03" THEN
+       LET nom_via = "TERRESTRE"
+    END IF
+END FUNCTION