aonestar.public

Parameters

Name	Type	Mode
trn_ids	int4[]	IN
reason	text	IN
user_name	text	IN (DEFAULT NULL)
shift	character varying	IN (DEFAULT NULL)

Definition

DECLARE
    folio_item_id integer;
    result_data json;
    _sqlstate TEXT;
    _detail   TEXT;
    _hint     TEXT;
    _context  TEXT;
    _msg_text  TEXT;
    system_date date;
    rec record;
    tran_id int;
    msg_group TEXT = '303';
    messages  jsonb = $${
        "30303" : "Guest account checked out", 
        "30305" : "Folio %s does not exist", 
        "30306" : "Folio closed",     
        "30307" : "Folio locked", 
        "30309" : "Host Offline", 
        "90001" : "End-day process in progress"
    }$$;
BEGIN 
  /* Return Code
   0 : Void successful
   1 : Folio does not exists.
   2 : Folio has been closed.
   3 : Guest folio is locking
   4 : Transaction does not exists.
   5 : The transaction already voided.
   6 : The transaction has been transfered out.
   7 : Cannot void outdated transaction.
   8 : Host Offline.
   9 : Referenced credit note      
   10: Cannot void deposit
   19: End-day process in progress
  */
    CALL sp_check_endday_process();
   
    user_name := coalesce(user_name, fn_current_user());
    shift     := coalesce(nullif(shift,'.'), fn_work_shift(user_name), fn_online_shift());

    -- Check shift
    CALL sp_check_shift(shift, FALSE, FALSE);
  
    folio_item_id = (SELECT folio_item FROM transactions WHERE id = trn_ids[1]); 
   
    CALL sp_check_folio_item(folio_item_id);
  
    system_date = fn_system_date();

    FOREACH tran_id IN ARRAY trn_ids LOOP 
        CALL sp_check_transaction(tran_id, 'void', FALSE);
        UPDATE transactions t SET voided = TRUE 
        WHERE t.id = tran_id; 
        PERFORM sp_log_trans(tran_id, 'Void', reason, user_name, shift);
    END LOOP;
    

--    for rec in 
--        UPDATE transactions t SET voided = TRUE 
--        WHERE t.id = ANY(trn_ids) 
--          AND NOT t.voided 
--          AND NOT t.transfer_out 
--          AND t.charge_date >= system_date
--          AND COALESCE(t.post_flag,'') <> 'D'  -- <-- deposit
--        RETURNING id 
--    LOOP 
--        PERFORM sp_log_trans(rec.id, 'Void', reason, user_name, shift);
--    END LOOP;

    FOR rec IN (SELECT DISTINCT folio_item FROM transactions WHERE id = ANY(trn_ids))
    LOOP 
        PERFORM sp_recalc_folio_balance(rec.folio_item);
    END LOOP;

    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_void_transaction(%L, %L, %L)', $1, $2, $3));   
END;

sp_void_transactions

Parameters

Definition