1. PostgreSQL copy of all MySQL created and tested.\n 2. Purchase Orders and Sales Orders and stock level management added to MySQL, PostgreSQL, and server and front end code.
This commit is contained in:
306
static/PostgreSQL/602_p_shop_save_supplier.sql
Normal file
306
static/PostgreSQL/602_p_shop_save_supplier.sql
Normal file
@@ -0,0 +1,306 @@
|
||||
|
||||
|
||||
|
||||
|
||||
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_user_eval(v_guid_permission, v_id_user, v_id_permission_supplier, '');
|
||||
|
||||
/*
|
||||
UPDATE tmp_Shop_Supplier t_S
|
||||
INNER JOIN Shop_User_Eval_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_User_Eval_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_User_Eval_Temp
|
||||
WHERE GUID = v_guid_permission
|
||||
)
|
||||
USING ERRCODE = '42501'
|
||||
;
|
||||
END IF;
|
||||
|
||||
-- CALL p_shop_user_eval_clear_temp(v_guid_permission);
|
||||
|
||||
DELETE FROM Shop_User_Eval_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;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user