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

ALTER PROCEDURE [dbo].[CAR_DRIVE_Upd]

@p_CAR_DR_ID VARCHAR(15) = NULL,

@p_CAR_ID	varchar(15)  = NULL,

@p_ASSET_ID	varchar(15)  = NULL,

@p_ASSET_NAME	nvarchar(200)  = NULL,

@p_OLD_INDEX_NUMBER	decimal(18)  = NULL,

@p_NEW_INDEX_NUMBER	decimal(18)  = NULL,

@p_INDEX_NUMBER	decimal(18)  = NULL,

@p_POWER_RATE	decimal(18,2)  = NULL,

@p_POWER_RATE_INDEX	decimal(18,2)  = NULL,

@p_CURR_POWER_RATE	decimal(18,2)  = NULL,

@p_INPUT_DT	VARCHAR(20) = NULL,

@p_ISLEAF	varchar(1)  = NULL,

@p_PARENT_ID	varchar(15)  = NULL,

@p_NOTES	nvarchar(1000)  = NULL,

@p_RECORD_STATUS	varchar(1)  = NULL,

@p_MAKER_ID	varchar(12)  = NULL,

@p_CREATE_DT	VARCHAR(20) = NULL,

@p_AUTH_STATUS	varchar(50)  = NULL,

@p_CHECKER_ID	varchar(12)  = NULL,

@p_APPROVE_DT	VARCHAR(20) = NULL,

@p_DR_ROUTE nvarchar(200) = NULL, --vietpq hieu chinh URD 09/12/2019

-- doanptt 14/02/2022

@p_REQ_PAY_ID VARCHAR(15) = NULL,

@p_NEW_FUEL_NUMBER	DECIMAL(18,2)  = NULL, --PhongNT 13/05/2022 Bổ sung nhiên liệu

@p_OLD_FUEL_NUMBER	DECIMAL(18,2) = NULL,

@p_REQ_CAR_ID		VARCHAR(15) =NULL, -- PYC XE 

@p_DRIVE_DETAIL XML = NULL

AS

--	DECLARE @ERRORSYS NVARCHAR(15)

--	

--	IF( @ERRORSYS <> '' )

--	BEGIN

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

--		RETURN '0'

--	END

--  IF ( EXISTS ( SELECT 1 FROM CAR_DRIVE WHERE REQ_CAR_ID = @p_REQ_CAR_ID AND CAR_DR_ID<>@p_CAR_DR_ID))

--	BEGIN

--	  	SELECT '-1' Result, '' CAR_DR_ID, N'Sửa thông tin phiếu vận hành thất bại! Phiếu yêu cầu xe đã tồn tại trong thông tin vận hành xe' ErrorDesc 

--		  RETURN '-1'

--	END

   DECLARE @Note NVARCHAR(max)

    SELECT @Note=N'Chỉ số km cũ thay đổi từ: '+cast(cd.OLD_INDEX_NUMBER AS varchar(50))+' - '+cast(@p_OLD_INDEX_NUMBER AS varchar(50))+CHAR(10)+

                 N'Chỉ số km mới thay đổi từ: '+cast(cd.NEW_INDEX_NUMBER AS varchar(50))+' - '+cast(@p_NEW_INDEX_NUMBER AS varchar(50))+CHAR(10)+

                 N'Chỉ số nhiên liệu mới thay đổi từ: '+cast(cd.NEW_FUEL_NUMBER AS varchar(50))+' - '+cast(@p_NEW_FUEL_NUMBER AS varchar(50))+CHAR(10)

    FROM CAR_DRIVE cd WHERE cd.CAR_DR_ID=@P_CAR_DR_ID

	Declare @hdoc INT

	Exec sp_xml_preparedocument @hdoc Output,@p_DRIVE_DETAIL

	DECLARE DriveDetail CURSOR FOR

	SELECT *

	FROM OPENXML(@hDoc,'/Root/DriveDetail',2)

	WITH 

	(

		DRDT_ID VARCHAR(15),

		INVOICE_NO nvarchar(100),

		INVOICE_DT VARCHAR(20),

		INVOICE_AMT DECIMAL(18,0),

		CAR_DR_TYPE nvarchar(200), --vietpq hieu chinh URD 09/12/2019

		NOTES nvarchar(MAX) --vietpq hieu chinh URD 09/12/2019

	)

	OPEN DriveDetail

