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

CREATE PROCEDURE [dbo].[ASS_ADDNEW_KT_BVB_Appr]

@p_ADDNEW_ID VARCHAR(15) = NULL,

@p_CHECKER_ID varchar(15) = NULL,

@p_APPROVE_DT VARCHAR(20) = NULL

AS

DECLARE @l_SUP_ID varchar(15)

DECLARE @l_BUY_DATE datetime = NULL

DECLARE @l_TYPE_ID varchar(15) = NULL

DECLARE @l_GROUP_ID varchar(15) = NULL

DECLARE @l_ASSET_NAME nvarchar(1000) = NULL

DECLARE @l_ASSET_SERIAL_NO nvarchar(max) = NULL

DECLARE @l_ASSET_DESC nvarchar(max) = NULL

DECLARE @l_BRANCH_ID varchar(15) = NULL

DECLARE @l_DEPT_ID varchar(15) = NULL

DECLARE @l_EMP_ID varchar(15) = NULL

DECLARE @l_DIVISION_ID varchar(15) = NULL

DECLARE @l_BUY_PRICE decimal(18) = NULL

DECLARE @l_AMORT_AMT decimal(18) = NULL

DECLARE @l_AMORT_MONTH decimal(18,2) = NULL

DECLARE @l_AMORT_RATE decimal(18,2) = NULL

DECLARE @l_IS_MULTIPLE varchar(1) = NULL

DECLARE @l_QTY int = NULL

DECLARE @l_PO_ID varchar(15) = NULL

DECLARE @l_PD_ID varchar(15) = NULL

DECLARE @l_REF_ASSET_ID varchar(15) = NULL

DECLARE @l_REF_AMORTIZED_AMT decimal(18) = NULL

DECLARE @l_WARRANTY_MONTHS int = NULL

DECLARE @l_NOTES nvarchar(1000) = NULL

DECLARE @l_CORE_NOTE nvarchar(500) = NULL

declare @l_ENTRY_BOOKED varchar(1) = null

DECLARE @l_MAKER_ID varchar(15)

DECLARE @l_AUTH_STATUS_KT varchar(1)

declare @l_DO_BRANCH_ID varchar(15)

DECLARE @l_CONSTRUCT_ID varchar(15) = NULL

DECLARE @l_USE_DATE_KT DATETIME = NULL

DECLARE @l_AMORTIZED_AMT DECIMAL = 0

DECLARE @l_AMORTIZED_MONTH DECIMAL = 0

DECLARE @l_AMORT_STATUS nvarchar(20)

DECLARE @l_AMORT_START_DATE datetime, @l_AMORT_END_DATE datetime

DECLARE @l_FIRST_AMORT_AMT numeric(18,0)

DECLARE @l_MONTHLY_AMT numeric(18,0)

DECLARE @l_HO_BRN_ID varchar(15)

DECLARE @l_WAH_ID varchar(15)

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

DECLARE @l_USE_DATE varchar(15)

DECLARE @l_AMORTDT_ID VARCHAR(15) = NULL

DECLARE @l_ASS_TYPE varchar(1) = '1'

declare @l_TRN_REF_NO varchar(20)

DECLARE @l_ET_ID varchar(15)

DECLARE @l_VALUE_ID varchar(15)

DECLARE @l_ASSET_ID varchar(15)

DECLARE @l_ASSET_CODE nvarchar(100)

DECLARE @l_WAHDT_ID varchar(15)

DECLARE @l_LOCHIST_ID varchar(15)

DECLARE @PRICE_NONE_VAT DECIMAL(18,0)

DECLARE @PRICE_VAT DECIMAL(18,0)

DECLARE @l_SUPPEND_GL varchar(50)

DECLARE @l_ASSET_GL varchar(50)

declare @l_ASSET_VALUE decimal(18,0)

DECLARE @l_EXP_ACCTNO varchar(50)--TK CHI PHI

DECLARE @l_AMORT_ACCTNO varchar(50)--TK CHO PHAN BO

DECLARE @l_DR_BRANCH VARCHAR(15) -- DV GHI NO

DECLARE @ERRORSYS NVARCHAR(15) = ''

DECLARE @ACCOUNT_GL VARCHAR(50), @ACCOUNT_VAT VARCHAR(50)

DECLARE @i INT, @l_USE_DATE_CUR DATETIME = NULL

DECLARE @l_CURR_AMORT_AMT DECIMAL(18,0) = 0

DECLARE @sExecDT DATETIME

DECLARE @l_AMORT_TERM VARCHAR(500), @l_AMORT_DESC VARCHAR(500)

DECLARE @l_OLD_QT INT, @l_CUR_QT INT -- 26/12/2014 THIEUVQ

DECLARE @l_IS_AMORT_WR VARCHAR(1) = '1' --THIEUVQ 27/07/2015 THEM DIEU KIEN KIEM TRA KHI NAO GHI NHAN KHAU HAO

DECLARE @l_BRANCH_CREATE VARCHAR(15), @BRN_TYPE_TRN VARCHAR(15), @BRN_TYPE_REC VARCHAR(15), @TCCT_TRN_ACCTNO VARCHAR(50), @TCCT_REC_ACCTNO VARCHAR(50)

DECLARE @l_VAT DECIMAL(18,0), @ERROR NVARCHAR(500) = ''

DECLARE @l_DEP_CODE VARCHAR(15) DECLARE @l_COST_MASTER_ID VARCHAR(15) DECLARE @l_COSTDT_ID VARCHAR(15)

DECLARE @CUR_DATE DATETIME = GETDATE()

--lay thong tin giao dich

SELECT @l_BUY_DATE = BUY_DATE, @l_TYPE_ID = A.[TYPE_ID], @l_GROUP_ID = A.GROUP_ID, @l_ASSET_NAME = ASSET_NAME,

@l_ASSET_SERIAL_NO = ASSET_SERIAL_NO, @l_ASSET_DESC = ASSET_DESC, @l_CONSTRUCT_ID = CONSTRUCT_ID,

@l_BRANCH_ID = BRANCH_ID, @l_DEPT_ID = DEPT_ID, @l_EMP_ID = EMP_ID, @l_DIVISION_ID = DIVISION_ID,

@l_BUY_PRICE = BUY_PRICE, @l_AMORT_AMT = AMORT_AMT, @l_AMORT_START_DATE = AMORT_START_DATE,

@l_AMORT_MONTH = A.AMORT_MONTH,

--@l_AMORT_MONTH = CASE WHEN G.AMORT_MONTH<>0 THEN G.AMORT_MONTH ELSE A.AMORT_MONTH END,

@l_AMORT_RATE = A.AMORT_RATE, @l_CORE_NOTE = A.CORE_NOTE,

@l_IS_MULTIPLE = IS_MULTIPLE, @l_QTY = QTY, @l_PO_ID = PO_ID,@l_PD_ID=PD_ID, @l_REF_ASSET_ID = REF_ASSET_ID,

