307 lines
8.4 KiB
PL/PgSQL
307 lines
8.4 KiB
PL/PgSQL
|
|
|
|
|
|
|
|
CREATE OR REPLACE PROCEDURE p_shop_save_supplier (
|
|
IN a_guid UUID,
|
|
IN a_id_user INTEGER,
|
|
IN a_comment UUID,
|
|
IN a_id_supplier INTEGER,
|
|
IN a_name_company VARCHAR(256),
|
|
IN a_name_contact VARCHAR(256),
|
|
IN a_department_contact VARCHAR(256),
|
|
IN a_id_address INTEGER,
|
|
IN a_phone_number VARCHAR(20),
|
|
IN a_fax VARCHAR(20),
|
|
IN a_email VARCHAR(515),
|
|
IN a_website VARCHAR(300),
|
|
IN a_id_currency INTEGER,
|
|
IN a_active BOOLEAN
|
|
)
|
|
AS $$
|
|
DECLARE
|
|
v_guid UUID;
|
|
v_id_user INTEGER;
|
|
v_comment VARCHAR(4000);
|
|
v_id_supplier INTEGER;
|
|
v_name_company VARCHAR(256);
|
|
v_name_contact VARCHAR(256);
|
|
v_department_contact VARCHAR(256);
|
|
v_id_address INTEGER;
|
|
v_phone_number VARCHAR(256);
|
|
v_fax VARCHAR(256);
|
|
v_email VARCHAR(256);
|
|
v_website VARCHAR(256);
|
|
v_id_currency INTEGER;
|
|
v_active BOOLEAN;
|
|
v_id_error_type_bad_data INTEGER;
|
|
v_id_error_type_no_permission INTEGER;
|
|
v_guid_permission UUID;
|
|
v_id_permission_supplier INTEGER;
|
|
-- v_id_access_level_EDIT INTEGER;
|
|
v_has_permission BOOLEAN;
|
|
v_id_change_set INTEGER;
|
|
v_is_new_supplier BOOLEAN;
|
|
-- result_errors REFCURSOR;
|
|
BEGIN
|
|
-- SET SESSION sql_mode = sys.list_drop(@@session.sql_mode, 'ONLY_FULL_GROUP_BY');
|
|
|
|
v_guid := COALESCE(a_guid, gen_random_uuid());
|
|
v_id_user := TRIM(COALESCE(a_id_user, ''));
|
|
v_comment := TRIM(COALESCE(a_comment, ''));
|
|
v_id_supplier := COALESCE(a_id_supplier, -1);
|
|
v_name_company := TRIM(COALESCE(a_name_company, ''));
|
|
v_name_contact := TRIM(COALESCE(a_name_contact, ''));
|
|
v_department_contact := TRIM(COALESCE(a_department_contact, ''));
|
|
v_id_address := a_id_address;
|
|
v_phone_number := TRIM(COALESCE(a_phone_number, ''));
|
|
v_fax := TRIM(COALESCE(a_fax, ''));
|
|
v_email := TRIM(COALESCE(a_email, ''));
|
|
v_website := TRIM(COALESCE(a_website, ''));
|
|
v_id_currency := a_id_currency;
|
|
v_active := COALESCE(a_active, FALSE);
|
|
|
|
v_id_error_type_bad_data := (SELECT id_type FROM Shop_Msg_Error_Type WHERE code = 'BAD_DATA');
|
|
v_guid_permission = gen_random_uuid();
|
|
v_id_user = CURRENT_USER;
|
|
v_id_permission_supplier = (SELECT id_permission FROM Shop_Permission WHERE code = 'STORE_SUPPLIER' LIMIT 1);
|
|
-- v_id_access_level_EDIT = (SELECT id_access_level FROM Shop_Access_Level WHERE code = 'EDIT');
|
|
v_is_new_supplier := CASE WHEN v_id_supplier <= 0 THEN TRUE ELSE FALSE END;
|
|
|
|
|
|
-- Temporary tables
|
|
/*
|
|
CREATE TABLE tmp_Shop_Supplier (
|
|
id_supplier INTEGER NOT NULL,
|
|
name_company VARCHAR(255) NOT NULL,
|
|
name_contact VARCHAR(255) NULL,
|
|
department_contact VARCHAR(255) NULL,
|
|
id_address INTEGER NOT NULL,
|
|
CONSTRAINT FK_tmp_Shop_Supplier_id_address
|
|
FOREIGN KEY (id_address)
|
|
REFERENCES Shop_Address(id_address),
|
|
phone_number VARCHAR(50) NULL,
|
|
fax VARCHAR(50) NULL,
|
|
email VARCHAR(255) NOT NULL,
|
|
website VARCHAR(255) NULL,
|
|
id_currency INTEGER NOT NULL,
|
|
CONSTRAINT FK_tmp_Shop_Supplier_id_currency
|
|
FOREIGN KEY (id_currency)
|
|
REFERENCES Shop_Currency(id_currency),
|
|
active BOOLEAN NOT NULL,
|
|
can_view BOOLEAN NOT NULL,
|
|
can_edit BOOLEAN NOT NULL,
|
|
can_admin BOOLEAN NOT NULL
|
|
);
|
|
*/
|
|
|
|
CREATE TABLE IF NOT EXISTS tmp_Msg_Error (
|
|
display_order INTEGER NOT NULL PRIMARY KEY GENERATED ALWAYS AS IDENTITY,
|
|
guid UUID NOT NULL,
|
|
id_type INTEGER NOT NULL,
|
|
CONSTRAINT FK_tmp_Msg_Error_id_type
|
|
FOREIGN KEY (id_type)
|
|
REFERENCES Shop_Msg_Error_Type (id_type),
|
|
code VARCHAR(50) NOT NULL,
|
|
msg VARCHAR(4000) NOT NULL
|
|
);
|
|
|
|
|
|
-- Argument validation
|
|
IF v_name_company = '' THEN
|
|
/*
|
|
INSERT INTO tmp_Msg_Error (
|
|
guid, id_type, msg
|
|
)
|
|
VALUES
|
|
(v_guid, v_id_error_type_bad_data, 'Supplier company name must be provided')
|
|
;
|
|
*/
|
|
RAISE EXCEPTION 'Supplier company name must be provided'
|
|
USING ERRCODE = '22000'
|
|
;
|
|
END IF;
|
|
|
|
IF v_id_address IS NULL THEN
|
|
/*
|
|
INSERT INTO tmp_Msg_Error (
|
|
guid, id_type, msg
|
|
)
|
|
VALUES
|
|
(v_guid, v_id_error_type_bad_data, 'Address ID must be provided')
|
|
;
|
|
*/
|
|
RAISE EXCEPTION 'Address ID must be provided'
|
|
USING ERRCODE = '22000'
|
|
;
|
|
END IF;
|
|
|
|
IF v_email = '' THEN
|
|
/*
|
|
INSERT INTO tmp_Msg_Error (
|
|
guid, id_type, msg
|
|
)
|
|
VALUES
|
|
(v_guid, v_id_error_type_bad_data, 'Email must be provided')
|
|
;
|
|
*/
|
|
RAISE EXCEPTION 'Email must be provided.'
|
|
USING ERRCODE = '22000'
|
|
;
|
|
END IF;
|
|
|
|
IF v_comment = '' THEN
|
|
RAISE EXCEPTION 'A comment must be provided.'
|
|
USING ERRCODE = '22000'
|
|
;
|
|
END IF;
|
|
|
|
|
|
IF (v_is_new_supplier = FALSE AND NOT EXISTS (SELECT * FROM Shop_Supplier S WHERE S.id_supplier = v_id_supplier)) THEN
|
|
RAISE EXCEPTION 'Invalid supplier ID: %', v_id_supplier
|
|
USING ERRCODE = '22000'
|
|
;
|
|
END IF;
|
|
|
|
/*
|
|
IF NOT EXISTS (SELECT * FROM tmp_Msg_Error) THEN
|
|
INSERT INTO tmp_Shop_Supplier (
|
|
id_supplier, name_company, name_contact, department_contact, id_address, phone_number, fax, email, website, id_currency, active
|
|
)
|
|
VALUES
|
|
(v_id_supplier, v_name_company, v_name_contact, v_department_contact, v_id_address, v_phone_number, v_fax, v_email, v_website, v_id_currency, v_active)
|
|
/*
|
|
FROM Shop_Supplier S
|
|
WHERE (NOT v_has_filter_category OR C.id_category LIKE '%' || v_ids_category || '%')
|
|
AND (v_get_inactive_categories OR C.active)
|
|
*/
|
|
;
|
|
END IF;
|
|
*/
|
|
|
|
-- Permissions
|
|
CALL p_shop_calc_user(v_guid_permission, v_id_user, v_id_permission_supplier, '');
|
|
|
|
/*
|
|
UPDATE tmp_Shop_Supplier t_S
|
|
INNER JOIN Shop_Calc_User_Temp TP
|
|
ON TP.GUID = v_guid_permission
|
|
SET tP.can_view = TP.can_view,
|
|
tP.can_edit = TP.can_edit,
|
|
tP.can_admin = TP.can_admin;
|
|
*/
|
|
v_has_permission := (SELECT can_edit FROM Shop_Calc_User_Temp WHERE GUID = v_guid_permission);
|
|
|
|
IF v_has_permission = FALSE THEN
|
|
v_id_error_type_no_permission := (SELECT id_type FROM Shop_Msg_Error_Type WHERE code = 'NO_PERMISSION');
|
|
/*
|
|
INSERT INTO tmp_Msg_Error (
|
|
guid, id_type, msg
|
|
)
|
|
SELECT
|
|
v_guid,
|
|
v_id_error_type_no_permission,
|
|
'You do not have %' || name || ' permissions.'
|
|
FROM Shop_Permission
|
|
WHERE id_permission = v_id_permission_supplier
|
|
;
|
|
*/
|
|
RAISE EXCEPTION 'No permission: %', (
|
|
SELECT name_error
|
|
FROM Shop_Calc_User_Temp
|
|
WHERE GUID = v_guid_permission
|
|
)
|
|
USING ERRCODE = '42501'
|
|
;
|
|
END IF;
|
|
|
|
-- CALL p_shop_clear_calc_user(v_guid_permission);
|
|
|
|
DELETE FROM Shop_Calc_User_Temp
|
|
WHERE GUID = v_guid;
|
|
|
|
|
|
-- Transaction
|
|
INSERT INTO Shop_Sales_And_Purchasing_Change_Set (
|
|
comment,
|
|
updated_last_by,
|
|
updated_last_on
|
|
)
|
|
VALUES (
|
|
'Save '
|
|
|| CASE WHEN v_is_new_supplier = TRUE THEN 'new ' ELSE '' END
|
|
|| 'Supplier - '
|
|
|| v_comment,
|
|
v_id_user,
|
|
CURRENT_TIMESTAMP
|
|
);
|
|
|
|
v_id_change_set := (SELECT id_change_set FROM Shop_Sales_And_Purchasing_Change_Set ORDER BY id_change_set DESC LIMIT 1);
|
|
|
|
START TRANSACTION;
|
|
IF (v_is_new_supplier = TRUE) THEN
|
|
INSERT INTO Shop_Supplier (
|
|
-- id_supplier,
|
|
name_company, name_contact, department_contact, id_address, phone_number, fax, email, website, id_currency, active, id_change_set
|
|
)
|
|
VALUES
|
|
(
|
|
-- v_id_supplier,
|
|
v_name_company, v_name_contact, v_department_contact, v_id_address, v_phone_number, v_fax, v_email, v_website, v_id_currency, v_active, v_id_change_set
|
|
)
|
|
/*
|
|
FROM Shop_Supplier S
|
|
WHERE (NOT v_has_filter_category OR C.id_category LIKE '%' || v_ids_category || '%')
|
|
AND (v_get_inactive_categories OR C.active)
|
|
*/
|
|
;
|
|
ELSE
|
|
UPDATE Shop_Supplier S
|
|
-- INNER JOIN tmp_Shop_Supplier t_S ON S.id_supplier = t_S.id_supplier
|
|
SET
|
|
/*
|
|
S.name_company = t_S.name_company,
|
|
S.name_contact = t_S.name_contact,
|
|
S.department_contact = t_S.department_contact,
|
|
S.id_address = t_S.id_address,
|
|
S.phone_number = t_S.phone_number,
|
|
S.fax = t_S.fax,
|
|
S.email = t_S.email,
|
|
S.website = t_S.website,
|
|
S.id_currency = t_S.id_currency,
|
|
S.active = t_S.active
|
|
*/
|
|
S.name_company = v_name_company,
|
|
S.name_contact = v_name_contact,
|
|
S.department_contact = v_department_contact,
|
|
S.id_address = v_id_address,
|
|
S.phone_number = v_phone_number,
|
|
S.fax = v_fax,
|
|
S.email = v_email,
|
|
S.website = v_website,
|
|
S.id_currency = v_id_currency,
|
|
S.active = v_active,
|
|
S.id_change_set = v_id_change_set
|
|
;
|
|
END IF;
|
|
COMMIT;
|
|
|
|
-- Returns
|
|
-- v_now = CURRENT_TIMESTAMP;
|
|
|
|
-- Errors
|
|
/*
|
|
OPEN result_errors FOR
|
|
SELECT *
|
|
FROM tmp_Msg_Error
|
|
;
|
|
-- RETURN NEXT result_errors;
|
|
*/
|
|
|
|
DROP TABLE tmp_Shop_Supplier;
|
|
-- DROP TABLE tmp_Msg_Error;
|
|
END;
|
|
$$ LANGUAGE plpgsql;
|
|
|
|
|