SE_TITEL_PLANEN2

Prozeduren
SE_TITEL_PLANEN2_EX
Eingabeparameter
Parameter	Typ	Beschreibung
SRCTIID	INTEGER	Primary Key Wert von der TITEL Tabelle
DESTSNID	INTEGER	Primary Key Wert von der SENDUNGEN Tabelle
DESTSEPOSITION	INTEGER	Damit wird die Position angegeben, wohin geplant werden soll.
DESTSEFILENAME	CHAR(255)	Damit wird der Eintrag ins SEFILENAME Feld angegeben.
INSCOPY	INTEGER	Bei =0 wird das Sendeelement überplant. Bei =1 wird ein neues Sendelement eingefügt.
MODE	INTEGER	Bei =0 werden alle Felder von der Titel Tabelle übernommen. Bei =1 wird nur das Audio mit den Zeiten ersetzt.
BEFOREDEST	INTEGER	Bei InsCopy=1 bestimmt dies den Offset Wert zur DestSePosition. Sinnvolle Werte sind 0, 1 und 2.
TO_TRASH	INTEGER	Bei =1 wird eine Kopie vom überplanten Sendeelement im Papierkorb erstellt.
Ausgabeparameter
Parameter	Typ	Beschreibung
NEWDESTSEID	INTEGER	Primary Key Wert von der SENDEELEMENTE Tabelle
NEWDESTSEPOSITION	INTEGER	Gibt die neue Position zurück.
Beschreibung
Damit kann ein Titel in einer Sendung geplant werden. Es wird genau auf die Ziel-Position geplant! Wird von diversen Modulen verwendet. IM/IR/IW/AR/EA
Definition
CREATE PROCEDURE SE_TITEL_PLANEN2_EX(
    SRCTIID INTEGER,
    DESTSNID INTEGER,
    DESTSEPOSITION INTEGER,
    DESTSEFILENAME CHAR(255),
    INSCOPY INTEGER,
    MODE INTEGER,
    BEFOREDEST INTEGER,
    TO_TRASH INTEGER)
RETURNS (
    NEWDESTSEID INTEGER,
    NEWDESTSEPOSITION INTEGER)
