/*
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