aonestar.public

Parameters

Name	Type	Mode
folio_id	integer	IN
charge_amount	t_money	IN
refund_payment_id	integer	IN (DEFAULT NULL)
user_name	text	IN (DEFAULT NULL)

Definition

declare
	_sqlstate text;
    _detail   text;
    _hint     text;
    _context  text;
    _msg_text  text;
   
     result_post_transaction json;
    _reference_cencel text;
    _reference_refund text;
    _reference text;
    _remark_cancel text;
    _remark_refund text;
    _return_code_post_transaction int4;
    _return_close_folio json;
    _amount numeric(15,2);
    _user_name text;
    _department_id int;
    _folio_id integer;
    _folio_seq integer;
    _deposite_id integer;
    _folioS record;
    _trans_id int;
	_collection_dept_id text;
	_dept_code text;
    _refund_charge_amount numeric(15,2);  
     result_make_payment json;
    _return_code_make_payment int4;
    _result_make_payment int4;
    _refund_amount int4;
   
    v_cancel_charge_amount t_money;
    v_refund t_money;
    v_user_name text;

	begin
		
		
		----- Create by T.Supol 2025-04-24 --------------

--
	   -- amount สลับ input จาก refund amount เป็น noshow/cancellation amount note. จะ noshow เท่าไร ที่เหลือ refund , cancel ก็เช่นกัน
	   -- amount ถ้ามากกว่า balance  folio_item ต้องไม่ทำต่อให้ return เลย
	   -- ถ้าใส่ amount มาเป็น 0 คือให้ทำ noshow ถ้าใส่ amount มาเต็มจำนวนหรือน้อยกว่า ให้ทำ flow เดิมคือแบ่ง refund ออกแล้วที่เหลือเป็น noshow หรือ cancel
       -- select fi.balance into _amount from folio_items fi where fi.folio_id = $1 and fi.folio_seq = $2 limit 1;
	   -- refund -> 1.refund มากกกว่า 0 , noshow มากกกว่า 0  2.refund 0 noshow มากกกว่า 0  3.refund มากกว่า 0 หรือเท่ากับย 0 cancel ก็เช่นกัน
	  
	   -- 
	   -- กรณี cancel เปลี่ยนจาก no-show-charge เป็น cancellation-charge เกิดตอน cancel booking แล้วจะ charge จะเงินลูกค้า
	   -- จะ post ด้วย department ของ cancellation-charge ที่ดึงจาก sys param
	   -- NOSHOW_DEPT_ID, 
	   -- ทำเสดแล้วให้ update data ใน 2 db
	   
	   -- เช็ค amount ด้วยว่า ถ้า charge amount เป็น 0 ไม่ต้อง charge, ถ้า refund เป็น 0 ไม่ต้องทำ refund แต่ถ้าเป็น 0 แต่ถ้าเป็น 0 ทั้งคู่
	   -- ตอน update deposite ให้ update field ตามเรื่องนั้นๆให้ หมดเลย เช่น ที่ขึ้นต้นห้วย noshow ก็ไล่ update ให้หมด , cancel ก็เช่นกัน
	   -- กรณี noshow ('R', 'H')
	   -- กรณี cancel ('R', 'X')
--	   update deposit t
--        set 
--            status = case when t.status in ('R', 'H') then 'N' else t.status  end,
--            noshow_date = fn_system_date(), 
--            noshow_tran_id = (result_post_transaction ->> 'id')::int, 
--            modify_user = i_user_name, 
--            modify_time = current_timestamp 
	   
	         -- cancel_time 
	         -- cancel_user
	         -- noshow_time
	         -- noshow_user
	         -- noshow_time
	         -- modify_user, modify_time ไม่ต้องใส่ทั้ง 2ค่า
--        where 
--     		t.deposit_tran_id = _trans_id
--   
--         ;

	    v_user_name :=  coalesce(user_name,fn_current_user());

select * into _department_id from fn_sys_param('DEPOSIT','CANCEL_DEPT_ID', null::INT);
	
	    select code into _dept_code 
	    from department 
	    where id = _department_id  
	    and post_type = 'P';
		
		_reference_cencel := format('deposit cancel deposite no. : %L', _dept_code);
		_remark_cancel := _dept_code; -- dept = department
	
		_reference_refund := format('deposit refund payment id. : %L', $3);
	    _remark_refund := $3;
	   
        if refund_payment_id is null then 
      		select * into refund_payment_id from fn_sys_param('DEPOSIT','REFUND_PAYMENT_ID', null::INT);
		end if;
	
	    v_cancel_charge_amount := $2;
		
	    for _folioS in (
			select * 
		    from folio_items fi 
		    where fi.folio_id = $1
		    and fi.balance <> 0 
	    ) loop

