Prozeduren

SE_REPLAN_ELEMENTS

Eingabeparameter

Ausgabeparameter

Beschreibung

Wird von der Planning Base beim Sendung kopieren aufgerufen, wenn CopyHourReplanElements=1 eingestellt ist.
Dadurch können auch entplante Stunden so kopiert werden, dass diese wieder den Link zum Titel besitzen.

Definition

CREATE PROCEDURE SE_REPLAN_ELEMENTS(
    SNID INTEGER)
RETURNS (
    UPDATED INTEGER)
AS
  DECLARE VARIABLE SeId       INTEGER;
  DECLARE VARIABLE TmpTiSts   INTEGER;
  DECLARE VARIABLE TmpTiID    INTEGER;
  DECLARE VARIABLE SeSystemNr CHAR(20);
BEGIN
  Updated = 0;
  FOR SELECT   SEID, SESYSTEMNR 
      FROM     SENDEELEMENTE
      WHERE    (SESNID = :SnID) AND 
               (SETIID IS NULL) AND
               (SESYSTEMNR IS NOT NULL)
      ORDER BY SEPOSITION ASCENDING
      INTO     :SeId, :SeSystemNr
  DO BEGIN
     FOR SELECT  TIID, TISTATUS 
         FROM    TITEL
         WHERE   (TISYSTEMNR = :SeSystemNr)
         INTO    :TmpTiID, :TmpTiSts
     DO BEGIN
        IF (:TmpTiSts >= 3) THEN BEGIN
          UPDATE   TITEL 
          SET      TISTATUS = :TmpTiSts + 1
          WHERE    (TIID = :TmpTiID);
        END
        ELSE BEGIN
          UPDATE   TITEL 
          SET      TISTATUS = 3
          WHERE    (TIID = :TmpTiID);
        END
        UPDATE     SENDEELEMENTE 
        SET        SETIID = :TmpTiID
        WHERE      (SEID = :SeId);
        Updated = Updated + 1;
     END
  END
END