@l_REF_AMORTIZED_AMT = REF_AMORTIZED_AMT, @l_WARRANTY_MONTHS = WARRANTY_MONTHS, @l_NOTES = A.NOTES, @l_ENTRY_BOOKED = ENTRY_BOOKED,

@l_MAKER_ID = A.MAKER_ID_KT, @l_AUTH_STATUS_KT = A.AUTH_STATUS_KT, @ACCOUNT_GL = A.ACCOUNT_GL, @PRICE_VAT = A.PRICE_VAT,@l_BRANCH_CREATE= A.BRANCH_CREATE, @l_VAT = A.VAT

FROM ASS_ADDNEW A

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

WHERE ADDNEW_ID = @p_ADDNEW_ID

IF @@Error <> 0 GOTO ABORT

------LUCTV: 21-12-2018KIEM TRA NEU TINH TRANG DANG LA 'R' THI KHONG CHO PHEP DUYET-----

IF(EXISTS(SELECT * FROM ASS_ADDNEW WHERE AUTH_STATUS_KT ='R' AND ADDNEW_ID =@p_ADDNEW_ID))

BEGIN

--ROLLBACK TRANSACTION

SELECT '-1' as Result, '' ADDNEW_ID, N'Thông tin nhập mới tài sản đang bị trả về. Vui lòng cập nhật lại thông tin trước khi duyệt' ErrorDesc

RETURN '-1'

END

------LUCTV: 21-12-2021 KIEM TRA NEU GDV CHUA CAP NHAT PHIEU THI KHONG CHO PHEP DUYET-----

IF((SELECT MAKER_ID_KT FROM ASS_ADDNEW WHERE ADDNEW_ID =@p_ADDNEW_ID) IS NULL)

BEGIN

--ROLLBACK TRANSACTION

SELECT '-1' as Result, '' ADDNEW_ID, N'Thông tin nhập mới tài sản đang bị trả về. Vui lòng cập nhật lại thông tin trước khi duyệt' ErrorDesc

RETURN '-1'

END

/*******DIEN GIAI PHAN BO CHI PHI ***********/

SET @l_AMORT_DESC = 'PHAN BO CHI PHI CCLD KY ' + convert(varchar(10),month(getdate())) + ' ' + convert(varchar(10),year(getdate()))

/********** chekc vadilation ************/

IF (@l_AUTH_STATUS_KT = 'A')

SET @ERRORSYS = 'ASS-99998'

/*********** Kiem tra gia tri khau hao voi gia tri 30Tr **************/

SELECT @l_ASSET_VALUE = CONVERT(decimal(18,0), ParaValue) FROM SYS_PARAMETERS WHERE ParaKey = 'ASSET_VALUE'

IF (@l_TYPE_ID = 'CCLD' AND @l_AMORT_AMT >= @l_ASSET_VALUE)

SET @ERRORSYS = 'ASS-00011'

--IF @l_AMORT_MONTH < 1 AND @l_AMORT_MONTH IS NOT NULL AND @l_AMORT_MONTH <> ''

--BEGIN

-- SET @ERRORSYS = 'ASS-00020'

--END

--IF (@l_ASS_TYPE = 'TSCD' AND @l_AMORT_AMT < @l_ASSET_VALUE)

-- SET @ERRORSYS = 'ASS-00012'

/************ Xuat tai san thi phai hach toan tang tai sai ****************/

--IF (@l_ENTRY_BOOKED = 'N' AND (@l_BRANCH_ID IS NOT NULL OR @l_BRANCH_ID <>''))

-- SET @ERRORSYS = 'ASS-00013'

/*************** Doi voi CCLD phai khau hao het trong nam tai chinh ***********/

--Tinh ngay ket thuc khau hao

SET @l_AMORT_END_DATE = DATEADD(MONTH, @l_AMORT_MONTH, @l_AMORT_START_DATE) - 1

IF @ERRORSYS <> ''

BEGIN

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

RETURN '0'

END

--Lay thong tin nha cung cap

SELECT @l_SUP_ID = SUP_ID FROM TR_PO_MASTER A WHERE A.PO_ID = @l_PO_ID

--BRN_ID HOI SO

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

--Lay thong tin kho mac dinh

--SELECT @l_WAH_ID = P.ParaValue FROM SYS_PARAMETERS P WHERE P.ParaKey='ASSET_WAREHOUSE'

SET @l_WAH_ID = @l_BRANCH_CREATE

--Lay suppend GL - THIEUVQ 26092016 - GHI NHAN THEO TAI KHOAN NHAP TU PHAN MEM

--SET @l_SUPPEND_GL = UPPER(@ACCOUNT_GL) + 'XXXX'

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

--SELECT * FROM SYS_PARAMETERS A WHERE A.ParaKey='ASSET_SUPPEND_GL'

----THIEUVQ - 30/05/2014 DOI VOI CCLD THI GHI NHAN TAI DON VI

--SET @l_SUPPEND_GL = SUBSTRING(@l_SUPPEND_GL,1,LEN(@l_SUPPEND_GL) - 4) + 'XXXX'

--TAI KHOAN HACH TOAN VAT

SET @ACCOUNT_VAT = (SELECT A.ParaValue FROM SYS_PARAMETERS A WHERE A.ParaKey='ASSET_VAT')

--ASSET_GL

SELECT @l_ASSET_GL = ASSET_ACCTNO,

@l_EXP_ACCTNO = EXP_ACCTNO,

@l_AMORT_ACCTNO = AMORT_ACCTNO

FROM ASS_GROUP A

WHERE A.GROUP_ID = @l_GROUP_ID

--Lay branch_id cua user duyet

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

--Trang thai khau hao

IF (@l_BRANCH_ID IS NULL OR @l_BRANCH_ID = '') --Chua xuat su dung

BEGIN

SET @l_AMORT_STATUS = 'VNM'

SET @l_AMORT_START_DATE = NULL

SET @l_AMORT_END_DATE = NULL

SET @l_MONTHLY_AMT = NULL

SET @l_FIRST_AMORT_AMT = NULL

SET @l_USE_DATE = NULL

END

ELSE

IF @l_AMORT_MONTH = 0 OR @l_AMORT_START_DATE IS NULL OR @l_AMORT_START_DATE = ''

BEGIN

SET @l_AMORT_STATUS = 'KKH'

SET @l_AMORT_START_DATE = NULL

SET @l_AMORT_END_DATE = NULL

SET @l_MONTHLY_AMT = 0

SET @l_FIRST_AMORT_AMT = 0

SET @l_USE_DATE = @sToday

SET @l_USE_DATE_KT = CONVERT(DATETIME, @sToday, 103)

END

ELSE

BEGIN

SET @l_AMORT_STATUS = 'CKH'

SET @l_USE_DATE = @sToday

SET @l_USE_DATE_KT = CONVERT(DATETIME, @sToday, 103)

