Corregir ipprrp002_1 (Catalogo Productos Con Costos): cierre colgado y titulo

- ipprrp002_1.4gl: envolver el flujo de captura/reporte en un WHILE,
  mismo bug que ipprrp002 (el programa quedaba colgado tras generar el
  reporte y habia que forzar el cierre; ahora Cancelar cierra limpio y
  se puede volver a buscar sin cerrar el programa).
- ipfmrp002_1.4fd: agregar texto al <Form> ("CATALOGO PRODUCTOS CON
  COSTOS"), la ventana no tenia titulo y mostraba "screen" por defecto.

Verificado con producto 29-668-1403-6952 (1 pagina, existencia 360.00,
costo 3,512.42, precio 7,379.02, coincide con la BD) y con el catalogo
completo sin filtro (mismo volumen que ipprrp002, generacion correcta
aunque lenta por las consultas adicionales que hace por fila).

Nota aparte (sin corregir): los campos "Origen" y "Lista Precios" en
pantalla no estan en el INPUT BY NAME ni se usan en el query (que trae
siempre ventas='1' y cod_lista=1 hardcodeados) - no seleccionables,
funcionalidad a medio conectar igual que "Anio" en ipprcs042.

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

PROYECTO/ipdir/ipfmrp002_1.4fd

@@ -16,7 +16,7 @@
     <RecordField colName="progreso" fieldIdRef="3" name="progreso" sqlTabName="formonly" uid="{2876bc75-5772-43f8-9ee4-2add49a40fa4}"/>
     <RecordField colName="total5" fieldIdRef="9" name="total5" precisionDecimal="10" scaleDecimal="2" sqlTabName="formonly" sqlType="DECIMAL" uid="{b35a744a-9920-4579-ace9-15d4c60f41bb}"/>
   </Record>
-  <Form gridHeight="24" gridWidth="80" name="ipfmrp002_1">
+  <Form gridHeight="24" gridWidth="80" name="ipfmrp002_1" text="CATALOGO PRODUCTOS CON COSTOS">
     <Grid gridHeight="24" gridWidth="80" name="grid1" posX="0" posY="0">
       <Label gridHeight="1" gridWidth="9" name="label1" posX="8" posY="1" text="Año Costo"/>
       <ComboBox colName="pano" fieldId="10" gridHeight="1" gridWidth="8" items="" name="pano" posX="25" posY="1" sqlTabName="formonly" tabIndex="1" widget="ComboBox"/>

PROYECTO/ipdir/ipprrp002_1.4gl

@@ -54,6 +54,9 @@ 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 pano,tipo_info,formato
        BEFORE INPUT
@@ -62,10 +65,8 @@ FUNCTION ipprrp002()
           DISPLAY BY NAME pano
        AFTER INPUT
             IF int_flag THEN
-               LET numero_msg = 2
-               CALL msg(numero_msg)
                LET int_flag = FALSE
-               RETURN
+               EXIT WHILE
             END IF
             EXIT INPUT
        END INPUT
@@ -74,10 +75,8 @@ FUNCTION ipprrp002()
                      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
     LET SELEC =
     
@@ -123,14 +122,12 @@ IF handler IS NOT NULL THEN           -- report engine was configured ok
       CALL integridad()
          IF bandera = 1 THEN
             LET bandera = 0
-            RETURN
+            EXIT WHILE
         END IF
 
     IF int_flag THEN
-       LET numero_msg = 2
-       CALL msg(numero_msg)
        LET int_flag = FALSE
-       RETURN
+       EXIT WHILE
     END IF
 
     DECLARE accion CURSOR FOR busca
@@ -166,7 +163,7 @@ IF handler IS NOT NULL THEN           -- report engine was configured ok
     CALL ui.interface.refresh()
     FINISH REPORT catalogo
 END IF
-    
+    END WHILE
 END FUNCTION
 
 REPORT catalogo(x)