Prozeduren

FT_RENUMPOSITION

Eingabeparameter

(Es gibt keine Eingabeparameter)

Ausgabeparameter

(Es gibt keine Ausgabeparameter)

Beschreibung

Nummeriert die Filter Position neu durch.

Definition

CREATE PROCEDURE FT_RENUMPOSITION
AS
  DECLARE VARIABLE ftid INTEGER;
  DECLARE VARIABLE ftposition INTEGER;
  DECLARE VARIABLE ftpos_neu  INTEGER;
  DECLARE VARIABLE ftpos_alt  INTEGER;
BEGIN
  ftpos_alt = -1000;
  ftpos_neu = 0;
  FOR SELECT FTID, FTPOS FROM FILTERTYP
      ORDER BY FTPOS ASCENDING
      INTO :ftid, :ftposition
  DO BEGIN
    IF ( ((ftposition - ftpos_alt) < 250) OR (ftposition < 0) ) THEN BEGIN
      UPDATE FILTERTYP SET FTPOS = :ftpos_neu
      WHERE FTID = :ftid;
      ftposition = ftpos_neu;
    END
    ftpos_alt = ftposition;
    ftpos_neu = ftposition + 100;
  END
END