--Ngay bat dau khau hao mac dinh la ngay hien tai

IF(@l_AMORT_START_DATE IS NULL) ---THIEUVQ MOI THEM

BEGIN

SET @l_AMORT_START_DATE = GETDATE()

END

--Tinh so tien khau hao thang dau tien va so tien khau hao hang thang

SET @l_MONTHLY_AMT = ROUND(@l_AMORT_AMT / @l_AMORT_MONTH, 0)

SET @l_FIRST_AMORT_AMT = @l_MONTHLY_AMT

--SET @l_FIRST_AMORT_AMT = ROUND(@l_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

BEGIN TRANSACTION

--UPDATE GIAO DICH ADDNEW

UPDATE ASS_ADDNEW

SET AUTH_STATUS_KT = 'A',

CHECKER_ID_KT = @p_CHECKER_ID,

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

POSTED_STATUS = 'Y'

WHERE ADDNEW_ID = @p_ADDNEW_ID

IF @@Error <> 0 GOTO ABORT

IF (@l_IS_MULTIPLE = '0') --nhap tai san don le

BEGIN

--luctv:Begin

--Phat sinh Asset_ID

EXEC SYS_CodeMasters_Gen 'ASS_MASTER', @l_ASSET_ID out

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

--Phat sinh ma tai san

EXEC ASS_CODE_Gen @l_BRANCH_CREATE,@l_TYPE_ID, @l_GROUP_ID, @l_ASSET_CODE OUT

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

--Insert bang ASS_MASTER

INSERT INTO ASS_MASTER

(

[ASSET_ID],

[TYPE_ID],

[GROUP_ID],

[ASSET_CODE],

[ASSET_NAME],

[ASSET_SERIAL_NO],

[ASSET_DESC],

[SUP_ID],

[BUY_PRICE],

[AMORT_AMT],

[ASS_TYPE],

[BRANCH_ID],

[DEPT_ID],

[EMP_ID],

[DIVISION_ID],

[BUY_DATE],

[USE_DATE],

[SPECIAL_ASS],

[AMORT_MONTH],

[AMORT_RATE],

[AMORT_START_DATE],

[AMORT_END_DATE],

[FIRST_AMORT_AMT],

[MONTHLY_AMORT_AMT],

[AMORTIZED_MONTH],

[AMORTIZED_AMT],

[PO_ID],

[PD_ID],

[WAREHOUSE_ID],

[LOCATION],

[REF_ASSET_ID],

[REF_AMORTIZED_AMT],

[WARRANTY_MONTHS],

[NOTES],

[AMORT_STATUS],

[ASS_STATUS],

[ASS_STATUS_DESC],

[ENTRY_BOOKED],

[RECORD_STATUS],

[AUTH_STATUS],

[MAKER_ID],

[CREATE_DT],

[CHECKER_ID],

[APPROVE_DT],

[CONSTRUCT_ID],

[USE_STATUS],

[BRANCH_CREATE],

[ACCOUNT_GL], VAT,PRICE_VAT,

[BUY_DATE_KT], [USE_DATE_KT]

)

VALUES

(

@l_ASSET_ID,

@l_TYPE_ID ,

@l_GROUP_ID,

@l_ASSET_CODE,

@l_ASSET_NAME,

@l_ASSET_SERIAL_NO,

@l_ASSET_DESC,

@l_SUP_ID,

@l_BUY_PRICE,

@l_AMORT_AMT,

@l_ASS_TYPE,

@l_BRANCH_ID,

@l_DEPT_ID,

@l_EMP_ID,

@l_DIVISION_ID,

CONVERT(DATETIME, @l_BUY_DATE, 103),

CONVERT(DATETIME, @l_USE_DATE, 103),

'0',

@l_AMORT_MONTH,

@l_AMORT_RATE,

@l_AMORT_START_DATE,

@l_AMORT_END_DATE,

@l_FIRST_AMORT_AMT,

@l_MONTHLY_AMT,

0,

0,

@l_PO_ID,

@l_PD_ID,

NULL,

NULL,

@l_REF_ASSET_ID,

@l_REF_AMORTIZED_AMT,

@l_WARRANTY_MONTHS,

@l_NOTES,

@l_AMORT_STATUS,

'1', --Mac dinh moi insert vao tinh trang tai san la binh thuong

N'',

@l_ENTRY_BOOKED,

'1',

'A',

@l_MAKER_ID,

CONVERT(DATETIME, @sToday, 103),

@p_CHECKER_ID,

CONVERT(DATETIME, @p_APPROVE_DT, 103) ,

@l_CONSTRUCT_ID,

'BT',

@l_BRANCH_CREATE,

@ACCOUNT_GL, @l_VAT,@PRICE_VAT,

CONVERT(DATETIME, @sToday, 103), @l_USE_DATE_KT

)

IF @@Error <> 0 GOTO ABORT

--INSERT CHI TIET TAI SAN

INSERT INTO ASS_MASTER_PO SELECT @l_ASSET_ID, POAD.PO_ID, GDDT.TRPO_ID,CONVERT(DATETIME, @sToday, 103)

FROM ASS_ADDNEW_PO POAD

LEFT JOIN ASS_ADDNEW_GD GDDT ON GDDT.PO_ID = POAD.PO_ID AND GDDT.ADDNEW_ID = @p_ADDNEW_ID

WHERE POAD.ADDNEW_ID = @p_ADDNEW_ID

--Insert bang ASS_WARRANTY_DET tu bang ASS_ADDNEW_DT

insert into ASS_WARRANTY_DT(ASSET_ID, WAR_DT, WAR_CONTENT)

select @l_ASSET_ID, A.WAR_DT, MAX(A.WAR_CONTENT)

from ASS_ADDNEW_DT A

WHERE A.ADDNEW_ID= @p_ADDNEW_ID

GROUP BY A.WAR_DT

IF @@Error <> 0 GOTO ABORT

--INSERT VAO BANG ASS_TRANSACTIONS

INSERT INTO ASS_TRANSACTIONS(ASSET_ID, TRN_ID, TRN_TYPE, TRN_DATE, RECORD_STATUS, AUTH_STATUS,

[MAKER_ID], [CREATE_DT], [CHECKER_ID], [APPROVE_DT]

)VALUES

(

@l_ASSET_ID, @p_ADDNEW_ID, 'ADD_NEW', CONVERT(DATETIME, @sToday, 103), '1', 'A',

@l_MAKER_ID, CONVERT(DATETIME, @sToday, 103), @p_CHECKER_ID, CONVERT(DATETIME, @p_APPROVE_DT, 103)

)

IF @@Error <> 0 GOTO ABORT

--IF (@l_ENTRY_BOOKED = 'Y') --Neu nhap TS va hach toan tang tai san

IF (@l_ENTRY_BOOKED = 'Y' ) --Neu nhap TS va hach toan tang tai san thieuvq 15/04/2014

BEGIN

--insert dbo.ASS_VALUES

EXEC SYS_CodeMasters_Gen 'ASS_VALUES', @l_VALUE_ID out

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

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_BRANCH_CREATE, CONVERT(datetime, @sToday, 103), 'C', @l_BUY_PRICE, N'NHAP MOI TSCD/CCLD', @p_ADDNEW_ID, 'ASS_ADDNEW',

'1','A',@l_MAKER_ID, CONVERT(datetime, @sToday, 103), @p_CHECKER_ID, CONVERT(datetime, @sToday, 103), @l_AMORT_AMT

)

