Vencimento de Parcelas

Discussão em 'Progress 4GL' iniciado por lunho, Fevereiro 9, 2012.

  1. LeandroSantos

    LeandroSantos Membro Participativo

    É na v9 não tem esta função.

    Voce pode fazer assim:
    Código:
    def var vano as int.
    def var vmes as int.
    def var vdia as int.
    def var venc as date.
    
    function add-month return date (input data as date, input meses as int).
       assign
          vdia = day  (data)
          vmes = month(data)
          vano = year (data).
       do while meses > 0:
          if vmes = 12 then
             assign
                vmes = 1
                vano = vano + 1.
          else
             assign
                vmes = vmes + 1.
          meses = meses - 1.
       end.
       assign
          data = date(vmes,28,vano)
          data = data + 4 - day(data + 4).
       if vdia > day(data)
       then vdia = day(data).
       return date(vmes,vdia,vano).
    end.
    
    venc = date(1,31,2012).
    
    message
       venc skip
       add-month(venc,1) skip
       add-month(venc,2) skip
       add-month(venc,3) skip
       add-month(venc,4) skip
       view-as alert-box.
    
  2. lunho

    lunho Membro Participativo

    Muito obrigado, vc nem tem idéia de como me ajudou!!

Compartilhe esta Página