Navegar browse com lote de registros ...

Discussão em 'Progress 4GL' iniciado por efCarmo, Maio 7, 2010.

  1. efCarmo

    efCarmo Sem Pontuação

    Alguem tem alguma sugestão, como criar um browse onde posso navegar com botões, e que apresente um determinado lote de situações.
    Exemplo:
    - Tenho vários registros em uma tabela pertencente a uma determinada data.
    - Quando acionar botão (proximo anterior) onde a chave é da data, atualizar o browser da tela, apenas con os registros pertencentes à data em evidencia.
    - Em resumo nagevar entre datas, apresentando os dados em formato browser.
  2. LeandroSantos

    LeandroSantos Membro Participativo

    Não entendi direito sua duvida, mas acho que seria mais ou menos isso:
    Código:
    def var vdata as date init today.
    def query q-tabela for tabela.
    
    on choose of btn-proximo
        assign
            vdata = vdata + 1.
        run AtualizaQuery.
    end.
    
    on choose of btn-anterior
        assign
            vdata = vdata - 1.
        run AtualizaQuery.
    end.
    
    procedure AtualizaQuery:
        query open q-tabela for each  tabela no-lock
                                where tabela.data > vdata - 1
                                and   tabela.data < vdata + 1.
    end procedure.
    
  3. efCarmo

    efCarmo Sem Pontuação

    Obrigado Leandro,

    Criei um fill-in com a variavel data. e os botoes Prox e Ant e inseri seus códigos, acresci a atualização da fill-in com a nova data
    o browser com a clasula where que me passou.
    Tudo instanciado em uma window, e está fucionando adequadamente.

Compartilhe esta Página