AMS - VB

ALTER PROCEDURE dbo.ASS_UPDATE_App

	@p_UPDATE_ID varchar(15),

	@P_AUTH_STATUS VARCHAR(1),

	@p_CHECKER_ID VARCHAR(100),

	@p_APPROVE_DT varchar(20)

AS

BEGIN TRY

	DECLARE @ERRORSYS NVARCHAR(15) = '', @ERROR NVARCHAR(500) = ''

	declare @l_ASSHIST_ID varchar(15)

	declare @l_ASSET_ID varchar(15)

	declare @l_TYPE_ID nvarchar(15)

	DECLARE @l_MAKER_ID	varchar(100)	

	DECLARE @l_BRANCH_CREATE VARCHAR(15), @l_BRANCH_ID VARCHAR(15),@l_DEP_ID VARCHAR(15)

	declare @l_NEW_GROUP_ID varchar(15),  @l_OLD_GROUP_ID varchar(15)

	declare @l_NEW_ASSET_NAME nvarchar(1000)--,  @l_OLD_ASSET_NAME nvarchar(1000)

	declare @l_NEW_ASSET_SERIAL_NO nvarchar(100)--,  @l_OLD_ASSET_SERIAL_NO nvarchar(100)

	declare @l_NEW_ASSET_DESC nvarchar(max)--,  @l_OLD_ASSET_DESC nvarchar(max)

	declare @l_NEW_BUY_PRICE decimal(18,0),  @l_OLD_BUY_PRICE decimal(18,0)

	declare @l_NEW_AMORT_AMT decimal(18,0),  @l_OLD_AMORT_AMT decimal(18,0)

	declare @l_NEW_AMORT_MONTH decimal(18,2), @l_OLD_AMORT_MONTH decimal(18,2)

	declare @l_AMORTIZED_MONTH decimal(18,2), @l_AMORTIZED_AMT decimal(18,0)

	declare @l_SPECIAL_ASS varchar(1)

	DECLARE @l_AMORT_STATUS VARCHAR(15), @L_AMORT_RATE DECIMAL(18,2)

	DECLARE @l_AMORT_START_DATE datetime, @l_AMORT_END_DATE datetime

	DECLARE @l_NEW_FIRST_AMORT_AMT	numeric(18,0), @l_OLD_FIRST_AMORT_AMT	numeric(18,0)

	DECLARE @l_NEW_MONTHLY_AMT 	numeric(18,0), @l_OLD_MONTHLY_AMT 	numeric(18,0) 

	declare @l_GROUP_ID_UPD varchar(1) = 'N'

	declare @l_AMORT_AMT_UPD varchar(1) = 'N', @l_AMORT_MONTH_UPD VARCHAR(1) = 'N'

	declare @l_DO_BRANCH_ID varchar(15)

	DECLARE @l_VALUE_ID varchar(15)

	DECLARE @l_HO_BRN_ID varchar(15)

	declare @l_ET_ID varchar(15)

	DECLARE @sToday varchar(10) = convert(varchar(10), getdate(), 103)

	declare @l_TRN_REF_NO varchar(20)

	DECLARE @l_SUPPEND_GL varchar(50)

	DECLARE @l_ASSET_GL  varchar(50), @l_AMORT_ACCTNO VARCHAR(50)

	declare @l_ASSET_VALUE decimal(18,0)	

	declare @l_CORE_NOTE NVARCHAR(500)

	DECLARE @l_DATE1 DATE,@l_DATE2 DATE

    DECLARE @l_ASSET_CODE VARCHAR(50) -- KHIEMCHG Bo sung ASSETCODE REF cho HACH TOAN

   DECLARE  @l_TRN_NO VARCHAR(15)

IF(EXISTS(SELECT * FROM ASS_UPDATE WHERE AUTH_STATUS ='A' AND  UPDATE_ID=@p_UPDATE_ID))

	BEGIN

				--ROLLBACK TRANSACTION

				SELECT '-1' as Result, '' UPDATE_ID, N'Phiếu cập nhật tài sản đã được duyệt.' ErrorDesc

				RETURN '-1'

	END

