aonestar.public

Parameters

Name	Type	Mode
i_register_id	integer	IN
i_guest_id	integer	IN
i_user	text	IN (DEFAULT NULL)

Definition

DECLARE
    v_user       text := coalesce(i_user, fn_current_user());
    v_src        record;
    v_anchor     integer;
    v_new_id     integer;
    v_folio_id   integer;
    v_arrival    date;
    v_end_date   date;
    v_room_no    text;
    v_guest_name text;
    v_dept       integer;
BEGIN
    CALL sp_check_endday_process();
    CALL sp_check_record_lock(v_user, register_id := i_register_id);

-- ล็อกที่ anchor เสมอ (เหมือน sp_cancel_checkin) เพื่อให้ทุก request ของห้องเดียวกัน
    -- แย่ง lock ตัวเดียวกัน ไม่ว่าจะส่ง primary หรือ follower เข้ามา
    SELECT coalesce(r.shared_register_id, r.id) INTO v_anchor
    FROM registration r WHERE r.id = i_register_id;

PERFORM sp_error_if(v_anchor IS NULL, '20227', 'Registration not found or not in-house.');

PERFORM 1 FROM registration r WHERE r.id = v_anchor FOR UPDATE;

-- อ่าน state ที่เปลี่ยนได้หลังถือ lock แล้วเท่านั้น
    SELECT r.* INTO v_src FROM registration r WHERE r.id = i_register_id;

PERFORM sp_error_if(v_src.status <> 'I', '20227', 'Registration not found or not in-house.');

-- ห้องโหมด distribute (share_rate = true) แบ่งค่าห้องเท่ากันทุก folio อยู่แล้ว
    -- การแยกเพิ่มกลางทางจะทำให้ผลรวมค่าห้องรายคืนเพี้ยน จึงไม่รองรับ
    PERFORM sp_error_if(v_src.share_rate, '20229', 'Cannot split folio for a share-rate room.');

PERFORM sp_error_if(
        i_guest_id IS NULL
        OR i_guest_id = v_src.guest_id
        OR NOT EXISTS (SELECT 1 FROM register_guests rgs
                       WHERE rgs.register_id = i_register_id AND rgs.guest_id = i_guest_id),
        '20228', 'The selected guest is not an additional guest of this registration.');

-- folio ต้นทางต้องยังเปิดและไม่ถูกล็อก
    CALL sp_check_folio(v_src.folio_id);

-- arrival = วันที่กดแยก แต่คุมให้อยู่ในช่วงพักของห้องต้นทางเสมอ
    -- (กัน overstay ที่ system_date เลย departure ไปแล้ว -> nights ติดลบ)
    v_arrival  := least(greatest(fn_system_date(), v_src.arrival), v_src.departure);
    v_end_date := greatest(v_src.departure - 1, v_arrival);   -- day use: arrival = departure

SELECT rr.room_charge_dept INTO v_dept
    FROM registration_rates rr
    WHERE rr.register_id = v_src.id
    ORDER BY rr.charge_date
    LIMIT 1;

-- คง booking_item ไว้ตามต้นทาง: sp_tr_registration_avail_change จะข้าม RSV/BLK decrement
    -- เพราะยังมี in-house row ของ booking_item เดิมอยู่ ส่วนฝั่ง INH เป็น -1 แล้ว +1
    -- บนช่วงเดียวกัน (least/greatest รวมกับ anchor) จึงหักล้างกันพอดี
    INSERT INTO registration (
        booking_id, booking_item, group_id, room_id, guest_id,
        arrival, departure, departure_time, walk_in,
        adult, child, infant, extra_adult, extra_child, extra_infant,
        checkin_user, member_code, channel_id, origin_id,
        arrive_by, arrive_from, depart_by, depart_to, voucher_no,
        sales_id, market_id, stay_type, rateplan_id, mealtype_id, rate_id,
        charge_to_booking, folio_pattern_id, promo_code, payment_method,
        credit_limit, rsvtype_id, house_used, share_rate, split_folio,
        shared_register_id)
    VALUES (
        v_src.booking_id, v_src.booking_item, v_src.group_id, v_src.room_id, i_guest_id,
        v_arrival, v_src.departure, v_src.departure_time, v_src.walk_in,
        0, 0, 0, 0, 0, 0,
        v_user, v_src.member_code, v_src.channel_id, v_src.origin_id,
        v_src.arrive_by, v_src.arrive_from, v_src.depart_by, v_src.depart_to, v_src.voucher_no,
        v_src.sales_id, v_src.market_id, v_src.stay_type, v_src.rateplan_id, v_src.mealtype_id, v_src.rate_id,
        FALSE,                                  -- own account เสมอ นี่คือจุดประสงค์ของการแยก
        coalesce(v_src.folio_pattern_id, fn_default('FOLIO_PATTERN')::int),
        v_src.promo_code, v_src.payment_method,
        v_src.credit_limit, v_src.rsvtype_id, v_src.house_used,
        FALSE,                                  -- primary-only mode
        TRUE,
        v_anchor)
    RETURNING id INTO v_new_id;

