Olá Pessoal, Estou tentanto popular um browse com os dados de uma temp-table, porém os dados não estão aparecendo. O programa é bem simples, mas parece que estou esquecendo de algo. Será que alguém pode me dar uma força? Estou mandando o programa em anexo. Obrigado! :!: Eduardo.
Olha, o que vi no seu código foi o seguinte: Nome do Browse: brChecklist Evento OPEN_QUERY do browse: Código: BROWSE brChecklist:QUERY = QUERY q-checklist:HANDLE. OPEN QUERY q-checklist FOR EACH tt-Lista BY tt-Lista.cStatus. E no mostrar_registro está assim: Código: DO iCont = 1 TO 10: CREATE tt-lista. ASSIGN tt-lista.cStatus = 'OK' tt-lista.Mensagem = 'Mensagem ' + STRING(iCont). END. OPEN QUERY q-checklist FOR EACH tt-lista BY tt-lista.cStatus. Veja que você está abrindo a QUERY "q-checklist" mas o BROWSE se chama "brChecklist", alterei a QUERY para "brChecklist" e assim funcionou, faça este teste. Código: BROWSE brChecklist:QUERY = QUERY q-checklist:HANDLE. OPEN QUERY brChecklist FOR EACH tt-Lista BY tt-Lista.cStatus. DO iCont = 1 TO 10: CREATE tt-lista. ASSIGN tt-lista.cStatus = 'OK' tt-lista.Mensagem = 'Mensagem ' + STRING(iCont). END. OPEN QUERY brChecklist FOR EACH tt-lista BY tt-lista.cStatus.
você não esta colocando o nome certo do browse depois de popular a temp-table, você pode colocar o seguinte código para exibir os dados no browse: {&open-query-brChecklist} faz um teste ai e qualquer coisa volta a postar. valeu.
Ok! Pessoal, muito obrigado!! Deu certo, estava mesmo dando o OPEN QUERY com o o nome errado do browse... Mas agora algo estranho está acontecendo, o SCROLL do Browse não está funcionando. Está "flagado" a opção SROLLBAR-VERTICAL, o Scroll aparece na tela normalmente, tem itens para exibir mais para baixo, mas eu clico nele e nada acontece. O mais curioso é que se eu clicar com o botão direito do mouse no scroll e selecionar "rolar para baixo" ele funciona. Será que alguem sabe o que acontece? Obrigado! Eduardo
Olha... Não vi nada de errado, porém coloquei no mostra-registro o ENABLE do browse e funcionou, deve ter alguma coisa que está desabilitando o browse, teste aí com a lógica abaixo na procedure do mostra registro: Código: OPEN QUERY brChecklist FOR EACH tt-lista BY tt-lista.cStatus. ENABLE brChecklist WITH FRAME {&FRAME-NAME}. Outro detalhe é que no seu main-block está faltando uma chamada que faz o enable de alguns campos antes do wait-for: "RUN enable_UI."