EXEC ENTRIES_POST_GEN_NO @p_BRANCH_ID = 'DV0001'

                        ,@p_TRN_DATE = @p_APPROVE_DT

                        ,@p_KeyGen = @l_TRN_NO OUT

	SELECT	@l_ASSET_ID = A.ASSET_ID,

			@l_NEW_GROUP_ID = A.GROUP_ID,

			--@l_NEW_AMORT_MONTH = CASE WHEN M.[TYPE_ID] = 'TSCD' THEN G.AMORT_MONTH ELSE A.AMORT_AMT END,

			@l_NEW_AMORT_MONTH = A.AMORT_MONTH,--THIEUVQ 18/04/2014

			@l_NEW_ASSET_NAME = A.ASSET_NAME,

			@l_NEW_ASSET_SERIAL_NO = A.ASSET_SERIAL_NO,

			@l_NEW_ASSET_DESC = A.ASSET_DESC,

			@l_NEW_BUY_PRICE = A.BUY_PRICE,

			@l_NEW_AMORT_AMT = A.AMORT_AMT, @l_CORE_NOTE = CORE_NOTE,

			@l_MAKER_ID = A.MAKER_ID,

			@l_SUPPEND_GL = A.ACCOUNT_GL

	FROM ASS_UPDATE A

	INNER JOIN ASS_GROUP G on G.GROUP_ID = A.GROUP_ID

	INNER JOIN ASS_MASTER M ON M.ASSET_ID = A.ASSET_ID

	WHERE UPDATE_ID = @p_UPDATE_ID

	SELECT	 

			@l_OLD_GROUP_ID = ISNULL(A.REF_GROUP_ID,A.GROUP_ID),

			@l_OLD_AMORT_MONTH = AMORT_MONTH,

			@l_AMORTIZED_MONTH = AMORTIZED_MONTH,

			--@l_OLD_ASSET_NAME = ASSET_NAME,

			--@l_OLD_ASSET_SERIAL_NO = ASSET_SERIAL_NO,

			--@l_OLD_ASSET_DESC = ASSET_DESC,

			@l_OLD_BUY_PRICE = BUY_PRICE,

			@l_OLD_FIRST_AMORT_AMT = FIRST_AMORT_AMT,

			@l_OLD_MONTHLY_AMT = A.MONTHLY_AMORT_AMT,

			@l_AMORT_START_DATE = AMORT_START_DATE,

			@l_AMORT_END_DATE = AMORT_END_DATE,

			@l_OLD_AMORT_AMT = AMORT_AMT,

			@l_AMORTIZED_AMT = AMORTIZED_AMT,

			@l_SPECIAL_ASS = SPECIAL_ASS,

			@l_TYPE_ID = TYPE_ID,

			@l_AMORT_STATUS = AMORT_STATUS,

			@L_AMORT_RATE = AMORT_RATE,

			@l_BRANCH_CREATE = A.BRANCH_CREATE,

			@l_BRANCH_ID = A.BRANCH_ID,

      @l_DEP_ID=A.DEPT_ID,

            @l_ASSET_CODE = A.ASSET_CODE

	FROM ASS_MASTER A

	WHERE ASSET_ID = @l_ASSET_ID	

	--Lay branch_id cua user duyet

	select @l_DO_BRANCH_ID = a.TLSUBBRID from TL_USER a where a.TLNANME = @p_CHECKER_ID	

	--BRN_ID HOI SO

	SELECT @l_HO_BRN_ID = BRANCH_ID FROM CM_BRANCH A WHERE A.BRANCH_TYPE = 'HS'			

	--Lay suppend GL

	---THAY DOI TAI KHOAN HACH TOAN GL THIEUVQ - 09092016

	--SET @l_SUPPEND_GL = dbo.fn_replace_acctno(UPPER(@l_SUPPEND_GL) + 'XXXX',@l_DO_BRANCH_ID)

	SELECT @l_SUPPEND_GL = A.ParaValue FROM SYS_PARAMETERS A WHERE A.ParaKey='ASSET_SUPPEND_GL'

	--ASSET_GL

	SELECT @l_ASSET_GL = ASSET_ACCTNO, @l_AMORT_ACCTNO = A.AMORT_ACCTNO FROM ASS_GROUP A WHERE A.GROUP_ID = (SELECT AG.PARENT_ID FROM ASS_GROUP AG WHERE AG.GROUP_ID = (SELECT AG.PARENT_ID FROM ASS_GROUP AG WHERE AG.GROUP_ID = @l_OLD_GROUP_ID))

	IF(@l_ASSET_GL IS NULL OR @l_ASSET_GL = '') SET @l_ASSET_GL = (SELECT ASSET_ACCTNO FROM ASS_GROUP WHERE GROUP_ID = @l_OLD_GROUP_ID)

    IF(@l_AMORT_ACCTNO IS NULL OR @l_AMORT_ACCTNO = '') SET @l_AMORT_ACCTNO = (SELECT AMORT_ACCTNO FROM ASS_GROUP WHERE GROUP_ID = @l_OLD_GROUP_ID)

--Validation is here

--Kiem tra so thang khau hao cua nhom moi co lon hon so thang da khau hao ko?

IF (@l_NEW_GROUP_ID <> @l_OLD_GROUP_ID AND @l_NEW_AMORT_MONTH <> @l_OLD_AMORT_MONTH)

BEGIN	

	--IF @l_NEW_AMORT_MONTH <= @l_AMORTIZED_MONTH

	IF @l_NEW_AMORT_MONTH <= @l_AMORTIZED_MONTH AND @l_AMORT_STATUS IN ('CKH','DKH') --thieuvq 18/04/2014

	BEGIN

		--SET @ERRORSYS = 'ASS-00009'		

		--CAP NHAT LẠI NGAY KET THUC KHAU HAO --thieuvq 18/04/2014

		SET @l_DATE1= CONVERT(DATE,'1/'+CONVERT(VARCHAR(10),MONTH(CONVERT(DATE,@p_APPROVE_DT,103)))

								+'/'+CONVERT(VARCHAR(10),YEAR(CONVERT(DATE,@p_APPROVE_DT,103))),103)

		SET @l_DATE2 = CONVERT(DATE,'1/'+CONVERT(VARCHAR(10),MONTH(@l_AMORT_END_DATE))

								+'/'+CONVERT(VARCHAR(10),YEAR(@l_AMORT_END_DATE)),103)

		SET @l_AMORT_END_DATE = DATEADD(MONTH,DATEDIFF(MONTH,@l_DATE2,@l_DATE1),@l_AMORT_END_DATE)

		SET @L_AMORT_RATE = ROUND((100.00/@l_NEW_AMORT_MONTH)*12,2)

	END

	SET @l_GROUP_ID_UPD = 'Y'

END

--Kiem tra gia tri khau hao moi > so tien da khau hao

IF (@l_NEW_AMORT_AMT<=@l_AMORTIZED_AMT AND @l_NEW_AMORT_AMT <> @l_OLD_AMORT_AMT)

BEGIN

	SET @ERRORSYS = 'ASS-00014'	

END

ELSE

BEGIN

	IF (@l_NEW_AMORT_AMT <> @l_OLD_AMORT_AMT)

	BEGIN	

		SET @l_AMORT_AMT_UPD = 'Y'

	END

END

---KIEM TRA SO THANG KHAU HAO MOI NHO HON SO THANG DA KHAU HAO KHONG  - THIEUVQ 210618 ::BEGIN

IF @l_NEW_AMORT_MONTH < @l_AMORTIZED_MONTH

BEGIN

	SET @ERRORSYS = 'ASS-99994'

END

ELSE

BEGIN

	IF @l_NEW_AMORT_MONTH <> @l_OLD_AMORT_MONTH

	SET @l_AMORT_MONTH_UPD = 'Y'

	SET @l_AMORT_END_DATE = DATEADD(MONTH,@l_NEW_AMORT_MONTH,@l_AMORT_START_DATE)

	SET @l_AMORT_END_DATE = DATEADD(DAY,-1,@l_AMORT_END_DATE)

