SE_CALC_INS

Prozeduren

SE_CALC_INS_DIFF

Eingabeparameter

Parameter	Typ	Beschreibung
ELETYP	INTEGER	Element Typ. 0 für "Fehlzeit", alle anderen Werte für "Anspielzeit zu kurz".
SNID	INTEGER	ID der Sendung.
SEDATUM	DATE	Sendeelement Datum.
SPPOSITION	INTEGER	Sendeplan Position.
SNPOSITION	INTEGER	Sendungs Position.
SEPOSITION	INTEGER	Sendeelement Position.
SEZEIT	INTEGER	Sendeelement Zeit.
SELAENGE	INTEGER	Daür der "Fehlzeit" resp. "Anspielzeit"
SEGRUPPE	CHAR(1)	Sendeelement Gruppe.

Ausgabeparameter

(Es gibt keine Ausgabeparameter)

Beschreibung

Fügt eine Zeile für eine "Fehlzeit", oder "Anspielzeit zu kurz" in die SENDEELEMENTE Tabelle ein.

Definition

CREATE PROCEDURE SE_CALC_INS_DIFF(
    ELETYP INTEGER,
    SNID INTEGER,
    SEDATUM DATE,
    SPPOSITION INTEGER,
    SNPOSITION INTEGER,
    SEPOSITION INTEGER,
    SEZEIT INTEGER,
    SELAENGE INTEGER,
    SEGRUPPE CHAR(1))
AS
  DECLARE VARIABLE SeId   INTEGER;
  DECLARE VARIABLE NewPos INTEGER;
BEGIN
  EXECUTE PROCEDURE NEW_SEID RETURNING_VALUES SeId;
  NewPos = SePosition + 50;
  IF (EleTyp = 0) THEN BEGIN
    INSERT INTO SENDEELEMENTE (
      SEID,SESNID,SEDATUM,SESPPOSITION,SESNPOSITION,SEPOSITION,SEZEIT,
      SEDAUER,SESTARTNEXT,SERFLAG,SETYP,SETITELTHEMA,SEGRUPPE
    )
    VALUES (
      :SeId,:SnId,:SeDatum,:SpPosition,:SnPosition,:NewPos,:SeZeit,
      :SeLaenge,:SeLaenge,'-','F','FEHLZEIT','-'
    );
  END
  ELSE BEGIN
    INSERT INTO SENDEELEMENTE (
      SEID,SESNID,SEDATUM,SESPPOSITION,SESNPOSITION,SEPOSITION,SEZEIT,
      SEDAUER,SESTARTNEXT,SERFLAG,SETYP,SETITELTHEMA,SEGRUPPE
    )
    VALUES (
      :SeId,:SnId,:SeDatum,:SpPosition,:SnPosition,:NewPos,:SeZeit,
      :SeLaenge,:SeLaenge,'K','U','ANSPIELZEIT ZU KURZ !','-'
    );
  END
END