Find Last

Discussão em 'Progress 4GL' iniciado por ireinar, Julho 8, 2013.

  1. ireinar

    ireinar Sem Pontuação

    Amigos tenho uma dúvida, estou desenvolvendo um browser e gostaria de buscar o codigo do bem e a data da ultima movimentação do mesmo, para isto criei o programa a seguir, mas travei na hora de usar o Find Last, agradeço caso alguém possa me ajudar.

    /***************** PROCEDURE PESQUISA TEMP TABLE ***************************************************/

    &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE proc-pesq C-Win
    PROCEDURE proc-pesq:
    FOR EACH bem_pat NO-LOCK WHERE bem_pat.dat_aquis_bem >= DATE(EditDataInicio:SCREEN-VALUE IN FRAME frame-1) AND
    bem_pat.dat_aquis_bem <= DATE(EditDataFinal:SCREEN-VALUE IN FRAME frame-1),

    EACH sdo_bem_pat NO-LOCK WHERE bem_pat.num_id_bem_pat=sdo_bem_pat.num_id_bem_pat and
    sdo_bem_pat.dat_sdo_bem_pat <= DATE(EditDataSaldo:SCREEN-VALUE IN FRAME frame-1):


    RUN proc-tmp-BEM.
    NumReg = NumReg + 1.
    i-linha = i-linha + 1.
    Percentual:SCREEN-VALUE = STRING(i-linha,"999999").
    END.

    END PROCEDURE.

    /* _UIB-CODE-BLOCK-END */
    &ANALYZE-RESUME
  2. LFBuozi

    LFBuozi Membro Participativo

    Você pode fazer o find first sdo_bem_pat e colocar parar usar um índice (use-index sdbmpt_data), que já está preparado para o que você precisa.

Compartilhe esta Página