From c00ba4b920a03118c2c60f411035efdbdf7e01eb Mon Sep 17 00:00:00 2001 From: Jeilyn Peguero Date: Tue, 22 Sep 2026 12:58:06 -0400 Subject: [PATCH] Corregir ipprrp002 (Catalogo Productos Terminados) y registrar assets de ipprrp002_1/ipprrp052 - Rescatar de un backup viejo (PROYECTOS/bin) los .4rp que faltaban en el repo: ipprrp002.4rp, ipprrp002_1.4rp, ipprrp002_2.4rp e ipprrp052.4rp. Sin ellos el reporte nunca podia generarse (fgl_report_loadCurrentSettings fallaba y el programa hacia EXIT PROGRAM). - Registrar en mbsERP.4pw los formularios ipfmrp002.4fd, ipfmrp002_1.4fd e ipfmrp052.4fd, y los .4rp anteriores: existian en el repo pero nunca se habian agregado al proyecto. - ipprrp002.4gl: cambiar `cuenta` de SMALLINT a INTEGER, causaba "Value too large to fit in a SMALLINT" al generar el catalogo completo (43,796 productos sin filtro). - ipprrp002.4gl: envolver el flujo de captura/reporte en un WHILE para permitir buscar de nuevo sin cerrar el programa, y para que Cancelar termine limpio (antes, al terminar de generar el reporte el programa quedaba colgado y habia que forzar el cierre). Verificado con producto 29-668-1403-6952 (1 pagina, ciclo buscar-reporte- cerrar limpio) y catalogo completo sin filtro (43,796 productos, 1093 paginas, generacion correcta). Nota aparte (sin corregir): sin filtro de codigo el programa genera el catalogo completo (43,796 productos) sin ninguna advertencia; evaluar si deberia exigir un filtro minimo. Campo "Anio" en pantalla sin uso en el codigo. ipprrp002_1 e ipprrp052 tienen sus assets registrados pero aun no se han probado funcionalmente. Co-Authored-By: Claude Sonnet 5 --- PROYECTO/bin/ipprrp002.4rp | 130 +++++++++++++++++++++++++++++++++ PROYECTO/bin/ipprrp002_1.4rp | 105 ++++++++++++++++++++++++++ PROYECTO/bin/ipprrp002_2.4rp | 111 ++++++++++++++++++++++++++++ PROYECTO/bin/ipprrp052.4rp | 114 +++++++++++++++++++++++++++++ PROYECTO/ipdir/ipprrp002.4gl | 30 ++++---- PROYECTO/ipdir/ipprrp002.4rp | 130 +++++++++++++++++++++++++++++++++ PROYECTO/ipdir/ipprrp002_1.4rp | 105 ++++++++++++++++++++++++++ PROYECTO/ipdir/ipprrp002_2.4rp | 111 ++++++++++++++++++++++++++++ PROYECTO/ipdir/ipprrp052.4rp | 114 +++++++++++++++++++++++++++++ PROYECTO/mbsERP.4pw | 1 + 10 files changed, 935 insertions(+), 16 deletions(-) create mode 100644 PROYECTO/bin/ipprrp002.4rp create mode 100644 PROYECTO/bin/ipprrp002_1.4rp create mode 100644 PROYECTO/bin/ipprrp002_2.4rp create mode 100644 PROYECTO/bin/ipprrp052.4rp create mode 100644 PROYECTO/ipdir/ipprrp002.4rp create mode 100644 PROYECTO/ipdir/ipprrp002_1.4rp create mode 100644 PROYECTO/ipdir/ipprrp002_2.4rp create mode 100644 PROYECTO/ipdir/ipprrp052.4rp diff --git a/PROYECTO/bin/ipprrp002.4rp b/PROYECTO/bin/ipprrp002.4rp new file mode 100644 index 0000000..8bc0baa --- /dev/null +++ b/PROYECTO/bin/ipprrp002.4rp @@ -0,0 +1,130 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PROYECTO/bin/ipprrp002_1.4rp b/PROYECTO/bin/ipprrp002_1.4rp new file mode 100644 index 0000000..4d4c867 --- /dev/null +++ b/PROYECTO/bin/ipprrp002_1.4rp @@ -0,0 +1,105 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PROYECTO/bin/ipprrp002_2.4rp b/PROYECTO/bin/ipprrp002_2.4rp new file mode 100644 index 0000000..ca3a65c --- /dev/null +++ b/PROYECTO/bin/ipprrp002_2.4rp @@ -0,0 +1,111 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PROYECTO/bin/ipprrp052.4rp b/PROYECTO/bin/ipprrp052.4rp new file mode 100644 index 0000000..b2c761c --- /dev/null +++ b/PROYECTO/bin/ipprrp052.4rp @@ -0,0 +1,114 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PROYECTO/ipdir/ipprrp002.4gl b/PROYECTO/ipdir/ipprrp002.4gl index a8682e6..7fa9946 100644 --- a/PROYECTO/ipdir/ipprrp002.4gl +++ b/PROYECTO/ipdir/ipprrp002.4gl @@ -12,7 +12,8 @@ GLOBALS "ipprgb000.4gl" DEFINE tipo_info VARCHAR(30), formato VARCHAR(3), - cuenta,cod_lista SMALLINT, + cuenta INTEGER, + cod_lista SMALLINT, selec_cta STRING MAIN DEFER INTERRUPT @@ -54,28 +55,27 @@ FUNCTION ipprrp002() DISPLAY "ipprrp002" AT 4,3 DISPLAY "Catalogo Productos " AT 6,33 + WHILE TRUE + LET progreso = 0 + DISPLAY progreso TO progreso INPUT BY NAME decide,tipo_info,formato,cod_lista - + AFTER INPUT IF int_flag THEN - LET numero_msg = 2 - CALL msg(numero_msg) LET int_flag = FALSE - RETURN + EXIT WHILE END IF - - + + END INPUT LET nombre_ant = "E" CONSTRUCT criterio ON a.cod_cia,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec FROM cod_cia,cod_n,cod_grupo,cod_tipo,cod_sec IF int_flag THEN - LET numero_msg = 2 - CALL msg(numero_msg) LET int_flag = FALSE - RETURN + EXIT WHILE END IF IF decide = "A" THEN @@ -119,10 +119,8 @@ ELSE END IF IF int_flag THEN - LET numero_msg = 2 - CALL msg(numero_msg) LET int_flag = FALSE - RETURN + EXIT WHILE END IF @@ -145,7 +143,7 @@ END IF EXIT PROGRAM END IF - #LET handler= fgl_report_createProcessLevelDataFile("datos.xml") + #LET handler= fgl_report_createProcessLevelDataFile("datos.xml") --run the report IF handler IS NOT NULL THEN -- report engine was configured ok @@ -197,8 +195,8 @@ IF handler IS NOT NULL THEN -- report engine was configured ok ELSE FINISH REPORT catalogo END IF -END IF - +END IF + END WHILE END FUNCTION REPORT catalogo(x) diff --git a/PROYECTO/ipdir/ipprrp002.4rp b/PROYECTO/ipdir/ipprrp002.4rp new file mode 100644 index 0000000..8bc0baa --- /dev/null +++ b/PROYECTO/ipdir/ipprrp002.4rp @@ -0,0 +1,130 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PROYECTO/ipdir/ipprrp002_1.4rp b/PROYECTO/ipdir/ipprrp002_1.4rp new file mode 100644 index 0000000..4d4c867 --- /dev/null +++ b/PROYECTO/ipdir/ipprrp002_1.4rp @@ -0,0 +1,105 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PROYECTO/ipdir/ipprrp002_2.4rp b/PROYECTO/ipdir/ipprrp002_2.4rp new file mode 100644 index 0000000..ca3a65c --- /dev/null +++ b/PROYECTO/ipdir/ipprrp002_2.4rp @@ -0,0 +1,111 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PROYECTO/ipdir/ipprrp052.4rp b/PROYECTO/ipdir/ipprrp052.4rp new file mode 100644 index 0000000..b2c761c --- /dev/null +++ b/PROYECTO/ipdir/ipprrp052.4rp @@ -0,0 +1,114 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw index b29d040..b586938 100644 --- a/PROYECTO/mbsERP.4pw +++ b/PROYECTO/mbsERP.4pw @@ -640,6 +640,7 @@ +