IF @@Error <> 0 GOTO ABORT

/**THIEUVQ 211118 - DIEU CHINH GOM LAI 1 BUT TOAN - NEU NHAP VA XUAT THI GOM LAI 1 BUT TOAN**/

IF (@l_BRANCH_ID IS NULL OR @l_BRANCH_ID = '') --AND @l_TYPE_ID = 'TSCD'

BEGIN

--Insert vao bang dbo.ASS_ENTRIES_POST

EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_NEW', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @l_SUPPEND_GL, @l_BRANCH_CREATE, @l_ASSET_GL, @l_BRANCH_CREATE, @l_BUY_PRICE, 'Y',

@sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID, @p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

@ERROR OUT

IF @ERROR <> '0' GOTO ABORT

END

ELSE IF @l_TYPE_ID = 'TSCD'

BEGIN

--Insert vao bang dbo.ASS_ENTRIES_POST

EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_NEW', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @l_SUPPEND_GL, @l_BRANCH_CREATE, @l_ASSET_GL, @l_BRANCH_CREATE, @l_BUY_PRICE, 'Y',

@sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID, @p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

@ERROR OUT

IF @ERROR <> '0' GOTO ABORT

END

END

--Insert nhap kho

EXEC SYS_CodeMasters_Gen 'ASS_WAREHOUSE_DT', @l_WAHDT_ID out

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

INSERT INTO ASS_WAREHOUSE_DT(WAHDT_ID, WAH_ID, ASSET_ID, IN_DATE, OUT_DATE, STATUS)

VALUES(@l_WAHDT_ID, @l_WAH_ID, @l_ASSET_ID, GETDATE(), NULL, 'I')

IF @@Error <> 0 GOTO ABORT

IF @l_BRANCH_ID IS NOT NULL AND @l_BRANCH_ID <> ''

BEGIN

PRINT 'A'

UPDATE ASS_WAREHOUSE_DT

SET OUT_DATE = GETDATE(),

STATUS = 'O'

WHERE WAHDT_ID = @l_WAHDT_ID

IF @@Error <> 0 GOTO ABORT

--Insert bang ASS_LOCATION_HIST

EXEC SYS_CodeMasters_Gen 'ASS_LOCATION_HIST', @l_LOCHIST_ID out

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

INSERT INTO ASS_LOCATION_HIST

(

LOCHIST_ID, ASSET_ID, USE_START_DT, USE_END_DT, BRANCH_ID, DEPT_ID,

EMP_ID, LOCATION, ISLEAF, PARENT_ID

)

VALUES

(

@l_LOCHIST_ID, @l_ASSET_ID, GETDATE(), NULL, @l_BRANCH_ID, @l_DEPT_ID,

@l_EMP_ID, '', 'Y', NULL

)

IF @@Error <> 0 GOTO ABORT

---THIEUVQ 101018 NEU XUAT KHAC DON VI THI HACH TOAN

--BEGIN

--Insert vao bang dbo.ASS_ENTRIES_POST

IF @l_BRANCH_CREATE <> @l_BRANCH_ID

BEGIN

IF @l_TYPE_ID = 'TSCD'

BEGIN

SELECT @BRN_TYPE_TRN = BRANCH_TYPE,@TCCT_TRN_ACCTNO = DAO_CODE FROM CM_BRANCH WHERE BRANCH_ID = @l_BRANCH_CREATE

SELECT @BRN_TYPE_REC = BRANCH_TYPE, @TCCT_REC_ACCTNO = DAO_CODE FROM CM_BRANCH WHERE BRANCH_ID = @l_BRANCH_ID

/*****THIEUVQ 211118 - CHAU XAC NHAN KHONG HACH TOAN QUA TK TRUNG GIAN NUA*******/

----NEU CN XUAT CHO PGD THI KHONG HACH TOAN THONG QUA TK TRUNG GIAN TCCT

--IF @BRN_TYPE_TRN = 'CN' AND @BRN_TYPE_REC = 'PGD'

--BEGIN

EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_USE', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @l_ASSET_GL, @l_BRANCH_CREATE, @l_ASSET_GL, @l_BRANCH_ID, @l_BUY_PRICE, 'Y',

@sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID, @p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

@ERROR OUT

IF @ERROR <> '0' GOTO ABORT

--END

--ELSE

--BEGIN

-- ---BUT TOAN DON VI CHUYEN

-- EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_USE', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @l_ASSET_GL, @l_BRANCH_CREATE, @TCCT_TRN_ACCTNO, @l_BRANCH_CREATE, @l_BUY_PRICE, 'Y',

-- @sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID, @p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

-- @ERROR OUT

-- IF @ERROR <> '0' GOTO ABORT

-- ---BUT TOAN DON VI NHAN

-- EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_USE', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @TCCT_REC_ACCTNO, @l_BRANCH_ID, @l_ASSET_GL, @l_BRANCH_ID, @l_BUY_PRICE, 'Y',

-- @sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID, @p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

-- @ERROR OUT

-- IF @ERROR <> '0' GOTO ABORT

--END

END

ELSE ---CCLD

BEGIN

SELECT @BRN_TYPE_TRN = BRANCH_TYPE,@TCCT_TRN_ACCTNO = DAO_CODE FROM CM_BRANCH WHERE BRANCH_ID = @l_BRANCH_CREATE

SELECT @BRN_TYPE_REC = BRANCH_TYPE, @TCCT_REC_ACCTNO = DAO_CODE FROM CM_BRANCH WHERE BRANCH_ID = @l_BRANCH_ID

EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_NEW', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @l_SUPPEND_GL, @l_BRANCH_CREATE, @l_AMORT_ACCTNO, @l_BRANCH_ID, @l_BUY_PRICE, 'Y',

@sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID, @p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

@ERROR OUT

IF @ERROR <> '0' GOTO ABORT

/*****THIEUVQ 211118 - CHAU XAC NHAN KHONG HACH TOAN QUA TK TRUNG GIAN NUA*******/

----NEU CN XUAT CHO PGD THI KHONG HACH TOAN THONG QUA TK TRUNG GIAN TCCT

----CO TK TAI SAN - NO TK KHAU HAO

--IF @BRN_TYPE_TRN = 'CN' AND @BRN_TYPE_REC = 'PGD'

--BEGIN

--EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_USE', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @l_ASSET_GL, @l_BRANCH_CREATE, @l_AMORT_ACCTNO, @l_BRANCH_ID, @l_BUY_PRICE, 'Y',

-- @sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID, @p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

-- @ERROR OUT

--IF @ERROR <> '0' GOTO ABORT

--END

--ELSE

--BEGIN

-- ---BUT TOAN DON VI CHUYEN

-- EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_USE', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @l_ASSET_GL, @l_BRANCH_CREATE, @TCCT_TRN_ACCTNO, @l_BRANCH_CREATE, @l_BUY_PRICE, 'Y',

-- @sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID, @p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

-- @ERROR OUT

-- IF @ERROR <> '0' GOTO ABORT

-- ---BUT TOAN DON VI NHAN

-- EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_USE', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @TCCT_REC_ACCTNO, @l_BRANCH_ID, @l_ASSET_GL, @l_BRANCH_ID, @l_BUY_PRICE, 'Y',

-- @sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID, @p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

-- @ERROR OUT

-- IF @ERROR <> '0' GOTO ABORT

--END

END

END

ELSE IF @l_TYPE_ID = 'CCLD' --NEU LA CCLD KHI XUAT CUNG DON VI VAN HACH TOAN

BEGIN

EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_NEW', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @l_SUPPEND_GL, @l_BRANCH_CREATE, @l_AMORT_ACCTNO, @l_BRANCH_ID, @l_BUY_PRICE, 'Y',

@sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID, @p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

@ERROR OUT

IF @ERROR <> '0' GOTO ABORT

END

--END

---THIEUVQ BO DOAN NAY VI KHAU HAO LUI CHAY CHUNG KY KHAU HAO THANG 211218

-----Phong added 17/6/2018: xu ly khao hao ngay qua khu :: starts

--IF @l_BRANCH_ID IS NOT NULL AND @l_BRANCH_ID <> '' AND @l_TYPE_ID = 'TSCD' AND EXISTS(

-- SELECT 1

-- FROM ASS_AMORT

-- WHERE PROCESS_STATUS = 'S'

-- AND BRANCH_ID = @l_BRANCH_ID

-- AND ASSET_TYPE = @l_ASS_TYPE

-- AND EXECUTE_DT >= @l_AMORT_START_DATE

--)

--BEGIN

-- EXEC [dbo].[ASS_AMORT_BACKDATED] @l_ASSET_ID, @l_BRANCH_ID, @l_ASS_TYPE

--END

---Phong added 17/6/2018: xu ly khao hao ngay qua khu :: ends

/***********PHAN BO HOI SO CHIU CHI PHI -- BEGIN 201218**************/ SET @l_DEP_CODE = (SELECT A.DEP_CODE FROM CM_DEPARTMENT A WHERE A.DEP_ID = @l_DEPT_ID) IF @l_DEP_CODE IS NOT NULL AND @l_DEP_CODE <> '' BEGIN IF @l_BRANCH_ID <> @l

_HO_BRN_ID AND LEFT(@l_DEP_CODE,3) = '069' ------CN NHAP NHUNG HOI SO CHIU CHI PHI BEGIN --LAY PHONG BAN CUA HOI SO TUONG UNG MA PHONG BAN CN SET @l_DEPT_ID = (SELECT DEP_ID FROM CM_DEPARTMENT A WHERE A.DEP_CODE = @l_DEP_CODE AND BRANCH_I

D = @l_HO_BRN_ID) IF @l_DEPT_ID IS NOT NULL AND @l_DEPT_ID <> '' BEGIN -----THEM VAO BANG ASS_COST_ALLOCATION

EXEC SYS_CodeMasters_Gen 'ASS_COST_ALLOCATION', @l_COST_MASTER_ID out INSERT INTO ASS_COST_ALLOCATION (COS_ID,ASSET_ID,NOTE,TRN_DATE,[RECORD_STATUS],[AUTH_STATUS],[MAKER_ID],[CREATE_DT],EDITOR_ID, EDITOR_DT,[CHECKER_ID],[APPROVE_DT],BRANCH_C

REATE,XML_TEMP,SECURE_01,SERCURE_01)

VALUES(@l_COST_MASTER_ID,@l_ASSET_ID,'AUTO',@CUR_DATE,'1' ,'A',@l_MAKER_ID ,

@CUR_DATE ,NULL, NULL,@p_CHECKER_ID,

@CUR_DATE,@l_HO_BRN_ID,NULL,NULL,NULL) -----THEM BANG CHI TIET ASS_COST_ALLOC_DT 100% SO TIEN PHAN BO THANG

EXEC SYS_CodeMasters_Gen 'ASS_COST_ALLOC_DT', @l_COSTDT_ID out

INSERT INTO ASS_COST_ALLOC_DT

VALUES(@l_COSTDT_ID,@l_COST_MASTER_ID,@l_HO_BRN_ID,@l_DEPT_ID,@l_MONTHLY_AMT,'100',@l_AMORT_MONTH,@CUR_DATE, @l_AMORT_END_DATE,0,0,@l_EXP_ACCTNO,'','1' ,'A' ,@l_MAKER_ID ,

@CUR_DATE ,NULL, NULL,@p_CHECKER_ID,@CUR_DATE) END END END /**************************************************** END 201218************/

END

--Luctv:End

--CAP NHAT LOCATION_HIST - THIEUVQ 11112015

UPDATE ASS_LOCATION_HIST SET BRANCH_ID = @l_BRANCH_ID, DEPT_ID = @l_DEPT_ID WHERE ASSET_ID = @l_ASSET_ID

IF @@Error <> 0 GOTO ABORT

--END

END

ELSE

BEGIN

--thieuvq 14/10/2014 nhap seri theo lo

DECLARE @l_LSTSERI TABLE (

[ID] [int] IDENTITY(1,1) NOT NULL,

[VALUE] [NVARCHAR](MAX) NULL)

DECLARE @l_SERI VARCHAR(MAX)

--LAY THONG TIN SO SERI

--INSERT INTO @l_LSTSERI SELECT ROW_NUMBER() OVER (ORDER BY VALUE), VALUE FROM WSISPLIT(@l_ASSET_SERIAL_NO,',')

INSERT INTO @l_LSTSERI SELECT VALUE FROM WSISPLIT(@l_ASSET_SERIAL_NO,',')

DECLARE @TBTEMP TABLE(PO_ID VARCHAR(15),PD_ID VARCHAR(15),CREATE_DATE DATETIME)

--INSERT CHI TIET TAI SAN

INSERT INTO @TBTEMP SELECT POAD.PO_ID, GDDT.TRPO_ID,CONVERT(DATETIME, @sToday, 103)

FROM ASS_ADDNEW_PO POAD

LEFT JOIN ASS_ADDNEW_GD GDDT ON GDDT.PO_ID = POAD.PO_ID AND GDDT.ADDNEW_ID = @p_ADDNEW_ID

