PROCEDURE fpr_forms_to_excel (
   p_block_name   IN   VARCHAR2 DEFAULT NAME_IN ('system.current_block'),
   p_path         IN   VARCHAR2 DEFAULT 'C:\',
   p_file_name    IN   VARCHAR2 DEFAULT 'Temp'
)
IS
-- Declare the OLE objects
   application   ole2.obj_type;
   workbooks     ole2.obj_type;
   workbook      ole2.obj_type;
   worksheets    ole2.obj_type;
   worksheet     ole2.obj_type;
   cell          ole2.obj_type;
   RANGE         ole2.obj_type;
   range_col     ole2.obj_type;
   -- Declare handles to OLE argument lists
   args          ole2.list_type;
   arglist       ole2.list_type;
   -- Declare form and block items
   form_name     VARCHAR2 (100);
   f_block       VARCHAR2 (100);
   l_block       VARCHAR2 (100);
   f_item        VARCHAR2 (100);
   l_item        VARCHAR2 (100);
   cur_block     VARCHAR2 (100)  := NAME_IN ('system.current_block');
   cur_item      VARCHAR2 (100);
   cur_record    VARCHAR2 (100);
   item_name     VARCHAR2 (100);
   baslik        VARCHAR2 (100);
   row_n         NUMBER;
   col_n         NUMBER;
   filename      VARCHAR2 (1000) := p_path || p_file_name;
   excelfontid   ole2.list_type;
   v_file_name		varchar2(1000);
BEGIN
   -- Start Excel
   application := ole2.create_obj ('Excel.Application');
   ole2.set_property (application, 'Visible', 'False');
   -- Return object handle to the Workbooks collection
   workbooks := ole2.get_obj_property (application, 'Workbooks');
   -- Add a new Workbook object to the Workbooks collection
   workbook := ole2.get_obj_property (workbooks, 'Add');
   -- Return object handle to the Worksheets collection for the Workbook
   worksheets := ole2.get_obj_property (workbook, 'Worksheets');
   -- Get the first Worksheet in the Worksheets collection
   -- worksheet:=OLE2.GET_OBJ_PROPERTY(worksheets,'Add');
   args := ole2.create_arglist;
   ole2.add_arg (args, 1);
   worksheet := ole2.get_obj_property (worksheets, 'Item', args);
   ole2.destroy_arglist (args);
   -- Return object handle to cell A1 on the new Worksheet
   GO_BLOCK (p_block_name);
   baslik := GET_BLOCK_PROPERTY (p_block_name, first_item);
   --commented to consider the second item as the first item
   f_item :=
         p_block_name || '.' || GET_BLOCK_PROPERTY (p_block_name, first_item);
   --in order to skip the old filename in the excel file
   l_item :=
          p_block_name || '.' || GET_BLOCK_PROPERTY (p_block_name, last_item);
   FIRST_RECORD;

   LOOP
      item_name := f_item;
      row_n := NAME_IN ('SYSTEM.CURSOR_RECORD');
      col_n := 1;

      LOOP
         IF     GET_ITEM_PROPERTY (item_name, item_type) <> 'BUTTON'
            AND GET_ITEM_PROPERTY (item_name, visible) = 'TRUE'
           -- AND GET_ITEM_PROPERTY (item_name,item_name) <> 'TOTAL_AMOUNT'
                     THEN
            -- Set first row with the item names
            IF row_n = 1
            THEN
               args := ole2.create_arglist;
               ole2.add_arg (args, 1);
               ole2.add_arg (args, col_n);
               cell := ole2.get_obj_property (worksheet, 'Cells', args);
               ole2.destroy_arglist (args);
               --cell_value := OLE2.get_char_property(cell, 'Value');
               excelfontid := ole2.get_obj_property (cell, 'Font');
               ole2.set_property (excelfontid, 'Bold', 'True');
--------------------------------------------
               baslik :=
                     NVL (GET_ITEM_PROPERTY (item_name, prompt_text), baslik);
               args := ole2.create_arglist;
               ole2.add_arg (args, row_n);
               ole2.add_arg (args, col_n);
               cell := ole2.get_obj_property (worksheet, 'Cells', args);
               ole2.destroy_arglist (args);
               ole2.set_property (cell, 'Value', baslik);
               ole2.RELEASE_OBJ (cell);
            END IF;

            -- Set other rows with the item values
            args := ole2.create_arglist;
            ole2.add_arg (args, row_n + 1);
            ole2.add_arg (args, col_n);
            cell := ole2.get_obj_property (worksheet, 'Cells', args);
            ole2.destroy_arglist (args);

            IF GET_ITEM_PROPERTY (item_name, datatype) <> 'NUMBER'
            THEN
               ole2.set_property (cell, 'NumberFormat', '@');
            END IF;

            ole2.set_property (cell, 'Value', NAME_IN (item_name));
            ole2.RELEASE_OBJ (cell);
         END IF;

         IF item_name ='XXEBS_MONTH_END_DETAILS_V.REPORTED_HOURS_HANDLER' -- l_item
         THEN         
          
             EXIT;
         END IF;

         baslik := GET_ITEM_PROPERTY (item_name, nextitem);
         item_name :=
                p_block_name || '.' || GET_ITEM_PROPERTY (item_name, nextitem);
         col_n := col_n + 1;
      END LOOP;

      EXIT
      WHEN NAME_IN ('system.last_record') = 'TRUE';
      
      NEXT_RECORD;
   END LOOP;

   -- Autofit columns
   RANGE := ole2.get_obj_property (worksheet, 'UsedRange');
   range_col := ole2.get_obj_property (RANGE, 'Columns');
   ole2.invoke (range_col, 'AutoFit');
   ole2.RELEASE_OBJ (RANGE);
   ole2.RELEASE_OBJ (range_col);

   -- Save as worksheet with a Specified file path & name.
   IF NVL (filename, '0') <> '0'
   THEN
      args := ole2.create_arglist;
      ole2.add_arg (args, filename);
      ole2.invoke (worksheet, 'SaveAs', args);
      ole2.destroy_arglist (args);
   END IF;


Message ('File has been generated at C:\UL_DATA\'||:global.file_name);
Message ('File has been generated at C:\UL_DATA\'||:global.file_name);
   --     Release the OLE objects
   ole2.RELEASE_OBJ (worksheet);
   ole2.RELEASE_OBJ (worksheets);
   ole2.RELEASE_OBJ (workbook);
   ole2.RELEASE_OBJ (workbooks);
   ole2.invoke (application, 'Quit');
   ole2.RELEASE_OBJ (application);
-- Focus to the original location
EXCEPTION
   WHEN OTHERS
   THEN
      NULL;
      RAISE form_trigger_failure;
END;