From ea88c93da327b2a4329a617aa6e83f37bde5e9e7 Mon Sep 17 00:00:00 2001
From: Jeilyn Peguero <jpeguero@marmotech.com.do>
Date: Thu, 15 Oct 2026 16:07:11 -0400
Subject: [PATCH] Corrige ctprrp014 (Reporte Produccion Mensual)

- Titulo de ventana corregido
- START REPORT se ejecuta con la primera fila; si la consulta no devuelve
  datos avisa "NO EXISTEN REGISTROS PARA ESTOS PARAMETROS" en vez de
  generar un reporte en blanco

Verificado con ano 2024 (la BD de pruebas no tiene produccion posterior a
agosto de 2025): 1 pagina con 9 semielaborados por mes y total, en pantalla,
PDF y Excel.

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
---
 PROYECTO/ctdir/ctprrp014.4gl | 44 ++++++++++++++++++++++--------------
 1 file changed, 27 insertions(+), 17 deletions(-)

diff --git a/PROYECTO/ctdir/ctprrp014.4gl b/PROYECTO/ctdir/ctprrp014.4gl
index 4ff80f7..6dae2c3 100644
--- a/PROYECTO/ctdir/ctprrp014.4gl
+++ b/PROYECTO/ctdir/ctprrp014.4gl
@@ -20,6 +20,8 @@ DEFINE HANDLER om.SaxDocumentHandler, -- return value from fgl_report_commitCurr
 DEFINE selec5 STRING
 DEFINE anos STRING
 
+DEFINE hay_filas SMALLINT
+
 MAIN
     DEFER INTERRUPT
     CALL ARG_VAL(1) RETURNING usuarios
@@ -55,6 +57,7 @@ FUNCTION ctprrp004()
 
     OPEN FORM ctfmrp004 FROM "ctfmrp014"
     DISPLAY FORM ctfmrp004
+    CALL ui.Window.getCurrent().setText("Reporte Produccion Mensual")
 
     CONSTRUCT criterio ON c.cod_prod FROM cod_prod
 
@@ -128,33 +131,40 @@ FUNCTION ctprrp004()
 
 
     LET r_filename = 'ctprrp014.4rp'
-    IF fgl_report_loadCurrentSettings(r_filename) THEN
-        LET preview=1                           
-        CALL selectoutput() RETURNING r_output                   
-        CALL fgl_report_selectDevice(r_output)           -- changing default
-        CALL fgl_report_selectPreview(preview)           -- changing default
-        LET handler = fgl_report_commitCurrentSettings() -- commit changes
-    END IF 
-    
-    START REPORT reporte_mensual TO XML HANDLER HANDLER 
-        
     LET fecha_actual = CURRENT YEAR TO FRACTION
 
     DISPLAY selec5
-    
+
     PREPARE comando4 FROM selec5
     DECLARE busca4 CURSOR FOR comando4
-    
+    LET hay_filas = FALSE
+
     FOREACH busca4 INTO prod_dia.*
-    
-        IF prod_dia.semielaborado IS NULL THEN 
+
+        IF NOT hay_filas THEN
+            IF fgl_report_loadCurrentSettings(r_filename) THEN
+                LET preview=1
+                CALL selectoutput() RETURNING r_output
+                CALL fgl_report_selectDevice(r_output)
+                CALL fgl_report_selectPreview(preview)
+                LET handler = fgl_report_commitCurrentSettings()
+            END IF
+            START REPORT reporte_mensual TO XML HANDLER HANDLER
+            LET hay_filas = TRUE
+        END IF
+
+        IF prod_dia.semielaborado IS NULL THEN
             LET abortar_reporte = TRUE;
-        END IF 
-        
+        END IF
+
         OUTPUT TO REPORT reporte_mensual(prod_dia.*, anos, fecha_actual);
     END FOREACH
 
-    FINISH REPORT reporte_mensual
+    IF hay_filas THEN
+        FINISH REPORT reporte_mensual
+    ELSE
+        CALL fgl_winmessage("INFO", "NO EXISTEN REGISTROS PARA ESTOS PARAMETROS", "INFO")
+    END IF
 
     IF abortar_reporte THEN
         RETURN