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,178 @@
+{
+-------------------------------------------------------------------------------
+PROGRAMA             :  IRPRRP016
+OBJETIVO             :  Validacion Maestra de Sub-Grupos
+PROGRAMADOR          :  Tadeo A. Ferreras F.       
+FECHA REALIZACION    :  Enero 29, 1993.  
+-------------------------------------------------------------------------------
+}
+GLOBALS "irprgb000.4gl"
+
+MAIN                
+   DEFER INTERRUPT
+   SELECT * INTO p_companias.* FROM companias
+   CALL irprrp16()
+END MAIN
+
+FUNCTION irprrp16()
+    DEFINE sel_exist CHAR(300)
+    DEFINE salir1,salir CHAR(1)
+    DEFINE idx1,idx SMALLINT 
+    DEFINE hoy DATE
+
+    DEFINE departa RECORD LIKE irtb00010.*
+    DEFINE cod smallint
+
+ #WHENEVER ERROR CONTINUE
+
+    OPTIONS
+       FORM LINE 8,
+       ERROR LINE 23,
+       COMMENT LINE 21
+
+    CLEAR SCREEN
+
+    OPEN FORM irfmrp16 FROM "irfmrp016"
+    DISPLAY FORM irfmrp16
+    CALL pantalla()
+    DISPLAY "irprrp016" AT 4,3
+    DISPLAY "Validacion Maestra Sub-Grupos" AT 6,25
+
+    LET tipo_papel = 1
+    CALL msgrp000(tipo_papel)
+
+    INPUT BY NAME decide
+     AFTER FIELD decide
+     IF decide IS NULL THEN
+         LET numero_msg = 16
+         CALL msg(numero_msg)
+         NEXT FIELD decide
+     END IF
+    END INPUT
+
+    IF int_flag THEN
+       LET numero_msg = 2
+       CALL msg(numero_msg)
+       LET int_flag = FALSE
+       RETURN
+    END IF
+
+    CONSTRUCT criterio ON a.codigo,a.nombre
+                     FROM codigo,nombre
+    IF decide = "A" THEN 
+    LET SELEC = 
+      "SELECT UNIQUE a.* FROM irtb00010 a ",
+      "WHERE a.status_t IS NULL AND ",criterio CLIPPED," ORDER BY 2 "
+    ELSE 
+    LET SELEC = 
+      "SELECT UNIQUE a.* FROM irtb00010 a ",
+      "WHERE a.status_t IS NULL AND ",criterio CLIPPED," ORDER BY 1 "
+    END IF
+
+    DISPLAY "<< Buscando Informacion ... Espere Por Favor >>" AT 19,14
+             ATTRIBUTE (BOLD)
+
+    START REPORT reporte_16 TO "C:\\archivo"
+    PREPARE busca FROM selec
+    IF int_flag THEN
+       LET numero_msg = 2
+       CALL msg(numero_msg)
+       LET int_flag = FALSE
+       RETURN
+    END IF
+
+    DECLARE accion CURSOR FOR busca
+
+      DISPLAY "                                                " 
+              AT 19,14 
+      DISPLAY "<< Reporte Generandose ...  Por Favor Espere >>" 
+              AT 19,14 ATTRIBUTE (REVERSE) 
+
+    FOREACH accion INTO departa.* 
+
+        IF int_flag THEN
+         LET numero_msg = 2
+         CALL msg(numero_msg)
+         LET int_flag = false
+         RETURN
+        END IF
+
+   OUTPUT TO REPORT reporte_16(departa.*)
+   END FOREACH
+
+    FINISH REPORT reporte_16
+
+    CLEAR SCREEN
+
+RUN "type C:\\archivo > %USPRINT%" END FUNCTION
+
+    REPORT reporte_16(x)
+    DEFINE x RECORD LIKE irtb00004.*
+
+    DEFINE l smallint
+    DEFINE varia CHAR(20)
+    DEFINE descripcion CHAR(60)
+    DEFINE primera CHAR(1)
+    DEFINE doble_on CHAR(6)
+    DEFINE doble_off CHAR(6)
+    DEFINE negrillas_on CHAR(6)
+    DEFINE negrillas_off CHAR(6)
+    DEFINE comp_on CHAR(6)
+    DEFINE comp_off CHAR(6) 
+    DEFINE normal CHAR(6)
+    DEFINE doce CHAR(6)
+    DEFINE hora CHAR(5)
+    OUTPUT
+     TOP MARGIN 0
+      LEFT MARGIN 0
+      BOTTOM MARGIN 2
+    FORMAT
+      PAGE HEADER
+        LET doble_on =  ASCII 14 
+        LET doble_off = ASCII 002
+        LET negrillas_on = ASCII 27, ASCII 69
+        LET negrillas_off = ASCII 27, ASCII 70
+        LET comp_on = ASCII 15
+        LET comp_off = ASCII 18 
+        LET normal = ASCII 27,ASCII 80
+        LET hora = time
+           PRINT COLUMN  3, negrillas_on
+           PRINT COLUMN  1, "irprrp016", 
+                 COLUMN 17, "              M A R M O T E C H  S. A.",
+                 COLUMN 72, "Pag.  ",pageno using "<<<"
+           PRINT COLUMN 17, "      Sistema de Inventario de Repuestos    ",
+                 COLUMN 72, today using "dd/mm/yy"
+           PRINT COLUMN 17, "         Validacion Maestra Sub-Grupos  ",
+                 COLUMN 75, hora
+             IF decide = "N" THEN
+                 LET varia = "N u m e r i c o"
+           ELSE 
+                 LET varia = "A l f a b e t i c o"
+       END IF
+          LET l = (80 - LENGTH(varia))/2 
+
+        PRINT COLUMN l, varia clipped
+        PRINT COLUMN 1, "--------------------------------------------------",
+                        "------------------------------"
+        PRINT COLUMN  1, "Sub-Grupo",
+              COLUMN 17, "Nombre"
+        PRINT COLUMN 1, "--------------------------------------------------",
+                        "------------------------------"
+        PRINT COLUMN 1, negrillas_off
+
+      ON EVERY ROW
+
+         PRINT COLUMN  1, x.codigo USING "&&&&",
+               COLUMN 17, x.nombre 
+
+     SKIP 1 LINE
+
+     ON LAST ROW
+       SKIP 1 LINE
+        PRINT COLUMN 1, "==================================================",
+                        "=============================="
+       PRINT COLUMN 3, "Total de Registros Impresos = ", count(*) USING "####"
+       PRINT COLUMN 3, ASCII 27, ASCII 80
+
+     END REPORT
+