BEGIN
 DECLARE Mahngebuehr2 Float Default 0;
 DECLARE Mahngebuehr3 Float Default 0;
 DECLARE Condition VarChar;
 DECLARE Result CURSOR FOR Stmt;

 Prepare Stmt FROM
   'select Mahngebuehr2, Mahngebuehr3 from optionen';
 Open Result;
 Fetch First FROM Result(Mahngebuehr2, Mahngebuehr3) INTO Mahngebuehr2, Mahngebuehr3;
 Close Result;
 Prepare Stmt from
 'Update Rechnungen set Mahnung1 = Current_Date
 where RechnungenID in (select RechnungenID from Mahnungen 
 where RechnungenID = ? and Mahnstufe = 1)';
 Execute Stmt using RechnungenID;
 Prepare Stmt from
 'Update Rechnungen set Mahnung2 = Current_Date,
 Mahngebuehr2 = ' + Cast(Mahngebuehr2 as VarChar) + '
 where RechnungenID in (select RechnungenID from Mahnungen where RechnungenID = ? and
Mahnstufe = 2)';
 Execute Stmt using RechnungenID;
 Prepare Stmt from
 'Update Rechnungen set Mahnung3 = Current_Date,
 Mahngebuehr3 = ' + Cast(Mahngebuehr3 as VarChar) + '
 where RechnungenID in (select RechnungenID from Mahnungen where RechnungenID = ? and
Mahnstufe = 3)';
 Execute Stmt using RechnungenID;
 Prepare Stmt from
 'Update Rechnungen set Inkasso = Current_Date
 where RechnungenID in (select RechnungenID from Mahnungen where RechnungenID = ? and
Mahnstufe = 4)';
 Execute Stmt using RechnungenID;

 /* Mahnungen für Protokoll bearbeiten */
 Execute Immediate 'Update Mahnungen set Mahnung1 = Current_Date where
 Mahnstufe = 1';
 Execute Immediate 'Update Mahnungen set Mahnung2 = Current_Date where
 Mahnstufe = 2';
 Execute Immediate 'Update Mahnungen set Mahnung3 = Current_Date where
 Mahnstufe = 3';
 Execute Immediate 'Update Mahnungen set Inkasso = Current_Date where
 Mahnstufe = 4';
END