END

-----::END

----NEU THAY DOI SO KY KHAU HAO => KIEM TRA CHO TRUONG HOP CCLD

--IF (@l_GROUP_ID_UPD = 'Y' AND @l_TYPE_ID = 'CCLD')

--BEGIN

--	RETURN 0

--END

--Neu co thay doi gia tri khau hao

--IF (@l_TYPE_ID = 'TSCD' AND @l_AMORT_STATUS IN ('CKH','DKH'))

IF @l_AMORT_STATUS IN ('CKH','DKH')

BEGIN

	IF (@l_AMORT_AMT_UPD = 'Y' OR @l_AMORT_MONTH_UPD = 'Y')

	BEGIN

		IF (@l_AMORTIZED_MONTH = 0) --Chua chay khau hao thi phai tinh lai khau hao cua thang dau tien

		BEGIN

			SET @l_NEW_MONTHLY_AMT = ROUND((@l_NEW_AMORT_AMT - ISNULL(@l_AMORTIZED_AMT,0)) / @l_NEW_AMORT_MONTH, 0)

			SET @l_NEW_FIRST_AMORT_AMT = @l_NEW_MONTHLY_AMT--ROUND(@l_NEW_MONTHLY_AMT/dbo.[FN_GetDaysInMonth](@l_AMORT_START_DATE) * (DATEDIFF(day,@l_AMORT_START_DATE, dbo.FN_GetLastDayOfMonth(@l_AMORT_START_DATE)) + 1), -3)		

		END

		ELSE

		BEGIN

			--thieuvq - sua lai doan tinh khau hao

			--TINH LAI SO KY KHAU HAO TINH THEO NGAY DUYET

			DECLARE @l_KY_KHAU_HAO_CL FLOAT

			--BAN VIET THAY DOI CACH TINH 230119

			--DECLARE @l_NGAY_DUYET DATE = CONVERT(DATE,@p_APPROVE_DT,103)

			----SET @l_NGAY_DUYET = CONVERT(VARCHAR(10),YEAR(@l_NGAY_DUYET)) + '-'+CONVERT(VARCHAR(10),MONTH(@l_NGAY_DUYET)) + '-'+ '1'

			----SET @l_KY_KHAU_HAO_CL = round((datepart(day,@l_AMORT_END_DATE)*1.0/dbo.[FN_GetDaysInMonth](@l_AMORT_END_DATE)),2)

			------THIEUVQ COMMENT 29072015

			------IF @l_KY_KHAU_HAO_CL = 1 SET @l_KY_KHAU_HAO_CL  = DATEDIFF(MM, @l_NGAY_DUYET, @l_AMORT_END_DATE)

			------ELSE 

			--SET @l_KY_KHAU_HAO_CL  = DATEDIFF(MM, @l_NGAY_DUYET, @l_AMORT_END_DATE) --+ @l_KY_KHAU_HAO_CL

			----KIEM TRA THANG DUYET NAY DA CHAY KHAU HAO CHUA, NEU DA CHAY KHAU HAO ROI THI GIAM DI 1 SO KY KH CON LAI

			--IF EXISTS (SELECT * FROM ASS_AMORT WHERE AMORT_TERM = CONVERT(VARCHAR(5),MONTH(@l_NGAY_DUYET))+'/'+CONVERT(VARCHAR(5),YEAR(@l_NGAY_DUYET)) 

			--											AND ASSET_TYPE = 'ALL')

			--											--AND ASSET_TYPE = 'TSCD')

			--BEGIN SET @l_KY_KHAU_HAO_CL = @l_KY_KHAU_HAO_CL - 1 END

			SET @l_KY_KHAU_HAO_CL = /*@l_OLD_AMORT_MONTH*/ @l_NEW_AMORT_MONTH - @l_AMORTIZED_MONTH

			--SET @l_NEW_MONTHLY_AMT = ROUND((@l_NEW_AMORT_AMT - @l_AMORTIZED_AMT)/ @l_NEW_AMORT_MONTH, -3)

			SET @l_NEW_MONTHLY_AMT = ROUND((@l_NEW_AMORT_AMT - @l_AMORTIZED_AMT)/ @l_KY_KHAU_HAO_CL, 0)

			SET @l_NEW_FIRST_AMORT_AMT = @l_OLD_FIRST_AMORT_AMT

		END

		print 'Y'

	END

	ELSE 

	BEGIN

		SET @l_NEW_FIRST_AMORT_AMT = @l_OLD_FIRST_AMORT_AMT

		SET @l_NEW_MONTHLY_AMT= @l_OLD_MONTHLY_AMT

		print 'N'

	END

END

ELSE 

BEGIN

	--THIEUVQ- DIEPTT 03092015 TRUONG HOP KHAU HAO XONG NHUNG TANG NGUYEN GIA

	--BAT LAI TINH TRANG TAI SAN DANG KHAU HAO VA SE KHAU HAO HET VAO THANG NAY

	IF (@l_AMORT_AMT_UPD = 'Y')

	BEGIN

		SET @l_AMORT_END_DATE = CONVERT(DATETIME,@p_APPROVE_DT,103)

		--KIEM TRA NEU NGAY DIEU CHINH DA CHAY KHAU HAO ROI THI CHUYEN KHAU HAO HET VAO THANG SAU

		IF EXISTS (SELECT * FROM ASS_AMORT WHERE AMORT_TERM = CONVERT(VARCHAR(5),MONTH(@l_AMORT_END_DATE))+'/'+CONVERT(VARCHAR(5),YEAR(@l_AMORT_END_DATE)) 

														AND ASSET_TYPE = 'ALL')

		BEGIN			

			SET @l_AMORT_END_DATE = DATEADD(MM,1,@l_AMORT_END_DATE )

		END		

		SET @l_AMORT_STATUS = 'DKH'

	END

	SET @l_NEW_FIRST_AMORT_AMT = @l_OLD_FIRST_AMORT_AMT

	SET @l_NEW_MONTHLY_AMT= @l_OLD_MONTHLY_AMT

	print 'N'

