Joseph,

You should take data from the current record in the grids RecordSource (table/cursor).

tdate = GridCursor.datefield
* and so on

>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