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