END

IF @ERRORSYS <> '' 

BEGIN

	SELECT ErrorCode Result, ErrorDesc ErrorDesc FROM SYS_ERROR WHERE ErrorCode = @ERRORSYS

	RETURN '0'

END 

BEGIN TRANSACTION

	--Move to history	

	--Phat sinh Asset_ID

	EXEC SYS_CodeMasters_Gen 'ASS_MASTER_HIST', @l_ASSHIST_ID out

	INSERT INTO ASS_MASTER_HIST 

		SELECT @l_ASSHIST_ID, a.*

		FROM ASS_MASTER a

		where a.ASSET_ID = @l_ASSET_ID

	UPDATE ASS_MASTER

	SET

		ASSET_NAME = @l_NEW_ASSET_NAME,

		ASSET_DESC = @l_NEW_ASSET_DESC,

		ASSET_SERIAL_NO = @l_NEW_ASSET_SERIAL_NO,

		BUY_PRICE	= @l_NEW_BUY_PRICE,

		AMORT_AMT = @l_NEW_AMORT_AMT,

		FIRST_AMORT_AMT = @l_NEW_FIRST_AMORT_AMT,

		MONTHLY_AMORT_AMT = @l_NEW_MONTHLY_AMT,		

		APPROVE_DT = CONVERT(DATETIME, @p_APPROVE_DT, 103),

		AMORT_END_DATE = @l_AMORT_END_DATE, -- thieuvq them 18/04/2014

		AMORT_MONTH = @l_NEW_AMORT_MONTH,

		AMORT_RATE = @L_AMORT_RATE,

		--THIEUVQ 03092015

		AMORT_STATUS = @l_AMORT_STATUS

	WHERE ASSET_ID = @l_ASSET_ID

-- SỐ TIỀN CẶP BÚT TOÁN SAU KHI GIẢM NGUYÊN GIÁ

    DECLARE @MONTH_OLD_AMORT DECIMAL= (SELECT COUNT(*) FROM ASS_AMORT_DT AAD WHERE YEAR(AAD.AMORT_DT) <> YEAR(CONVERT(DATETIME,@p_APPROVE_DT,103)) AND AAD.ASSET_ID = @l_ASSET_ID)

    DECLARE @MONTH_NEW_AMORT DECIMAL= (SELECT COUNT(*) FROM ASS_AMORT_DT AAD WHERE YEAR(AAD.AMORT_DT) = YEAR(CONVERT(DATETIME,@p_APPROVE_DT,103)) AND AAD.ASSET_ID = @l_ASSET_ID)

    DECLARE @AMT_OLD_AMORT DECIMAL= (SELECT SUM(AAD.AMORT_AMT) FROM ASS_AMORT_DT AAD WHERE YEAR(AAD.AMORT_DT) <> YEAR(CONVERT(DATETIME,@p_APPROVE_DT,103)) AND AAD.ASSET_ID = @l_ASSET_ID)

    DECLARE @_NEW_AMT_AMORT DECIMAL(18,2)

    DECLARE @_NEW_AMT_AMORT_RE DECIMAL(18,2)

    DECLARE @_NEW_AMT_AMORT_RENEW DECIMAL(18,2)

    DECLARE @_NEW_AMT_AMORT_OLD DECIMAL(18,2)

    DECLARE @_NEW_AMT_AMORT_LAST DECIMAL(18,2)

    DECLARE @_NUM_AMT_AMORT_DT DECIMAL(18,2)

    DECLARE @_CUR_DATE DECIMAL(18,2) = CAST((DAY(CONVERT(DATETIME,@p_APPROVE_DT,103))) AS DECIMAL) + 0.00

    DECLARE @_END_OF_MONTH DECIMAL(18,2) = DAY(dbo.FN_GetLastDayOfMonth(CONVERT(DATETIME,@p_APPROVE_DT,103)))

    --- KHẤU HAO LUỸ KẾ 

    DECLARE @KH_CUM DECIMAL(18,2) = (SELECT ISNULL(AM.AMORTIZED_AMT,0) FROM ASS_MASTER AM WHERE AM.ASSET_ID = @l_ASSET_ID)

    IF(YEAR(@l_AMORT_START_DATE) <> YEAR(CONVERT(DATETIME,@p_APPROVE_DT,103)))

    BEGIN

        -- Số tiền trích khấu hao của tháng mới theo nguyên giá mới

        SET @_NEW_AMT_AMORT = ROUND((@l_NEW_BUY_PRICE - @AMT_OLD_AMORT)/(@l_NEW_AMORT_MONTH-@MONTH_OLD_AMORT),0) 

    END

    ELSE 

    BEGIN

        SET @_NEW_AMT_AMORT = ROUND((@l_NEW_BUY_PRICE - @KH_CUM)/@l_KY_KHAU_HAO_CL,0)

    END  

    -- Số tiền khấu hao theo tháng tròn hiện tại

    SELECT @_NEW_AMT_AMORT_RE = AA.TOTAL_AMT FROM ASS_AMORT_DT AAD 

    LEFT JOIN ASS_AMORT AA ON AAD.AMORT_ID = AA.AMORT_ID

    WHERE AAD.ASSET_ID = @l_ASSET_ID AND AA.IS_LEAF = 'Y'

    IF(@_NEW_AMT_AMORT_RE IS NULL OR @_NEW_AMT_AMORT_RE = 0)

    SET @_NEW_AMT_AMORT_RE = (SELECT ISNULL(AM.AMORTIZED_AMT,0) FROM ASS_MASTER AM WHERE AM.ASSET_ID = @l_ASSET_ID)

    -- Số ngày khấu hao còn lại trong khác sau khi update tăng giảm

    SET @_NUM_AMT_AMORT_DT = (@_END_OF_MONTH - @_CUR_DATE) + 1.00

    -- Số tiền khấu hao theo số ngày còn lại của nguyên giá mới VD: Giảm tài sản A 10tr vào ngày 25-03-2023 thì tính đến cuối tháng là (31 - 25) + (ngày 25 hiện tại) = 7 ngày

    --SET @_NEW_AMT_AMORT_RENEW = ROUND(@_NEW_AMT_AMORT/@_END_OF_MONTH,0)*@_NUM_AMT_AMORT_DT

    SET @_NEW_AMT_AMORT_RENEW = ROUND((@_NEW_AMT_AMORT-@l_OLD_MONTHLY_AMT)*@MONTH_NEW_AMORT,0)

    -- Số tiền khấu hao cũ theo ngày còn lại

    --SET @_NEW_AMT_AMORT_OLD = ROUND(@_NEW_AMT_AMORT_RE/@_END_OF_MONTH, 0)*@_NUM_AMT_AMORT_DT

    -- Số tiền trích khấu hao cho cặp hạch toán phát sinh tăng giảm

    --SET @_NEW_AMT_AMORT_LAST = ROUND(@_NEW_AMT_AMORT_OLD - @_NEW_AMT_AMORT_RENEW,0)

    IF (@l_NEW_BUY_PRICE <> @l_OLD_BUY_PRICE) --TANG NGUYEN GIA

	BEGIN

        SET @_NEW_AMT_AMORT_LAST = @_NEW_AMT_AMORT_RENEW

        UPDATE ASS_MASTER SET MONTHLY_AMORT_AMT = ISNULL(@_NEW_AMT_AMORT, @l_NEW_MONTHLY_AMT) WHERE ASSET_ID = @l_ASSET_ID

        IF(@_NEW_AMT_AMORT_LAST < 0) SET @_NEW_AMT_AMORT_LAST = -@_NEW_AMT_AMORT_LAST

    END

