Information générale
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Re: Grid e Botão para inserir novas linhas
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
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement