Códigos SetKey

[evertonlb]

Ok.. não era bem isso que eu queria, mas já andei metade do caminho...

Tenho tela de listagem de clientes, produtos, fornecedores, etc.. que devem ser acessadas a qqer momento. Para que o accelerator funcione eu tinha que colocar elas no MENUITEM.... Então coloquei. só que estas listagens e consultas não abrem sobre uma DIALOG, só abrem se o software estiver na tela inicial... correto isso?

Então redesenhei as telas das listagens, e coloquei botões para acessar as outras funcionalidades que tenho dentro destas listagens... Ficou meio estranho, mas ao menos ta funcionando...

ANTES, no Clipper, era assim.:

Alt+F1 - Abir a listagem de clientes

Dentro da tela desta listagem, com TAB - listava as compras realizadas pelo cliente.

Com Enter - Abria os dados cadastrais dele

Com Ctrl+Enter - Adicionava informações no Memo.

Com Alt+C - Fazia uma pesquisa por CPF

Com Space - Pesquisava pelo nome da Mãe.

Com Alt+A - Adicionava um Alerta no cliente, que era verificado a cada operação feita.

E sempre voltava o Código do cliente. Se estivessemos numa tela de recebimento, o usuário achava o cliente e dava um ESC e transportava o código para a tela de recebimento.

Mas como falei.. por hora fica assim mesmo!

Obrigado a todos pela ajude e dicas.

Att. Everton

[alexavel]

ISSO AQUI VAI TE AJUDAR, NÃO ESQUECE DE COMENTAR COMO RESOLVIDO! VALEU?

///*****************************************************************************

STATIC FUNCTION Ctrl_Teclas( nKey ) // Função Estatica Só Este Módulo 'Enxerga'.

********************************************************************************

DO CASE

CASE ( nKey == Asc( "E" ) .OR. nKey == Asc( "e" )) .AND. GetKeyState( VK_CONTROL )

MUDA_EMPRESA()

CASE ( nKey == Asc( "V" ) .OR. nKey == Asc( "v" )) .AND. GetKeyState( VK_CONTROL ) .and. HABILITA("CADVEI()")

NIVEL_ACESSO("CADVEI()",oItem[051], oBtns[ 1] )

CASE ( nKey == Asc( "A" ) .OR. nKey == Asc( "a" )) .AND. GetKeyState( VK_CONTROL ) .and. HABILITA("MOVABA()")

NIVEL_ACESSO("MOVABA()",oItem[153], oBtns[ 2] )

CASE ( nKey == Asc( "M" ) .OR. nKey == Asc( "m" )) .AND. GetKeyState( VK_CONTROL ) .and. HABILITA("MOVMAN()")

NIVEL_ACESSO("MOVMAN()",oItem[251], oBtns[ 3] )

CASE ( nKey == Asc( "F" ) .OR. nKey == Asc( "f" )) .AND. ;

GetKeyState( VK_CONTROL )

Perform("INF340()",oItem[34],oBtns[ 3])

CASE ( GetKeyState( VK_CONTROL ) .AND. GetKeyState( VK_SHIFT ) )

Perform("INF680()" ,oItem[68])

CASE ( nKey == Asc( "V" ) .OR. nKey == Asc( "v" )) .AND. GetKeyState( VK_SHIFT )

Perform("INF664()",oItem[94],)

CASE ( nKey == Asc( "M" ) .OR. nKey == Asc( "m" )) .AND. ;

GetKeyState( VK_CONTROL )

Perform("INF210()",oItem[21],oBtns[ 1])

CASE ( nKey == Asc( "B" ) .OR. nKey == Asc( "b" ) ) .AND. ;

GetKeyState( VK_CONTROL )

// Perform("PLCINF()",oItem[96])

CASE ( nKey == VK_F11 .AND. GetKeyState( VK_CONTROL ) )

Perform("SDS_RS()")

CASE ( nKey == VK_F3 .AND. GetKeyState( VK_CONTROL ) )

? 'Control+F3-For N ilson'

// Acao(Action) do seu programa

CASE ( nKey == VK_F4 .AND. GetKeyState( VK_CONTROL ) )

? 'Control+F4-For Nilson'

// Acao(Action) do seu programa

CASE ( nKey == VK_F5 .AND. GetKeyState( VK_CONTROL ) )

? 'Control+F5-For Nilson'

// Acao(Action) do seu programa

CASE ( nKey == VK_F6 .AND. GetKeyState( VK_CONTROL ) )

? 'Control+F6-For Nilson'

// Acao(Action) do seu programa

CASE ( nKey == VK_F7 .AND. GetKeyState( VK_CONTROL ) )

? 'Control+F7-For Nilson'

// Acao(Action) do seu programa

CASE ( nKey == VK_F8 .AND. GetKeyState( VK_CONTROL ) )

Bolet()

CASE ( nKey == VK_F9 .AND. GetKeyState( VK_CONTROL ) )

? 'Control+F9-For Nilson'

// Acao(Action) do seu programa

CASE ( nKey == VK_F10 .AND. GetKeyState( VK_CONTROL ) )

// ? 'Control+F10-For Nilson'

// Acao(Action) do seu programa

CASE ( nKey == VK_F11 .AND. GetKeyState( VK_CONTROL ) )

? 'Control+F11-For Nilson'

// Acao(Action) do seu programa

CASE ( nKey == VK_F12 .AND. GetKeyState( VK_CONTROL ) )

? 'Control+F12-For Nilson'

// Acao(Action) do seu programa

*/

ENDCASE

RETURN NIL

[evertonlb]

Blz cara.. Obrigado Alessandro..

Assim que implementar, testar e resolver possíveis problemas (rsrsrs) dou um retorno.

Att.

Everton

[alexavel]

Blza, qualquer duvida vc me encontra no Skype: alessandro.avelino (estou na foto com uma guitarra)

[ltorreslm]

Señores

Muy buenas noches, al parecer mi post les ha generado molestias, quisiera me entiendan, este señor AlexAvel, Don Juan o como se llame me estafó.

Ayer me habló con indignación, en vez de pedir perdon e intentar arreglar la situación, me amenazó con denunciarme por calumnia.

Doy por perdido mi dinero, mi tiempo y sobre todo MI CONFIANZA, pero quiero que no le pase a nadie mas, no se relacionen con este señor Alex, Axel, AlexAvel, Alessandro Avelino, Don Juan, etc. por que al igual que yo la van a pasar mal.

Pidiendo las disculpas del caso, me despido.

Luis Torres

Lima-Perú

Traducido por Google

Srs.

Boa noite, aparentemente meu post gerou desconforto, gostaria de me entender, este senhor AlexAvel, Don Juan ou o que me enganou.

Ontem falei com indignação, em vez de pedir perdão e tentar corrigir a situação, eu ameaçava me processar por calúnia.

Aproveito perdi meu dinheiro, meu tempo e, especialmente, a minha confiança, mas eu quero que não aconteça com mais ninguém, não relacionados com esse cara Alex, Axel, AlexAvel, Alessandro Avelino, Don Juan, etc. porque eu gosto de ir a dar errado.

Fazendo as desculpas apropriadas, eu digo adeus.

Luis Torres

Lima-Peru