Fórum parcelas do carnê #58118

      for select m.idassociado
          from mensatraso m
               inner join associados a     on (a.idassociado = m.idassociado)
               inner join controlmensorg c on (a.idorgao = c.idorgao)
          where
                cast(´01.´ || m.mes || ´.´ || m.ano as date) >= cast(:DATAINIBLOQ as date)
          group by m.idassociado
          having count(m.idassociado) >= :MESESCONTROLE
      into :IDASSOCIADOMENS  do
begin

CREATE PROCEDURE "GERARPARCELA" 
(
  "PCCL" INTEGER,
  "PCPL" INTEGER,
  "PCFC" INTEGER,
  "PCDV" DATE,
  "PCFB" INTEGER
)
AS
DECLARE VARIABLE I INTEGER;
DECLARE VARIABLE D INTEGER;
DECLARE VARIABLE M INTEGER;
DECLARE VARIABLE A INTEGER;
DECLARE VARIABLE C VARCHAR(10);
DECLARE VARIABLE S DATE;
DECLARE VARIABLE R DECIMAL(18, 4);
DECLARE VARIABLE P DECIMAL(18, 4);
DECLARE VARIABLE O DECIMAL(18, 4);
DECLARE VARIABLE T DECIMAL(18, 4);
DECLARE VARIABLE U INTEGER;
DECLARE VARIABLE N INTEGER;
DECLARE VARIABLE W INTEGER;
DECLARE VARIABLE TR DATE;
DECLARE VARIABLE CF INTEGER;
DECLARE VARIABLE CC INTEGER;
DECLARE VARIABLE DA INTEGER;
BEGIN

SELECT MAX(PCDV) FROM PARCELAS
    WHERE PCCL=:PCCL
    INTO :TR;

if (PCDV <= TR) then BEGIN
   EXCEPTION A001;
   EXIT;
   END

I=0;
--Passa os parametros do plano
SELECT PLVP, PLVI, PLIS, PLNP, PLPF FROM PLANOS
WHERE PLCD=:PCPL
INTO P, O, U, N, CF;

SELECT FCCO FROM FUNCIONARIOS
WHERE FCCD=:PCFC
INTO R;

T= (R / 100) * P;
--SEPARA OS DIAS MESES E ANO
S =PCDV;
D = CAST (EXTRACT (DAY   FROM (:PCDV)) AS INTEGER);
M = CAST (EXTRACT (MONTH FROM (:PCDV)) AS INTEGER);
A = CAST (EXTRACT (YEAR  FROM (:PCDV)) AS INTEGER);
I = 1;
W = 0;

--Vefifica se a parela e a 1º e se e uma inscrição
if ((U=1) AND (:TR IS NULL)) then begin
    N=N+1;
    W=1;
    end

    DA=D;
    
WHILE (I <= N) DO BEGIN
  INSERT INTO PARCELAS
  (PCCL,   PCPL, PCDV, PCFC, PCRP, PCVL, PCVI, PCTP, PCFT, PCFB)
  VALUES
  (:PCCL, :PCPL, :S,  :PCFC, :T, :P - :T, :O, :W, 0, :PCFB);
  if (CF=0) then
      M = M + 1; ELSE
      A = A + 1;

  I = I + 1;
  IF (M=13) THEN BEGIN
      M=1;
      A= A + 1;
      END

  IF ((D > 28) AND (M=2)) THEN
      D=28;

  C = CAST (M AS VARCHAR(2)) ||´/´|| CAST (D  AS VARCHAR(2)) ||´/´|| CAST (A AS VARCHAR(4));
  S = CAST (C AS DATE);
  W = 0;
  D = DA;
  END
  SUSPEND;