USE parts;

DROP PROCEDURE IF EXISTS parts.p_dog_save_command;

DELIMITER //
CREATE PROCEDURE parts.p_dog_save_command (
    IN a_comment VARCHAR(500),
	IN a_guid BINARY(36),
    IN a_id_user INT,
    IN a_debug BIT
)
BEGIN
    DECLARE v_can_admin BIT;
    DECLARE v_can_create BIT;
	DECLARE v_code_type_error_bad_data VARCHAR(100);
    DECLARE v_id_access_level_admin INT;
    DECLARE v_id_access_level_create INT;
    DECLARE v_id_change_set INT;
    DECLARE v_id_permission_dog_admin INT;
    DECLARE v_id_permission_dog_new INT;
    DECLARE v_id_type_error_bad_data 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 (
			  id_error INT NOT NULL PRIMARY KEY AUTO_INCREMENT
			, id_type INT NULL
			, code VARCHAR(100)
			, msg TEXT NOT NULL
		);

        INSERT INTO tmp_Msg_Error (
			  id_type
			, code
            , msg
		)
        SELECT 
			  MET.id_type
            , @errno
            , @text
		FROM parts.CORE_Msg_Error_Type MET
        WHERE MET.code = 'MYSQL_ERROR'
		;

        SELECT 
            t_ERROR.id_error
            , t_ERROR.id_type
            , t_ERROR.code
            , ERROR_TYPE.name
            , ERROR_TYPE.description
            , ERROR_TYPE.is_breaking_error
            , ERROR_TYPE.background_colour
            , ERROR_TYPE.text_colour
            , t_ERROR.msg
        FROM tmp_Msg_Error t_ERROR
        INNER JOIN parts.CORE_Msg_Error_Type ERROR_TYPE ON t_ERROR.id_type = ERROR_TYPE.id_type
        ;

		DROP TABLE IF EXISTS tmp_Msg_Error;
    END;
    
    SET v_time_start := CURRENT_TIMESTAMP(6);
    SET v_code_type_error_bad_data := 'BAD_DATA';
    SET v_id_type_error_bad_data := (SELECT ERROR_TYPE.id_type FROM parts.CORE_Msg_Error_Type ERROR_TYPE WHERE ERROR_TYPE.code = v_code_type_error_bad_data LIMIT 1);
    SET v_id_permission_dog_admin := (SELECT PERMISSION.id_permission FROM parts.DOG_Permission PERMISSION WHERE PERMISSION.code = 'DOG_ADMIN' LIMIT 1);
    SET v_id_permission_dog_new := (SELECT PERMISSION.id_permission FROM parts.DOG_Permission PERMISSION WHERE PERMISSION.code = 'DOG_CREATE' LIMIT 1);
    SET v_id_access_level_admin := (SELECT PERMISSION.id_permission FROM parts.DOG_Permission PERMISSION WHERE PERMISSION.code = 'DOG_CREATE' LIMIT 1);
    
    CALL parts.p_core_validate_guid ( a_guid );
    
    DROP TABLE IF EXISTS tmp_Command;
    
    CREATE TEMPORARY TABLE tmp_Command (
          id_command INT
        , id_command_category INT
        , name VARCHAR(250)
        , hand_signal_default_description TEXT
        , can_have_button BIT
        , notes TEXT
        , active BIT
        , is_new BIT
        , name_error VARCHAR(250)

        , name_command_category VARCHAR(250)
    );
        
	CREATE TEMPORARY TABLE IF NOT EXISTS tmp_Msg_Error (
		  id_error INT NOT NULL PRIMARY KEY AUTO_INCREMENT
		, id_type INT NULL
        , code VARCHAR(100)
        , msg TEXT NOT NULL
	);
        
    
    -- Get data from Temp table
    INSERT INTO tmp_Command (
		  id_command
        , id_command_category
        , name
        , hand_signal_default_description
        , can_have_button
        , notes
        , active
        , is_new

        , name_command_category
	)
    SELECT 
		  COMMAND_T.id_command AS id_command
        , COMMAND_T.id_command_category AS id_command_category
        , COALESCE(COMMAND_T.name, COMMAND.name) AS name
        , COALESCE(COMMAND_T.hand_signal_default_description, COMMAND.hand_signal_default_description) AS hand_signal_default_description
        , COALESCE(COMMAND_T.can_have_button, COMMAND.can_have_button) AS can_have_button
        , COALESCE(COMMAND_T.notes, COMMAND.notes) AS notes
        , COALESCE(COMMAND_T.active, COMMAND.active, 1) AS active
        , CASE WHEN IFNULL(COMMAND_T.id_command, 0) < 1 THEN 1 ELSE 0 END AS is_new

        , COMMAND_T.name_command_category AS name_command_category 
	FROM parts.DOG_Command_Temp COMMAND_T
    LEFT JOIN parts.DOG_Command COMMAND ON COMMAND_T.id_command = COMMAND.id_command
    WHERE COMMAND_T.guid = a_guid
    ;

    UPDATE tmp_Command t_COMMAND
    SET name_error = COALESCE(t_COMMAND.name, t_COMMAND.notes, t_COMMAND.name_command_category, '(No Command)')
    ;

    -- Find missing id_command_category by name_command_category
    UPDATE tmp_Command t_COMMAND
    INNER JOIN parts.DOG_Command_Category COMMAND_CATEGORY ON t_COMMAND.name_command_category = COMMAND_CATEGORY.name
    SET t_COMMAND.id_command_category = COMMAND_CATEGORY.id_command_category
    WHERE t_COMMAND.id_command_category IS NULL
    ;
    
    IF EXISTS (
        SELECT * 
        FROM tmp_Command t_COMMAND 
        WHERE ISNULL(t_COMMAND.id_command_category) 
        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 Command(s) do not have a Category: ', GROUP_CONCAT(t_COMMAND.name_error SEPARATOR ', ')) AS msg
		FROM tmp_Command t_COMMAND
		WHERE t_COMMAND.id_command_category IS NULL
		;
    END IF;
    
    -- Validation
    -- Missing mandatory fields
    -- id_command_category
    IF EXISTS (SELECT * FROM tmp_Command t_COMMAND WHERE ISNULL(t_COMMAND.id_command_category) 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 Command(s) do not have a Category: ', GROUP_CONCAT(t_COMMAND.name_error SEPARATOR ', ')) AS msg
		FROM tmp_Command t_COMMAND
		WHERE ISNULL(t_COMMAND.id_command_category)
		;
    END IF;
    -- name
    IF EXISTS (SELECT * FROM tmp_Command t_COMMAND WHERE ISNULL(t_COMMAND.name) 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 Command(s) do not have a Name: ', GROUP_CONCAT(t_COMMAND.name_error SEPARATOR ', ')) AS msg
		FROM tmp_Command t_COMMAND
		WHERE ISNULL(t_COMMAND.name)
		;
    END IF;
    -- can_have_button
    IF EXISTS (SELECT * FROM tmp_Command t_COMMAND WHERE ISNULL(t_COMMAND.can_have_button) 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 Command(s) do not have a Can-Have-Button: ', GROUP_CONCAT(t_COMMAND.name_error SEPARATOR ', ')) AS msg
		FROM tmp_Command t_COMMAND
		WHERE ISNULL(t_COMMAND.can_have_button)
		;
    END IF;
    
    -- Permissions
    IF a_debug = 1 THEN
		SELECT 
			  a_guid
			, a_id_user
			, FALSE -- a_get_inactive_user
			, v_id_permission_dog_admin
			, v_id_permission_dog_new
			, 0 -- a_debug
        ;
    END IF;
    
    -- Can Admin
	CALL parts.p_dog_calc_user(
          a_guid
        , a_id_user
        , FALSE -- a_get_inactive_user
        , v_id_permission_dog_admin-- ids_permission
        , v_id_access_level_admin -- ids_access_level
        , 0 -- a_show_errors
        , 0 -- a_debug
    );
	
    SELECT
          IFNULL(CU_T.has_access, 0)
    INTO
          v_can_admin
    FROM parts.DOG_Calc_User_Temp CU_T
    WHERE CU_T.GUID = a_guid
    LIMIT 1
    ;
	
	CALL parts.p_dog_clear_calc_user(
		  a_guid
        , 0 -- a_debug
	);
    
    -- Can Create
	CALL parts.p_dog_calc_user(
          a_guid
        , a_id_user
        , FALSE -- a_get_inactive_user
        , v_id_permission_dog_new-- ids_permission
        , v_id_access_level_create -- ids_access_level
        , 0 -- a_show_errors
        , 0 -- a_debug
    );
	
    SELECT
          IFNULL(CU_T.has_access, 0)
    INTO
          v_can_create
    FROM parts.DOG_Calc_User_Temp CU_T
    WHERE CU_T.GUID = a_guid
    LIMIT 1
    ;
	
	CALL parts.p_dog_clear_calc_user(
		  a_guid
        , 0 -- a_debug
	);
    
    IF (v_can_create = 0 AND EXISTS(SELECT * FROM tmp_Command WHERE is_new = 1)) THEN
		DELETE t_ME
        FROM tmp_Msg_Error t_ME
        WHERE t_ME.id_type <> v_id_type_error_no_permission
        ;
		INSERT INTO tmp_Msg_Error (
			  id_type
            , code
			, msg
		)
		VALUES (
			  v_id_type_error_no_permission
            , v_code_type_error_no_permission
			, 'You do not have permission to create new Commands.'
		)
        ;
    END IF;
    
    IF (v_can_admin = 0 AND EXISTS(SELECT * FROM tmp_Command WHERE is_new = 0)) THEN
		DELETE t_ME
        FROM tmp_Msg_Error t_ME
        WHERE t_ME.id_type <> v_id_type_error_no_permission
        ;
		INSERT INTO tmp_Msg_Error (
			  id_type
            , code
			, msg
		)
		VALUES (
			  v_id_type_error_no_permission
            , v_code_type_error_no_permission
			, 'You do not have permission to admin Commands.'
		)
        ;
    END IF;
    
    IF EXISTS (SELECT * FROM tmp_Msg_Error t_ERROR INNER JOIN parts.CORE_Msg_Error_Type ERROR_TYPE ON t_ERROR.id_type = ERROR_TYPE.id_type WHERE ERROR_TYPE.is_breaking_error = 1 LIMIT 1) THEN
    	IF a_debug = 1 THEN
	    	SELECT * from tmp_Command;
	    END IF;

        DELETE FROM tmp_Command;
    END IF;

    IF NOT EXISTS (SELECT * FROM tmp_Msg_Error t_ERROR INNER JOIN parts.CORE_Msg_Error_Type ERROR_TYPE ON t_ERROR.id_type = ERROR_TYPE.id_type WHERE ERROR_TYPE.is_breaking_error = 1 LIMIT 1) THEN
		START TRANSACTION;
		
			INSERT INTO parts.DOG_Dog_Change_Set ( 
                  comment
                , id_user_updated_last_by
                , updated_last_on
            )
			VALUES ( 
                  a_comment
                , a_id_user
                , v_time_start
            )
			;
			
			SET v_id_change_set := LAST_INSERT_ID();
			
			UPDATE parts.DOG_Command COMMAND
			INNER JOIN tmp_Command t_COMMAND 
				ON  COMMAND.id_command = t_COMMAND.id_command
				AND t_COMMAND.is_new = 0
			SET 
				  COMMAND.id_command_category = t_COMMAND.id_command_category
				, COMMAND.name = t_COMMAND.name
				, COMMAND.hand_signal_default_description = t_COMMAND.hand_signal_default_description
				, COMMAND.can_have_button = t_COMMAND.can_have_button
                , COMMAND.notes = t_COMMAND.notes
				, COMMAND.active = t_COMMAND.active
				, COMMAND.id_change_set = v_id_change_set
			;
			
			INSERT INTO parts.DOG_Command (
				  id_command_category
				, name
				, hand_signal_default_description
				, can_have_button
                , notes
				, active
				, id_user_created_by
				, created_on
			)
			SELECT
				  t_COMMAND.id_command_category         AS id_command_category
				, t_COMMAND.name                        AS name
				, t_COMMAND.hand_signal_default_description     AS hand_signal_default_description
				, t_COMMAND.can_have_button             AS can_have_button
                , t_COMMAND.notes                       AS notes
				, t_COMMAND.active                      AS active
				, a_id_user                             AS created_by
				, v_time_start                          AS created_on
			FROM tmp_Command t_COMMAND
			WHERE 
				    t_COMMAND.is_new = 1
				AND t_COMMAND.active = 1
			;
			
		COMMIT;
    END IF;
	
	START TRANSACTION;

		DELETE FROM parts.DOG_Command_Temp
		WHERE GUID = a_guid
        ;
		
	COMMIT;
    
    -- Errors
    SELECT 
          t_ERROR.id_error
		, t_ERROR.id_type
        , t_ERROR.code
        , ERROR_TYPE.name
        , ERROR_TYPE.description
        , ERROR_TYPE.is_breaking_error
        , ERROR_TYPE.background_colour
        , ERROR_TYPE.text_colour
		, t_ERROR.msg
    FROM tmp_Msg_Error t_ERROR
	INNER JOIN parts.CORE_Msg_Error_Type ERROR_TYPE ON t_ERROR.id_type = ERROR_TYPE.id_type
	;
    
	IF a_debug = 1 THEN
		SELECT * from tmp_Command;
	END IF;

    DROP TEMPORARY TABLE tmp_Command;
    DROP TEMPORARY TABLE tmp_Msg_Error;
    
	IF a_debug = 1 THEN
		CALL parts.p_core_debug_timing_reporting ( v_time_start );
	END IF;
END //
DELIMITER ;



/*


select 
	*
    -- COUNT(*)
-- delete
from parts.DOG_Command_Temp
;
select COUNT(*)
from parts.DOG_Command_Temp
;
select 
	*
    -- COUNT(*)
-- delete
from parts.DOG_Command
;
select COUNT(*)
from parts.DOG_Command
;


CALL parts.p_dog_save_command (
	'nipples'
    , (SELECT GUID FROM parts.DOG_Command_Temp COMMAND_TEMP ORDER BY id_temp DESC LIMIT 1)
    , 1
    , 1
);


select 
	*
    -- COUNT(*)
-- delete
from parts.DOG_Command_Temp
;
select COUNT(*)
from parts.DOG_Command_Temp
;
select 
	*
    -- COUNT(*)
-- delete
from parts.DOG_Command
;
select COUNT(*)
from parts.DOG_Command
;

*/