Declare
   v_uname varchar(100);
   v_pwd varchar(100);
   v_usertype varchar(100);
   alert_id alert;
   choice number;
   alert_id1 alert;
   choice1 number;
   v_num number;

begin
	select  username, password, usertypeid into v_uname, v_pwd, v_usertype
	from user_master
	where username = :login.username
	and user_master.active = 'Yes';
		
	select  count(*) into v_num
	from user_master
	where username = :login.username
	and password = :login.password
	and user_master.active = 'Yes';
		
	if v_num > 0 then
		if v_usertype = 1 then
			call_form ('E:\FinalProject\FinalProject\CUSTOMER.fmx', hide, do_replace);
			:global.user_id :=1;
			end if;

 
set_block_property('INPROGESS',default_where,'USERID='||:global.user_id);
execute_query;

update response
	set userid = :global.user_id
	where responseid = :response1.responseid;