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

ALTER PROCEDURE [dbo].[CAR_DRIVE_Ins]

@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 (  EXISTS ( SELECT * FROM CAR_DRIVE WHERE CAR_ID = @p_CAR_ID))

--	BEGIN

--	    --kiem tra trang thai truoc do da suyet hay chua

--		IF(NOT EXISTS(SELECT * FROM CAR_DRIVE A WHERE A.AUTH_STATUS='A' AND A.ISLEAF = 'Y' AND (A.CAR_ID = @p_CAR_ID OR @p_CAR_ID IS NULL OR @p_CAR_ID='')))

--			SET @ERRORSYS='CARD-00003'

--	END

--    

--	IF( @ERRORSYS <> '' )

--	BEGIN

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

--		RETURN '-1'

--	END

--

--  IF ( EXISTS ( SELECT 1 FROM CAR_DRIVE WHERE REQ_CAR_ID = @p_REQ_CAR_ID))

--	BEGIN

--	  	SELECT '-1' Result, '' CAR_DR_ID, N'Thêm mới 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 @ERRORSYS NVARCHAR(MAX)

	select @ERRORSYS = STUFF((

		SELECT ', ' + REQ_CODE

		FROM TR_REQUEST_CAR 

		WHERE START_TIME_TRIP<(SELECT START_TIME_TRIP FROM dbo.TR_REQUEST_CAR WHERE REQ_ID = @p_REQ_CAR_ID) 

        AND AUTH_STATUS<>'D'

		AND CAR_ID = @p_CAR_ID 

		AND REQ_ID NOT IN (SELECT REQ_CAR_ID FROM dbo.CAR_DRIVE A WHERE CAR_ID=@p_CAR_ID)

			FOR XML PATH(''), TYPE).value('.[1]', 'nvarchar(max)'), 1, 1, '')

	--KIỂM TRA CÁC PHIẾU XE TRƯỚC THỜI ĐIỂM ĐI ĐÃ ĐƯỢC TẠO 

	IF (@ERRORSYS IS NOT NULL)

	BEGIN

		SELECT '-1' Result, N'Bạn cần tạo vận hành cho các phiếu yêu cầu sau: '+ @ERRORSYS ErrorDesc

		RETURN '-1'

	END

  IF (EXISTS(SELECT * FROM CAR_DRIVE cd WHERE REQ_CAR_ID=@p_REQ_CAR_ID))

	BEGIN

		SELECT '-1' Result, N'Phiếu yêu cầu xe tồn tại ở phiếu vận hành số '+(SELECT TOP(1) cd.CAR_DR_ID FROM CAR_DRIVE cd WHERE REQ_CAR_ID=@p_REQ_CAR_ID) ErrorDesc

		RETURN '-1'

	END

	Declare @hdoc INT

	Exec sp_xml_preparedocument @hdoc Output,@p_DRIVE_DETAIL

	DECLARE DriveDetail CURSOR FOR

	SELECT *

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

	WITH 

	(

		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 21062023_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'Thêm mới 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'Thêm mới 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 LUCTV

		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

		EXEC SYS_CodeMasters_Gen 'CAR_DRIVE', @l_CAR_DR_ID out

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

		PRINT @l_CAR_DR_ID

		--Tren truyen mac dinh ISLEAF=Y

	    DECLARE @PARENT VARCHAR(15) = NULL

		SELECT @PARENT = [CAR_DR_ID] FROM CAR_DRIVE WHERE CAR_ID = @p_CAR_ID AND ISLEAF = 'Y' AND RECORD_STATUS = '1'

		UPDATE CAR_DRIVE SET ISLEAF = 'N' WHERE [CAR_DR_ID] = @PARENT

		INSERT INTO CAR_DRIVE([CAR_DR_ID],[CAR_ID],[ASSET_ID],[ASSET_NAME],[OLD_INDEX_NUMBER],[NEW_INDEX_NUMBER],[INDEX_NUMBER],[POWER_RATE],[POWER_RATE_INDEX],[CURR_POWER_RATE],[DR_ROUTE], [INPUT_DT],[ISLEAF],[PARENT_ID],[NOTES],[RECORD_STATUS],[MAKER_ID],[CREATE_DT],[AUTH_STATUS],[CHECKER_ID],[APPROVE_DT],[REQ_PAY_ID],[REQ_CAR_ID],[OLD_FUEL_NUMBER],[NEW_FUEL_NUMBER]) 

		VALUES(@l_CAR_DR_ID ,@p_CAR_ID ,@p_ASSET_ID ,@p_ASSET_NAME ,@p_OLD_INDEX_NUMBER,

		@p_NEW_INDEX_NUMBER ,@p_INDEX_NUMBER ,@p_POWER_RATE ,@p_POWER_RATE_INDEX ,

		@p_CURR_POWER_RATE , @p_DR_ROUTE, CONVERT(DATETIME, @p_INPUT_DT, 103) ,'Y' ,@PARENT ,

		@p_NOTES ,@p_RECORD_STATUS ,@p_MAKER_ID ,CONVERT(DATETIME, @p_CREATE_DT, 103) ,

		@p_AUTH_STATUS ,@p_CHECKER_ID ,CONVERT(DATETIME, @p_APPROVE_DT, 103),@p_REQ_PAY_ID,@p_REQ_CAR_ID,@p_OLD_FUEL_NUMBER,@p_NEW_FUEL_NUMBER)

		IF @@Error <> 0 GOTO ABORT

		--INSERT CAR DRIVE DETAIL

		DECLARE 	

		@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

		PRINT 'INSERT MASTER SUCCESS'

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

		PRINT 'FETCH  FIRST ROW'

		WHILE @@FETCH_STATUS = 0

		BEGIN

			DECLARE @l_ID VARCHAR(15)

			EXEC SYS_CodeMasters_Gen 'CAR_DRIVE_DT', @l_ID out

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

			IF @INVOICE_DT = '' SET @INVOICE_DT = NULL

			PRINT 'INSERT FIRST ROW'

			INSERT INTO CAR_DRIVE_DT

			VALUES(@l_ID ,@l_CAR_DR_ID ,@INVOICE_NO,CONVERT(DATETIME,@INVOICE_DT,103),@INVOICE_AMT, @CAR_DR_TYPE, @NOTES)

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

		END

		CLOSE DriveDetail

		DEALLOCATE DriveDetail

COMMIT TRANSACTION

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

RETURN '0'

ABORT:

BEGIN

		ROLLBACK TRANSACTION

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

		RETURN '-1'

End