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

/*

SELECT * FROM ASS_MASTER

SELECT * FROM CAR_MASTER WHERE CAR_ID = 'CARM00000000003' 

SELECT * FROM CAR_DRIVE

SELECT * FROM CAR_DRIVE_DT

DELETE FROM CAR_DRIVE WHERE CAR_ID = 'CARM00000000001'

CAR_DRIVE_Ins 'CARM00000000001','ASS000000000001','',0,0,0,0,0,0,'','','','','','','','','','',

'

<Root xmlns="">

	<DriveDetail>

		<INVOICE_NO>1234567</INVOICE_NO>

		<INVOICE_DT>20/11/2013</INVOICE_DT>

		<INVOICE_AMT>2000000</INVOICE_AMT>

	</DriveDetail>

</Root>

'

*/

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

---- 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'Tạo 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

	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

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