1:
2:
3:
4:
5:
6:
7:
8:
9:

CREATE TABLE RATEN (
    RATEN_ID          INTEGER NOT NULL,
    RATEN_NR          INTEGER,
    RATEN_START_DAT   D_DATUMNULL,
    RATEN_END_DAT     D_DATUMNULL,
    RATEN_BETRAG      D_ZAHL2KOMMANOTNULL,      //monatliche Rate
    LEASING_VERTR_ID  TINT,                     //Vertrags-ID
    RATEN_MONAT       D_DATUMNULL
);                    

1:
2:
3:
4:
5:
6:
7:
8:

CREATE TABLE RATEN2 (
    VERTR_ID INTEGER NOT NULL,
    RATE01   D_ZAHL2KOMMA,
    RATE02   D_ZAHL2KOMMA,
    //undsoweiter
    RATE71   D_ZAHL2KOMMA,
    RATE72   D_ZAHL2KOMMA
)                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

PROCEDURE wasweissich 
FOR SELECT LEASING_VERTR_ID
  FROM RATEN
  INTO :act_ID
DO
  FOR SELECT LEASING_VERTR_ID, RATEN_BETRAG, RATEN_NR
    FROM RATEN
    INTO :temp_ID, :temp_BETRAG
    WHERE LEASING_VERTR_ID = :act_ID
    ORDER BY RATEN_NR
  DO
    IF(erster_datensatz)
      INSERT INTO RATEN2 (VERTR_ID, RATE01) VALUES (:temp_ID, :temp_BETRAG)
    ELSE
      UPDATE RATEN2 SET RATE_xx = :temp_BETRAG    //hier Problem
      WHERE :temp_ID = :act_ID

  SUSPEND;
END;                    

1:
2:
3:
4:
5:
6:

select   [ID],
  sum (case when Nr=1 then Wert Else NULL end) as Wert1,
  sum (case when Nr=2 then Wert Else NULL end) as Wert2,
  sum (case when Nr=3 then Wert Else NULL end) as Wert3
from Tabelle 
group by [ID]                    

1:
2:
3:
4:
5:
6:

select [ID],
   (select Sum (Wert) from Tabelle x where x.Nr = 1 and x.[ID] = t.[ID]) as Wert1,
   (select Sum (Wert) from Tabelle x where x.Nr = 2 and x.[ID] = t.[ID]) as Wert2,
   (select Sum (Wert) from Tabelle x where x.Nr = 3 and x.[ID] = t.[ID]) as Wert3
from Tabelle t 
group by [ID]                    

1:
2:
3:
4:

ForEach Record r do
  T.Locate ('Vertrag_ID',r.ID,[]);
  F := FindNullRatenField (T);
  F.AsInteger := R.Rate