Fórum Código SQL no Firebird 2.1 #60323

select CONTRATOS.CODIGO, CONTRATOS.CODCLIENTETITULAR, PLANOSPAGAMENTOS.ANOREFERENCIA, PLANOSPAGAMENTOS.MESREFERENCIA from CONTRATOS,planospagamentos where contratos.CODIGO = PLANOSPAGAMENTOS.CONTRATO

create procedure SP_PROCESSA_PRESTACOES_ATRASADAS
as
declare variable DATA1PARCELA DATE;
declare variable DATAINICIAL DATE;
declare variable DATAFINAL DATE;
declare variable CONTADOR_PAG INTEGER;
declare variable LOJA DM_KEYNO;
declare variable CONTRATO DM_KEYNO;
declare variable MESREFERENCIA SMALLINT;
declare variable ANOREFERENCIA SMALLINT;
declare variable VALOR DM_CURRENCY;

begin
  DATAFINAL = CURRENT_DATE;
  for select DATVENC1PARCELA, CODIGO, CODLOJA, VALORMENSALIDADE
    from CONTRATOS into DATA1PARCELA, CONTRATO, LOJA, VALOR  do
  begin
    DATAINICIAL = DATA1PARCELA;
    while (DATAINICIAL < DATAFINAL) do
    begin
      MESREFERENCIA = EXTRACT(MONTH from DATAINICIAL);
      ANOREFERENCIA = EXTRACT(YEAR from DATAINICIAL);

      select count(*) from PLANOSPAGAMENTOS where
        (PLANOSPAGAMENTOS.ANOREFERENCIA = ANOREFERENCIA) and (PLANOSPAGAMENTOS.MESREFERENCIA = MESREFERENCIA)
      into CONTADOR_PAG;

      if (CONTADOR_PAG = 0) then
      begin
        insert into
          TEMP_PRESATRASADAS(LOJA, CONTRATO, MESREFERENCIA, ANOREFERENCIA, VALOR)
        values
          (:LOJA, :CONTRATO, :MESREFERENCIA, :ANOREFERENCIA, :VALOR);
      end
      DATAINICIAL = F_ADDMONTH(DATAFINAL, 1);
    end
  end
end