[firebase-br] datas com dias FIXO

[samuel ferreira]

ola

nao se se entendi, mas vc quer gerar dias fixos no vencimento, certo?


se for, pode fazer algo assim:

set term ^;
create procedure spGravaParcelas(DataInicial date, valor numeric(11,2),
parcelas numeric(3), cliente etc etc


as
declare wDia numeric(2);
declare wMes numeric(2);
declare wAno numeric(2);
declare wParcelas numeric(3);
declare wData date;
begin
    select extract(day from  :datainicial), extract(month from
:datainicial),
              extract(year from :datainicia)
           into :wDia, :wMes, :wAno
      from rdb$database;

 wParcela = 1;
while (wParcela   <= :parcelas) do
     begin
         wData  = cast(cast(wMes as varchar(2)) || '/ ||
                              cast(wDia as varchar(2)) || '/' ||
                              cast(wAno as varchar4)) as date);
        insert into tabela (etc, etc, parcela, vencimento, valor, etc)
           values
                   (etc, etc, :wParcela, :wData, :valor, etc
       wParcela = wParcela + 1;
       wMes = wMes + 1;
       if (wMes >12) then
          begin
               wMes = 1;
               wAno = wAno + 1;
          end
     end
end;
^
set term ;^


isso vai bem pra qd vc quiser dia 5, q é seu caso, tem q tomar cuidados
especiais qd for para qualquer dia, acima do dia 28,

espero ter ajudado

samuel