Corrige ipprrp054 (Revision de Conduces con y sin Archivo)

- Registra ipfmrp054.4fd y la dependencia FUNCIONESREPORT en mbsERP.4pw
- seleccionarsalida() -> selectOutputSimple()
- Rescata ipprrp054.4rp del respaldo PROYECTOS/bin (ipdir/ y bin/)
- El reporte arrancaba aunque la consulta no devolviera filas y el motor
  fallaba (Failed to find value for the look ahead input-variables);
  ahora START REPORT se ejecuta con la primera fila y, si no hay datos,
  muestra "NO EXISTEN REGISTROS"
- Titulo de ventana corregido

Verificado: 05/01/2026 a 10/15/2026 genera 100 paginas en pantalla y PDF.
Nota: las fechas de este formulario se capturan en formato mm/dd/yyyy
(campo Edit sin selector), comportamiento original del programa.
Excel no probado.

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>

PROYECTO/ipdir/ipprrp054.4gl

@@ -34,6 +34,7 @@ FUNCTION ipprrp054()
 
     OPEN FORM ipfmrp054 FROM "ipfmrp054"
     DISPLAY FORM ipfmrp054
+    CALL ui.Window.getCurrent().setText("Conduces con y sin Archivo")
      INPUT BY NAME fecha1,fecha2
       BEFORE INPUT 
         AFTER INPUT 
@@ -50,27 +51,34 @@ FUNCTION ipprrp054()
 
          
         LET r_filename = "ipprrp054.4rp"
-        CALL seleccionarsalida() RETURNING r_output
-        iF fgl_report_loadCurrentSettings(r_filename) THEN    -- load the .4rp file
-        
-           
-            LET preview=1
-            CALL fgl_report_selectDevice(r_output)                          -- changing default
-            CALL fgl_report_selectPreview(preview)                          -- changing default
-          
-            LET handler = fgl_report_commitCurrentSettings()    -- commit changes
-          ELSE 
-            EXIT PROGRAM
-        END IF
-          START REPORT prt_co TO XML HANDLER HANDLER
-             PREPARE comando FROM selec 
-             DECLARE busca CURSOR FOR comando
-             OPEN busca USING fecha1,fecha2 
+        PREPARE comando FROM selec
+        DECLARE busca CURSOR FOR comando
+        OPEN busca USING fecha1,fecha2
+        LET idx = 0
+
+        FOREACH busca INTO co.*
+            IF idx = 0 THEN
+                CALL selectOutputSimple() RETURNING r_output
+                IF fgl_report_loadCurrentSettings(r_filename) THEN
+                    LET preview = 1
+                    CALL fgl_report_selectDevice(r_output)
+                    CALL fgl_report_selectPreview(preview)
+                    LET handler = fgl_report_commitCurrentSettings()
+                ELSE
+                    EXIT PROGRAM
+                END IF
+                START REPORT prt_co TO XML HANDLER HANDLER
+                LET idx = 1
+            END IF
+            OUTPUT TO REPORT prt_co(co.*)
+        END FOREACH
+
+        IF idx = 1 THEN
+            FINISH REPORT prt_co
+        ELSE
+            CALL fgl_winmessage("INFO", "NO EXISTEN REGISTROS", "INFO")
+        END IF
 
-            FOREACH   busca INTO co.* 
-                 OUTPUT TO REPORT prt_co(co.*)
-            END FOREACH 
-          FINISH REPORT prt_co
      END INPUT 
 END FUNCTION