DECLARE                                                                                                         -- 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;
        font     OLE2.obj_type;                                                                                 -- Declare handles to OLE argument lists
        args       OLE2.list_type;                                                                                        -- variables
        i         NUMBER;
        j         NUMBER;
        row_n         NUMBER;
        col_n         NUMBER;
        v_cnt         Number:=0;
        v_date  varchar2(100);
        ex_file_name        varchar2(32767);
        v_site  varchar2(32767);
        lv_ORARRP_PATH        varchar2(32767);
        CNT   NUMBER:=0;
        BEGIN
        	GO_BLOCK('ORDERMST');
        	FIRST_RECORD;
        	LOOP
        		CNT:=CNT+1;
        		EXIT WHEN :SYSTEM.LAST_RECORD='TRUE';
        		NEXT_RECORD;
        	END LOOP;
        	FIRST_RECORD;
        if CNT = 0 then
               message('There are no records for Exporting to Excel...');
               raise form_trigger_failure;
        end if;
        
        ex_file_name         := 'Exchange_gain'||sysdate||'report.xls';
        lv_ORARRP_PATH        :='g:/forms/test/'|| ex_file_name;
				--message(lv_ORARRP_PATH); 
		
         application                 :=  OLE2.create_obj ('Excel.Application');
         workbooks                 :=  OLE2.GET_OBJ_PROPERTY (application, 'Workbooks');
       		workbook                 :=  OLE2.GET_OBJ_PROPERTY (workbooks,'Add');
        workbook                 :=  OLE2.invoke_obj (workbooks,'Add');
        worksheets                :=  OLE2.GET_OBJ_PROPERTY (workbook,'Worksheets');
        worksheet                 :=   OLE2.GET_OBJ_PROPERTY (application, 'ActiveSheet');
        --OLE2.GET_OBJ_PROPERTY (worksheets,'Add');
        
         --OLE2.set_property (worksheet,'Name','test');
        v_cnt := cnt;
        row_n := 1;
        set_application_property(cursor_style,'BUSY');
        args :=  OLE2.create_arglist;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 7);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'EXCHAGE GAIN LOSS REPORT');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);

ROW_N:=ROW_N+1;
				args :=  OLE2.create_arglist;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 1);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Category');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
								args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 2);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
                 OLE2.set_property (cell, 'Value', :searchdata.CATEGORY);
            ole2.RELEASE_OBJ(cell);     
						
			
				args :=  OLE2.create_arglist;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 5);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Currency');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
								args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 6);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
      					 OLE2.set_property (cell, 'Value', :searchdata.CURRENCY_CODE);
                ole2.RELEASE_OBJ(cell); 
                
				args :=  OLE2.create_arglist;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 9);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Division');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
								args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 10);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
                 OLE2.set_property (cell, 'Value', :searchdata.Division_code);                
					ole2.RELEASE_OBJ(cell); 				
row_n:=row_n+1;

	args :=  OLE2.create_arglist;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 1);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Profit/Loss');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
								args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 2);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
                 OLE2.set_property (cell, 'Value', :searchdata.PROFIT_LOSS);
                ole2.RELEASE_OBJ(cell); 

			
				args :=  OLE2.create_arglist;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 5);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'From Date');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
								args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 6);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
      					 OLE2.set_property (cell, 'Value', :searchdata.FWD_MATURITYFROMDT);
                ole2.RELEASE_OBJ(cell); 
                
                
				args :=  OLE2.create_arglist;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 9);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'To Date');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
								args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 10);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
                 OLE2.set_property (cell, 'Value', :searchdata.FWD_MATURITYTODT);                
                 ole2.RELEASE_OBJ(cell); 

