qvar = query
ANSWER: :PRIV:CT3.DB

Giving.DB | MainId          | Date  | Amount  | Category                   | PmtMeth               |
	  | Check Not Blank | Check | Check   | Check Not Split, Not Blank | calc blank as "Month" |
endQuery

if not executeQBE(qvar) then
   errorShow()
endif

;Compute Month
tc1.open(":PRIV:CT3.DB")
tc1.edit()

scan tc1:
   tc1."Month" = moy(tc1."Date")
   tc1.postRecord()
endScan

tc1.endEdit()
tc1.close()