WHERE POAD.ADDNEW_ID = @p_ADDNEW_ID

--

SET @i = 1

SELECT @BRN_TYPE_TRN = BRANCH_TYPE,@TCCT_TRN_ACCTNO = DAO_CODE FROM CM_BRANCH WHERE BRANCH_ID = @l_BRANCH_CREATE

SELECT @BRN_TYPE_REC = BRANCH_TYPE, @TCCT_REC_ACCTNO = DAO_CODE FROM CM_BRANCH WHERE BRANCH_ID = @l_BRANCH_ID

--luctv :begin

WHILE (@i <= @l_QTY)

BEGIN

--Phat sinh Asset_ID

EXEC SYS_CodeMasters_Gen 'ASS_MASTER', @l_ASSET_ID out

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

--Phat sinh ma tai san

EXEC ASS_CODE_Gen @l_BRANCH_CREATE, @l_TYPE_ID, @l_GROUP_ID, @l_ASSET_CODE OUT

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

--THIEUVQ 14/10/2014 LAY SO SERI

SET @l_SERI = (SELECT VALUE FROM @l_LSTSERI WHERE ID = @i)

--Insert bang ASS_MASTER

INSERT INTO ASS_MASTER

(

[ASSET_ID],

[TYPE_ID],

[GROUP_ID],

[ASSET_CODE],

[ASSET_NAME],

[ASSET_SERIAL_NO],

[ASSET_DESC],

[SUP_ID],

[BUY_PRICE],

[AMORT_AMT],

[ASS_TYPE],

[BRANCH_ID],

[DEPT_ID],

[EMP_ID],

[DIVISION_ID],

[BUY_DATE],

[USE_DATE],

[SPECIAL_ASS],

[AMORT_MONTH],

[AMORT_RATE],

[AMORT_START_DATE],

[AMORT_END_DATE],

[FIRST_AMORT_AMT],

[MONTHLY_AMORT_AMT],

[AMORTIZED_MONTH],

[AMORTIZED_AMT],

[PO_ID],

[PD_ID],

[WAREHOUSE_ID],

[LOCATION],

[REF_ASSET_ID],

[REF_AMORTIZED_AMT],

[WARRANTY_MONTHS],

[NOTES],

[AMORT_STATUS],

[ASS_STATUS],

[ASS_STATUS_DESC],

[ENTRY_BOOKED],

[RECORD_STATUS],

[AUTH_STATUS],

[MAKER_ID],

[CREATE_DT],

[CHECKER_ID],

[APPROVE_DT],

[CONSTRUCT_ID],

[USE_STATUS],

[BRANCH_CREATE],[ACCOUNT_GL], VAT,PRICE_VAT,[BUY_DATE_KT], [USE_DATE_KT]

)

VALUES

(

@l_ASSET_ID,

@l_TYPE_ID ,

@l_GROUP_ID,

@l_ASSET_CODE,

@l_ASSET_NAME,

@l_SERI, --@l_ASSET_SERIAL_NO,

@l_ASSET_DESC,

@l_SUP_ID,

@l_BUY_PRICE,

@l_AMORT_AMT,

@l_ASS_TYPE,

@l_BRANCH_ID,

@l_DEPT_ID,

@l_EMP_ID,

@l_DIVISION_ID,

CONVERT(DATETIME, @l_BUY_DATE, 103),

CONVERT(DATETIME, @l_USE_DATE, 103),

'0',

@l_AMORT_MONTH,

@l_AMORT_RATE,

@l_AMORT_START_DATE,

@l_AMORT_END_DATE,

@l_FIRST_AMORT_AMT,

@l_MONTHLY_AMT,

0,

0,

@l_PO_ID,

@l_PD_ID,

NULL,

NULL,

@l_REF_ASSET_ID,

@l_REF_AMORTIZED_AMT,

@l_WARRANTY_MONTHS,

@l_NOTES,

@l_AMORT_STATUS,

'1', --Mac dinh moi insert vao tinh trang tai san la binh thuong

N'',

@l_ENTRY_BOOKED,

'1',

'A',

@l_MAKER_ID,

CONVERT(DATETIME, @sToday, 103),

@p_CHECKER_ID,

CONVERT(DATETIME, @p_APPROVE_DT, 103),

@l_CONSTRUCT_ID ,

'BT',

@l_BRANCH_CREATE,@ACCOUNT_GL, @l_VAT,@PRICE_VAT,CONVERT(DATETIME, @sToday, 103), @l_USE_DATE_KT

)

IF @@Error <> 0 GOTO ABORT

--INSERT CHI TIET TAI SAN

INSERT INTO ASS_MASTER_PO SELECT @l_ASSET_ID, * FROM @TBTEMP

--SELECT * FROM ASS_ADDNEW_DT

--SELECT * FROM ASS_WARRANTY_DT

--Insert bang ASS_WARRANTY_DET tu bang ASS_ADDNEW_DT -LUCTV BO SUNG

insert into ASS_WARRANTY_DT(ASSET_ID, WAR_DT, WAR_CONTENT)

select @l_ASSET_ID, A.WAR_DT, MAX(A.WAR_CONTENT)

from ASS_ADDNEW_DT A

WHERE A.ADDNEW_ID= @p_ADDNEW_ID

GROUP BY A.WAR_DT

IF @@Error <> 0 GOTO ABORT

--INSERT VAO BANG ASS_TRANSACTIONS

INSERT INTO ASS_TRANSACTIONS(ASSET_ID, TRN_ID, TRN_TYPE, TRN_DATE, RECORD_STATUS, AUTH_STATUS,

[MAKER_ID], [CREATE_DT], [CHECKER_ID], [APPROVE_DT]

)VALUES

(

@l_ASSET_ID, @p_ADDNEW_ID, 'ADD_NEW', CONVERT(DATETIME, @sToday, 103), '1', 'A',

@l_MAKER_ID, CONVERT(DATETIME, @sToday, 103), @p_CHECKER_ID, CONVERT(DATETIME, @p_APPROVE_DT, 103)

)

IF @@Error <> 0 GOTO ABORT

--IF (@l_ENTRY_BOOKED = 'Y') --Neu nhap TS va hach toan tang tai san

IF (@l_ENTRY_BOOKED = 'Y' ) --Neu nhap TS va hach toan tang tai san thieuvq 15/04/2014

BEGIN

--insert dbo.ASS_VALUES

EXEC SYS_CodeMasters_Gen 'ASS_VALUES', @l_VALUE_ID out

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

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_BRANCH_CREATE, CONVERT(datetime, @sToday, 103), 'C', @l_BUY_PRICE, N'NHAP MOI TSCD/CCLD', @p_ADDNEW_ID, 'ASS_ADDNEW',

'1','A',@l_MAKER_ID, CONVERT(datetime, @sToday, 103), @p_CHECKER_ID, CONVERT(datetime, @sToday, 103),@l_AMORT_AMT

)

