Declare
	vqty				number;
	vrate 			number;
	v_comp			comm_users.cu_cc_compc%type;
	v_bran			comm_users.cu_cb_branc%type;
	v_dept			comm_users.cu_cd_dcode%type;
	v_dept_descr comm_dept.cd_descr%type;
	v_cgdescr		comm_godowns.cg_descr%type;
Begin
		Begin
			Select cu_cc_compc, cu_cb_branc, cu_cd_dcode, cd_descr
				Into v_comp, v_bran, v_dept, v_dept_descr
			 From comm_users, comm_dept
			 Where cu_cd_dcode = cd_dcode
			 And cu_usrid = :parameter.p_userid;
		Exception
			when no_data_found Then
			Message('User Details Not Exists in Setup...!');
			Message('User Details Not Exists in Setup...!');
			Raise form_trigger_failure;
		end;
	 Begin
		Select cim_qty, cim_rate
			Into vqty, vrate
		 From comm_item_detail
		  Where cim_icode = :iptr_cim_icode
		  And cim_cid_dcode = v_dept
		  And cim_cg_godwnc = :iptm_cg_godwnc;
	
			If nvl(vqty,0) >= nvl(:iptr_qty,0) Then
	
		 		Update comm_item_detail
		 		Set cim_qty = nvl(cim_qty,0) - nvl(:iptr_qty,0)
		 		Where cim_icode = :iptr_cim_icode
		 		AND cim_cid_dcode = v_dept
		 		AND cim_cg_godwnc = :iptm_cg_godwnc;
	
		 		Update comm_item_mast
		 		Set cim_qty = nvl(cim_qty,0) - nvl(:iptr_qty,0)
		 		Where cim_icode = :iptr_cim_icode;
			
				Begin
					Select	nvl(max(to_number(iptr_id)),0)+1
						Into :iptr_id
					 From int_prod_trans_raw;
				End;
			
		 		Begin
		 			Select cg_descr
		 				Into v_cgdescr
		 			 From comm_godowns
		 			 Where cg_godwnc = :iptm_cg_godwnc;
		 		Exception
		 			When no_data_found Then
		 			Null;
		 		End;
										 		
				Insert Into item_trans_detl
				(
				tid_id,
				tid_cc_compc,
				tid_cb_branc,
				tid_f_cd_dcode,
				tid_f_cddescr,
				tid_f_cg_godwnc,
				tid_f_cgdescr,
				tid_doc_type,
				tid_t_cd_dcode,
				tid_t_descr,
				tid_t_cg_godwnc,
				tid_t_cgdescr,
				tid_trans#,
				tid_trn_dt,
				tid_cim_icode,
				tid_descr,
				tid_cuom_ucode,
				tid_qty,
				tid_rate,
				tid_amt,
				tid_cfy_code
				)
				Select nvl(max(tid_id),0)+1,
				v_comp,
				v_bran,
				v_dept,
				v_dept_descr,
				:iptm_cg_godwnc,
				v_cgdescr,
				'INT/PROD-CON',
				v_dept,
				v_dept_descr,
				:iptm_cg_godwnc,
				v_cgdescr,
				:iptm_no,
				:iptm_dt,
				:iptr_cim_icode,
				:int_prod_trans_raw.disp_item,
				:iptr_cuom_ucode,
				:iptr_qty,
				vrate,	
				nvl(:iptr_qty,0) * nvl(vrate,0),
				:parameter.p_season
				From item_trans_detl;
	
			Else
	
				Message(:iptr_cim_icode||' Stock is '||vqty||' issuing '||:iptr_qty);	
				Message(:iptr_cim_icode||' Stock is '||vqty||' issuing '||:iptr_qty);
				Raise form_trigger_failure;
				
			End if;	
	Exception
	When no_data_found Then
	Message(:iptr_cim_icode||' Not available in stock...!');				
	Message(:iptr_cim_icode||' Not available in stock...!');				
	Raise form_trigger_failure;
	When too_many_rows Then
	Message(:iptr_cim_icode||' Multiple items...!');
	Message(:iptr_cim_icode||' Multiple items...!');
	Raise form_trigger_failure;
	end;
End;