BEGIN TRANSACTION

	---- LUCTV 26062023_SECRETKEY: KIỂM TRA NẾU CHƯA KHAI BÁO THÔNG TIN VẬN HÀNH XE THÌ BẮT BUỘC PHẢI KHAI BÁO TRƯỚC KHI LÀM PYC XE

		IF(NOT EXISTS(SELECT * FROM CAR_DRIVE WHERE CAR_ID =@p_CAR_ID AND ISNULL(ISLEAF,'') ='Y' )) 

		BEGIN

			ROLLBACK TRANSACTION

			SELECT '-1' Result, '' REQ_ID, N'Cập nhật phiếu vận hành xe thất bại. Xe chưa được khai báo thông tin số km tồn đầu, số nhiên liệu tồn đầu. Vui lòng tra cứu thông tin xe để kiểm tra thông tin' ErrorDesc

			RETURN '-1'

		END

		---- LUCTV 29062023_SECRETKEY:CHỈ CHO PHÉP PHÒNG HÀNH CHÍNH HỘI SỞ ĐƯỢC PHÉP ĐIỀU CHỈNH SỐ XĂNG ĐẦU KỲ, SỐ KM ĐẦU KỲ

		DECLARE @l_FUEL_INDEX_FROM DECIMAL(18,2), @l_KM_INDEX_FROM DECIMAL(18,2)

		SET @l_FUEL_INDEX_FROM = (SELECT TOP 1 ISNULL(NEW_FUEL_NUMBER,0) FROM CAR_DRIVE WHERE CAR_ID =@p_CAR_ID AND ISNULL(ISLEAF,'') ='Y' AND RECORD_STATUS ='1')

		SET @l_KM_INDEX_FROM = (SELECT TOP 1 ISNULL(NEW_INDEX_NUMBER,0) FROM CAR_DRIVE WHERE CAR_ID =@p_CAR_ID AND ISNULL(ISLEAF,'') ='Y' AND RECORD_STATUS='1')

		IF(ISNULL(@l_FUEL_INDEX_FROM,0) <> @p_OLD_FUEL_NUMBER OR ISNULL(@l_KM_INDEX_FROM,0) <> @p_OLD_INDEX_NUMBER)

		BEGIN

			IF(NOT EXISTS (SELECT * FROM TL_USER WHERE TLNANME=@p_MAKER_ID AND SECUR_CODE IN (SELECT DEP_ID FROM CM_DEPARTMENT WHERE DEP_CODE ='0690604')))

			BEGIN

				ROLLBACK TRANSACTION

				SELECT '-1' Result, '' REQ_ID, N'Cập nhật phiếu vận hành xe thất bại. Bạn không được phép điều chỉnh thông tin chỉ số nhiên liệu cũ, chỉ số km cũ. Chức năng này chỉ dành cho nhóm người dùng Phòng Hành Chính - Hội Sở' ErrorDesc

				RETURN '-1'

			END

		END

		--- END

		DECLARE @l_CAR_DR_ID VARCHAR(15)

		IF @p_INPUT_DT = '' SET @p_INPUT_DT = NULL

		IF @p_CREATE_DT = '' SET @p_CREATE_DT = NULL

		IF @p_APPROVE_DT = '' SET @p_APPROVE_DT = NULL

		---- LUCTV 28062023_SECRETKEY KHI CAP NHAT THONG TIN PHIEU VAN HANH CHỈ LƯU LOG, KHÔNG CẦN UPDATE MAKKER_ID

		UPDATE CAR_DRIVE SET [CAR_ID] = @p_CAR_ID,[ASSET_ID] = @p_ASSET_ID,[ASSET_NAME] = @p_ASSET_NAME,

		[OLD_INDEX_NUMBER] = @p_OLD_INDEX_NUMBER,[NEW_INDEX_NUMBER] = @p_NEW_INDEX_NUMBER,

		[INDEX_NUMBER] = @p_INDEX_NUMBER,[POWER_RATE] = @p_POWER_RATE,[POWER_RATE_INDEX] = @p_POWER_RATE_INDEX,

		[CURR_POWER_RATE] = @p_CURR_POWER_RATE,[DR_ROUTE] = @p_DR_ROUTE,[INPUT_DT] = CONVERT(DATETIME, @p_INPUT_DT, 103), 

		[ISLEAF] = @p_ISLEAF,[PARENT_ID] = @p_PARENT_ID,[NOTES] = @p_NOTES,[RECORD_STATUS] = @p_RECORD_STATUS,

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

		[AUTH_STATUS] = @p_AUTH_STATUS,[CHECKER_ID] = @p_CHECKER_ID,

		[APPROVE_DT] = CONVERT(DATETIME, @p_APPROVE_DT, 103),[REQ_PAY_ID] = @p_REQ_PAY_ID,[REQ_CAR_ID]=@p_REQ_CAR_ID,[OLD_FUEL_NUMBER]=@p_OLD_FUEL_NUMBER,[NEW_FUEL_NUMBER]=@p_NEW_FUEL_NUMBER

		WHERE  CAR_DR_ID = @p_CAR_DR_ID

		IF @@Error <> 0 GOTO ABORT

		--INSERT CAR DRIVE DETAIL

		DECLARE

		@DRDT_ID VARCHAR(15),

		@INVOICE_NO nvarchar(100),

		@INVOICE_DT VARCHAR(20),

		@INVOICE_AMT DECIMAL(18,0),

		@CAR_DR_TYPE nvarchar(200), --vietpq hieu chinh URD 09/12/2019

		@NOTES nvarchar(MAX) --vietpq hieu chinh URD 09/12/2019

		DELETE FROM CAR_DRIVE_DT WHERE CAR_DR_ID = @P_CAR_DR_ID

		PRINT 'INSERT MASTER SUCCESS'

		FETCH NEXT FROM DriveDetail INTO @DRDT_ID,@INVOICE_NO,@INVOICE_DT,@INVOICE_AMT, @CAR_DR_TYPE, @NOTES

		PRINT 'FETCH  FIRST ROW'

		WHILE @@FETCH_STATUS = 0

		BEGIN

			IF LEN (@DRDT_ID) = 0

			BEGIN

				EXEC SYS_CodeMasters_Gen 'CAR_DRIVE_DT', @DRDT_ID out

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

			END

			IF @INVOICE_DT = '' SET @INVOICE_DT = NULL

			PRINT 'INSERT FIRST ROW'

			INSERT INTO CAR_DRIVE_DT

			VALUES(@DRDT_ID ,@P_CAR_DR_ID ,@INVOICE_NO,CONVERT(DATETIME,@INVOICE_DT,103),@INVOICE_AMT,@CAR_DR_TYPE,@NOTES)

			FETCH NEXT FROM DriveDetail INTO @DRDT_ID,@INVOICE_NO,@INVOICE_DT,@INVOICE_AMT, @CAR_DR_TYPE, @NOTES

		END

		CLOSE DriveDetail

		DEALLOCATE DriveDetail

    INSERT INTO PL_PROCESS (REQ_ID, PROCESS_ID, CHECKER_ID, APPROVE_DT, PROCESS_DESC, NOTES)

  VALUES (@P_CAR_DR_ID, 'CAR_DIVE', @p_MAKER_ID, GETDATE(), @Note, N'Chỉnh sửa phiếu vận hành');

COMMIT TRANSACTION

SELECT '0' as Result, @p_CAR_DR_ID  CAR_DR_ID, '' ErrorDesc

RETURN '0'

ABORT:

BEGIN

		ROLLBACK TRANSACTION

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

		RETURN '-1'

End