feat(MySQL): Tables, Triggers, and Get Many and Save Stored Procedures for Suppliers, Supplier Purchase Orders (+ items), and Manufacturing Purchase Orders (+ items)

This commit is contained in:
2024-10-15 16:40:35 +01:00
parent 1e2dff4ad3
commit 697963e28a
621 changed files with 3023 additions and 2945 deletions

View File

@@ -8,273 +8,367 @@ DROP PROCEDURE IF EXISTS p_shop_save_supplier;
DELIMITER //
CREATE PROCEDURE p_shop_save_supplier (
IN a_guid VARCHAR(500),
IN a_id_user INT,
IN a_comment VARCHAR(500),
IN a_id_supplier INT,
IN a_name_company VARCHAR(256),
IN a_name_contact VARCHAR(256),
IN a_department_contact VARCHAR(256),
IN a_id_address INT,
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 INT,
IN a_active BIT
IN a_comment VARCHAR(500)
, IN a_guid BINARY(36)
, IN a_id_user INT
, IN a_debug BIT
)
BEGIN
DECLARE v_id_error_type_bad_data INT;
DECLARE v_id_error_type_no_permission INT;
DECLARE v_guid_permission BINARY(36);
DECLARE v_id_user VARCHAR(100);
DECLARE v_id_permission_supplier INT;
-- DECLARE v_id_access_level_EDIT INT;
DECLARE v_has_permission BIT;
DECLARE v_code_type_error_bad_data VARCHAR(50);
DECLARE v_code_type_error_no_permission VARCHAR(50);
DECLARE v_id_access_level_edit INT;
DECLARE v_id_change_set INT;
DECLARE v_is_new_supplier BIT;
DECLARE v_id_permission_supplier INT;
DECLARE v_id_type_error_bad_data INT;
DECLARE v_id_type_error_no_permission INT;
DECLARE v_time_start TIMESTAMP(6);
DECLARE exit handler for SQLEXCEPTION
BEGIN
GET DIAGNOSTICS CONDITION 1
@sqlstate = RETURNED_SQLSTATE
, @errno = MYSQL_ERRNO
, @text = MESSAGE_TEXT
;
ROLLBACK;
CREATE TEMPORARY TABLE IF NOT EXISTS tmp_Msg_Error (
display_order INT NOT NULL PRIMARY KEY AUTO_INCREMENT
, id_type INT NULL
, code VARCHAR(50) NOT NULL
, msg VARCHAR(4000) NOT NULL
);
INSERT INTO tmp_Msg_Error (
id_type
, code
, msg
)
SELECT
NULL
, @errno
, @text
;
SELECT *
FROM tmp_Msg_Error;
DROP TABLE IF EXISTS tmp_Msg_Error;
END;
SET v_time_start := CURRENT_TIMESTAMP(6);
SET v_code_type_error_bad_data := (SELECT code FROM partsltd_prod.Shop_Msg_Error_Type WHERE code = 'BAD_DATA');
SET v_id_type_error_bad_data := (SELECT id_type FROM partsltd_prod.Shop_Msg_Error_Type WHERE code = v_code_type_error_bad_data);
SET v_code_type_error_no_permission := (SELECT code FROM partsltd_prod.Shop_Msg_Error_Type WHERE code = 'NO_PERMISSION');
SET v_id_type_error_no_permission := (SELECT id_type FROM partsltd_prod.Shop_Msg_Error_Type WHERE code = v_code_type_error_no_permission);
SET v_id_permission_supplier = (SELECT id_permission FROM partsltd_prod.Shop_Permission WHERE code = 'STORE_SUPPLIER' LIMIT 1);
SET v_id_access_level_EDIT = (SELECT id_access_level FROM partsltd_prod.Shop_Access_Level WHERE code = 'EDIT');
SET v_id_error_type_bad_data := (SELECT id_type FROM Shop_Msg_Error_Type WHERE code = 'BAD_DATA');
SET v_guid_permission = UUID();
SET v_id_user = CURRENT_USER();
SET v_id_permission_supplier = (SELECT id_permission FROM Shop_Permission WHERE code = 'STORE_SUPPLIER' LIMIT 1);
-- SET v_id_access_level_EDIT = (SELECT id_access_level FROM Shop_Access_Level WHERE code = 'EDIT');
CALL p_validate_guid ( a_guid );
SET a_comment := TRIM(IFNULL(a_comment, ''));
-- Argument default values
IF a_guid IS NULL THEN
SET a_guid = UUID();
END IF;
-- Temporary tables
/*
CREATE TABLE tmp_Shop_Supplier (
id_supplier INT NOT NULL,
name_company VARCHAR(255) NOT NULL,
name_contact VARCHAR(255) NULL,
department_contact VARCHAR(255) NULL,
id_address INT 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 INT NOT NULL,
CONSTRAINT FK_tmp_Shop_Supplier_id_currency
FOREIGN KEY (id_currency)
REFERENCES Shop_Currency(id_currency),
active BIT NOT NULL,
can_view BIT NOT NULL,
can_edit BIT NOT NULL,
can_admin BIT NOT NULL
DROP TEMPORARY TABLE IF EXISTS tmp_Supplier;
DROP TEMPORARY TABLE IF EXISTS tmp_Msg_Error;
CREATE TEMPORARY TABLE tmp_Supplier (
id_supplier INT NOT NULL
, id_address INT NOT NULL
, id_currency INT NOT NULL
, name_company VARCHAR(255) NOT NULL
, name_contact VARCHAR(255) NULL
, department_contact VARCHAR(255) NULL
, phone_number VARCHAR(50) NULL
, fax VARCHAR(50) NULL
, email VARCHAR(255) NOT NULL
, website VARCHAR(255) NULL
, active BIT NOT NULL
, name_error VARCHAR(1000) NOT NULL
, is_new BIT NOT NULL
);
*/
CREATE TABLE IF NOT EXISTS tmp_Msg_Error (
display_order INT NOT NULL PRIMARY KEY AUTO_INCREMENT,
guid BINARY(36) NOT NULL,
id_type INT 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
CREATE TEMPORARY TABLE IF NOT EXISTS tmp_Msg_Error (
display_order INT NOT NULL PRIMARY KEY AUTO_INCREMENT
, id_type INT NOT NULL
, code VARCHAR(50) NOT NULL
, msg VARCHAR(4000) NOT NULL
);
-- Argument validation
IF a_id_supplier IS NULL THEN
INSERT INTO tmp_Msg_Error (
guid, id_type, msg
)
VALUES
(a_guid, v_id_error_type_bad_data, 'Supplier ID must not be null')
;
END IF;
IF a_name_company IS NULL THEN
INSERT INTO tmp_Msg_Error (
guid, id_type, msg
)
VALUES
(a_guid, v_id_error_type_bad_data, 'Supplier company name must not be null')
;
END IF;
IF a_id_address IS NULL THEN
INSERT INTO tmp_Msg_Error (
guid, id_type, msg
)
VALUES
(a_guid, v_id_error_type_bad_data, 'Address ID must not be null')
;
END IF;
IF a_email IS NULL THEN
INSERT INTO tmp_Msg_Error (
guid, id_type, msg
)
VALUES
(a_guid, v_id_error_type_bad_data, 'Email must not be null')
;
END IF;
IF a_active IS NULL THEN
INSERT INTO tmp_Msg_Error (
guid, id_type, msg
)
VALUES
(a_guid, v_id_error_type_bad_data, 'Active must not be null')
;
END IF;
INSERT INTO tmp_Supplier (
id_supplier
, id_address
, id_currency
, name_company
, name_contact
, department_contact
, phone_number
, fax
, email
, website
, active
, name_error
, is_new
)
SELECT
S_T.id_supplier
, S_T.id_address
, S_T.id_currency
, S_T.name_company
, S_T.name_contact
, S_T.department_contact
, S_T.phone_number
, S_T.fax
, S_T.email
, S_T.website
, S_T.active
, IFNULL(S_T.name_company, IFNULL(S_T.email, IFNULL(S_T.website, IFNULL(S_T.name_contact, '(No Supplier)'))))
, IFNULL(S_T.id_supplier, 0) < 1
FROM partsltd_prod.Shop_Supplier_Temp S_T
WHERE GUID = a_guid
;
IF NOT EXISTS (SELECT * FROM tmp_Msg_Error) THEN
SET v_is_new_supplier := CASE WHEN a_id_supplier <= 0 THEN 1 ELSE 0 END;
IF (v_is_new_supplier = 0 AND NOT EXISTS (SELECT * FROM Shop_Supplier S WHERE S.id_supplier = a_id_supplier)) THEN
INSERT INTO tmp_Msg_Error (
guid, id_type, msg
-- Validation
# id_address
IF EXISTS (
SELECT *
FROM tmp_Supplier t_S
LEFT JOIN partsltd_prod.Shop_Address A ON t_S.id_address = A.id_address
WHERE 1=1
AND (
t_S.id_address = 0
OR A.active = 0
)
VALUES
(a_guid, v_id_error_type_bad_data, CONCAT('Invalid supplier ID: ', a_id_supplier))
;
END IF;
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
LIMIT 1
) THEN
INSERT INTO tmp_Msg_Error (
id_type
, code
, msg
)
VALUES
(a_id_supplier, a_name_company, a_name_contact, a_department_contact, a_id_address, a_phone_number, a_fax, a_email, a_website, a_id_currency, a_active)
/*
FROM Shop_Supplier S
WHERE (NOT v_has_filter_category OR C.id_category LIKE '%' || a_ids_category || '%')
AND (a_get_inactive_categories OR C.active)
*
;
SELECT
v_id_type_error_bad_data
, v_code_type_error_bad_data
, CONCAT(
'The following supplier(s) have an invalid or inactive Address: '
, GROUP_CONCAT(t_S.name_error SEPARATOR ', ')
) AS msg
FROM tmp_Supplier t_S
LEFT JOIN partsltd_prod.Shop_Address A ON t_S.id_address = A.id_address
WHERE 1=1
AND (
t_S.id_address = 0
OR A.active = 0
)
;
END IF;
*/
# id_currency
IF EXISTS (
SELECT *
FROM tmp_Supplier t_S
LEFT JOIN partsltd_prod.Shop_Currency C ON t_S.id_currency = C.id_currency
WHERE 1=1
AND (
t_S.id_currency = 0
OR C.active = 0
)
LIMIT 1
) THEN
INSERT INTO tmp_Msg_Error (
id_type
, code
, msg
)
SELECT
v_id_type_error_bad_data
, v_code_type_error_bad_data
, CONCAT(
'The following supplier(s) have an invalid or inactive Currency: '
, GROUP_CONCAT(t_S.name_error SEPARATOR ', ')
) AS msg
FROM tmp_Supplier t_S
LEFT JOIN partsltd_prod.Shop_Currency C ON t_S.id_currency = C.id_currency
WHERE 1=1
AND (
t_S.id_currency = 0
OR C.active = 0
)
;
END IF;
# name_company
IF EXISTS (SELECT * FROM tmp_Supplier t_S WHERE ISNULL(t_S.name_company) LIMIT 1) THEN
INSERT INTO tmp_Msg_Error (
id_type
, code
, msg
)
SELECT
v_id_type_error_bad_data
, v_code_type_error_bad_data
, CONCAT('The following supplier(s) do not have a name: ', GROUP_CONCAT(IFNULL(t_S.name_error, 'NULL') SEPARATOR ', ')) AS msg
FROM tmp_Supplier t_S
WHERE ISNULL(t_S.name_company)
;
END IF;
# email
IF EXISTS (SELECT * FROM tmp_Supplier t_S WHERE ISNULL(t_S.email) LIMIT 1) THEN
INSERT INTO tmp_Msg_Error (
id_type
, code
, msg
)
SELECT
v_id_type_error_bad_data
, v_code_type_error_bad_data
, CONCAT('The following supplier(s) do not have an email: ', GROUP_CONCAT(IFNULL(t_S.name_error, 'NULL') SEPARATOR ', ')) AS msg
FROM tmp_Supplier t_S
WHERE ISNULL(t_S.email)
;
END IF;
-- Permissions
IF NOT EXISTS (SELECT * FROM tmp_Msg_Error) THEN
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;
*/
SET v_has_permission := (SELECT can_edit FROM Shop_Calc_User_Temp WHERE GUID = v_guid_permission);
IF v_has_permission = 0 THEN
SET 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
a_guid,
v_id_error_type_no_permission,
CONCAT('You do not have ', name, ' permissions.')
FROM Shop_Permission
WHERE id_permission = v_id_permission_supplier
;
END IF;
-- CALL p_shop_clear_calc_user(v_guid_permission);
DELETE FROM Shop_Calc_User_Temp
WHERE GUID = a_guid;
END IF;
IF a_debug = 1 THEN
SELECT
v_guid
, a_id_user
, FALSE -- get inactive users
, v_id_permission_supplier
, v_id_access_level_edit
, '' -- ids_product
, 0 -- a_debug
;
SELECT * from partsltd_prod.Shop_Calc_User_Temp;
END IF;
CALL p_shop_calc_user(
v_guid
, a_id_user
, FALSE -- get inactive users
, v_id_permission_supplier
, v_id_access_level_edit
, '' -- ids_product
, 0 -- a_debug
);
IF a_debug = 1 THEN
SELECT * from partsltd_prod.Shop_Calc_User_Temp WHERE GUID = a_guid;
END IF;
IF NOT EXISTS (SELECT can_view FROM partsltd_prod.Shop_Calc_User_Temp UE_T WHERE UE_T.GUID = v_guid) THEN
DELETE FROM tmp_Msg_Error;
INSERT INTO tmp_Msg_Error (
id_type
, code
, msg
)
VALUES (
v_id_type_error_no_permission
, v_code_type_error_no_permission
CONCAT('You do not have view permissions for ', (SELECT name FROM partsltd_prod.Shop_Permission WHERE id_permission = v_id_permission_supplier LIMIT 1))
)
;
END IF;
CALL partsltd_prod.p_shop_clear_calc_user( a_guid );
IF EXISTS ( SELECT * FROM tmp_Msg_Error LIMIT 1 ) THEN
DELETE FROM tmp_Supplier;
END IF;
-- Transaction
IF NOT EXISTS (SELECT * FROM tmp_Msg_Error) THEN
INSERT INTO Shop_Sales_And_Purchasing_Change_Set (
comment,
updated_last_by,
updated_last_on
)
VALUES (
CONCAT(
'Save ',
CASE WHEN v_is_new_supplier = 1 THEN 'new ' ELSE '' END,
'Supplier - ',
a_comment
),
a_id_user,
CURRENT_TIME()
);
SET v_id_change_set := (SELECT id_change_set FROM Shop_Sales_And_Purchasing_Change_Set ORDER BY id_change_set DESC LIMIT 1);
IF NOT EXISTS (SELECT * FROM tmp_Msg_Error) THEN
START TRANSACTION;
IF (v_is_new_supplier = 1) 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
(
-- a_id_supplier,
a_name_company, a_name_contact, a_department_contact, a_id_address, a_phone_number, a_fax, a_email, a_website, a_id_currency, a_active, v_id_change_set
)
INSERT INTO partsltd_prod.Shop_Sales_And_Purchasing_Change_Set (
comment
, updated_last_by
, updated_last_on
)
VALUES (
a_comment
, a_id_user
, v_time_start
);
SET v_id_change_set := LAST_INSERT_ID();
INSERT INTO partsltd_prod.Shop_Supplier (
-- id_supplier,
id_address
, id_currency
, name_company
, name_contact
, department_contact
, phone_number
, fax
, email
, website
, active
, id_change_set
)
SELECT
t_S.id_address
, t_S.id_currency
, t_S.name_company
, t_S.name_contact
, t_S.department_contact
, t_S.phone_number
, t_S.fax
, t_S.email
, t_S.website
, t_S.active
v_id_change_set
FROM tmp_Supplier t_S
WHERE t_S.is_new = 1
;
UPDATE partsltd_prod.Shop_Supplier S
INNER JOIN tmp_Supplier t_S
ON S.id_supplier = t_S.id_supplier
AND t_S.is_new = 0
SET
S.id_address = t_S.id_address
, S.id_currency = t_S.id_currency
, S.name_company = t_S.name_company
, S.name_contact = t_S.name_contact
, S.department_contact = t_S.department_contact
, S.phone_number = t_S.phone_number
, S.fax = t_S.fax
, S.email = t_S.email
, S.website = t_S.website
, S.active = t_S.active
, S.id_change_set = v_id_change_set
/*
FROM Shop_Supplier S
WHERE (NOT v_has_filter_category OR C.id_category LIKE '%' || a_ids_category || '%')
AND (a_get_inactive_categories OR C.active)
S.name_company = a_name_company,
S.name_contact = a_name_contact,
S.department_contact = a_department_contact,
S.id_address = a_id_address,
S.phone_number = a_phone_number,
S.fax = a_fax,
S.email = a_email,
S.website = a_website,
S.id_currency = a_id_currency,
S.active = a_active,
S.id_change_set = v_id_change_set
*/
;
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 = a_name_company,
S.name_contact = a_name_contact,
S.department_contact = a_department_contact,
S.id_address = a_id_address,
S.phone_number = a_phone_number,
S.fax = a_fax,
S.email = a_email,
S.website = a_website,
S.id_currency = a_id_currency,
S.active = a_active,
S.id_change_set = v_id_change_set
;
END IF;
IF EXISTS (SELECT * FROM tmp_Msg_Error) THEN
ROLLBACK;
ELSE
COMMIT;
END IF;
;
COMMIT;
END IF;
-- Returns
-- SET v_now = NOW();
# Errors
SELECT *
FROM tmp_Msg_Error
FROM tmp_Msg_Error t_ME
INNER JOIN partsltd_prod.Shop_Msg_Error_Type MET ON t_ME.id_type = MET.id_type
;
DROP TABLE tmp_Shop_Supplier;
DROP TABLE tmp_Msg_Error;
IF a_debug = 1 THEN
SELECT * from tmp_Supplier;
END IF;
DROP TEMPORARY TABLE tmp_Supplier;
DROP TEMPORARY TABLE tmp_Msg_Error;
IF a_debug = 1 THEN
CALL partsltd_prod.p_debug_timing_reporting ( v_time_start );
END IF;
END //
DELIMITER ;;