Acionar Botao

[Stella Pompeo]

Como faço para acionar um botão através de programação?


SMPB

[gfkauer]

Você quer simular o clic ou serve apenas executar a trigger de button pressed?

[Stella Pompeo]

Apenas simular o clic.

[gfkauer]

Bom, simular o clic eu nunca fiz, nem sei se é possivel, mas acredito que tenha como fazer...

Mas qual seria o objetivo desta ação?

[SMPB]

Se eu conseguir adicionar o valor que preciso para :system.trigger_item, não precisaria simular o clic. A questão é que não estou encontrando um código para adicionar o valor que preciso, por isso que pensei em simular o click no botão.

[rogenaro]

Seria possível explicar um pouco melhor o que você quer fazer, e em que momento (when-validate-item, pre-insert, etc)?

Algumas funcionalidades padrão do forms podem ser executadas com o comando do_key:

Selecionar tudo

do_key('commit_form');
do_key('execute_query');
do_key('create_record');

Caso a lógica do botão à qual você se refere esteja em um item que você criou, seria melhor colocar esta lógica em uma procedure dentro do próprio forms, e então chamá-la tanto no WHEN-BUTTON-PRESSED do referido botão quanto no trecho que você precisa.

[SMPB]

Temos dois botões criados no forms: "localizar" e "reiniciar". Quando aciono o localizar é feita uma validação se a query tem resultados ou não. Se não houver resultado preciso limpar a tela, voltar o cursor para o primeiro bloco e acertar os outros botões no bloco toolbar (onde estão o "localizar", "reiniciar" e etc). Tudo que preciso o botão "reiniciar" faz quando acionado pelo usuário. Esse botão "reiniciar" ele chama uma procedure que faz a leitura do :system.trigger_item. Portanto, não há como adicionar essa procedure no botão "localizar" pois o :system.trigger_item seria ainda "localizar" . Precisaria acionar o botão "reiniciar" através de algum comando ou encontrar um comando que faça com que o :system.trigger_item receba o valor "reiniciar". Não sei se consegui ser clara no que exatamente preciso.

[SMPB]

Tudo que precisava tinha ao acionar o botão "reiniciar"... portanto fiz na mão passo a passo do que precisava: limpar a tela, voltar o cursor para o primeiro bloco e acertar os outros botões no bloco toolbar.

[rogenaro]

Entendi o problema. Realmente, não há uma maneira de simular um click em um botão no forms até onde me lembro...
Como sua lógica testa o trigger_item, também não adiantaria jogar a lógica em uma program unit separada, como eu havia sugerido.
A única alternativa que imaginei seria utilizar a função send_key da biblioteca d2kwutil

No when-button-pressed do seu botão 'localizar', você então faria um go_item para o botão 'reiniciar' para jogar o foco nele, e então enviaria a tecla {enter}, {espaço}, ou ainda a tecla de acesso rápido definida para o botão, forçando a sua execução.

Nunca usei esse método, mas não custaria nada tentar