--HẠCH TOÁN TĂNG GIẢM NGUYÊN GIÁ 

     DECLARE @AC_TSCD VARCHAR(20) 

   IF(EXISTS(SELECT am.ASSET_ID FROM ASS_MASTER am WHERE am.ASSET_ID=@l_ASSET_ID AND am.ENTRY_BOOKED='Y'))

   BEGIN

      SET @AC_TSCD= (SELECT EPA.ACC_NO FROM ENTRIES_POST_ACCNO EPA WHERE EPA.ACC_TYPE = 'ASSET_TSCD' AND EPA.GROUP_ID = (SELECT AG.PARENT_ID FROM ASS_GROUP AG WHERE AG.GROUP_ID = (SELECT AG.PARENT_ID FROM ASS_GROUP AG WHERE AG.GROUP_ID = @l_OLD_GROUP_ID)))

      IF(@AC_TSCD IS NULL OR @AC_TSCD = '') 

        SET @AC_TSCD = (SELECT ACC_NO FROM ENTRIES_POST_ACCNO WHERE ACC_TYPE ='ASSET_TSCD' AND GROUP_ID = @l_OLD_GROUP_ID)

   END

   ELSE

   BEGIN

      SET @AC_TSCD = (SELECT epa.ACC_NO FROM ENTRIES_POST_ACCNO epa WHERE epa.ACC_TYPE='BUY_TSCD' AND epa.GROUP_ID=(SELECT AG.PARENT_ID FROM ASS_GROUP AG WHERE AG.GROUP_ID = (SELECT AG.PARENT_ID FROM ASS_GROUP AG WHERE AG.GROUP_ID = @l_OLD_GROUP_ID)))

      IF(@AC_TSCD IS NULL OR @AC_TSCD = '') 

        SET @AC_TSCD = (SELECT ACC_NO FROM ENTRIES_POST_ACCNO WHERE ACC_TYPE ='BUY_TSCD' AND GROUP_ID = @l_OLD_GROUP_ID)

  END

  DECLARE @AC_HS_MAIN VARCHAR(20) = (SELECT EPA.ACC_NO FROM ENTRIES_POST_ACCNO EPA WHERE EPA.ACC_TYPE = 'PAY_HS')

    DECLARE @l_EXP_ACCTNO VARCHAR(20), @l_AMORT_BASIC VARCHAR(20)

    DECLARE  @l_ETP_ID VARCHAR(20),@l_D_BRANCH_CODE VARCHAR(25) , @l_C_BRANCH_CODE VARCHAR(25), @l_AC_BRANCH_CODE VARCHAR(25),@l_DEP_CODE VARCHAR(25)

	--BRN_ID HOI SO

	SELECT @l_HO_BRN_ID = BRANCH_ID FROM CM_BRANCH A WHERE A.BRANCH_TYPE = 'HS'

          SET @l_C_BRANCH_CODE = (SELECT cb.BRANCH_CODE FROM CM_BRANCH cb WHERE cb.BRANCH_ID=@l_HO_BRN_ID)

          SET @l_D_BRANCH_CODE = (SELECT cb.BRANCH_CODE FROM CM_BRANCH cb WHERE cb.BRANCH_ID=@l_BRANCH_CREATE)

          SET @l_DEP_CODE =(SELECT cd.DEP_CODE FROM CM_DEPARTMENT cd WHERE cd.DEP_ID=@l_DEP_ID)

    --ASSET_GL

	SELECT @l_ASSET_GL = ASSET_ACCTNO,

			@l_AMORT_BASIC = EXP_ACCTNO,

			@l_AMORT_ACCTNO = AMORT_ACCTNO

	FROM ASS_GROUP A 

	WHERE A.GROUP_ID = @l_OLD_GROUP_ID

	--Neu co thay doi nguyen gia

	IF (@l_NEW_BUY_PRICE <> @l_OLD_BUY_PRICE)

	BEGIN

		DECLARE @AMT DECIMAL(18,0) 

		DECLARE @BRN_ID VARCHAR(15)

		IF @l_BRANCH_ID IS NULL OR @l_BRANCH_ID = ''

			SET @BRN_ID = @l_BRANCH_CREATE

		ELSE SET @BRN_ID = @l_BRANCH_ID

          SET @l_AC_BRANCH_CODE = (SELECT cb.BRANCH_CODE FROM CM_BRANCH cb WHERE cb.BRANCH_ID=@BRN_ID)

        DECLARE @NOTE_AMORT NVARCHAR(500) = N'KHAU HAO TSCD TRICH NGUYEN GIA TANG'

        DECLARE @NOTE_AMORT2 NVARCHAR(500) = N'KHAU HAO TSCD TRICH NGUYEN GIA GIAM'

		IF (@l_NEW_BUY_PRICE > @l_OLD_BUY_PRICE) --TANG NGUYEN GIA

		BEGIN

				SET @AMT = @l_NEW_BUY_PRICE - @l_OLD_BUY_PRICE

				--insert dbo.ASS_VALUES

				EXEC SYS_CodeMasters_Gen 'ASS_VALUES', @l_VALUE_ID out

				INSERT INTO ASS_VALUES

				(

					VALUE_ID, ASSET_ID, BRANCH_ID, TRN_DT, CRDR, ASSET_AMT, [DESCRIPTION], TRN_ID, TRN_TYPE,

					RECORD_STATUS, AUTH_STATUS, MAKER_ID, CREATE_DT, CHECKER_ID, APPROVE_DT, AMORT_AMT

				)

				VALUES

				(

					@l_VALUE_ID, @l_ASSET_ID, @BRN_ID, CONVERT(datetime, @sToday, 103), 'C', @AMT, N'DIEU CHINH TSCD/CCLD', @p_UPDATE_ID, 'ASS_UPDATE',

					'1','A',@l_MAKER_ID, CONVERT(datetime, @sToday, 103), @p_CHECKER_ID, CONVERT(datetime, @sToday, 103), @l_NEW_AMORT_AMT - @l_OLD_AMORT_AMT

				)

				IF @l_TYPE_ID = 'TSCD'

				BEGIN

				--NO ASSET_ACCTNO - CO ASSET_SUPPEND_GL: GIA TRI CHENH LECH

					EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ASS_UPDATE', @p_UPDATE_ID,@l_DO_BRANCH_ID, @l_SUPPEND_GL, @BRN_ID, @l_ASSET_GL, @BRN_ID,@AMT ,'Y',

					@sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID,@p_UPDATE_ID, --N'XUAT SU DUNG TSCD/CCLD'

					@l_ET_ID OUT

					--IF @ERROR <> 0 GOTO ABORT_ERROR

                  -- TSCD

                  EXEC SYS_CodeMasters_Gen 'ASS_ENTRIES_POST_SYNC', @l_ETP_ID out

                  INSERT INTO ASS_ENTRIES_POST_SYNC (ETP_ID, ET_ID, TRN_ID, AC_BRANCH, AC_NO, AC_CCY, DRCR_IND, FCY_AMOUNT, EXCH_RATE, LCY_AMOUNT, RELATED_REFERENCE, TRN_DT, USER_ID, AUTH_ID, DEPT_CD, DESC_TRANS,TRN_NO)

                  VALUES (@l_ETP_ID, @l_ET_ID,@p_UPDATE_ID ,@l_AC_BRANCH_CODE , @AC_TSCD, 'VND', 'D', @AMT,1, @AMT, @l_ASSET_CODE,CONVERT(DATETIME, @p_APPROVE_DT, 103), @l_MAKER_ID, @p_CHECKER_ID, @l_DEP_CODE, @l_CORE_NOTE,@l_TRN_NO);

                  -- TRẢ HỘI SỞ

                  EXEC SYS_CodeMasters_Gen 'ASS_ENTRIES_POST_SYNC', @l_ETP_ID out

                  INSERT INTO ASS_ENTRIES_POST_SYNC (ETP_ID, ET_ID, TRN_ID, AC_BRANCH, AC_NO, AC_CCY, DRCR_IND, FCY_AMOUNT, EXCH_RATE, LCY_AMOUNT, RELATED_REFERENCE, TRN_DT, USER_ID, AUTH_ID, DEPT_CD, DESC_TRANS,TRN_NO)

                  VALUES (@l_ETP_ID, @l_ET_ID,@p_UPDATE_ID ,@l_C_BRANCH_CODE , @AC_HS_MAIN, 'VND', 'C', @AMT,1, @AMT, @l_ASSET_CODE,CONVERT(DATETIME, @p_APPROVE_DT, 103), @l_MAKER_ID, @p_CHECKER_ID, @l_DEP_CODE, @l_CORE_NOTE,@l_TRN_NO);

                  --ĐỒNG THỜI TRÍCH BỔ SUNG SỐ TRÍCH KHẤU HAO TRONG NĂM HIỆN HÀNH

                  IF(@_NEW_AMT_AMORT_LAST IS NOT NULL AND @_NEW_AMT_AMORT_LAST <> 0)

                  BEGIN

                  EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ASS_UPDATE', @p_UPDATE_ID,@l_DO_BRANCH_ID, @l_SUPPEND_GL, @BRN_ID, @l_ASSET_GL, @BRN_ID,@AMT ,'Y',

					@sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID,@p_UPDATE_ID, --N'XUAT SU DUNG TSCD/CCLD'

					@l_ET_ID OUT

                  -- Chi phí KH cơ bản

                  EXEC SYS_CodeMasters_Gen 'ASS_ENTRIES_POST_SYNC', @l_ETP_ID out

                  INSERT INTO ASS_ENTRIES_POST_SYNC (ETP_ID, ET_ID, TRN_ID, AC_BRANCH, AC_NO, AC_CCY, DRCR_IND, FCY_AMOUNT, EXCH_RATE, LCY_AMOUNT, RELATED_REFERENCE, TRN_DT, USER_ID, AUTH_ID, DEPT_CD, DESC_TRANS,TRN_NO)

                  VALUES (@l_ETP_ID, @l_ET_ID,@p_UPDATE_ID ,@l_AC_BRANCH_CODE , @l_AMORT_BASIC, 'VND', 'D', @_NEW_AMT_AMORT_LAST,1, @_NEW_AMT_AMORT_LAST, @l_ASSET_CODE,CONVERT(DATETIME, @p_APPROVE_DT, 103), NULL, NULL, @l_DEP_CODE, @NOTE_AMORT,@l_TRN_NO);

                  -- Hao mòn TSCD

                  EXEC SYS_CodeMasters_Gen 'ASS_ENTRIES_POST_SYNC', @l_ETP_ID out

                  INSERT INTO ASS_ENTRIES_POST_SYNC (ETP_ID, ET_ID, TRN_ID, AC_BRANCH, AC_NO, AC_CCY, DRCR_IND, FCY_AMOUNT, EXCH_RATE, LCY_AMOUNT, RELATED_REFERENCE, TRN_DT, USER_ID, AUTH_ID, DEPT_CD, DESC_TRANS,TRN_NO)

                  VALUES (@l_ETP_ID, @l_ET_ID,@p_UPDATE_ID ,@l_C_BRANCH_CODE , @l_AMORT_ACCTNO, 'VND', 'C', @_NEW_AMT_AMORT_LAST,1, @_NEW_AMT_AMORT_LAST, @l_ASSET_CODE,CONVERT(DATETIME, @p_APPROVE_DT, 103), NULL, NULL, @l_DEP_CODE, @NOTE_AMORT,@l_TRN_NO);

                 END 

				END

