AMS - VB

UPDATE ASS_MASTER SET AMORTIZED_AMT=(SELECT   SUM( CASE WHEN aad.CRDR='C' THEN ISNULL(aad.AMORT_AMT,0) ELSE- ISNULL(aad.AMORT_AMT,0) END) FROM ASS_AMORT_DT aad WHERE aad.ASSET_ID=ASS_MASTER.ASSET_ID)

GO

DELETE FROM ASS_ENTRIES_POST_SYNC WHERE TRN_ID IN (SELECT aad.AMORTDT_ID FROM ASS_AMORT_DT aad WHERE aad.AMORT_ID='ASM000000000095')

DELETE FROM ASS_ENTRIES_POST_SYNC WHERE TRN_ID IN (SELECT aad.AMORTDT_ID FROM ASS_AMORT_DT aad WHERE aad.AMORT_ID='ASM000000000096')

DELETE FROM ASS_ENTRIES_POST WHERE REF_ID IN (SELECT aad.AMORTDT_ID FROM ASS_AMORT_DT aad WHERE aad.AMORT_ID='ASM000000000095')

DELETE FROM ASS_ENTRIES_POST WHERE REF_ID IN  (SELECT aad.AMORTDT_ID FROM ASS_AMORT_DT aad WHERE aad.AMORT_ID='ASM000000000096')

DELETE FROM ASS_AMORT_DT WHERE AMORT_ID ='ASM000000000095'

DELETE FROM ASS_AMORT_DT WHERE AMORT_ID ='ASM000000000096'

DELETE FROM ASS_AMORT WHERE AMORT_ID ='ASM000000000095'

DELETE FROM ASS_AMORT WHERE AMORT_ID ='ASM000000000096'

UPDATE ASS_MASTER SET AMORTIZED_AMT=(SELECT SUM(aad.AMORT_AMT) FROM ASS_AMORT_DT aad WHERE aad.ASSET_ID=ASS_MASTER.ASSET_ID)

UPDATE ASS_MASTER SET AMORT_STATUS='DKH' WHERE ISNULL(AMORTIZED_AMT,0) < ISNULL(AMORT_AMT,0) AND AMORT_STATUS='KHX'

UPDATE ASS_MASTER SET AMORT_STATUS='KHX',AMORTIZED_MONTH=AMORT_MONTH WHERE ISNULL(AMORTIZED_AMT,0) >= ISNULL(AMORT_AMT,0) AND AMORT_STATUS='DKH'

GO

EXEC ASS_AMORT_Do @p_EXECUTE_DATE = '22/05/2023'

                 ,@p_MAKER_ID = 'QLTS'

                 ,@p_CHECKER_ID = 'QLTS'

                 ,@p_ASSET_TYPE = 'CCLD'

                 ,@p_BRANCH_ID_LST = NULL

GO

EXEC ASS_AMORT_Do @p_EXECUTE_DATE = '22/05/2023'

                 ,@p_MAKER_ID = 'QLTS'

                 ,@p_CHECKER_ID = 'QLTS'

                 ,@p_ASSET_TYPE = 'TSCD'

                 ,@p_BRANCH_ID_LST = NULL

GO

EXEC ASS_AMORT_Start @p_AMORT_ID = 'ASM000000000095'

GO

EXEC ASS_AMORT_Start @p_AMORT_ID = 'ASM000000000096'