>Lparameters nKeyCode, nShiftAltCtrl >If nKeyCode=3 > Select INWARD1 > Flush > This.Refresh > Flush > Select INWARD1 > If (qty+Free)<>0 > Insert Into INWARD1 (VNO, Status, Type, RECO1, machineid, lqty) Values (INWARD.VNO, INWARD.Status, INWARD.Type, INWARD.RECO1, INWARD.machineid, .T.) > Go Recno() > Thisform.pageframe1.page1.grid1.Refresh() > Thisform.pageframe1.page1.grid1.SetFocus() > Thisform.pageframe1.page1.grid1.colUMN1.SetFocus() > Endif >Endif >>