bKeyDown - Não funcionando muito bem - RESOLVIDO

[evertonlb]

Olá pessoal. Estou com um pequeno probleminha num xBrowse. 

Tenho um browse que lista as contas a receber, tenho uma coluna onde clicando com o botão direito do mouse, marca as contas a receber e se clicando novamente desmarca a conta. Gostaria de fazer esta marcação com a barra de espaço, se conseguir fica mas prático para o usuário, pois navega com as setas e marca com a barra de espaço. Coloquei a seguinte linha

            oXBrw5:bKeyDown            := { | nKey | IF( nKey = 27, MarcaParc( (_cNomArq)->TMP_VEND, (_cNomArq)->TMP_PARC, @nSomaNumParcelas, @nSomaValOriginal, @nSomaValJuros, Recno(), @nKey ), .F. ) } 

O que esta acontecendo é que pressionando UMA ÚNICA vez a barra de espaço ( nKey == 32 ) está entrando duas vezes na função. Na primeira vez marca a parcela e na segunda, já que a parcela está marcada, ele desmarca.... Só consegui fazer funcionar usando o ESC ( conforme esta no código acima ), mas colocando qualquer outra tecla o xBrowse manda duas vezes para a função MarcaParc. Como posso fazer para que entre uma única vez na função?

Espero ter sido claro!

 

Att.

Everton

[Theotokos]

não sei se daria certo, mas tenta ai:

Function MarcaParc(....

      KeyBoard( Chr(0) )     /// Limpar Buffer do Teclado qdo entra na função

     .....

Return(....

[aferra]

pq não usar então o setcheck(), simples e vai fazer o que vc quer somente com essa linha?

oBrw:aCols[ <numero_sua_coluna ]:SetCheck( <bmp>, {|oBrw,lVar| <dbf>-><campo> := lVar } )

 

 

[gunafe]

Boa tarde,

Coloque um 0(ZERO) antes da chave que fecha o comando, assim: ,0 } usando o nKey = 32, este 0(zero) evita duas passadas da Function.  Espero que resolva.

 

[]´s

Luiz

[kapiaba]

Tente assim:

    /*
    #define VK_ESCAPE           27        //  0x1B
    #define VK_SPACE            32        //  0x20
    */
	    oXBrw5:bKeyChar := { | nKey | IF( nKey = VK_SPACE,      ; // OU <ESC>?
                           MarcaParc( (_cNomArq)->TMP_VEND, ;
                                      (_cNomArq)->TMP_PARC, ;
                                       @nSomaNumParcelas,   ;
                                       @nSomaValOriginal,   ;
                                       @nSomaValJuros,      ;
                                       Recno(), @nKey ), .F. ) }

[evertonlb]

 

não sei se daria certo, mas tenta ai:

Function MarcaParc(....

      KeyBoard( Chr(0) )     /// Limpar Buffer do Teclado qdo entra na função

     .....

Return(....

Esse não deu! Obrigado!

[aferra]

e o resto, vc tentou?

[evertonlb]

 

 

 

 

e o resto, vc tentou?

Aferra.. Estou testando.. Tua sugestão é boa, poderia resolver, porém, a função não só marca a parcela, mas calcula juros, multa e se a parcela será paga antes do vencimento calcula um desconto... Obrigado pela dica!

 

[evertonlb]

Ah.. vou deixar o ESC mesmo!!!! Dane-se.. os caras que se acostumem!!!

At.

Everton

[aferra]

Rapaz tente assim

oBrw:aCols[ <numero_sua_coluna ]:SetCheck( , {|oBrw,lVar| SuaFuncao( lVar ) } )

function suafuncao( lvar )

 

IF lvar
faça isso 

else

faça aquilo

endif

 

return

[evertonlb]

 

Rapaz tente assim

oBrw:aCols[ <numero_sua_coluna ]:SetCheck( , {|oBrw,lVar| SuaFuncao( lVar ) } )

function suafuncao( lvar )

 

IF lvar
faça isso 

else

faça aquilo

endif

 

return

Cara.. vou tentar. Obrigado!

[evertonlb]

Todas as tentativas que fiz e que chamavam a função davam a mesma coisa... Entrava duas vezes. Ai resolvi colocando um contador dentro da função.

Na primeira vez executa a função na segunda só dá um return .t.

Não é o ideal, mas ao menos ta funcionando!

 

Att.

Everton