declare
v_loc number;	
  d number;
  d_to number;
BEGIN
     d:=:cbk.day_from;
     d_to:=:cbk.day_to;

	if d> d_to then
							message('Please Correct date sequence');
							go_item('cbk.day_from');
							raise form_trigger_failure;
				else
							if :cbk.mymonth IN('JAN','MAR','MAY','JUL','AUG','OCT','DEC') then
 									if :cbk.day_to >31 then
 										message('Check Last Date');
 										raise form_trigger_failure;
 									end if;
 							elsif :cbk.mymonth IN('APR') then
 										if :cbk.day_to >30 then
 										message('Check Last Date');
 										raise form_trigger_failure;
 									end if;
 							elsif :cbk.mymonth='FEB' then
       						if mod(:cbk.myyear,4)<>0 then
      							if :cbk.day_to >28 then
	 									message('Check Last Date');
	 									raise form_trigger_failure;
 										end if;
									elsif mod(:cbk.myyear,4)=0 then
      							if :cbk.day_to >28 then
	 									message('Check Last Date');
	 									raise form_trigger_failure;
 										end if;
							end if;
			end if;
 
  for x in d..d_to 
  loop
 insert into attendance values (:cbk.member_id_temp,d||'-'||:cbk.mymonth||'-'||:cbk.myyear,1,null);
  d :=d+1;
  end loop;
	end if;      
exception
		when others then
		message('something wrong');

       BEGIN
       	
--fetch first 15 days into second block
go_block('attendance');

set_block_property('attendance',default_Where,'member_id=:cbk.member_id_temp 
and to_char(a_date,''MON'')= :cbk.mymonth
and to_char(a_date,''YYYY'')=:cbk.myyear
and to_char(a_date,''DD'')<16');
execute_query;


--fetch last 15,16 days into second block
go_block('attendance2');
set_block_property('attendance2',default_Where,'member_id=:cbk.member_id_temp 
and to_char(a_date,''MON'')= :cbk.mymonth
and to_char(a_date,''YYYY'')=:cbk.myyear
and to_char(a_date,''DD'')>15');
execute_query;

---put cursor back into first block
go_block('attendance');

:cbk.day_from:=NULL;
:cbk.day_to:=NULL;

go_item('cbk.day_from');
       end;

END;

insert into attendance values (:cbk.member_id_temp,d||'-'||:cbk.mymonth||'-'||:cbk.myyear,1,null);