tdate = DATE()
tseq = 0
ttrans = SPACE(10)
torg = SPACE(10)
tdes = SPACE(40)
tincur = DATE()
tdisp = DATE()
tamount = 0

tdate = tabform.pageframe1.debt.grid1.column1.text1.value
tseq = tabform.pageframe1.debt.grid1.column2.text1.value
ttrans = tabform.pageframe1.debt.grid1.column3.text1.value
torg = tabform.pageframe1.debt.grid1.column4.text1.value
tdes = tabform.pageframe1.debt.grid1.column5.text1.value
tincur = tabform.pageframe1.debt.grid1.column6.text1.value
tdisp = tabform.pageframe1.debt.grid1.column7.text1.value
tamount = tabform.pageframe1.debt.grid1.column8.text1.value

SET DELETED ON
DO FORM tranadd NOREAD WITH userparm, username, tdate, tseq,;
trans,torg, tdes, tincur, tdisp, tamount
SET DELETED ON
thisform.pageframe1.debt.grid2.refresh