Estou montando um Dialog para pegar informações do usuario, dentre elas, tenho um GET com consulta padrão F3
Porem o GET vem com um botão "?" para chamar a tela de consulta
É possível mudar o Botão para chamar a consulta padrão e colocar a Lupa, comum em outras telas ao invés do "?" ??
EX:
@ 050, 039 MSGET oGet2 VAR cGet_Motivo SIZE 060, 010 OF oDlg_MudaStatus Picture "@S60" COLORS 0, 16777215 F3 "SB1" PIXEL
Para as próximas vitimas, resolvi da seguinte forma utilizei o comando BTNBMP: Gerando um "Botão" com a Lupa. então posicionei ele ao lado do GET, e criei uma função para chamar a Consulta Padrão
@ nPos2 + 040, 195 BTNBMP oBtn2 RESOURCE "PESQUISA" SIZE 025, 025 OF oDlg_MudaStatus ACTION cGet_Motivo := ChamaConsulta("SB1",cGet_Motivo) PIXEL
Static Function ChamaConsulta(consulta,campo)
if ConPad1(NIL,NIL,NIL,consulta)
campo := aCpoRet[1]
endif
Return campo