UPDATE VS4TGLTRansBlock SET TGTBFlag2=(Select tgltbalanceflag from vs4tgltrans where tgltno=tgtbtgltno)
UPDATE VS4TGLTRansBlock SET TGTBTACPTACYID=YEAR(TGTBDATE),TGTBTACPID=MONTH(TGTBDATE) where tgtbflag2<>1

'RUN αΕιΗ RECALC GL γΛΑθ