IF @@Error <> 0 GOTO ABORT

/**THIEUVQ 211118 - DIEU CHINH GOM LAI 1 BUT TOAN - NEU NHAP VA XUAT THI GOM LAI 1 BUT TOAN**/

IF (@l_BRANCH_ID IS NULL OR @l_BRANCH_ID = '')-- AND @l_TYPE_ID = 'TSCD'

BEGIN

--Insert vao bang dbo.ASS_ENTRIES_POST

EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_NEW', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @l_SUPPEND_GL, @l_BRANCH_CREATE, @l_ASSET_GL, @l_BRANCH_CREATE, @l_BUY_PRICE, 'Y',

@sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID, @p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

@ERROR OUT

IF @ERROR <> '0' GOTO ABORT

END

ELSE IF @l_TYPE_ID = 'TSCD'

BEGIN

--Insert vao bang dbo.ASS_ENTRIES_POST

EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_NEW', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @l_SUPPEND_GL, @l_BRANCH_CREATE, @l_ASSET_GL, @l_BRANCH_CREATE, @l_BUY_PRICE, 'Y',

@sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID, @p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

@ERROR OUT

IF @ERROR <> '0' GOTO ABORT

END

END

--Insert nhap kho

EXEC SYS_CodeMasters_Gen 'ASS_WAREHOUSE_DT', @l_WAHDT_ID out

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

INSERT INTO ASS_WAREHOUSE_DT(WAHDT_ID, WAH_ID, ASSET_ID, IN_DATE, OUT_DATE, STATUS)

VALUES(@l_WAHDT_ID, @l_WAH_ID, @l_ASSET_ID, GETDATE(), NULL, 'I')

IF @@Error <> 0 GOTO ABORT

select * from ASS_WAREHOUSE_DT

IF @l_BRANCH_ID IS NOT NULL AND @l_BRANCH_ID <> ''

BEGIN

UPDATE ASS_WAREHOUSE_DT

SET OUT_DATE = GETDATE(),

STATUS = 'O'

WHERE WAHDT_ID = @l_WAHDT_ID

IF @@Error <> 0 GOTO ABORT

--Insert bang ASS_LOCATION_HIST

EXEC SYS_CodeMasters_Gen 'ASS_LOCATION_HIST', @l_LOCHIST_ID out

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

INSERT INTO ASS_LOCATION_HIST

(

LOCHIST_ID, ASSET_ID, USE_START_DT, USE_END_DT, BRANCH_ID, DEPT_ID,

EMP_ID, LOCATION, ISLEAF, PARENT_ID

)

VALUES

(

@l_LOCHIST_ID, @l_ASSET_ID, GETDATE(), NULL, @l_BRANCH_ID, @l_DEPT_ID,

@l_EMP_ID, '', 'Y', NULL

)

IF @@Error <> 0 GOTO ABORT

PRINT 'B'

---THIEUVQ 101018 NEU XUAT KHAC DON VI THI HACH TOAN

--BEGIN

--Insert vao bang dbo.ASS_ENTRIES_POST

IF @l_BRANCH_CREATE <> @l_BRANCH_ID

BEGIN

PRINT 'C'

IF @l_TYPE_ID = 'TSCD'

BEGIN

PRINT 'D'

SELECT @BRN_TYPE_TRN = BRANCH_TYPE,@TCCT_TRN_ACCTNO = DAO_CODE FROM CM_BRANCH WHERE BRANCH_ID = @l_BRANCH_CREATE

SELECT @BRN_TYPE_REC = BRANCH_TYPE, @TCCT_REC_ACCTNO = DAO_CODE FROM CM_BRANCH WHERE BRANCH_ID = @l_BRANCH_ID

/*****THIEUVQ 211118 - CHAU XAC NHAN KHONG HACH TOAN QUA TK TRUNG GIAN NUA*******/

----NEU CN XUAT CHO PGD THI KHONG HACH TOAN THONG QUA TK TRUNG GIAN TCCT

--IF @BRN_TYPE_TRN = 'CN' AND @BRN_TYPE_REC = 'PGD'

--BEGIN

EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_USE', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @l_ASSET_GL, @l_BRANCH_CREATE, @l_ASSET_GL, @l_BRANCH_ID, @l_BUY_PRICE, 'Y',

@sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID,@p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

@ERROR OUT

IF @ERROR <> '0' GOTO ABORT

--END

--ELSE

--BEGIN

-- ---BUT TOAN DON VI CHUYEN

-- EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_USE', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @l_ASSET_GL, @l_BRANCH_CREATE, @TCCT_TRN_ACCTNO, @l_BRANCH_CREATE, @l_BUY_PRICE, 'Y',

-- @sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID,@p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

-- @ERROR OUT

-- IF @ERROR <> '0' GOTO ABORT

-- ---BUT TOAN DON VI NHAN

-- EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_USE', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @TCCT_REC_ACCTNO, @l_BRANCH_ID, @l_ASSET_GL, @l_BRANCH_ID, @l_BUY_PRICE, 'Y',

-- @sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID,@p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

-- @ERROR OUT

-- IF @ERROR <> '0' GOTO ABORT

--END

PRINT 'D END'

END

ELSE ---CCLD

BEGIN

SELECT @BRN_TYPE_TRN = BRANCH_TYPE,@TCCT_TRN_ACCTNO = DAO_CODE FROM CM_BRANCH WHERE BRANCH_ID = @l_BRANCH_CREATE

SELECT @BRN_TYPE_REC = BRANCH_TYPE, @TCCT_REC_ACCTNO = DAO_CODE FROM CM_BRANCH WHERE BRANCH_ID = @l_BRANCH_ID

EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_NEW', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @l_SUPPEND_GL, @l_BRANCH_CREATE, @l_AMORT_ACCTNO, @l_BRANCH_ID, @l_BUY_PRICE, 'Y',

@sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID, @p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

@ERROR OUT

IF @ERROR <> '0' GOTO ABORT

/*****THIEUVQ 211118 - CHAU XAC NHAN KHONG HACH TOAN QUA TK TRUNG GIAN NUA*******/

----NEU CN XUAT CHO PGD THI KHONG HACH TOAN THONG QUA TK TRUNG GIAN TCCT

----CO TK TAI SAN - NO TK KHAU HAO

--IF @BRN_TYPE_TRN = 'CN' AND @BRN_TYPE_REC = 'PGD'

--BEGIN

--EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_USE', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @l_ASSET_GL, @l_BRANCH_CREATE, @l_AMORT_ACCTNO, @l_BRANCH_ID, @l_BUY_PRICE, 'Y',

-- @sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID,@p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

-- @ERROR OUT

--IF @ERROR <> '0' GOTO ABORT

--END

--ELSE

--BEGIN

-- ---BUT TOAN DON VI CHUYEN

-- EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_USE', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @l_ASSET_GL, @l_BRANCH_CREATE, @TCCT_TRN_ACCTNO, @l_BRANCH_CREATE, @l_BUY_PRICE, 'Y',

-- @sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID,@p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

-- @ERROR OUT

-- IF @ERROR <> '0' GOTO ABORT

-- ---BUT TOAN DON VI NHAN

-- EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_USE', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @TCCT_REC_ACCTNO, @l_BRANCH_ID, @l_ASSET_GL, @l_BRANCH_ID, @l_BUY_PRICE, 'Y',

-- @sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID,@p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

-- @ERROR OUT

-- IF @ERROR <> '0' GOTO ABORT

--END

END

END

ELSE IF @l_TYPE_ID = 'CCLD' --NEU LA CCLD KHI XUAT CUNG DON VI VAN HACH TOAN

BEGIN

PRINT 'C'

EXEC [dbo].[ASS_ENTRIES_POST_Insert] @l_TYPE_ID, @l_ASSET_ID, 'ADD_NEW', @p_ADDNEW_ID, @l_DO_BRANCH_ID, @l_SUPPEND_GL, @l_BRANCH_CREATE, @l_AMORT_ACCTNO, @l_BRANCH_ID, @l_BUY_PRICE, 'Y',

@sToday, @l_CORE_NOTE, @l_MAKER_ID, @p_CHECKER_ID, @p_ADDNEW_ID,--N'NHAP MOI TSCD/CCLD'

@ERROR OUT

IF @ERROR <> '0' GOTO ABORT

END

--END

----THIEUVQ BO DOAN NAY VI KHAU HAO LUI CHAY CHUNG KY KHAU HAO

-----Phong added 17/6/2018: xu ly khao hao ngay qua khu :: starts

--IF @l_BRANCH_ID IS NOT NULL AND @l_BRANCH_ID <> '' AND @l_TYPE_ID = 'TSCD' AND EXISTS( -- SELECT 1

-- FROM ASS_AMORT

-- WHERE PROCESS_STATUS = 'S'

-- AND BRANCH_ID = @l_BRANCH_ID

-- AND ASSET_TYPE = @l_ASS_TYPE

-- AND EXECUTE_DT >= @l_AMORT_START_DATE

--)

--BEGIN

-- EXEC [dbo].[ASS_AMORT_BACKDATED] @l_ASSET_ID, @l_BRANCH_ID, @l_ASS_TYPE

--END

---Phong added 17/6/2018: xu ly khao hao ngay qua khu :: ends

--Luctv:End

/***********PHAN BO HOI SO CHIU CHI PHI -- BEGIN 201218**************/ SET @l_DEP_CODE = (SELECT A.DEP_CODE FROM CM_DEPARTMENT A WHERE A.DEP_ID = @l_DEPT_ID) IF @l_DEP_CODE IS NOT NULL AND @l_DEP_CODE <> '' BEGIN IF @l_BRAN

CH_ID <> @l_HO_BRN_ID AND LEFT(@l_DEP_CODE,3) = '069' ------CN NHAP NHUNG HOI SO CHIU CHI PHI BEGIN --LAY PHONG BAN CUA HOI SO TUONG UNG MA PHONG BAN CN SET @l_DEPT_ID = (SELECT DEP_ID FROM CM_DEPARTMENT A WHERE A.DEP_CODE = @l_DEP_

CODE AND BRANCH_ID = @l_HO_BRN_ID) IF @l_DEPT_ID IS NOT NULL AND @l_DEPT_ID <> '' BEGIN -----THEM VAO BANG ASS_COST_ALLOCATION

EXEC SYS_CodeMasters_Gen 'ASS_COST_ALLOCATION', @l_COST_MASTER_ID out INSERT INTO ASS_COST_ALLOCATION (COS_ID,ASSET_ID,NOTE,TRN_DATE,[RECORD_STATUS],[AUTH_STATUS],[MAKER_ID],[CREATE_DT],EDITOR_ID, EDITOR_DT,[CHECKER_ID],[APPROVE_DT],BRAN

CH_CREATE,XML_TEMP,SECURE_01,SERCURE_01)

VALUES(@l_COST_MASTER_ID,@l_ASSET_ID,'AUTO',@CUR_DATE,'1' ,'A',@l_MAKER_ID ,

@CUR_DATE ,NULL, NULL,@p_CHECKER_ID,

@CUR_DATE,@l_HO_BRN_ID,NULL,NULL,NULL) -----THEM BANG CHI TIET ASS_COST_ALLOC_DT 100% SO TIEN PHAN BO THANG

EXEC SYS_CodeMasters_Gen 'ASS_COST_ALLOC_DT', @l_COSTDT_ID out

INSERT INTO ASS_COST_ALLOC_DT

VALUES(@l_COSTDT_ID,@l_COST_MASTER_ID,@l_HO_BRN_ID,@l_DEPT_ID,@l_MONTHLY_AMT,'100',@l_AMORT_MONTH,@CUR_DATE, @l_AMORT_END_DATE,0,0,@l_EXP_ACCTNO,'','1' ,'A' ,@l_MAKER_ID ,

@CUR_DATE ,NULL, NULL,@p_CHECKER_ID,@CUR_DATE) END END END /**************************************************** END 201218************/

END

--CAP NHAT LOCATION_HIST - THIEUVQ 11112015

UPDATE ASS_LOCATION_HIST SET BRANCH_ID = @l_BRANCH_ID, DEPT_ID = @l_DEPT_ID WHERE ASSET_ID = @l_ASSET_ID

IF @@Error <> 0 GOTO ABORT

SET @i = @i + 1

END

--luctv:end

END

-- HUYHT 06/05/2022 THAY ĐỔI TRẠNG THÁI UPDATE CŨ THÀNH UPDATE_HC

UPDATE dbo.PL_PROCESS SET PROCESS_ID = 'UPDATE_KT' WHERE REQ_ID = @p_ADDNEW_ID AND PROCESS_ID = 'UPDATE'

-- GIANT Insert to table PL_PROCESS

INSERT INTO dbo.PL_PROCESS

(

REQ_ID,

PROCESS_ID,

CHECKER_ID,

APPROVE_DT,

PROCESS_DESC,

NOTES

)

VALUES

( @p_ADDNEW_ID,

'APPROVE',

@p_CHECKER_ID,

GETDATE(),

N'Kiểm soát viên phê duyệt hoàn tất' ,

N'Kiểm soát viên phê duyệt'

)

COMMIT TRANSACTION

SELECT '0' as Result, @p_ADDNEW_ID ADDNEW_ID, '' ErrorDesc

RETURN '0'

ABORT:

BEGIN

ROLLBACK TRANSACTION

--CLOSE pCur

--DEALLOCATE pCur

SELECT '-1' as Result, '' ADDNEW_ID, @ERROR ErrorDesc

RETURN '-1'

End