btnget e pesquisa

[Alain da Silva]

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

[aferra]

sim, olhe o fivewin.ch e use o próprio GET

[kapiaba]

\samples\testget3.prg

btnget.prg não há mais necessidade de usar nas novas versões. abs.

[Alain da Silva]

valeu obrigado

[kapiaba]

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." )