aonestar.public

Parameters

Name	Type	Mode
folio_id	integer	IN
folio_seq	integer	IN (DEFAULT NULL)
user_name	text	IN (DEFAULT NULL)
shift	character varying	IN (DEFAULT NULL)
reset_folio	boolean	IN (DEFAULT true)

Definition

DECLARE 
	_balance t_money;
    _sqlstate TEXT;
    _detail   TEXT;
    _hint     TEXT;
    _context  TEXT;
    _msg_text TEXT;
    item record;
    system_date date = fn_system_date();
BEGIN 
	CALL sp_check_endday_process();

user_name = coalesce(user_name, fn_current_user());
	shift = coalesce(shift, fn_current_shift());
	reset_folio = reset_folio AND folio_seq NOTNULL;

FOR item IN (SELECT * FROM folio_items fi WHERE fi.folio_id = $1 AND ($2 IS NULL OR fi.folio_seq = $2) AND NOT fi.closed) LOOP 
		CALL sp_check_folio_item(item.item_id);
	
		IF (item.balance <> 0) THEN 
			RETURN fn_result_error('30108', 'Folio balance is not zero (%s/%s)', item.folio_id::text, item.folio_seq::text);
		END IF;
	
		UPDATE folio_items 
		SET closed = TRUE, 
			close_date = system_date,
			close_time = current_timestamp,
			close_user = user_name,
			close_shift = shift
		WHERE item_id = item.item_id;
	
		IF reset_folio THEN 
			PERFORM sp_create_folio_item($1, $2, item.folio_name);		
		END IF;
	
	END LOOP;
	
	IF folio_seq IS NULL THEN 
		UPDATE folio f 
		SET status = 'C', 
			close_date = system_date, 
			close_time = current_timestamp, 
			close_user = user_name		
		WHERE f.id = $1;		
	END IF;

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_close_folio(%L)', $1));  
END