diff --git a/PROYECTO/ipdir/ipfmrp002_1.4fd b/PROYECTO/ipdir/ipfmrp002_1.4fd
index 9c3b397..a2370e4 100644
--- a/PROYECTO/ipdir/ipfmrp002_1.4fd
+++ b/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"/>
diff --git a/PROYECTO/ipdir/ipprrp002_1.4gl b/PROYECTO/ipdir/ipprrp002_1.4gl
index 56f3a84..d8200a3 100644
--- a/PROYECTO/ipdir/ipprrp002_1.4gl
+++ b/PROYECTO/ipdir/ipprrp002_1.4gl
@@ -54,32 +54,31 @@ 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
           CALL cano()
           LET pano = YEAR(TODAY)
-          DISPLAY BY NAME pano  
-       AFTER INPUT   
+          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     
+       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
-    LET SELEC = 
+    LET SELEC =
     
     "SELECT a.cod_cia,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp, ",
     "       a.unidad_med,SUM(b.cantidad_2),c.factor_conv,d.precio FROM iptb00002 a 
@@ -111,7 +110,7 @@ FUNCTION ipprrp002()
      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
@@ -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
-        END IF 
+            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
@@ -165,8 +162,8 @@ IF handler IS NOT NULL THEN           -- report engine was configured ok
     DISPLAY Progreso TO progreso
     CALL ui.interface.refresh()
     FINISH REPORT catalogo
-END IF    
-    
+END IF
+    END WHILE
 END FUNCTION
 
 REPORT catalogo(x)