-- amount สลับ input จาก refund amount เป็น no-show amount  
	        -- ดังนั้น จะ noshow เท่าไร ที่เหลือ refund, cancel ก็เช่นกัน
		    
		    select string_agg(id::text, ', ') into _reference
			    from deposit d 
			    where d.deposit_tran_id in (select t.id from transactions t where t.folio_item = _folioS.item_id) 
			    ;

-- =========================
		    -- case cancellation < ถ้ามีค่ามากกว่า 0 ทำ cancel charge >
			-- =========================			   
			if v_cancel_charge_amount > 0 then
			        
				result_post_transaction := sp_post_transaction(
--				   		folio_id := $1,
--				   		folio_seq := _folioS.folio_seq,
--				   		dept_id := _department_id,
--				   		amount := v_cancel_charge_amount,
--				   		reference := _reference,
--				   		remark := _remark_cancel,
--				   		user_name := _user_name,
--				   		post_flag => 'D'
				   		
				   		
			   		    folio_id := $1,
				   		dept_id := _department_id,
				   		amount := v_cancel_charge_amount,
				   		qty := 1,
				   		folio_seq := _folioS.folio_seq,
				   		shift := null,
				   		user_name := v_user_name,
				   		reference := _reference,
				   		remark := _remark_cancel,
				   		description := null,
				   		charge_date := null,
				   		source_module := null,
				   		allow_redirect := null,
				   		post_flag => 'D'
		    	);
		    
		         _return_code_post_transaction := (result_post_transaction ->> 'result_code')::int4;
			
		         perform sp_raise_error_if(_return_code_post_transaction  = 4  , result_post_transaction ->> 'result_msg');
			      
		       
		         if _return_code_post_transaction = 0 then 
		        
			        	for _trans_id in (
			        					select t.id 
			        					from transactions t  
			        					where t.folio_item = _folioS.item_id
			        					)
			        	loop
				        	update deposit t
				            set 
				                status = case when t.status in ('R', 'X') then 'N' else t.status  end,
				                cancel_date = fn_system_date(), 
				                cancel_tran_id = (result_post_transaction ->> 'id')::int, 
				                cancel_user = user_name,       
				                cancel_time = current_timestamp  
				            where 
				         		t.deposit_tran_id = _trans_id
				            ;
			        	end loop;
		        
		            end if;
		       
			end if;
			   
		    v_refund := abs(_folioS.balance) - coalesce($2, 0);
		    
			-- =========================
		    -- case refund < ถ้า refund มีค่ามากกว่า 0 ให้ทำ refund >
			-- =========================
		    if v_refund > 0 then
		    
			    result_make_payment := sp_make_payment(
				   		folio_id := $1,
				   		folio_seq := _folioS.folio_seq,
				   		payment_id := refund_payment_id,
				   		amount := v_refund,
				   		reference := _reference,
				   		remark := _remark_refund,
				   		post_flag := 'D'
		        );
		       
		        _result_make_payment := (result_make_payment ->> 'result_code')::int4;
	    
		        perform sp_raise_error_if(_result_make_payment = 4  , result_make_payment ->> 'result_msg');
			      
		       
		        if _result_make_payment = 0 then 
		        
			        	for _trans_id in (
			        					select t.id 
			        					from transactions t  
			        					where t.folio_item = _folioS.item_id
			        					)
			        	loop
				        	update deposit t
				            set 
				              refund_amount = v_refund,
				              refund_tran_id = $3
				            where 
				         		t.deposit_tran_id = _trans_id
				            ;
			        	end loop;
		        
		            end if;
		    
		    end if;
		   
	    end loop;

_return_close_folio := sp_close_folio(folio_id := $1); 
      return _return_close_folio;
		-- return fn_result_success();
		
EXCEPTION 
    WHEN OTHERS THEN
    GET STACKED DIAGNOSTICS
        _msg_text = MESSAGE_TEXT,
        _sqlstate = RETURNED_SQLSTATE,
        _detail   = PG_EXCEPTION_DETAIL,
        _hint     = PG_EXCEPTION_HINT,
        _context  = PG_EXCEPTION_CONTEXT; 
    RETURN fn_handle_error(_sqlstate, _msg_text, _detail, _hint, _context, format('sp_deposit_cancellation_charge(%L, %L, %L, %L)', $1, $2, $3, $4));


	END;