1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Dica For each em uma tabela após o número do RECID

Discussão em 'Outros/Diversos' iniciado por rhemati, Janeiro 17, 2017.

  1. rhemati

    rhemati Membro Participativo

    Pessoal, bom dia.

    Segue uma dica legal. Não sei se todos conhecem.

    Obrigado. Abraço.

    Código:
    /*
    
    - A intenção deste código é trazer todos os registros a partir de um RECID em diante.
    
    */
    
    def var r-atual as recid no-undo.
    
    def buffer bf-estabelec for estabelec.
    
    for each estabelec
        where estabelec.cod-estabel = '10'
        no-lock:
    
        assign  r-atual = recid(estabelec).
    
        disp    estabelec.cod-estabel
                estabelec.estado.
    
    end.
    
    
    for each bf-estabelec
        where recid(bf-estabelec) > r-atual
        no-lock:
    
        disp    bf-estabelec.cod-estabel
                bf-estabelec.estado.
    
    end.

Compartilhe esta Página