--				ELSE IF @l_TYPE_ID = 'CCLD'

--				BEGIN

--				--NO ASSET_ACCTNO - CO ASSET_SUPPEND_GL: GIA TRI CHENH LECH

--					EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ASS_UPDATE', @p_UPDATE_ID,@l_DO_BRANCH_ID, @l_SUPPEND_GL, @BRN_ID, @l_AMORT_ACCTNO, @BRN_ID,@AMT ,'Y',

--					@sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID,@p_UPDATE_ID, --N'XUAT SU DUNG TSCD/CCLD'

--					@l_ET_ID OUT

--					--IF @ERROR <> 0 GOTO ABORT_ERROR

--				END								

		END

		ELSE --GIAM NGUYEN GIA

		BEGIN

				SET @AMT = @l_OLD_BUY_PRICE - @l_NEW_BUY_PRICE

				--insert dbo.ASS_VALUES

				EXEC SYS_CodeMasters_Gen 'ASS_VALUES', @l_VALUE_ID out

				INSERT INTO ASS_VALUES

				(

					VALUE_ID, ASSET_ID, BRANCH_ID, TRN_DT, CRDR, ASSET_AMT, [DESCRIPTION], TRN_ID, TRN_TYPE,

					RECORD_STATUS, AUTH_STATUS, MAKER_ID, CREATE_DT, CHECKER_ID, APPROVE_DT, AMORT_AMT

				)

				VALUES

				(

					@l_VALUE_ID, @l_ASSET_ID, @l_HO_BRN_ID, CONVERT(datetime, @sToday, 103), 'D', @l_OLD_BUY_PRICE - @l_NEW_BUY_PRICE, N'DIEU CHINH TSCD/CCLD', @p_UPDATE_ID, 'ASS_UPDATE',

					'1','A',@l_MAKER_ID, CONVERT(datetime, @sToday, 103), @p_CHECKER_ID, CONVERT(datetime, @sToday, 103), @l_NEW_AMORT_AMT - @l_OLD_AMORT_AMT

				)

				IF @l_TYPE_ID = 'TSCD'

				BEGIN

				--NO ASSET_SUPPEND_GL - CO ASSET_ACCTNO: GIA TRI CHENH LECH

					EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ASS_UPDATE', @p_UPDATE_ID,@l_DO_BRANCH_ID, @l_ASSET_GL, @BRN_ID, @l_SUPPEND_GL , @BRN_ID,@AMT ,'Y',

					@sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID,@p_UPDATE_ID, --N'XUAT SU DUNG TSCD/CCLD'

						@l_ET_ID OUT

					--IF @ERROR <> 0 GOTO ABORT_ERROR

                     -- TRẢ HỘI SỞ

                  EXEC SYS_CodeMasters_Gen 'ASS_ENTRIES_POST_SYNC', @l_ETP_ID out

                  INSERT INTO ASS_ENTRIES_POST_SYNC (ETP_ID, ET_ID, TRN_ID, AC_BRANCH, AC_NO, AC_CCY, DRCR_IND, FCY_AMOUNT, EXCH_RATE, LCY_AMOUNT, RELATED_REFERENCE, TRN_DT, USER_ID, AUTH_ID, DEPT_CD, DESC_TRANS,TRN_NO)

                  VALUES (@l_ETP_ID, @l_ET_ID,@p_UPDATE_ID ,@l_C_BRANCH_CODE , @AC_HS_MAIN, 'VND', 'D', @AMT,1, @AMT, @l_ASSET_CODE,CONVERT(DATETIME, @p_APPROVE_DT, 103), @l_MAKER_ID, @p_CHECKER_ID, @l_DEP_CODE, @l_CORE_NOTE,@l_TRN_NO);

                  -- TSCD

                  EXEC SYS_CodeMasters_Gen 'ASS_ENTRIES_POST_SYNC', @l_ETP_ID out

                  INSERT INTO ASS_ENTRIES_POST_SYNC (ETP_ID, ET_ID, TRN_ID, AC_BRANCH, AC_NO, AC_CCY, DRCR_IND, FCY_AMOUNT, EXCH_RATE, LCY_AMOUNT, RELATED_REFERENCE, TRN_DT, USER_ID, AUTH_ID, DEPT_CD, DESC_TRANS,TRN_NO)

                  VALUES (@l_ETP_ID, @l_ET_ID,@p_UPDATE_ID ,@l_AC_BRANCH_CODE , @AC_TSCD, 'VND', 'C', @AMT,1, @AMT, @l_ASSET_CODE,CONVERT(DATETIME, @p_APPROVE_DT, 103), @l_MAKER_ID, @p_CHECKER_ID, @l_DEP_CODE, @l_CORE_NOTE,@l_TRN_NO);

