Update VS4TBranch Set TBraTCurCode='THB' WHERE  TBraTCurCode='BHT'
GO
Update VS4TAR Set TARNLimitTCurCode='THB' WHERE  TARNLimitTCurCode='BHT'
GO
Update VS4TAP Set TAPNLimitTCurCode='THB' WHERE  TAPNLimitTCurCode='BHT'
GO
Update VS4TChequeRec Set TCHRTCurCode='THB' WHERE  TCHRTCurCode='BHT'
GO
Update VS4TChequeSub Set TCHSTCurCode='THB' WHERE  TCHSTCurCode='BHT'
GO
