Bom dia Pedro Silva,

Eu utilizo o seguinte codigo aqui na empresa:


LPARAMETERS nKeyCode, nShiftAltCtrl
do case
case nKeyCode = 9 && teclou TAB
thisform.pageframe1.page1.txttotalprod.setfocus()
case nKeyCode = 13 && teclou enter
thisform.pageframe1.page1.cmdnewprod.setfocus()
thisform.pageframe1.page1.cmdnewprod.click()
endcase


essa rotina se encontra no keypress do ultimo campo e verifica duas situacoes

caso o usuario deseja sair o grid pressiona TAB ou inserir uma nova linha
tecle enter, no botao cmdnewprod existe o seguinte codigo:


thisform.laddingprod = .t.
select cpordem
scan for not deleted() .and. cpordem.quantidade = 0
delete record recno()
endscan
insert into cpordem (lancamento) values (nlancamento)
thisform.pageframe1.page1.gridprodutos.column1.text1.setfocus


Abracos