malloc=0 mnet=0 cfamt=0 If cfqty<=0 =messagebox('Sorry Positive Value required...',(0+16+0),' ...') return .f. else cfqty=thisform.grid1.column5.text1.value cfamt=thisform.grid1.column6.text1.value if curreceipt.cfactp <> space(1) AND curreceipt.cfsbcd <> space(6); AND curreceipt.cfitem <> space(10) and curreceipt.cfunit <> space(3); AND cfqty > 0 AND cfamt > 0 *cftot=cfqty*cfamt thisform.grid1.column7.text1.value=(thisform.grid1.column5.text1.value*thisform.grid1.column6.text1.value) thisform.grid1.column7.text1.refresh() endi thisform.refresh() malloc=0 select curreceipt scan for curreceipt.cfactp <> space(1) AND curreceipt.cfsbcd <> space(6); AND curreceipt.cfitem <> space(10) and curreceipt.cfunit <> space(3); AND cfqty > 0 AND cfamt > 0 malloc=malloc+cftot mnet=malloc-mround endscan thisform.refresh() endi ****Thanks & best regards.