--                 

                  --ĐỒNG THỜI LẬP HẠCH TOÁN ĐIỀU CHỈNH GIẢM SỐ TRÍCH KHẤU HAO TRONG NĂM HIỆN HÀNH

                   IF(@_NEW_AMT_AMORT_LAST IS NOT NULL AND @_NEW_AMT_AMORT_LAST <> 0)

                  BEGIN

                  EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ASS_UPDATE', @p_UPDATE_ID,@l_DO_BRANCH_ID, @l_ASSET_GL, @BRN_ID, @l_SUPPEND_GL , @BRN_ID,@AMT ,'Y',

					@sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID,@p_UPDATE_ID, --N'XUAT SU DUNG TSCD/CCLD'

						@l_ET_ID OUT

                  -- Hao mòn TSCD

                  EXEC SYS_CodeMasters_Gen 'ASS_ENTRIES_POST_SYNC', @l_ETP_ID out

                  INSERT INTO ASS_ENTRIES_POST_SYNC (ETP_ID, ET_ID, TRN_ID, AC_BRANCH, AC_NO, AC_CCY, DRCR_IND, FCY_AMOUNT, EXCH_RATE, LCY_AMOUNT, RELATED_REFERENCE, TRN_DT, USER_ID, AUTH_ID, DEPT_CD, DESC_TRANS,TRN_NO)

                  VALUES (@l_ETP_ID, @l_ET_ID,@p_UPDATE_ID ,@l_C_BRANCH_CODE , @l_AMORT_ACCTNO, 'VND', 'D', @_NEW_AMT_AMORT_LAST,1, @_NEW_AMT_AMORT_LAST, @l_ASSET_CODE,CONVERT(DATETIME, @p_APPROVE_DT, 103), NULL, NULL, @l_DEP_CODE, @NOTE_AMORT2,@l_TRN_NO);

                  -- Chi phí KH cơ bản

                  EXEC SYS_CodeMasters_Gen 'ASS_ENTRIES_POST_SYNC', @l_ETP_ID out

                  INSERT INTO ASS_ENTRIES_POST_SYNC (ETP_ID, ET_ID, TRN_ID, AC_BRANCH, AC_NO, AC_CCY, DRCR_IND, FCY_AMOUNT, EXCH_RATE, LCY_AMOUNT, RELATED_REFERENCE, TRN_DT, USER_ID, AUTH_ID, DEPT_CD, DESC_TRANS,TRN_NO)

                  VALUES (@l_ETP_ID, @l_ET_ID,@p_UPDATE_ID ,@l_AC_BRANCH_CODE , @l_AMORT_BASIC, 'VND', 'C', @_NEW_AMT_AMORT_LAST,1, @_NEW_AMT_AMORT_LAST, @l_ASSET_CODE,CONVERT(DATETIME, @p_APPROVE_DT, 103), NULL, NULL, @l_DEP_CODE, @NOTE_AMORT2,@l_TRN_NO);

                  END

				END

