No vídeo de hoje, vamos demonstrar em como criar um botão num browse que dispara a ação de ver as legendas.
A dúvida de hoje, nos perguntaram, se seria possível, criar um botão numa FWmBrowse, que dispara a ação de dar duplo clique numa legenda.
Pensando nisso, montamos esse exemplo, onde vamos demonstrar em como interceptar o browse e acionar a execução do duplo clique via código.
Segue abaixo o vídeo exemplificando:
E abaixo o código fonte desenvolvido:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function OM010MNU
Adição de rotinas no cadastro de tabelas de preço
@type Function
@author Atilio
@since 08/03/2024
@see https://tdn.totvs.com/pages/releaseview.action?pageId=631314486
/*/
User Function OM010MNU()
Local aArea := FWGetArea()
//Adiciona na variável de rotina do Menu
aAdd(aRotina, {"* Legenda MVC", "u_zVid0124", 0, 2, 32, Nil})
FWRestArea(aArea)
Return
/*/{Protheus.doc} User Function zVid0124
Aciona a visualização da legenda, através de opção no Outras Ações
@type Function
@author Atilio
@since 08/03/2024
/*/
User Function zVid0124()
Local aArea := FWGetArea()
Local oBrowse
//Intercepta o Browse - similar a antiga GetObjBrow()
oBrowse := FWmBrwActive()
//Se conseguiu interceptar com sucesso
If ValType(oBrowse) == "O"
//Simula o duplo clique no mouse na coluna 1
eVal(oBrowse:aColumns[1]:bLDblClick)
EndIf
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
