function CF_4Formula return Char is
a varchar2(100);
begin
	
	select NVL(bin_loc,'***') into a from supl.sp_t006auto where item_code=:item_code and 
	store_code=:storecode;
	return a;
  
end;