
/****************************************************************************************************/

/* Hard-coded Stored Procedure */
/****************************************************************************************************/

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 = 8164 and Mahnstufe = 1)';
  Execute Stmt;
  Prepare Stmt from
  'Update Rechnungen set Mahnung2 = Current_Date,
  Mahngebuehr2 = ' + Cast(Mahngebuehr2 as VarChar) + '
  where RechnungenID in (select RechnungenID from Mahnungen where 
  RechnungenID = 8164 and Mahnstufe = 2)';
  Execute Stmt;
  Prepare Stmt from
  'Update Rechnungen set Mahnung3 = Current_Date,
  Mahngebuehr3 = ' + Cast(Mahngebuehr3 as VarChar) + '
  where RechnungenID in (select RechnungenID from Mahnungen where 
  RechnungenID = 8164 and Mahnstufe = 3)';
  Execute Stmt;
  Prepare Stmt from
  'Update Rechnungen set Inkasso = Current_Date
  where RechnungenID in (select RechnungenID from Mahnungen where 
  RechnungenID = 8164 and Mahnstufe = 4)';
  Execute Stmt;

  /* 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


/****************************************************************************************************/
/* Same Stored Procedure with parameter ID = 8164*/
/****************************************************************************************************/

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 ID;
  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 ID;
  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 ID;
  Prepare Stmt from
  'Update Rechnungen set Inkasso = Current_Date
  where RechnungenID in (select RechnungenID from Mahnungen where 
  RechnungenID = ? and Mahnstufe = 4)';
  Execute Stmt using ID;

  /* 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







   