row_n:=row_n+1;
		
        --Header
        args :=  OLE2.create_arglist;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 1);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Bank code');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
         ole2.RELEASE_OBJ(cell); 
        -- OLE2.set_property (font, 'Size', '12');
        -- OLE2.set_property (font, 'Italics', True);
        -- OLE2.set_property (font, 'Underline', True);
        	args :=  OLE2.create_arglist ;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 2);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Division');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
        -- OLE2.destroy_arglist (args);
					ole2.RELEASE_OBJ(cell); 

        args :=  OLE2.create_arglist ;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 3);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Month');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
				ole2.RELEASE_OBJ(cell); 
				
				args :=  OLE2.create_arglist ;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 4);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Order Type');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
					ole2.RELEASE_OBJ(cell); 

        args :=  OLE2.create_arglist ;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 5);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Currency');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
					ole2.RELEASE_OBJ(cell); 

        args :=  OLE2.create_arglist ;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 6);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Fwd Booking Date');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
				ole2.RELEASE_OBJ(cell); 				

        args :=  OLE2.create_arglist ;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 7);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Bank Forward No.');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
        -- OLE2.destroy_arglist (args);
 			ole2.RELEASE_OBJ(cell); 
 			
 			 args :=  OLE2.create_arglist ;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 8);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Cancelation Date');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
      ole2.RELEASE_OBJ(cell); 
        
        args :=  OLE2.create_arglist ;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 9);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Fwd. Cancellation No.');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
        -- OLE2.destroy_arglist (args);
				args :=  OLE2.create_arglist ;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 10);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Forward Amount');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
        -- OLE2.destroy_arglist (args);
				ole2.RELEASE_OBJ(cell); 
				
        args :=  OLE2.create_arglist ;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 11);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Fwd Rate ');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
        -- OLE2.destroy_arglist (args);
					ole2.RELEASE_OBJ(cell); 

        args :=  OLE2.create_arglist ;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 12);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Cancellation Rate');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
        -- OLE2.destroy_arglist (args);
				ole2.RELEASE_OBJ(cell); 
				
        args :=  OLE2.create_arglist ;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 13);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Fwd.Maturity From Date');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
        -- OLE2.destroy_arglist (args);
        ole2.RELEASE_OBJ(cell); 
        
         args :=  OLE2.create_arglist ;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 14);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Fwd. Maturity To Date');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
					ole2.RELEASE_OBJ(cell); 

        args :=  OLE2.create_arglist ;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 15);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Date of Credit in Bank');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
						ole2.RELEASE_OBJ(cell); 
				
        args :=  OLE2.create_arglist ;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 16);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Profit');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
							ole2.RELEASE_OBJ(cell); 

        args :=  OLE2.create_arglist ;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 17);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Loss');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
        -- OLE2.destroy_arglist (args);
					ole2.RELEASE_OBJ(cell); 
        

        


        row_n := row_n + 1;
					
        go_block('ordermst');
        first_record;
						--message(6);
        --For j in 1..v_cnt
        Loop
        	--message(6);
                args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 1);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
                 OLE2.set_property (cell, 'Value', :ORDERMST.BANK_code);
                -- OLE2.destroy_arglist (args);
											ole2.RELEASE_OBJ(cell); 
											
                args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 2);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
                 OLE2.set_property (cell, 'Value',:ORDERMST.division_CODE);
                -- OLE2.destroy_arglist (args);
												ole2.RELEASE_OBJ(cell); 

                args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 3);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
                 OLE2.set_property (cell, 'Value', :ORDERMST.month);
                -- OLE2.destroy_arglist (args);
                ole2.RELEASE_OBJ(cell); 

                args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 4);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
                 OLE2.set_property (cell, 'Value',:ORDERMST.order_type );
                -- OLE2.destroy_arglist (args);
                ole2.RELEASE_OBJ(cell); 

                args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 5);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
                 OLE2.set_property (cell, 'Value', :ORDERMST.currency_code);
                -- OLE2.destroy_arglist (args);
                ole2.RELEASE_OBJ(cell); 

                args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 6);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
                 OLE2.set_property (cell, 'Value', :ORDERMST.created_on);
                -- OLE2.destroy_arglist (args);
                ole2.RELEASE_OBJ(cell); 

                args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 7);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
                 OLE2.set_property (cell, 'Value', :ORDERMST.bank_fwd_no);
                -- OLE2.destroy_arglist (args);
                ole2.RELEASE_OBJ(cell); 
								
								args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 8);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
             	  OLE2.set_property (cell, 'Value', :ORDERMST.FWD_CANCELDATE);
								ole2.RELEASE_OBJ(cell); 
								
                args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 9);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
             	  OLE2.set_property (cell, 'Value', :ORDERMST.FWD_CANCELATIONNO);
                ole2.RELEASE_OBJ(cell); 
                
                 args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 10);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
             	  OLE2.set_property (cell, 'Value', nvl(:ORDERMST.FWD_MILESTONE_AMT,0));
             	 ole2.RELEASE_OBJ(cell); 
             	 
                args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 11);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
                 OLE2.set_property (cell, 'Value', :ORDERMST.BANK_FWD_RATE);
               ole2.RELEASE_OBJ(cell);  
                -----------------
                
                               args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 12);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
                 OLE2.set_property (cell, 'Value', :ORDERMST.FWD_CANCELLATIONRATE);
                -- OLE2.destroy_arglist (args);
                ole2.RELEASE_OBJ(cell); 

                args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 13);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
                 OLE2.set_property (cell, 'Value',:ORDERMST.FWD_MATURITYFROMDT );
                -- OLE2.destroy_arglist (args);
                ole2.RELEASE_OBJ(cell); 

                args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 14);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
                 OLE2.set_property (cell, 'Value', :ORDERMST.FWD_MATURITYTODT);
                -- OLE2.destroy_arglist (args);
                ole2.RELEASE_OBJ(cell); 

                args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 15);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
                 OLE2.set_property (cell, 'Value', :ORDERMST.FWD_BANKCREDITDT);
                -- OLE2.destroy_arglist (args);
                ole2.RELEASE_OBJ(cell); 

                args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 16);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
                 OLE2.set_property (cell, 'Value', :ORDERMST.PROFIT);
                -- OLE2.destroy_arglist (args);
                ole2.RELEASE_OBJ(cell); 

                args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 17);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
             	  OLE2.set_property (cell, 'Value', :ORDERMST.LOSS);
             	  ole2.RELEASE_OBJ(cell); 
           
                
                     
                
                -- OLE2.destroy_arglist (args);
                row_n := row_n + 1; 
             Exit When :System.Last_Record = 'TRUE';
             Next_Record;
        End Loop;
        
        args :=  OLE2.create_arglist ;
         OLE2.add_arg(args, row_n);
         OLE2.add_arg(args, 15);
        cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
         OLE2.set_property (cell, 'Value', 'Total');
        font :=  OLE2.GET_OBJ_PROPERTY (cell, 'Font');
         OLE2.destroy_arglist (args);
         OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
       ---------------------------------------------------------
        args :=  OLE2.create_arglist;
                 OLE2.add_arg(args, row_n);
                 OLE2.add_arg(args, 16);
                cell :=  OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
                 OLE2.destroy_arglist (args);
             	  OLE2.set_property (cell, 'Value', :ORDERMST.total);
           		  OLE2.set_property (cell, 'FontStyle', 'Arial');
         OLE2.set_property (font, 'Bold', True);
        --------------------------------------
            ole2.RELEASE_OBJ(cell); 
                 
           args :=  OLE2.CREATE_ARGLIST;
            OLE2.ADD_ARG(args, lv_ORARRP_PATH);
            OLE2.INVOKE(workbook, 'SaveAs', args);
            OLE2.DESTROY_ARGLIST(args);
            
            
            args :=  OLE2.CREATE_ARGLIST;
            OLE2.ADD_ARG(args, 0);
            OLE2.INVOKE(workbook, 'Close', args);
            OLE2.DESTROY_ARGLIST(args);
            
            args :=  OLE2.CREATE_ARGLIST;
            --OLE2.INVOKE(application, 'Quit');
            OLE2.INVOKE(workbook, 'Quit', args);
            OLE2.DESTROY_ARGLIST(args);
            OLE2.INVOKE(application, 'Quit'); 
            
            
              OLE2.RELEASE_OBJ(worksheet);
            OLE2.RELEASE_OBJ(worksheets);
                  OLE2.RELEASE_OBJ(workbook);
           OLE2.RELEASE_OBJ(workbooks);
            OLE2.RELEASE_OBJ(application);
            
            
            
      /*  OLE2.release_obj (cell);
         OLE2.release_obj (worksheet);
         OLE2.release_obj (worksheets);
        args :=  OLE2.Create_Arglist;
        -- OLE2.Add_Arg(args,lv_ORARRP_PATH);
         OLE2.Invoke(workbook, 'SaveAs', args);
         OLE2.Destroy_Arglist(args);
         OLE2.release_obj (workbook);
         OLE2.release_obj (workbooks);
         OLE2.release_obj (application);
         OLE2.Invoke(application, 'Quit');
         ole2.release_obj(application);*/
         
        set_application_property(cursor_style,'DEFAULT');
 Message('Data Transferred to Excel Successfully...!');
        Message('Data Transferred to Excel Successfully...!');
        
v_site:='http://101.1.0.30:7778/forms/test/'||ex_file_name;
web.show_document(v_site,'_blank');
     
EXCEPTION
        WHEN OTHERS THEN
        
--v_site:='http://101.1.0.30:7778/forms/test/reports.xls';
---web.show_document(v_site,'_blank');

               -- set_application_property(cursor_style,'DEFAULT');
                message('Error ' ||SQLERRM||' code '||TO_CHAR(SQLCODE));Message(' ');

END;