Duvida Declarar variável de campo extend

Discussão em 'Progress 4GL' iniciado por Helton Morais, Março 25, 2015.

Página 1 de 3
  1. Helton Morais

    Helton Morais Membro Participativo

    Bom dia,

    estou tentando fazer um QG para recalcular o prazo médio no programa CD0404 EMS2.06, sou iniciante, mas estou tentando montar um script para ver apenas os que não calcularam, e estou com dificuldade para declarar uma variável que receba todas as parcelas (12), não sei a sintaxe exatamente, por enqto estou fazendo assim:
    ----------------------------------------------------------------------------------------------------------------------------------
    DEFINE VARIABLE aux LIKE cond-pagto.prazos[1] NO-UNDO.

    FOR EACH cond-pagto WHERE qtd-dias-prazo-medio = 0.

    IF (num-parcelas >= 2) THEN

    DISP
    num-parcelas
    cod-cond-pag
    qtd-dias-prazo-medio
    aux.
    END.

    -------------------------------------------------------------------------------------------------------------------------------------

    O que preciso fazer é: Somar todos os dias digitados nos 12 que esta na field prazos da tabela cond-pagto e dividir pela quantidade de parcelas que é a field num-parcelas e jogar resultado na field qtd-dias-prazo-medio.
    Helton Morais, Março 25, 2015
    #1
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Código:
    define variable contador   as integer no-undo.
define variable prazoMedio as integer no-undo.
for each cond-pagto no-lock
    where cond-pagto.qtd-dias-prazo-medio = 0:

    assign prazoMedio = 0.
    repeat contador = 1 to 12:
        assign prazoMedio = prazoMedio + cond-pagto.prazos[contador].
    end.

    assign prazoMedio = prazoMedio / cond-pagto.num-parcelas.

    disp cond-pagto.cod-cond-pag
         cond-pagto.num-parcelas
         cond-pagto.qtd-dias-prazo-medio
         prazoMedio.
end.
    bootstrapmaster, Março 25, 2015
    #2
  3. Helton Morais

    Helton Morais Membro Participativo

    Obrigado!!!! Estou fazendo os testes na base teste, qual sugestão de QG seria, para colocar o resultado da variavel prazoMedio na field qtd-dias-prazo-medio ? seria um update na verdade.
    Helton Morais, Março 25, 2015
    #3
  4. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    no meu exemplo, vc tira o no-lock, pra ele aceitar alterações e so coloca depois do display .....
    assign cond-pagto.qtd-dias-prazo-medio = prazoMedio.
    bootstrapmaster, Março 25, 2015
    #4
  5. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Desculpa a minha ignorancia, o que é QG ????
    bootstrapmaster, Março 25, 2015
    #5
  6. Helton Morais

    Helton Morais Membro Participativo

    Apelido para script qualquer...
    Helton Morais, Março 25, 2015
    #6
Página 1 de 3

Compartilhe esta Página