--				ELSE IF @l_TYPE_ID = 'CCLD'

--				BEGIN

--				--NO ASSET_SUPPEND_GL - CO ASSET_ACCTNO: GIA TRI CHENH LECH

--					EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ASS_UPDATE', @p_UPDATE_ID,@l_DO_BRANCH_ID, @l_AMORT_ACCTNO, @BRN_ID, @l_SUPPEND_GL , @BRN_ID,@AMT ,'Y',

--					@sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID,@p_UPDATE_ID, --N'XUAT SU DUNG TSCD/CCLD'

--					@ERROR OUT

--					--IF @ERROR <> 0 GOTO ABORT_ERROR					

--				END

		END

	END

	UPDATE ASS_UPDATE 

	SET 

		AUTH_STATUS = @P_AUTH_STATUS, 

		CHECKER_ID = @p_CHECKER_ID, 

		APPROVE_DT = CONVERT(DATETIME,@p_APPROVE_DT,103)

	WHERE UPDATE_ID = @p_UPDATE_ID

	UPDATE PL_PROCESS SET PROCESS_ID='UPDATE_NT' WHERE REQ_ID = @p_UPDATE_ID AND PROCESS_ID ='UPDATE'

	INSERT INTO dbo.PL_PROCESS

		(

			REQ_ID,

			PROCESS_ID,

			CHECKER_ID,

			APPROVE_DT,

			PROCESS_DESC,NOTES

		)

		VALUES

		(   @p_UPDATE_ID,        -- REQ_ID - varchar(15)

			'APPROVE',        -- PROCESS_ID - varchar(10)

			@p_CHECKER_ID,        -- CHECKER_ID - varchar(15)

			GETDATE(), -- APPROVE_DT - datetime

			N'Phê duyệt phiếu cập nhật tài sản thành công' ,

			N'Phê duyệt phiếu cập nhật tài sản'      -- PROCESS_DESC - nvarchar(1000)

		)

END TRY

BEGIN CATCH	

	IF @@TRANCOUNT>0

		ROLLBACK TRANSACTION

	SELECT '-1' as Result,  convert(varchar(100),ERROR_NUMBER()) + ' - ' + ERROR_MESSAGE() ErrorDesc

	RETURN '-1'		

END CATCH;

IF @@TRANCOUNT>0

	COMMIT TRANSACTION

SELECT '0' as Result, '' ErrorDesc

RETURN '-1'	

ABORT_ERROR:

BEGIN

	IF @@TRANCOUNT>0

		ROLLBACK TRANSACTION

	SELECT '-1' as Result,  convert(varchar(100),ERROR_NUMBER()) + ' - ' + ERROR_MESSAGE() + @ERROR ErrorDesc

	RETURN '-1'		

END