Alain da Silva Posted May 16, 2016 Report Share Posted May 16, 2016 boa noite, estou atualizando o five e esta dando alguns erros: 1) como é feito o btnget, me parece que foi incorporado ao five 2) erro no bpostkey.. Como é feita a pesquisa agora REDEFINE BTNGET OGNC VAR CNOM ID 2 PICTURE "@!" OF DLGVEN RESOURCE "pesquisa" action "" oGNC:bPostKey :={|| PESQUIVEN(oGNC,2) } OGNC:bGotfocus:={||(NORDEM:=3,ORDBUTT:REFRESH(),ARQNFE->(DBSETORDER(2)),ARQNFE->(OrdDescend(,,.F.)),ARQNFE->(DBGOTOP()),OBRWVEN:REFRESH()) } fwhx 14.12 >> xharbour 1.2.3 intl. (simplex) (build 20141106) obrigado Quote Link to comment Share on other sites More sharing options...
aferra Posted May 16, 2016 Report Share Posted May 16, 2016 sim, olhe o fivewin.ch e use o próprio GET Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 16, 2016 Report Share Posted May 16, 2016 \samples\testget3.prg btnget.prg não há mais necessidade de usar nas novas versões. abs. Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted May 16, 2016 Author Report Share Posted May 16, 2016 valeu obrigado Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 16, 2016 Report Share Posted May 16, 2016 Usando Recursos é assim: REDEFINE GET aGetVenda[1] VAR nNumeroTel PICTURE "@K!" ID 20 OF oDlgVendas; COLOR nRGB( 000, 000, 000 ), nRGB( 243, 250, 200 ) ; WHEN( lLigaCliente ) ; CURSOR oHand FONT oFnt UPDATE BITMAP "BUSCAR" ; VALID ( PESQUISA_TELEFONE( nNumeroTel, aGetVenda, oLbx, ; DbClientes, DbEstoque, DbPedidos, DbFornece ) ) ; ACTION( PESQUISA_TELEFONE( nNumeroTel := [00000000000000000], ; aGetVenda, oLbx, DbClientes, DbEstoque, DbPedidos, DbFornece ) ) aGetVenda[1]:bKeyDown := { |nKey| IF( nKey == VK_F7, Eval( aGetVenda[1]:bAction ), Nil ) } aGetVenda[1]:cToolTip := OemToAnsi( "Click no BotÆo ao Lado, " + ; "Para Visualizar o Banco " + "de Dados dos Clientes " + ; "Veja os Nomes/Telefones " + "<F7>-Visualizar. " + ; "Se o Telefone NÆo For " + "Localizado, Dispara " + ; "Para o Cadastro de " + "Clientes. " + ; "Incluir, Excluir, " + "Alterar, Pesquisar." ) 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.