-- ทำให้ห้องต้นทางถูกมองเป็น split folio ด้วย (guard + UI อ่านจากคอลัมน์นี้)
    UPDATE registration SET split_folio = TRUE WHERE id = v_anchor;

-- folio ของตัวเอง; trigger tr_folio_init สร้าง folio_items/folio_details ให้เอง
    INSERT INTO folio (folio_type, booking_id, register_id, folio_pattern_id, open_user)
    VALUES ('R', NULL, v_new_id,
            coalesce(v_src.folio_pattern_id, fn_default('FOLIO_PATTERN')::int), v_user)
    RETURNING id INTO v_folio_id;

UPDATE registration SET folio_id = v_folio_id WHERE id = v_new_id;

-- rates: primary-only follower ต้องเป็น 0 ทุกคอลัมน์ (คอลัมน์เงินทุกตัว DEFAULT 0 NOT NULL)
    -- ไม่เรียก sp_save_registration_rates เพราะมันจะ copy booking_rates ทั้งช่วง booking
    -- แล้ววิ่งผ่าน sp_validate_rate_amount โดยไม่จำเป็น
    INSERT INTO registration_rates (register_id, charge_date, room_charge_dept)
    SELECT v_new_id, d::date, v_dept
    FROM generate_series(v_arrival, v_end_date, interval '1 day') AS d;

-- ย้าย guest ออกจากห้องต้นทาง; ไม่ต้อง insert register_guests ให้ตัวใหม่
    -- เพราะแขกเป็น registration.guest_id แล้ว (sp_check_in ก็กัน guest_id <> _guest_id เหมือนกัน)
    DELETE FROM register_guests
    WHERE register_id = i_register_id AND guest_id = i_guest_id;

IF v_src.booking_id IS NOT NULL THEN
        UPDATE booking_guests bg
        SET register_id = v_new_id
        WHERE bg.booking_id = v_src.booking_id AND bg.guest_id = i_guest_id;
    END IF;

-- ไม่แตะ booking_items.inhouse_qty / room_block / room_status: ห้องเดิม ห้องเดียว
    PERFORM sp_update_registration_summary(v_src.id);
    PERFORM sp_update_registration_summary(v_new_id);

v_room_no    := fn_room_number(v_src.room_id);
    v_guest_name := (SELECT g.full_name::text FROM guest g WHERE g.id = i_guest_id);

PERFORM sp_log_inhouse(v_src.id, 'Split folio',
        format('Split guest %s to register#%s', coalesce(v_guest_name, i_guest_id::text), v_new_id), v_user);
    PERFORM sp_log_inhouse(v_new_id, 'Split folio',
        format('Split from register#%s, room %s', v_src.id, v_room_no), v_user);

IF ipu.is_enabled('guest.check_in') THEN
        PERFORM ipu.post_queue('guest.check_in', v_room_no, ipu.build_guest_payload(v_new_id));
    END IF;

RETURN jsonb_build_object(
        'register_id'       , v_new_id,
        'folio_id'          , v_folio_id,
        'shared_register_id', v_anchor,
        'room_id'           , v_src.room_id,
        'guest_id'          , i_guest_id
    );
END

sp_split_inhouse_guest_folio

Description

Parameters

Definition