DỰ ÁN PHẦN MỀM QUẢN LÝ TÀI SẢN NGÂN HÀNG BẢN VIỆT

INSERT INTO PL_REQUEST_PROCESS VALUES ('PLRD00000202429','GDK_DC','C','GDK','DV0001','',NULL,'TC','N','','DM0000000000017',N'Chờ GĐK Tài Chính xác nhận','0','')

UPDATE PL_REQUEST_DOC SET PROCESS_ID ='GDK_DC' WHERE REQ_ID ='PLRD00000202429'

UPDATE PL_REQUEST_PROCESS SET PARENT_PROCESS_ID ='GDK_DC', STATUS ='U' WHERE ID ='29894'

SELECT * FROM PL_TRADEDETAIL_HIST WHERE REQ_ID ='PLRD00000201631' ---2021913

¿

ALTER PROC [dbo].[PL_REQUEST_DOC_Settlment]

@p_REQ_ID VARCHAR (15) = NULL,

@p_AMT_SETT DECIMAL(18,2) =NULL,

@p_AMT_USE DECIMAL(18,2) = NULL,

@p_AMT_REVERT DECIMAL(18,2)= NULL

AS

BEGIN TRANSACTION

		DECLARE @ERROR NVARCHAR(500)

		IF(EXISTS(SELECT REQ_ID FROM dbo.PL_REQUEST_DOC WHERE IS_SETTLMENT=1 AND REQ_ID=@p_REQ_ID))

		BEGIN 

			SET @ERROR = (SELECT ErrorDesc FROM dbo.SYS_ERROR WHERE ErrorCode='SETTLMENT-001')

			ROLLBACK TRANSACTION

			SELECT '-1' as Result, @p_REQ_ID AS REQ_PAY_ID, N'Quyết toán tờ trình thất bại! Tờ trình đã được quyết toán' ErrorDesc

			RETURN '-1'

		END

		IF(EXISTS(SELECT REQ_ID FROM dbo.PL_REQUEST_DOC WHERE PROCESS_ID <>'APPROVE' AND REQ_ID=@p_REQ_ID))

		BEGIN 

			--SET @ERROR = (SELECT ErrorDesc FROM dbo.SYS_ERROR WHERE ErrorCode='SETTLMENT-001')

			ROLLBACK TRANSACTION

			SELECT '-1' as Result, @p_REQ_ID AS REQ_PAY_ID, N'Quyết toán tờ trình số '+ (SELECT ISNULL(REQ_CODE, REQ_ID) FROM PL_REQUEST_DOC WHERE REQ_ID=@p_REQ_ID)+N' thất bại! Tờ trình chưa được phê duyệt hoàn tất' ErrorDesc

			RETURN '-1'

		END

		IF(EXISTS(SELECT * FROM TR_REQ_PAY_SERVICE WHERE EMP_ID =@p_REQ_ID))

		BEGIN 

			--SET @ERROR = (SELECT ErrorDesc FROM dbo.SYS_ERROR WHERE ErrorCode='SETTLMENT-001')

			ROLLBACK TRANSACTION

			SELECT '-1' as Result, @p_REQ_ID AS REQ_PAY_ID, N'Quyết toán tờ trình số '+ (SELECT ISNULL(REQ_CODE, REQ_ID) FROM PL_REQUEST_DOC WHERE REQ_ID=@p_REQ_ID)+N' thất bại! Tờ trình đã được thanh toán trước đó' ErrorDesc

			RETURN '-1'

		END

		-- KIEM TRA NEU TO TRINH  DANG DUOC THUC HIEN THANH TOAN / TAM UNG THI PHAI HUY PHIEU TRUOC KHI QUYET TOAN TO TRINH

		IF(EXISTS(SELECT A.* FROM TR_REQ_ADVANCE_DT A

		INNER JOIN TR_REQ_ADVANCE_PAYMENT B ON A.REQ_PAY_ID = B.REQ_PAY_ID

		WHERE A.REF_ID IN 

		(

			SELECT CONTRACT_ID FROM TR_CONTRACT

			WHERE REQ_DOC_ID IN (SELECT REQ_ID FROM TR_REQUEST_DOC WHERE PL_REQ_ID =@p_REQ_ID)

			UNION 

			SELECT PO_ID FROM TR_PO_MASTER

			WHERE REQ_DOC_ID IN (SELECT REQ_ID FROM TR_REQUEST_DOC WHERE PL_REQ_ID =@p_REQ_ID)

		)

		AND B.AUTH_STATUS_KT <>'A'))

		BEGIN 

			ROLLBACK TRANSACTION

			SELECT '-1' as Result, @p_REQ_ID AS REQ_PAY_ID, N'Quyết toán tờ trình thất bại! Đang có giao dịch tạm ứng sử dụng ngân sách của tờ trình. Vui lòng hủy phiếu tạm ứng trước khi quyết toán tờ trình' ErrorDesc

			RETURN '-1'

		END

		-- KIEM TRA XEM CO DANG THUC HIEN THANH TOAN HAY KHONG

		IF(EXISTS(SELECT A.* FROM TR_REQ_ADVANCE_DT A

		INNER JOIN TR_REQ_PAYMENT B ON A.REQ_PAY_ID = B.REQ_PAY_ID

		WHERE A.REF_ID IN 

		(

			SELECT CONTRACT_ID FROM TR_CONTRACT

			WHERE REQ_DOC_ID IN (SELECT REQ_ID FROM TR_REQUEST_DOC WHERE PL_REQ_ID =@p_REQ_ID)

			UNION 

			SELECT PO_ID FROM TR_PO_MASTER

			WHERE REQ_DOC_ID IN (SELECT REQ_ID FROM TR_REQUEST_DOC WHERE PL_REQ_ID =@p_REQ_ID)

		)

		AND B.AUTH_STATUS_KT <>'A'))

		BEGIN 

			ROLLBACK TRANSACTION

			SELECT '-1' as Result, @p_REQ_ID AS REQ_PAY_ID, N'Quyết toán tờ trình thất bại! Đang có giao dịch thanh toán sử dụng ngân sách của tờ trình. Vui lòng hủy phiếu thanh toán trước khi quyết toán tờ trình' ErrorDesc

			RETURN '-1'

		END

		--- KIEM TRA DANH SACH NGAN SACH CUA NHUNG PDN THANH TOAN CO SU DUNG NGAN SACH CUA TO TRINH

		IF(EXISTS(SELECT * FROM dbo.TR_REQUEST_DOC WHERE PL_REQ_ID =@p_REQ_ID AND PROCESS_ID <> 'APPROVE'))

		BEGIN

			ROLLBACK TRANSACTION

			SELECT '-1' as Result, @p_REQ_ID AS REQ_PAY_ID, N'Quyết toán tờ trình thất bại! Đang tồn tại phiếu yêu cầu mua sắm chưa được phê duyệt. Vui lòng hủy các phiếu mua sắm chưa hoàn tất hoặc hoàn tất xong mới thực hiện quyết toán' ErrorDesc

			RETURN '-1'

		END

		IF(EXISTS(SELECT REQ_ID FROM dbo.PL_REQUEST_DOC WHERE ISNULL(PL_BASED_ID,'') <> '' AND REQ_ID=@p_REQ_ID))

		BEGIN 

			--SET @ERROR = (SELECT ErrorDesc FROM dbo.SYS_ERROR WHERE ErrorCode='SETTLMENT-001')

			ROLLBACK TRANSACTION

			SELECT '-1' as Result, @p_REQ_ID AS REQ_PAY_ID, N'Quyết toán tờ trình số '+ (SELECT ISNULL(REQ_CODE, REQ_ID) FROM PL_REQUEST_DOC WHERE REQ_ID=@p_REQ_ID)+N' thất bại! Đây là tờ trình căn cứ / không ảnh hướng đến ngân sách' ErrorDesc

			RETURN '-1'

		END

		--IF(EXISTS(SELECT * FROM dbo.TR_REQUEST_DOC WHERE PL_REQ_ID =@p_REQ_ID AND PROCESS_ID = 'APPROVE' ) )

		--BEGIN

		--	ROLLBACK TRANSACTION

		--	SELECT '-1' as Result, @p_REQ_ID AS REQ_PAY_ID, N'Quyết toán tờ trình thất bại! Đang tồn tại phiếu yêu cầu mua sắm chưa được phê duyệt' ErrorDesc

		--	RETURN '-1'

		--END

		--	DECLARE @listTRADE TABLE

		--	(

		--		TRADE_ID VARCHAR(20),

		--		AMT_APP DECIMAL(18,2),

		--		AMT_ROLEBACK DECIMAL(18,2)

		--	)

		--	INSERT @listTRADE

		--	SELECT TRADE_ID,SUM(TOTAL_AMT),0 FROM dbo.PL_REQUEST_DOC_DT WHERE REQ_ID=@p_REQ_ID GROUP BY TRADE_ID

		---- LAY DS PYCMS CUA TO TRINH

		--	DECLARE @listID TABLE (

		--		TR_REQ_ID VARCHAR(15)

		--	)

		--	INSERT INTO @listID

		--	SELECT REQ_ID FROM dbo.TR_REQUEST_DOC WHERE PL_REQ_ID=@p_REQ_ID

		--	DECLARE @listREF TABLE (

		--		REF_ID VARCHAR(15)

		--	)

		--	INSERT INTO @listREF

		--	SELECT CONTRACT_ID FROM TR_CONTRACT T

		--	WHERE EXISTS  (SELECT REQ_DOC_ID  FROM @listID L WHERE T.REQ_DOC_ID=L.TR_REQ_ID)

		--	UNION 

		--	SELECT PO_ID FROM TR_PO_MASTER P

		--	WHERE EXISTS (SELECT REQ_DOC_ID FROM @listID L WHERE P.REQ_DOC_ID=L.TR_REQ_ID)

		--	DECLARE @listREQPAYID TABLE (

		--		REQ_PAY_ID VARCHAR(20)

		--	)

		--	INSERT INTO @listREQPAYID

		--	SELECT REQ_PAY_ID FROM dbo.TR_REQ_ADVANCE_DT A WHERE EXISTS (SELECT REF_ID FROM @listREF B WHERE B.REF_ID=A.REF_ID)

		--	DECLARE @listTRADE_EXE TABLE

		--	(

		--		TRADE_ID VARCHAR(20),

		--		AMT_EXE DECIMAL(18,2)

		--	)

		--	INSERT INTO @listTRADE_EXE		

		--	SELECT T.TRADE_ID,SUM(T.AMT_EXE)  FROM dbo.TR_REQ_PAY_BUDGET T WHERE EXISTS(SELECT  L.REQ_PAY_ID FROM @listREQPAYID L WHERE L.REQ_PAY_ID=T.REQ_PAY_ID) GROUP BY T.TRADE_ID

		--	UPDATE @listTRADE SET AMT_ROLEBACK=AMT_APP-(SELECT AMT_EXE FROM @listTRADE_EXE WHERE [@listTRADE].TRADE_ID=[@listTRADE_EXE].TRADE_ID) WHERE EXISTS (SELECT TRADE_ID FROM @listTRADE_EXE WHERE [@listTRADE].TRADE_ID=[@listTRADE_EXE].TRADE_ID)

		--	UPDATE dbo.PL_TRADEDETAIL SET AMT_ETM=AMT_ETM- (SELECT AMT_ROLEBACK FROM @listTRADE WHERE [@listTRADE].TRADE_ID=PL_TRADEDETAIL.TRADE_ID)  

		--	WHERE EXISTS (SELECT TRADE_ID FROM @listTRADE WHERE [@listTRADE].TRADE_ID=PL_TRADEDETAIL.TRADE_ID)

			-- LUCTV: 05052021 LUCTV FIX QUYET TOAN TO TRINH

			UPDATE dbo.PL_REQUEST_DOC SET IS_SETTLMENT=1, PROCESS_ID ='SETTLMENT' WHERE REQ_ID=@p_REQ_ID

			-- LUCTV 01-06-2021: NEU QUYET TOAN THI PHAI XÓA LOG ĐI

			UPDATE PL_TRADEDETAIL_HIST SET TRADE_ID ='X'+ RIGHT(TRADE_ID, 14) WHERE REQ_ID =@p_REQ_ID

			-- UPDATE DE HỆ THỐNG THÔNG BÁO TỜ TRÌNH NÀY ĐÃ ĐƯỢC QUYẾT TOÁN

			UPDATE PL_REQUEST_PROCESS SET NOTES =N'Tờ trình được quyết toán', PROCESS_ID ='SETTLMENT' WHERE REQ_ID=@p_REQ_ID AND PROCESS_ID ='APPROVE'

			UPDATE PL_REQUEST_PROCESS SET NOTES =N'Tờ trình đã được quyết toán thành công' WHERE REQ_ID=@p_REQ_ID AND PROCESS_ID =(SELECT PARENT_PROCESS_ID FROM PL_REQUEST_PROCESS WHERE REQ_ID=@p_REQ_ID AND PROCESS_ID ='APPROVE')

			INSERT INTO PL_PROCESS (PROCESS_DESC, APPROVE_DT,CHECKER_ID, REQ_ID,NOTES) VALUES (N'Thực hiện quyết toán tờ trình',GETDATE(),(SELECT TOP 1 MAKER_ID FROM PL_REQUEST_DOC WHERE REQ_ID =@p_REQ_ID), @p_REQ_ID,N'Quyết toán tờ trình')

			DECLARE @TRADE_ID VARCHAR(15), @AMT_ETM DECIMAL(18,0), @AMT_RECIVE DECIMAL(18,0), @AMT_TRANSFER DECIMAL(18,0),@TO_TRADE_ID VARCHAR(15)

			-- 1.0 KIEM TRA NEU TO TRINH DUYET XONG & CHUA PHAT SINH PYCMS DA DUYET

			IF(NOT EXISTS(SELECT * FROM TR_REQUEST_DOC WHERE PL_REQ_ID =@p_REQ_ID))

			BEGIN

				-- REVERT LAI NGAN SACH

					DECLARE CUR_TRADE  CURSOR LOCAL FOR

					SELECT TRADE_ID, TOTAL_AMT FROM PL_REQUEST_DOC_DT A WHERE A.REQ_ID =@p_REQ_ID

					Open CUR_TRADE

					FETCH NEXT FROM CUR_TRADE INTO @TRADE_ID, @AMT_ETM

					WHILE @@FETCH_STATUS = 0

					BEGIN

					   UPDATE PL_TRADEDETAIL SET AMT_ETM = ISNULL(AMT_ETM,0) - @AMT_ETM WHERE TRADE_ID =@TRADE_ID

					FETCH NEXT FROM CUR_TRADE INTO  @TRADE_ID, @AMT_ETM

					END

				-- KIEM TRA XEM CO DIEU CHUYEN NGAN SACH HAY KHONG

				IF(NOT EXISTS(SELECT * FROM PL_REQUEST_TRANSFER WHERE REQ_DOC_ID =@p_REQ_ID))

				BEGIN

					PRINT 'KHONG CO DIEU CHUYEN NGAN SACH'

				END

				ELSE

				BEGIN

					-- REVERT LAI NGAN SACH

						DECLARE CUR_TRADE_TF  CURSOR LOCAL FOR

						SELECT FR_TRADE_ID, TO_TRADE_ID, TOTAL_AMT FROM PL_REQUEST_TRANSFER A WHERE A.REQ_DOC_ID =@p_REQ_ID

						Open CUR_TRADE_TF

						FETCH NEXT FROM CUR_TRADE_TF INTO @TRADE_ID,@TO_TRADE_ID, @AMT_ETM

						WHILE @@FETCH_STATUS = 0

						BEGIN

						   UPDATE PL_TRADEDETAIL SET AMT_RECEIVE_TF = ISNULL(AMT_RECEIVE_TF,0) - @AMT_ETM WHERE TRADE_ID =@TO_TRADE_ID

						   UPDATE PL_TRADEDETAIL SET AMT_TF = ISNULL(AMT_TF,0) - @AMT_ETM WHERE TRADE_ID =@TRADE_ID

						FETCH NEXT FROM CUR_TRADE_TF INTO @TRADE_ID,@TO_TRADE_ID, @AMT_ETM

					END

				END

			END -- NGUOC LAI NEU TO TRINH NAY DA DUOC PYCMS LINK TOI --> TINH GIA TRI NHỮNG PYCMS DA DUOC DUYET

			ELSE

			BEGIN

				DECLARE @SUM_LUY_KE_PUR DECIMAL(18,0), @PL_REQ_DT VARCHAR(15)

				DECLARE CUR_TRADE_PUR  CURSOR LOCAL FOR

				SELECT TRADE_ID, TOTAL_AMT, REQDT_ID FROM PL_REQUEST_DOC_DT A WHERE A.REQ_ID =@p_REQ_ID

				Open CUR_TRADE_PUR

				FETCH NEXT FROM CUR_TRADE_PUR INTO @TRADE_ID, @AMT_ETM,@PL_REQ_DT

					WHILE @@FETCH_STATUS = 0

					BEGIN

						-- TINH SO TIEN DA SU DUNG CUA NHUNG PYCMS LINK TOI TUNG HANG MỤC DETAIL TO TRINH

						SET @SUM_LUY_KE_PUR =(SELECT SUM(TOTAL_AMT) FROM TR_REQUEST_DOC_DT WHERE PL_REQDT_ID =@PL_REQ_DT)

					    UPDATE PL_TRADEDETAIL SET AMT_ETM = ISNULL(AMT_ETM,0) - (@AMT_ETM - ISNULL(@SUM_LUY_KE_PUR,0)) WHERE TRADE_ID =@TRADE_ID

					FETCH NEXT FROM CUR_TRADE_PUR INTO  @TRADE_ID, @AMT_ETM,@PL_REQ_DT

				END

			END

			--- END LUCTV 05-05-2021

COMMIT TRANSACTION

SELECT '0' as Result, @p_REQ_ID  REQ_PAY_ID ,N'Quyết toán tờ trình thành công' ErrorDesc

RETURN '0'

ABORT:

BEGIN

		ROLLBACK TRANSACTION

		SELECT '-1' as Result, @p_REQ_ID AS REQ_PAY_ID, N'Quyết toán tờ trình thất bại' ErrorDesc

		RETURN '-1'

END