SE_CALC

Prozeduren

SE_CALC

Eingabeparameter

Parameter	Typ	Beschreibung
SNID	INTEGER	ID der Sendung.
MINZEIT	INTEGER	Minimale Anspielzeit. Wird ein Element eingekürzt und die Daür liegt unter der minimalen Anspielzeit, wird ein zusätzliches Element in die SENDEELEMENTE Tabelle eingefügt welches darauf hinweist. Dieses wird dann z.B. in der Planning Base grafisch dargestellt.

Ausgabeparameter

Parameter	Typ	Beschreibung
TEST	INTEGER	Ruckgabewert dient nur zu Testzwecken.

Beschreibung

Führt die Berechnung einer Sendung (eine Stunde von Stundenbeginn) durch. (Ruft SE_CALC_FROM_SEID auf)

Definition

CREATE PROCEDURE SE_CALC(
    SNID INTEGER,
    MINZEIT INTEGER)
RETURNS (
    TEST INTEGER)
AS
  DECLARE VARIABLE AktSeId INTEGER;
  DECLARE VARIABLE AktSeZeit INTEGER;
  DECLARE VARIABLE TST INTEGER;
BEGIN

    /*
      Ganze Stunde Nachrechnen

      Holt das erste Element der Stunde und fuehrt die Berechnung ab
      diesem Sendeelement aus.
    */

    TEST = 0;
    TST = 0;

    FOR SELECT SEID,SEZEIT FROM SENDEELEMENTE
      WHERE (SESNID = :SnId)
      ORDER BY SEPOSITION ASCENDING
      ROWS 1
      INTO
        :AktSeID, :AktSeZeit
    DO
    BEGIN

      EXECUTE PROCEDURE SE_CALC_FROM_SEID(SNID,MINZEIT,AktSeID,AktSeZeit)
        RETURNING_VALUES :TST;

      TEST = TST;

    END

END