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)
force_void	boolean	IN (DEFAULT false)

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;
    v_vat_id bigint;
    v_result json;
    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, allow_autopost := force_void);

        --v_vat_id := (select t.vat_id from transactions t where t.id = tran_id);

        UPDATE transactions t SET voided = TRUE 
        WHERE t.id = tran_id
        RETURNING vat_id into v_vat_id; 
        PERFORM sp_log_trans(tran_id, 'Void', reason, user_name, shift);

        IF v_vat_id is not null THEN
            v_result := rpc.salestax_cancel_tax_invoice(
                json_object('user_name': user_name)::jsonb,
                json_object(
                    'vat_id': v_vat_id,
                    'remark': 'Void payment transaction'
                )::jsonb
            );

            perform sp_log_debug('sp_void_transactions', v_result::text);
            
            IF (v_result->>'result_code' <> '0') THEN
                PERFORM sp_raise_error('30310', 'Cancel tax invoice failed, %s', v_result->>'result_msg');
            --ELSIF (v_result->'data'->>'result_code' <> '0') THEN
            --    PERFORM sp_raise_error('30310', 'Cancel tax invoice failed, %s', v_result->'data'->>'result_msg');
            END IF;
        END IF; 
    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;