Here's the code
*lcOldTalk = SET("TALK")
*SET TALK OFF
*lcOldDeleted = SET("DELETED")
*SET DELETED OFF
sele (gridsmry)
CALCULATE MAX(srno) ALL TO lMaxID
lMaxID = lMaxID+1
APPEND BLANK
replace srno with lMaxID
thisform.pageframe1.page1.grditemsgrid.refresh
thisform.pageframe1.page1.grditemsgrid.setfocus()
*SET TALK &lcOldTalk
*SET DELETED &lcOldDeleted
Helping hands are better than praying lips.