AS
  DECLARE VARIABLE TiId            INTEGER;
  DECLARE VARIABLE TiFaId          INTEGER;

  DECLARE VARIABLE TiTyp           CHAR(2);
  DECLARE VARIABLE TiTitelThema    CHAR(80);
  DECLARE VARIABLE TiInterpret     CHAR(80);
  DECLARE VARIABLE TiKurzBez       CHAR(10);
  DECLARE VARIABLE TiGeschlecht    CHAR(1);
  DECLARE VARIABLE TiJahrgang      SMALLINT;
  DECLARE VARIABLE TiHitJahrgang   SMALLINT;
  DECLARE VARIABLE TiAutor         CHAR(80);
  DECLARE VARIABLE TiArchivNr      CHAR(50);
  DECLARE VARIABLE TiArchivNr_2    CHAR(50);
  DECLARE VARIABLE TiSystemNr      CHAR(20);
  DECLARE VARIABLE TiErstellDatum  DATE;
  DECLARE VARIABLE TiErsteller     CHAR(20);
  DECLARE VARIABLE TiBearbDatum    DATE;
  DECLARE VARIABLE TiBearbeiter    CHAR(20);
  DECLARE VARIABLE TiAnmoderation  BLOB SUB_TYPE 1;
  DECLARE VARIABLE TiText          BLOB SUB_TYPE 1;
  DECLARE VARIABLE TiAbmoderation  BLOB SUB_TYPE 1;
  DECLARE VARIABLE TiZusatztext    BLOB SUB_TYPE 1;
  DECLARE VARIABLE TiZusatzFeld1   CHAR(80);
  DECLARE VARIABLE TiZusatzFeld2   CHAR(80);

  DECLARE VARIABLE TiQuelle        CHAR(1);
  DECLARE VARIABLE TiFileName      CHAR(20);
  DECLARE VARIABLE TiVorlauf       INTEGER;
  DECLARE VARIABLE TiFadeIn        INTEGER;
  DECLARE VARIABLE TiMittelteil    INTEGER;
  DECLARE VARIABLE TiFadeOut       INTEGER;
  DECLARE VARIABLE TiNachlauf      INTEGER;
  DECLARE VARIABLE TiStartNext     INTEGER;
  DECLARE VARIABLE TiIntro1        INTEGER;
  DECLARE VARIABLE TiIntro2        INTEGER;
  DECLARE VARIABLE TiIntro3        INTEGER;
  DECLARE VARIABLE TiRefrain1      INTEGER;
  DECLARE VARIABLE TiRefrain2      INTEGER;
  DECLARE VARIABLE TiRefrain3      INTEGER;
  DECLARE VARIABLE TiRefrain4      INTEGER;
  DECLARE VARIABLE TiAudioFlag     SMALLINT;
  DECLARE VARIABLE TiFadeInChar    CHAR(1);
  DECLARE VARIABLE TiFadeOutChar   CHAR(1);
  DECLARE VARIABLE TiOutroChar     CHAR(1);
  DECLARE VARIABLE TiStatus        SMALLINT;
  DECLARE VARIABLE TiLevelOffset   INTEGER;
  DECLARE VARIABLE TiInfo          CHAR(100);
  DECLARE VARIABLE TiVerlag        VARCHAR(255);
  DECLARE VARIABLE TiKatalogNr     CHAR(30);
  DECLARE VARIABLE TiIsrc          CHAR(20);
  DECLARE VARIABLE TiAlbumName     CHAR(80);
  DECLARE VARIABLE TiKomponist     VARCHAR(255);
  DECLARE VARIABLE TiTexter        VARCHAR(255);
  DECLARE VARIABLE TiLaId          INTEGER;
  DECLARE VARIABLE TiObjId         VARCHAR(50);
  DECLARE VARIABLE TiMosId         VARCHAR(50);
  DECLARE VARIABLE TiPlayerStatus  SMALLINT;
  DECLARE VARIABLE TiAspectRatio   SMALLINT;
  DECLARE VARIABLE SeId            INTEGER;
  DECLARE VARIABLE SeSnId          INTEGER;
  DECLARE VARIABLE SeTiId          INTEGER;
  DECLARE VARIABLE SeDatum         DATE;
  DECLARE VARIABLE SeSpPosition    INTEGER;
  DECLARE VARIABLE SeSnPosition    INTEGER;
  DECLARE VARIABLE SePosition      INTEGER;
  DECLARE VARIABLE SeZeit          INTEGER;
  DECLARE VARIABLE SeDauer         INTEGER;
  DECLARE VARIABLE SeSequenz       CHAR(1);
  DECLARE VARIABLE SeGruppe        CHAR(1);
  DECLARE VARIABLE SeFixeLaenge    INTEGER;
  DECLARE VARIABLE SeStatus        SMALLINT;
  DECLARE VARIABLE SeRegion        SMALLINT;
  DECLARE VARIABLE TiHerkunftId    INTEGER;
  DECLARE VARIABLE TiMusikVersionId INTEGER;
  DECLARE VARIABLE MfId            INTEGER;
  DECLARE VARIABLE ParentId        INTEGER;
  DECLARE VARIABLE KurzBez         CHAR(10);
  DECLARE VARIABLE TiSyncIn        INTEGER;
  DECLARE VARIABLE TiSyncOut       INTEGER;
  DECLARE VARIABLE TiVorzeitigerSN INTEGER;
