>Lparameters nKeyCode, nShiftAltCtrl >do case >case nkeycode=13 && problem with this >thisform.addnewrow() NODEFAULT >case nkeycode=3 && this working perfect >thisform.addnewrow() NODEFAULT >endcase>
> >thisform.addnewrow() >******************** >Select inward1 >If (qty+Free)<>0 >Delete For (qty+Free)=0 >Append Blank >Replace vno With inward.vno, Status With inward.Status, Type With inward.Type, reco1 With inward.reco1, machineid With inward.machineid >thisform.pageframe1.page1.grid1.SetFocus() >Thisform.pageframe1.pAGE1.grid1.colUMN1.SetFocus() >Endif>