declare
	var_record_count number ;
		VAR_p_request number;
begin
	
var_record_count:= get_block_property('control',CURRENT_RECORD);
	
--go_block('PURCH_PRICE_REQUEST');
--first_record;

go_block('PURCH_ITEMS_PRICE');
first_record;
------------------------------ loop in side loop -------------
go_block('control');
first_record;



for i in 1 .. var_record_count
loop
	
	select SEQ_FAHS_ID.NEXTVAL into :global.var_p_request from dual;
	


	:PURCH_PRICE_REQUEST.P_REQUEST_ID:=:global.var_p_request;
	:PURCH_ITEMS_PRICE.P_REQUEST_ID:=:global.var_p_request;
	
	:PURCH_PRICE_REQUEST.SUPP_ID :=:control.TXT_SUPP;
	
	commit_form;
	--Post;
	next_record;

--	message(i);
end loop;

end ;