DỰ ÁN PHẦN MỀM QUẢN LÝ TÀI SẢN - NH BẢN VIỆT - GD3

ALTER PROCEDURE [dbo].[BUD_MASTER_Upd]

@p_BUILDING_ID	varchar(15) = null ,

@p_ASSET_ID	varchar(15) = NULL ,

@p_BUILDING_NAME	nvarchar(1000) = NULL ,

@p_BRANCH_ID	varchar(15) = NULL ,

@p_ADDRESS	nvarchar(800) = NULL ,

@p_OWNER_OR_RENT	varchar(1) = NULL ,

@p_NUM_FLOOR	int = NULL,

@p_AREA	numeric(18,2) = NULL ,

@p_TOTAL_AREA	numeric(18,2) = NULL ,

@p_RENT_TOTAL_AREA	numeric(18,2) = NULL ,

@p_UTILZED_AREA	numeric(18,2) = NULL ,

@p_NOTES	nvarchar(1000) = NULL ,

@p_RECORD_STATUS	varchar(1) = NULL ,

@p_AUTH_STATUS	varchar(1) = NULL ,

@p_MAKER_ID	varchar(15) = NULL ,

@p_CREATE_DT	VARCHAR(20) = NULL,

@p_CHECKER_ID	varchar(15) = NULL ,

@p_APPROVE_DT	VARCHAR(20) = NULL,

@p_XML_TEMP	xml = NULL,

@p_RENT_AMT DECIMAL(18,0) =NULL,

@p_DEPOSITS_AMT DECIMAL(18,0) =NULL,

@p_RENT_TIME int,

@p_IS_SEND_APPR VARCHAR(15),

@p_SEND_APPR_DT VARCHAR(20),

@p_SIGN_USER VARCHAR(15),

@p_SIGN_DT VARCHAR(15),

@p_CONTRACT_ID VARCHAR(15) = NULL,

@p_SUP_ID VARCHAR(15) = NULL,

@p_VAT INT = 0,

@p_LENGTH DECIMAL(18,2) = NULL,

@p_WIDTH DECIMAL(18,2) = NULL

AS

/*

--Validation is here

		DECLARE @ERRORSYS NVARCHAR(15) = ''

IF ( NOT EXISTS ( SELECT * FROM BUD_MASTER WHERE BUILDING_ID=@p_BUILDING_ID

	SET @ERRORSYS = ''

	IF @ERRORSYS <> ''

	BEGIN

		SELECT ErrorCode Result, ''BUILDING_ID, ErrorDesc ErrorDesc FROM SYS_ERROR WHERE ErrorCode = @ERRORSYS

		RETURN '0'

	END

*/

IF(EXISTS (SELECT * FROM BUD_MASTER WHERE BUILDING_ID = @p_BUILDING_ID AND IS_SEND_APPR = 'Y' AND AUTH_STATUS = 'U'))

BEGIN

	SET @p_IS_SEND_APPR = (SELECT IS_SEND_APPR FROM BUD_MASTER WHERE BUILDING_ID = @p_BUILDING_ID)

	SELECT '-1' as Result, '' BUILDING_ID, @p_IS_SEND_APPR IS_SEND_APPR, 

		N'Không thể chỉnh sửa. Thông tin quản lý trụ sở đã được gửi yêu cầu phê duyệt' ErrorDesc

	RETURN '-1'

END

