mdbf=SELECT() MRECNO=RECN() SELECT BOOKINSTORESBODY SUM qty TO mtotalqty FOR bookinno=BOOKINSTORESHEAD.bookinno SUM ROUND(qty*costprice,2) TO mtotalcost FOR bookinno=BOOKINSTORESHEAD.bookinno SUM ROUND(qty*salesprice,2) TO mtotalsale FOR bookinno=BOOKINSTORESHEAD.bookinno thisform.paGEFRAME1.page1.txtNTotalQty.Value=mtotalqty thisform.paGEFRAME1.page1.txtnCostTotal.Value=mtotalcost thisform.paGEFRAME1.page1.txtnSaleTotal.value=mtotalsale SELECT (mdbf) GO MRECNO mrecno=RECNO() IF READ()<>4 SKIP IF EOF() OR bookinno<>BOOKINSTORESHEAD.bookinno GO mrecno this.Parent.Parent.Parent.cmdinsert.Click() ELSE GO mrecno skip thisform.pageFRAME1.page1.grdBody.Refresh() *KEYBOARD "{DNARROW}" PLAIN ENDIF ENDIF