Cotação Moeda

Discussão em 'Progress 4GL' iniciado por kmota, Maio 19, 2011.

  1. kmota

    kmota Sem Pontuação

    Bom dia, Como eu faço para consultar a cotação de um dia e moeda especifico. Ex: cotação da moeda 1 para dia 14/01/2011?

    FOR EACH cotacao WHERE ano-periodo = 2011/01:
    DISP cotacao[1] cotacao[2] cotacao[3] cotacao[4] cotacao[5] cotacao[6] cotacao[7] cotacao[8] cotacao[9] cotacao[10] cotacao[11] cotacao[12] cotacao[13] cotacao[14] cotacao[15] cotacao[16] cotacao[17] cotacao[18] cotacao[19] cotacao[20] cotacao[21] cotacao[22] cotacao[23] cotacao[24] cotacao[25] cotacao[26] cotacao[27] cotacao[28] cotacao[29] cotacao[30] cotacao[31].
    END.

    Obrigado.
    kmota, Maio 19, 2011
    #1
  2. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Espero que isso ajude!!!!

    Código:
    DEF VAR aux-moeda LIKE cotacao.mo-codigo.
DEF VAR aux-dia  AS INT.
DEF VAR aux-periodo LIKE cotacao.ano-periodo.

REPEAT:
    UPDATE aux-moeda aux-periodo aux-dia.
    IF aux-dia = 0 THEN
        LEAVE.
    FIND FIRST moeda WHERE moeda.mo-codigo = aux-moeda NO-LOCK NO-ERROR.
    FIND FIRST cotacao WHERE cotacao.mo-codigo = aux-moeda and
                             cotacao.ano-periodo = aux-periodo NO-LOCK NO-ERROR.
    IF NOT AVAIL moeda THEN
    DO:
        DISP 'Moeda não cadastrada!'.
        RETURN.
    END.
    IF NOT AVAIL cotacao THEN
    DO:
        DISP 'Cotacao nao encontrada'.
        RETURN.
    END.
    DISP moeda.descricao cotacao.cotacao[aux-dia].
    ASSIGN aux-dia = 0.
END.
    Rogerio, Maio 19, 2011
    #2
  3. kmota

    kmota Sem Pontuação

    Ajudou e muito, Rogério. Muito obrigada.
    kmota, Maio 19, 2011
    #3

Compartilhe esta Página