From 6c20f62de9c0c8622590a495c56b75587cfac308 Mon Sep 17 00:00:00 2001 From: Jeilyn Peguero Date: Tue, 29 Sep 2026 12:44:34 -0400 Subject: [PATCH] Corregir ipprrp009 (Existencia a Diferentes Fechas) y limpiar debug - Registrar ipfmrp009.4fd y agregar dependencias faltantes (FUNCIONESREPORT, FUNCIONES_IN) para msgrp000/selectOutput/defecto/ fgl_report_*. - Rescatar ipprrp009.4rp de un backup viejo (PROYECTOS/bin), no existia en el repo. El nombre de reporte (existencia_grafica) coincidia bien, a diferencia del caso de ipprrp010. - Quitar dos DISPLAY de depuracion olvidados (mostraban el SQL completo y el texto "imprime" en cada fila). Verificado con producto 29-668-1403-6952, rango 01/01/2026-29/09/2026, grafico=SI: Existencia 360.00, Costo 3,512.41/3,512.42, Total 1,264,469.40 (cuadra: 360 x costo). Subtotal por origen y total general correctos. Exportado en PDF, pantalla y Excel sin problemas. Cierre limpio. Co-Authored-By: Claude Sonnet 5 --- PROYECTO/bin/ipprrp009.4rp | 107 +++++++++++++++++++++++++++++++++++ PROYECTO/ipdir/ipprrp009.4gl | 4 +- PROYECTO/ipdir/ipprrp009.4rp | 107 +++++++++++++++++++++++++++++++++++ PROYECTO/mbsERP.4pw | 3 +- 4 files changed, 217 insertions(+), 4 deletions(-) create mode 100644 PROYECTO/bin/ipprrp009.4rp create mode 100644 PROYECTO/ipdir/ipprrp009.4rp diff --git a/PROYECTO/bin/ipprrp009.4rp b/PROYECTO/bin/ipprrp009.4rp new file mode 100644 index 0000000..7afa7af --- /dev/null +++ b/PROYECTO/bin/ipprrp009.4rp @@ -0,0 +1,107 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PROYECTO/ipdir/ipprrp009.4gl b/PROYECTO/ipdir/ipprrp009.4gl index ae80cb3..81048c6 100644 --- a/PROYECTO/ipdir/ipprrp009.4gl +++ b/PROYECTO/ipdir/ipprrp009.4gl @@ -414,9 +414,8 @@ END IF START REPORT existencia TO archivo - END IF + END IF - DISPLAY select_act PREPARE busca_act FROM select_act DECLARE busca_balan_act CURSOR FOR busca_act OPEN busca_balan_act #USING datos_cons.fech_in,datos_cons.fech_fi,datos_cons.fech_fi,ano_ant, @@ -769,7 +768,6 @@ REPORT existencia_grafica(x) LET descripcion = x.descrip_esp CLIPPED # IF x.total_c <> 0 THEN - DISPLAY "imprime" LET tt = tt + 1 LET producto = x.cod_n USING "&&&&","-",x.cod_grupo USING "&&&&","-", x.cod_tipo USING "&&&&","-",x.cod_sec USING "&&&&&&" diff --git a/PROYECTO/ipdir/ipprrp009.4rp b/PROYECTO/ipdir/ipprrp009.4rp new file mode 100644 index 0000000..7afa7af --- /dev/null +++ b/PROYECTO/ipdir/ipprrp009.4rp @@ -0,0 +1,107 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw index 16d9a37..1bbb371 100644 --- a/PROYECTO/mbsERP.4pw +++ b/PROYECTO/mbsERP.4pw @@ -723,9 +723,10 @@ - + +