BEGIN

  /* Sendeelement einfuegen */
  IF (InsCopy = 1) THEN BEGIN
    /* Felder fuer neuen Datensatz erstellen */
    EXECUTE PROCEDURE NEW_SEID RETURNING_VALUES SeId;
    SePosition = DestSePosition + BeforeDest;
    /* Destination Felder lesen */
    SELECT SESNID,SEDATUM,SEZEIT,SESPPOSITION,SESNPOSITION,SEGRUPPE,SEREID
    FROM SENDEELEMENTE
    WHERE (SESNID = :DestSnId) AND (SEPOSITION = :DestSePosition)
    INTO :SeSnId,:SeDatum,:SeZeit,:SeSpPosition,:SeSnPosition,:SeGruppe,:SeRegion;
  END


  /* Sendeelement/Platzhalter ueberschreiben */
  ELSE BEGIN
    SeSnId       = DestSnId;
    SePosition   = DestSePosition;

    /* Destination Felder lesen */
    SELECT
      SEID,SESNID,SETIID,SEDATUM,SESPPOSITION,SESNPOSITION,SEPOSITION,
      SEZEIT,SEDAUER,SESEQUENZ,SEGRUPPE,SEFIXELAENGE,SESTATUS,SEREID
    FROM SENDEELEMENTE
    WHERE (SESNID = :SeSnId) AND (SEPOSITION = :SePosition)
    INTO
      :SeId,:SeSnId,:SeTiId,:SeDatum,:SeSpPosition,:SeSnPosition,:SePosition,
      :SeZeit,:SeDauer,:SeSequenz,:SeGruppe,:SeFixeLaenge,:SeStatus,:SeRegion;

    /* Alten Titel-Status dekrementieren */
    IF (:SeTiId IS NOT NULL) THEN BEGIN
      SELECT TISTATUS FROM TITEL
      WHERE (TIID = :SeTiId)
      INTO :TiStatus;
      IF (TiStatus > 3) THEN BEGIN
        UPDATE TITEL SET TISTATUS = :TiStatus - 1
        WHERE (TIID = :SeTiId);
      END
      ELSE BEGIN
        UPDATE TITEL SET TISTATUS = 1
        WHERE (TIID = :SeTiId);
      END
    END
  END


  /* Titel-Felder lesen */
  SELECT
    TIID,TIFAID,
    TITYP,TITITELTHEMA,TIINTERPRET,TIKURZBEZ,TIGESCHLECHT,TIJAHRGANG,TIHITJAHRGANG,TIAUTOR,
    TIARCHIVNR,TISYSTEMNR,TIERSTELLDATUM,TIERSTELLER,TIBEARBDATUM,TIBEARBEITER,
    TIANMODERATION,TITEXT,TIABMODERATION,TIZUSATZTEXT,TIZUSATZFELD1,TIZUSATZFELD2,
    TIQUELLE,TIFILENAME,TIVORLAUF,TIFADEIN,TIMITTELTEIL,TIFADEOUT,TINACHLAUF,TISTARTNEXT,
    TIINTRO1,TIINTRO2,TIINTRO3,TIREFRAIN1,TIREFRAIN2,TIREFRAIN3,TIREFRAIN4,
    TIFADEINCHAR,TIFADEOUTCHAR,TIOUTROCHAR,TISTATUS,TILEVELOFFSET,TIAUDIOFLAG,
    TIINFO,TIVERLAG,TIKATALOGNR,TIISRC,TIALBUMNAME,TIKOMPONIST,TITEXTER,TILAID,
    TIOBJID,TIMOSID,TIPLAYERSTATUS,TIASPECTRATIO,TIHERKUNFTID,TIMUSIKVERSIONID,
    TISYNCIN,TISYNCOUT,TIVORZEITIGER_STARTNEXT,TIARCHIVNR_2
  FROM TITEL
  WHERE (TIID = :SrcTiId)
  INTO
    :TiId,:TiFaId,
    :TiTyp,:TiTitelThema,:TiInterpret,:TiKurzBez,:TiGeschlecht,:TiJahrgang,:TiHitJahrgang,:TiAutor,
    :TiArchivNr,:TiSystemNr,:TiErstelldatum,:TiErsteller,:TiBearbDatum,:TiBearbeiter,
    :TiAnmoderation,:TiText,:TiAbmoderation,:TiZusatzText,:TiZusatzFeld1,:TiZusatzFeld2,
    :TiQuelle,:TiFileName,:TiVorlauf,:TiFadeIn,:TiMittelteil,:TiFadeOut,:TiNachlauf,:TiStartNext,
    :TiIntro1,:TiIntro2,:TiIntro3,:TiRefrain1,:TiRefrain2,:TiRefrain3,:TiRefrain4,
    :TiFadeInChar,:TiFadeOutChar,:TiOutroChar,:TiStatus,:TiLevelOffset,:TiAudioFlag,
    :TiInfo,:TiVerlag,:TiKatalogNr,:TiIsrc,:TiAlbumName,:TiKomponist,:TiTexter,:TiLaId,
    :TiObjId,:TiMosId,:TiPlayerStatus,:TiAspectRatio,:TiHerkunftId,:TiMusikVersionId,
    :TiSyncIn,:TiSyncOut,:TiVorzeitigerSN,:TiArchivNr_2;
  /* DABDB-361 */
  MfId = NULL;
  SELECT MAX(MSMFID) FROM MARKENSETS WHERE (MSTIID = :SrcTiId) 
  INTO :MfId;
  IF (MfId IS NOT NULL) THEN BEGIN
    KurzBez = NULL;
    SELECT WEMFKURZBEZ
    FROM SENDEPLAENE JOIN SENDUNGEN ON (SNSPID = SPID), WELLEN
    WHERE (SNID = :DestSnId) AND (SPWELLE = WEID)
    INTO :KurzBez;
    IF (KurzBez IS NOT NULL) THEN BEGIN
      SELECT MFID, (SELECT MFID FROM MUSIKFORMAT MF2 WHERE MF1.MFPARENTID = MF2.MFID)
      FROM MUSIKFORMAT MF1
      WHERE (MF1.MFKURZBEZ = :KurzBez)
      INTO :MfId,:ParentId;
      /* Mit Parent Markensets ersetzen */
      SELECT
        MSVORLAUF,MSFADEIN,MSMITTELTEIL,MSFADEOUT,MSNACHLAUF,MSSTARTNEXT,
        MSINTRO1,MSINTRO2,MSINTRO3,MSREFRAIN1,MSREFRAIN2,MSREFRAIN3,MSREFRAIN4,
        MSSYNCIN,MSSYNCOUT,MSVORZEITIGER_STARTNEXT
      FROM MARKENSETS
      WHERE (MSMFID = :ParentId) AND (MSTIID = :SrcTiId)
      INTO
        :TiVorlauf,:TiFadeIn,:TiMittelteil,:TiFadeOut,:TiNachlauf,:TiStartNext,
        :TiIntro1,:TiIntro2,:TiIntro3,:TiRefrain1,:TiRefrain2,:TiRefrain3,:TiRefrain4,
        :TiSyncIn,:TiSyncOut,:TiVorzeitigerSN;
      /* Mit Sender Markensets ersetzen */
      SELECT
        MSVORLAUF,MSFADEIN,MSMITTELTEIL,MSFADEOUT,MSNACHLAUF,MSSTARTNEXT,
        MSINTRO1,MSINTRO2,MSINTRO3,MSREFRAIN1,MSREFRAIN2,MSREFRAIN3,MSREFRAIN4,
        MSSYNCIN,MSSYNCOUT,MSVORZEITIGER_STARTNEXT
      FROM MARKENSETS
      WHERE (MSMFID = :MfId) AND (MSTIID = :SrcTiId)
      INTO
        :TiVorlauf,:TiFadeIn,:TiMittelteil,:TiFadeOut,:TiNachlauf,:TiStartNext,
        :TiIntro1,:TiIntro2,:TiIntro3,:TiRefrain1,:TiRefrain2,:TiRefrain3,:TiRefrain4,
        :TiSyncIn,:TiSyncOut,:TiVorzeitigerSN;
    END
  END
  /* SeDauer bestimmen */
  SeDauer = TiStartNext;
  IF ((SeSequenz = 'F') AND (SeFixeLaenge > 0)) THEN BEGIN
    IF (SeFixeLaenge < SeDauer) THEN
      SeDauer = SeFixeLaenge;
  END

  /* Neuen Titel-Status inkrementieren */
  IF (TiStatus > 2) THEN BEGIN
    UPDATE TITEL SET TISTATUS = :TiStatus + 1
    WHERE (TIID = :SrcTiId);
  END
  ELSE BEGIN
    UPDATE TITEL SET TISTATUS = 3
    WHERE (TIID = :SrcTiId);
  END

  /* Fremdschluessel in den Sendeelementen zum Titel */
  SeTiId = TiId;

  /* Sendeelement einfuegen */
  IF (InsCopy = 1) THEN BEGIN
    INSERT INTO SENDEELEMENTE (
      SEID,SESNID,SETIID,SEDATUM,SESPPOSITION,SESNPOSITION,SEPOSITION,
      SEZEIT,SEGRUPPE,
      SETYP,SETITELTHEMA,SEINTERPRET,SEKURZBEZ,SEGESCHLECHT,SEJAHRGANG,SEHITJAHRGANG,SEAUTOR,
      SEARCHIVNR,SESYSTEMNR,SEERSTELLDATUM,SEERSTELLER,SEBEARBDATUM,SEBEARBEITER,
      SEANMODERATION,SETEXT,SEABMODERATION,SEZUSATZTEXT,SEZUSATZFELD1,SEZUSATZFELD2,
      SEQUELLE,SEFILENAME,
      SEVORLAUF,SEFADEIN,SEMITTELTEIL,SEFADEOUT,SENACHLAUF,SESTARTNEXT,SEDAUER,
      SEINTRO1,SEINTRO2,SEINTRO3,SEREFRAIN1,SEREFRAIN2,SEREFRAIN3,SEREFRAIN4,
      SEFADEINCHAR,SEFADEOUTCHAR,SEOUTROCHAR,SELEVELOFFSET,SEAUDIOFLAG,
      SEINFO,SEVERLAG,SEKATALOGNR,SEISRC,SEALBUMNAME,SEKOMPONIST,SETEXTER,SELAID,
      SEOBJID,SEMOSID,SEPLAYERSTATUS,SEASPECTRATIO,SEREID,SEHERKUNFTID,SEMUSIKVERSIONID,
      SESYNCIN,SESYNCOUT,SEVORZEITIGER_STARTNEXT,SEARCHIVNR_2
    )
    VALUES (
      :SeId,:SeSnId,:SeTiId,:SeDatum,:SeSpPosition,:SeSnPosition,:SePosition,
      :SeZeit,:SeGruppe,
      :TiTyp,:TiTitelThema,:TiInterpret,:TiKurzBez,:TiGeschlecht,:TiJahrgang,:TiHitJahrgang,:TiAutor,
      :TiArchivNr,:TiSystemNr,:TiErstelldatum,:TiErsteller,:TiBearbDatum,:TiBearbeiter,
      :TiAnmoderation,:TiText,:TiAbmoderation,:TiZusatzText,:TiZusatzFeld1,:TiZusatzFeld2,
      :TiQuelle,:DestSeFileName,
      :TiVorlauf,:TiFadeIn,:TiMittelteil,:TiFadeOut,:TiNachlauf,:TiStartNext,:SeDauer,
      :TiIntro1,:TiIntro2,:TiIntro3,:TiRefrain1,:TiRefrain2,:TiRefrain3,:TiRefrain4,
      :TiFadeInChar,:TiFadeOutChar,:TiOutroChar,:TiLevelOffset,:TiAudioFlag,
      :TiInfo,:TiVerlag,:TiKatalogNr,:TiISrc,:TiAlbumName,:TiKomponist,:TiTexter,:TiLaId,
      :TiObjId,:TiMosId,:TiPlayerStatus,:TiAspectRatio,:SeRegion,:TiHerkunftId,:TiMusikVersionId,
      :TiSyncIn,:TiSyncOut,:TiVorzeitigerSN,:TiArchivNr_2
    );
  END

  /* Sendeelement/Platzhalter ueberschreiben */
  ELSE BEGIN

    /* DABDB-391 */
    IF (TO_TRASH = 1) THEN
      EXECUTE PROCEDURE SE_COPY_TO_TRASH (SeId, DestSnId);

    IF (Mode = 1) THEN BEGIN
      /* Nur Audio Felder kopieren */
      UPDATE SENDEELEMENTE SET
        SETIID         = :SeTiId,
      /*  SEQUELLE       = :TiQuelle, */
        SEFILENAME     = :DestSeFileName,
        SEVORLAUF      = :TiVorlauf,
        SEFADEIN       = :TiFadeIn,
        SEMITTELTEIL   = :TiMittelteil,
        SEFADEOUT      = :TiFadeOut,
        SENACHLAUF     = :TiNachlauf,
        SESTARTNEXT    = :TiStartNext,
        SEDAUER        = :SeDauer,
        SEINTRO1       = :TiIntro1,
        SEINTRO2       = :TiIntro2,
        SEINTRO3       = :TiIntro3,
        SEREFRAIN1     = :TiRefrain1,
        SEREFRAIN2     = :TiRefrain2,
        SEREFRAIN3     = :TiRefrain3,
        SEREFRAIN4     = :TiRefrain4,
        SEAUDIOFLAG    = :TiAudioFlag,
        SEFADEINCHAR   = :TiFadeInChar,
        SEFADEOUTCHAR  = :TiFadeOutChar,
        SEOUTROCHAR    = :TiOutroChar,
        SELEVELOFFSET  = :TiLevelOffset,
        SEOBJID        = :TiObjId,
        SEMOSID        = :TiMosId,
        SEPLAYERSTATUS = :TiPlayerStatus,
        SEASPECTRATIO  = :TiAspectRatio,
        /*SEIMPORTER     = NULL,*/
        SESYNCIN       = :TiSyncIn,
        SESYNCOUT      = :TiSyncOut,
        SEVORZEITIGER_STARTNEXT = :TiVorzeitigerSN
      WHERE (SEID = :SeId);
    END
    ELSE BEGIN
      /* Alle Felder kopieren */
      UPDATE SENDEELEMENTE SET
        SESNID       = :SeSnId,
        SETIID       = :SeTiId,
        SEDATUM      = :SeDatum,
        SESPPOSITION = :SeSpPosition,
        SESNPOSITION = :SeSnPosition,
        SEPOSITION   = :SePosition,
        SEZEIT       = :SeZeit,
        SEGRUPPE     = :SeGruppe,
        SETYP          = :TiTyp,
        SETITELTHEMA   = :TiTitelThema,
        SEINTERPRET    = :TiInterpret,
        SEKURZBEZ      = :TiKurzBez,
        SEGESCHLECHT   = :TiGeschlecht,
        SEJAHRGANG     = :TiJahrgang,
        SEHITJAHRGANG  = :TiHitJahrgang,
        SEAUTOR        = :TiAutor,
        SEARCHIVNR     = :TiArchivNr,
        SEARCHIVNR_2   = :TiArchivNr_2,
        SESYSTEMNR     = :TiSystemNr,
        SEERSTELLDATUM = :TiErstellDatum,
        SEERSTELLER    = :TiErsteller,
        SEBEARBDATUM   = :TiBearbDatum,
        SEBEARBEITER   = :TiBearbeiter,
        SEANMODERATION = :TiAnmoderation,
        SETEXT         = :TiText,
        SEABMODERATION = :TiAbmoderation,
        SEZUSATZTEXT   = :TiZusatzText,
        SEZUSATZFELD1  = :TiZusatzFeld1,
        SEZUSATZFELD2  = :TiZusatzFeld2,
      /*  SEQUELLE       = :TiQuelle, */
        SEFILENAME     = :DestSeFileName,
        SEVORLAUF      = :TiVorlauf,
        SEFADEIN       = :TiFadeIn,
        SEMITTELTEIL   = :TiMittelteil,
        SEFADEOUT      = :TiFadeOut,
        SENACHLAUF     = :TiNachlauf,
        SESTARTNEXT    = :TiStartNext,
        SEDAUER        = :SeDauer,
        SEINTRO1       = :TiIntro1,
        SEINTRO2       = :TiIntro2,
        SEINTRO3       = :TiIntro3,
        SEREFRAIN1     = :TiRefrain1,
        SEREFRAIN2     = :TiRefrain2,
        SEREFRAIN3     = :TiRefrain3,
        SEREFRAIN4     = :TiRefrain4,
        SEAUDIOFLAG    = :TiAudioFlag,
        SEFADEINCHAR   = :TiFadeInChar,
        SEFADEOUTCHAR  = :TiFadeOutChar,
        SEOUTROCHAR    = :TiOutroChar,
        SELEVELOFFSET  = :TiLevelOffset,
        SEINFO         = :TiInfo,
        SEVERLAG       = :TiVerlag,
        SEKATALOGNR    = :TiKatalogNr,
        SEISRC         = :TiIsrc,
        SEALBUMNAME    = :TiAlbumName,
        SEKOMPONIST    = :TiKomponist,
        SETEXTER       = :TiTexter,
        SELAID         = :TiLaId,
        SEOBJID        = :TiObjId,
        SEMOSID        = :TiMosId,
        SEPLAYERSTATUS = :TiPlayerStatus,
        SEASPECTRATIO  = :TiAspectRatio,
        SEREID         = :SeRegion,
        SEHERKUNFTID   = :TiHerkunftId,
        SEMUSIKVERSIONID = :TiMusikVersionId,
        /*SEIMPORTER     = NULL,*/
        SESYNCIN       = :TiSyncIn,
        SESYNCOUT      = :TiSyncOut,
        SEVORZEITIGER_STARTNEXT = :TiVorzeitigerSN
      WHERE (SEID = :SeId);  
    END
  END

  /* TRIGGERED EVENTS kopieren (DABDB-303) */
  /* zuerst eventuell vorhandene loeschen */
  DELETE FROM TRIGGEREDEVENTS WHERE (TESEID = :SeId) AND (TETYP = 100);
  INSERT INTO TRIGGEREDEVENTS (TESEID, TETYP, TEZEIT, TEDATA1, TEDATA2)
    SELECT :SeId, TETYP, TEZEIT, TEDATA1, TEDATA2 FROM TRIGGEREDEVENTS
    WHERE (TETIID = :SeTiId) AND (TETYP = 100); 

  /* DABDB-365 */
  DELETE FROM UNTERTITEL WHERE (UTSEID = :SeId) AND (UTNUTZUNGSART = 1);
  INSERT INTO UNTERTITEL (UTSEID, UTTIIDUNTER, UTPOSITION, UTLINEINDEX, UTNUTZUNGSDAUER, UTNUTZUNGSART)
    SELECT :SeId, UTTIIDUNTER, UTPOSITION, UTLINEINDEX, UTNUTZUNGSDAUER, UTNUTZUNGSART FROM UNTERTITEL
    WHERE (UTTIID = :SeTiId) AND (UTNUTZUNGSART = 1);

  /* Return-Werte */
  NewDestSeId       = SeId;
  NewDestSePosition = SePosition;
END