evertonlb Posted February 13, 2014 Author Report Share Posted February 13, 2014 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 kapiaba 1 Quote Link to comment Share on other sites More sharing options...
alexavel Posted February 13, 2014 Report Share Posted February 13, 2014 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 Quote Link to comment Share on other sites More sharing options...
evertonlb Posted February 14, 2014 Author Report Share Posted February 14, 2014 Blz cara.. Obrigado Alessandro.. Assim que implementar, testar e resolver possíveis problemas (rsrsrs) dou um retorno. Att. Everton Quote Link to comment Share on other sites More sharing options...
alexavel Posted February 14, 2014 Report Share Posted February 14, 2014 Blza, qualquer duvida vc me encontra no Skype: alessandro.avelino (estou na foto com uma guitarra) Quote Link to comment Share on other sites More sharing options...
ltorreslm Posted February 15, 2014 Report Share Posted February 15, 2014 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.