Procedure WriteIntoCell(rowno number,colno number,Fvalue varchar,typ varchar,border boolean, Font Boolean) Is
  Begin
  	  Arg := ole2.create_arglist;
  	  ole2.add_arg(Arg,rowno);
  	  ole2.add_arg(Arg,colno);
  	  Cell := ole2.get_obj_property(WorkSheet,'Cells',Arg);
  	  ole2.destroy_arglist(arg);
  	  
  	  
  	  
  	  If typ = 'CHAR' Then
  	  	 If Substr(Fvalue,1,1) = '0' Then  	  	 
            ole2.Set_property(Cell,'Value',''''||Fvalue);
  	  	 Else
  	  	 	  ole2.Set_property(Cell,'Value',Fvalue);
  	  	 End if;
         ole2.Set_property(Cell,'NumberFormat','@');
  	  Else
  	  	 If typ = 'NUMBER' Then
  	  	    ole2.Set_property(Cell,'Value',Fvalue);
  	  	    ole2.Set_property(Cell,'NumberFormat','####0.00');
  	  	 Else
  	  	 	  ole2.Set_property(Cell,'Value',Fvalue);
  	  	 End if;
  	  End if;
  	  
  	  If substr(Fvalue,3,1) = '-' and substr(Fvalue,7,1) = '-' Then
  	  	 ole2.Set_property(Cell,'NumberFormat','d-mmm-yyyy');
  	  End If;

  	  
  	  If Font Then
  	  	 ExcelFont := ole2.get_obj_property(Cell,'Font');
  	  	 ole2.Set_property(ExcelFont,'Bold','True');
  	  	 ole2.Set_property(ExcelFont,'Size',10);
  	  	 ole2.release_obj(ExcelFont);
  	  End If;	
      
  	  If Border Then
  	    V_border := ole2.get_obj_property(Cell,'Borders');
  	    ole2.Set_property(V_border,'LineStyle',1);
  	    ole2.release_obj(V_border);
  	  End If;	
  	  
  	   arg := ole2.create_arglist;
       ole2.add_arg(arg,colno); 
       ccol := ole2.get_obj_property(worksheet,'Columns', arg);
       ole2.destroy_arglist(arg);
       ole2.invoke(ccol,'Autofit');


  	  ole2.release_obj(cell);  	  
  End WriteIntoCell;