Bom dia. Estou criando um MENUDEF com a opção de pesquisa, já utilizei alguns exemplos que encontrei porem sem exito. Já configurei a consulta padrão da tabela utilizada. Como faço para incluir a opção de pesquisa no MENUDEF?
Bom dia Rafael,
Eu utilizo com o comando abaixo, teste e veja se te atende.
ADD OPTION aRotina TITLE 'Pesquisar' ACTION 'PesqBrw' OPERATION 1 ACCESS 0
Abraço,
Veja como esta meu MENUDEF.
Static Function MenuDef()
Local aRot := {}
//Adicionando opções
ADD OPTION aRot TITLE 'Pesquisar' ACTION 'PesqBrw' OPERATION 1 ACCESS 0 //OPERATION 1
ADD OPTION aRot TITLE 'Visualizar' ACTION 'VIEWDEF.GLB2432' OPERATION MODEL_OPERATION_VIEW ACCESS 0 //OPERATION 2
ADD OPTION aRot TITLE 'Incluir' ACTION 'VIEWDEF.GLB2432' OPERATION MODEL_OPERATION_INSERT ACCESS 0 //OPERATION 3
ADD OPTION aRot TITLE 'Alterar' ACTION 'VIEWDEF.GLB2432' OPERATION MODEL_OPERATION_UPDATE ACCESS 0 //OPERATION 4
ADD OPTION aRot TITLE 'Excluir' ACTION 'VIEWDEF.GLB2432' OPERATION MODEL_OPERATION_DELETE ACCESS 0 //OPERATION 5
Return aRot
Porém esta apresentando o erro abaixo quando clico em pesquisar.
THREAD ERROR ([10880], rafasc, GLOBOAV-JZ869R1) 07/06/2019 11:22:06
array out of bounds ( 1 of 0 ) on AXPESQUI(MATXATU.PRX) 26/02/2019 15:04:21 line : 915
[TOTVS build: 7.00.131227A-20190114 NG]
Called from AXPESQUI(MATXATU.PRX) 26/02/2019 15:04:21 line : 915
Called from PESQBRW(MATXFUNC.PRX) 12/02/2019 10:59:38 line : 2531
Called from FWMBROWSE:EXECUTE(FWFORMBROWSE.PRW) 01/03/2019 16:49:30 line : 1094
Called from { || OSELF:EXECUTE("PESQBRW", 1, 0,"PESQUISAR", 1,"","","", 1) }(FWFORMBROWSE.PRW) 01/03/2019 16:49:30 line : 1094
Called from ::MSDIALOG:ACTIVATE line : 1094
Called from FWMBROWSE:ACTIVATE(FWMBROWSE.PRW) 01/03/2019 16:49:30 line : 677
Rafael, já tive esse problema exato porque não tinha nenhum índice da tabela habilitado para pesquisa, dá uma olhada no campo SHOWPESQ da six para os índices de sua tabela.
Segue um print de como ver no configurador se o índice está habilitado para pesquisa, precisa ter pelo menos um habilitado na tabela do browse para não dar esse erro:
Atenção: Esta publicação foi transferida automaticamente do fórum antigo, mas os anexos não foram incluídos.
Atenção: Esta publicação foi transferida automaticamente do fórum antigo, mas os anexos não foram incluídos.Obrigado. Funcionou.
Olá amigo, consegue enviar novamente? Parece que o anexo no portal nao veio
@PedroPestana eu testei aqui e funciona normalmente deve realmente ser algum problema com a configuração dos índices da tabela. Confere se existem índices e se estão ativos para pesquisar.
1 curtida