BEGIN TRANSACTION

		DECLARE @p_ROW_NUM INT = 0

		IF(EXISTS (SELECT * FROM BUD_MASTER WHERE BUILDING_ID = @p_BUILDING_ID AND AUTH_STATUS = 'A'))

		BEGIN

		---------------CẬP NHẬT LẠI SAU KHI ĐÃ DUYỆT------------

			SET @p_CHECKER_ID = NULL

			SET @p_APPROVE_DT = NULL

			SET @p_SIGN_DT = NULL

			SET @p_SEND_APPR_DT = NULL

		END

		UPDATE BUD_MASTER SET [ASSET_ID] = @p_ASSET_ID,[BUILDING_NAME] = @p_BUILDING_NAME,

		[BRANCH_ID] = @p_BRANCH_ID,[ADDRESS] = @p_ADDRESS,

		[OWNER_OR_RENT] = @p_OWNER_OR_RENT,[NUM_FLOOR] = @p_NUM_FLOOR,

		[AREA] = @p_AREA,[TOTAL_AREA] = @p_TOTAL_AREA,

		[RENT_TOTAL_AREA] = @p_RENT_TOTAL_AREA,

		[UTILZED_AREA] = @p_UTILZED_AREA,[NOTES] = @p_NOTES,

		[RECORD_STATUS] = @p_RECORD_STATUS,[AUTH_STATUS] = @p_AUTH_STATUS,

		[MAKER_ID] = @p_MAKER_ID,[CREATE_DT] = CONVERT(DATETIME, @p_CREATE_DT, 103),

		[CHECKER_ID] = @p_CHECKER_ID,[APPROVE_DT] = CONVERT(DATETIME, @p_APPROVE_DT, 103),

		[XML_TEMP] = @p_XML_TEMP,

		[RENT_AMT]=@p_RENT_AMT,

		[DEPOSITS_AMT] =@p_DEPOSITS_AMT,

		[RENT_TIME] =@p_RENT_TIME,

		[IS_SEND_APPR] = @p_IS_SEND_APPR,

		[SEND_APPR_DT] = CONVERT(DATETIME, @p_SEND_APPR_DT, 103),

		[SIGN_USER] = @p_SIGN_USER,

		[SIGN_DT]= CONVERT(DATETIME, @p_SIGN_DT, 103),

		[CONTRACT_ID] = @p_CONTRACT_ID,

		[SUP_ID] = @p_SUP_ID,

		[VAT] = @p_VAT,

		[LENGTH] = @p_LENGTH,

		[WIDTH] = @p_WIDTH

		WHERE  BUILDING_ID= @p_BUILDING_ID

		IF @@Error <> 0 GOTO ABORT

		DELETE FROM BUD_AREA_DT WHERE BUILD_ID =@p_BUILDING_ID

		-----------BAODNQ 10/3/2022 : Kiểm tra danh sách tầng phải khớp với số tầng của trụ sở

		DECLARE @p_XML_TOTAL_COUNT INT

		SET @p_XML_TOTAL_COUNT = (

			SELECT @p_XML_TEMP.value('count(/Root/XmlData1/BUILDING_AREA_ID)', 'INT') as 'COUNT'

		)

		PRINT @p_XML_TOTAL_COUNT

		--IF(@p_NUM_FLOOR <> @p_XML_TOTAL_COUNT)

		--BEGIN

		--	ROLLBACK TRANSACTION

		--	SELECT '-1' as Result, '' BUILDING_ID, 

		--			N'Số tầng trên lưới danh sách phải khớp với số tầng của trụ sở' ErrorDesc

		--	RETURN '-1'

		--END

		------------CHECK TỔNG DT CÁC TẦNG PHẢI = DT TRỤ SỞ---------

		DECLARE @p_XML_TOTAL_FLOOR_AREA NUMERIC(18,2)

		SET @p_XML_TOTAL_FLOOR_AREA = (

			SELECT @p_XML_TEMP.value('sum(/Root/XmlData1/FLOOR_AREA)', 'DECIMAL(18,2)') AS 'SUM'

		)

		PRINT @p_XML_TOTAL_FLOOR_AREA

		IF(@p_XML_TOTAL_FLOOR_AREA <> @p_TOTAL_AREA)

		BEGIN

			ROLLBACK TRANSACTION

			SELECT '-1' as Result, '' BUILDING_ID, 

					N'Tổng diện tích các tầng phải bằng diện tích trụ sở' ErrorDesc

			RETURN '-1'

		END

		Declare @hdoc1 INT

		DECLARE @d_BUILDING_AREA_ID VARCHAR(15),

				@d_FLOOR_NO INT,

				@d_FLOOR_AREA decimal(18,2),

				@d_INTERNAL_AREA decimal(18,2),

				@d_RENT_AREA decimal(18,2),

				@d_UTILZED_AREA decimal(18,2),

				@d_NOTES	NVARCHAR(1000)

		Exec sp_xml_preparedocument @hdoc1 Output,@p_XML_TEMP

		DECLARE XmlDataDoc CURSOR FOR

		SELECT *

		FROM OPENXML(@hdoc1,'/Root/XmlData1',2)

		WITH 

		(	

				BUILDING_AREA_ID VARCHAR(15),

				FLOOR_NO INT,

				FLOOR_AREA decimal(18,2),

				INTERNAL_AREA decimal(18,2),

				RENT_AREA decimal(18,2),

				UTILZED_AREA decimal(18,2),

				NOTES	NVARCHAR(1000)

		)

		OPEN XmlDataDoc			

		FETCH NEXT FROM XmlDataDoc INTO 

									@d_BUILDING_AREA_ID ,

									@d_FLOOR_NO ,

									@d_FLOOR_AREA ,

									@d_INTERNAL_AREA ,

									@d_RENT_AREA ,

									@d_UTILZED_AREA ,

									@d_NOTES	

		WHILE @@FETCH_STATUS = 0

		BEGIN

			SET @p_ROW_NUM = @p_ROW_NUM + 1

			IF(LEN(	@d_BUILDING_AREA_ID)=0) 	

			EXEC SYS_CodeMasters_Gen 'BUD_AREA_DT', @d_BUILDING_AREA_ID out

			IF @d_BUILDING_AREA_ID='' OR @d_BUILDING_AREA_ID IS NULL GOTO ABORT

			-------CHECK TỔNG DT CHO THUÊ VÀ SỬ DỤNG PH NHỎ HƠN HOẶC BẰNG DT TẦNG--------

			IF(@d_FLOOR_AREA - (@d_INTERNAL_AREA + @d_UTILZED_AREA) < 0)

			BEGIN

				CLOSE XmlDataDoc

				DEALLOCATE XmlDataDoc

				ROLLBACK TRANSACTION

				SELECT '-1' as Result, '' BUILDING_ID, '' BUILDING_NAME,

					N'Lưới danh sách các tầng của trụ sở, dòng ' + CONVERT(NVARCHAR,@p_ROW_NUM) + 

					N': Tổng diện tích sử dụng và diện tích cho thuê phải nhỏ hơn hoặc bằng diện tích tầng' ErrorDesc

				RETURN '-1'

			END

			INSERT INTO BUD_AREA_DT([BUILDING_AREA_ID],[BUILD_ID],[FLOOR_NO],[FLOOR_AREA],[INTERNAL_AREA],

			[RENT_AREA],[UTILZED_AREA],[NOTES],[RECORD_STATUS],[AUTH_STATUS],[MAKER_ID],[CREATE_DT],[CHECKER_ID],[APPROVE_DT])

			VALUES(@d_BUILDING_AREA_ID ,@p_BUILDING_ID ,@d_FLOOR_NO ,@d_FLOOR_AREA ,@d_INTERNAL_AREA ,0 ,

		@d_UTILZED_AREA ,@d_NOTES,@p_RECORD_STATUS ,@p_AUTH_STATUS ,@p_MAKER_ID ,CONVERT(DATETIME, @p_CREATE_DT, 103) ,@p_CHECKER_ID ,CONVERT(DATETIME, @p_APPROVE_DT, 103) )

			IF @@Error <> 0 GOTO ABORT	

			FETCH NEXT FROM XmlDataDoc INTO 

									@d_BUILDING_AREA_ID ,

									@d_FLOOR_NO ,

									@d_FLOOR_AREA ,

									@d_INTERNAL_AREA ,

									@d_RENT_AREA ,

									@d_UTILZED_AREA ,

									@d_NOTES	

		END

		CLOSE XmlDataDoc

		DEALLOCATE XmlDataDoc

		-----**** UPDATE ----

		--8/12/2021,datmq thêm UTILZED_AREA=(SELECT SUM(UTILZED_AREA))----

		UPDATE BUD_MASTER 

		SET TOTAL_AREA = (SELECT SUM(FLOOR_AREA) FROM BUD_AREA_DT WHERE BUILD_ID=@p_BUILDING_ID),UTILZED_AREA=(SELECT SUM(UTILZED_AREA) FROM BUD_AREA_DT WHERE BUILD_ID=@p_BUILDING_ID)

		WHERE BUILDING_ID=@p_BUILDING_ID

		-- 29/12/2021:datmq  Insert to table PL_PROCESS

		------Chỉ ghi lại bước xử lý cuối cùng khi update nhiều lần-----

		--DELETE FROM PL_PROCESS WHERE REQ_ID = @p_BUILDING_ID AND PROCESS_ID = 'UPDATE'

		INSERT INTO dbo.PL_PROCESS

					(

					    REQ_ID,

					    PROCESS_ID,

					    CHECKER_ID,

					    APPROVE_DT,

					    PROCESS_DESC,

					    NOTES

					)

					VALUES

					(   @p_BUILDING_ID,       

						'UPDATE',

					    @p_MAKER_ID,        

					    GETDATE(), 

					    N'Cập nhật quản lý trụ sở thành công' ,      

					    N'Cập nhật quản lý trụ sở'       

					 )

COMMIT TRANSACTION

		SELECT '0' as Result, @p_BUILDING_ID  BUILDING_ID, '' ErrorDesc

		RETURN '0'

ABORT:

BEGIN

		ROLLBACK TRANSACTION

		SELECT '-1' as Result, '' BUILDING_ID, '' ErrorDesc

		RETURN '-1'

End