Boa tarde pessoal! Vocês sabem o que acontece que quando é selecionada a opção "Column Movable", nas propriedades avançadas do browse, as triggers de START SEARCH do browse param de funcionar??? Há algum jeito das funcionarem ao mesmo tempo? Obrigado! Eduardo.
Amigo, não sei se você ainda precisa desta ajuda, de qualquer forma, pode ajudar alguém Realmente o progress tem uma restrição quando a browsers usando column-movable e column-searching. Porem, através de uma pequena mão-de-obra (sem necessidade, pois a progress poderia evitar) é possível utilizar os dois parâmetros. Não sei se você irá querer usar todas as colunas, mas no exemplo abaixo vou usar apenas duas do meu browser como exemplo: A lógica toda estará no main-block do seu programa. Código: /*Definindo a variável handle para armazenar as duas colunas. Coloque um extent maior caso queira mais colunas*/ DEFINE VARIABLE hcolumn AS HANDLE EXTENT 2 NO-UNDO. /*Colocando os valores nos handles no início do código para evitar que a função column-movable sobreponha a column-searching*/ ASSIGN hcolumn[1] = britens:GET-BROWSE-COLUMN(1) hcolumn[2] = britens:GET-BROWSE-COLUMN(2). /*Coloque o evento MOUSE-SELECT-UP para cada uma das colunas. Este código deixará que o progress entenda que você deu uma saída do click na coluna. Este mesmo evento não será aplicado ao column-movable. Veja que na mensagem mostrará o label da coluna no carregamento inicial, independente da posição que ela esteja, ou seja, depois é só dinamizar a query*/ ON 'MOUSE-SELECT-UP':U OF hcolumn[1] DO: MESSAGE "UP" SKIP hColumn[1]:LABEL VIEW-AS ALERT-BOX INFO BUTTONS OK. END. ON 'MOUSE-SELECT-UP':U OF hcolumn[2] DO: MESSAGE "UP" SKIP hColumn[2]:LABEL VIEW-AS ALERT-BOX INFO BUTTONS OK. END. Espero ter ajudado. Att, Maykon maykon@sqlworks.com.br
