PUBLIC pEndBegin, pidnum
SELECT SviewAccountList
lBranches = pBranchName
=REQUERY("SviewAccountList")
GO TOP
lCounter = RECCOUNT()
SCAN
pEndBegin = SviewAccountList.EndingBalance
pIdNum = SviewAccountList.IdNum
SELECT SviewAccountList
LOCATE FOR IdNum = pIdNum
IF FOUND()
REPLACE BeginBal WITH pEndBegin
REPLACE tagsked WITH CMONTH(DATE())
ENDIF
ENDSCAN