Tecla de saida do DBEDIT

[Alessandr0sp]

Olá pessoal, estou tentanto mudar a tecla de saida (com gravação das informaçoes) no dbedit (Ctrl + W), preciso algo mais fácil para um cliente, estou pensando em substituir por algum F. Para isso estou tentanto utilizar o comando keyboard para alocar no buffer o código K_CTRL_W. Alguém tem uma dica para me ajudar?

[ederxc]

Olá pessoal, estou tentanto mudar a tecla de saida (com gravação das informaçoes) no dbedit (Ctrl + W), preciso algo mais fácil para um cliente, estou pensando em substituir por algum F. Para isso estou tentanto utilizar o comando keyboard para alocar no buffer o código K_CTRL_W. Alguém tem uma dica para me ajudar?

Bom dia !

Não se ha essa possiblidade no DBedit() , Mas vou dizer o que todo mundo ja me disse , muda para tbrowse() vai eprder um tempinho para aprender , mas vale a pena , nele voce controla tudo isso ae... Mas se no caso hover muita pressa , fique no aguardo que algum dos masters dirão se isso é possivel ou definitivamente apenas com Tbrowse()

[Dércio_Luiz_Zanatta]

ola..
Desculpe-me, mas não entendi direito essa da tecla Ctrl+w para sair do DbEdit... Na função de usuário passada no Dbedit, vc encerra a hora que quise e com a tecla que quiser, é só retornar 0(zero RETURN 0).

[scom]

M1:={'Codigo Descricao'}
M2:={'DB_CODIGO+" "+DB_DESCRI'}

DBEDIT(04,02,22,77,M1,'FUNCAO',.T.,M2)


FUNCTION FUNCAO(MODO,PONTEIRO)
//COLOQUE AQUI PARA SAIR DO DBEDIT NO CASO EU COLOQUEI
//CRTL+W E O END.

IF LASTKEY()=23 .OR. LASTKEY()=6
RETURN(0)
ENDIF
IF MODO=4
IF LASTKEY()=13
MOSTRAR DADOS....
ENDIF
ENDIF

RETURN(1)


ATENCIOSAMENTE

ROBSON

[sygecom]

Alessandro, eu uso no TBROWSE() a letra F para finalizar e sair do TBROWSE() no DBEDIT() vc pode usar como o Robson postou e não deixe de dar uma olhada tmb no INKEY.CH

Código: Selecionar todos

#define K_F               102  //   F
#define K_f               70   //   f

Abraços
Leonardo Machado

[gvc]

Eu uso o Esc para fechar o DBEdit.

M1:={'Codigo', 'Descricao'}
M2:={'DB_CODIGO', 'DB_DESCRI'}

DBEDIT(04,02,22,77,M1,'FUNCAO',.T.,M2)
return

FUNCTION FUNCAO
as := lastkey()
do case
case as = 27 // ESC
return(0)
case as = 13 // Enter
// MOSTRAR DADOS....
keyboard ' '
return(2)
end
return(1)

[Ademir]

Bom dia !

Esse lance do CTRL+W é pra sair da MEMOEDIT() pelo que eu sei.

[Alessandr0sp]

Bom dia !

Esse lance do CTRL+W é pra sair da MEMOEDIT() pelo que eu sei.

Desculpem caros colegas, me expressei mal, na verdade é memoedit ao invés do dbedit. Estava precisando de uma ajuda para efetuar a saida do memoedit, atravéz de uma tecla mais simples (F9), essa tecla quando fosse pressionada deveria sair e gravar a memo. Consegui resolver o problema através da seguinte função para gravar observaçoes:
*------------------------- FUNÇÃO PARA OBSERVAÇÃO ---------------------------*
function _obs(QTIPO)
setcolor(cortexto_get)
t_obs = jwin(14,03,18,76,"OBSERVAÇÃO",cortitulo,cortexto_box,1000)
@ 14,04 SAY "[F9 - Grava o texto]" color "gr+/"+corprinc
varmemo = obs_
varmemo = memoedit(varmemo,15,04,17,75,QTIPO,"funcm2",80,,,,02,01)
replace obs_ with varmemo
rstenv(t_obs)
return
FUNC funcm2
IF LASTKEY()=-8
RETURN 23
ENDIF
RETURN 0

*----------------------------------------------------------------------------