Prozeduren

SE_COPY_TO_TRASH

Eingabeparameter

Ausgabeparameter

(Es gibt keine Ausgabeparameter)

Beschreibung

Damit wird eine Kopie vom Sendeelement im Papierkorb erstellt.

Definition

CREATE PROCEDURE SE_COPY_TO_TRASH(
    SRCSEID INTEGER,
    SRCSNID INTEGER)
AS
  DECLARE VARIABLE MaxSePosition   INTEGER;
  DECLARE VARIABLE SnIdPapierkorb  INTEGER;
BEGIN
  MaxSePosition = NULL;
  SnIdPapierkorb = NULL;
  /* Papierkorb herausfinden. */
  /* MAX ist nur dafuer da, wenn es mehrere Papierkoerbe */
  /* in der gleichen Welle geben wuerde, */
  /* was aber nicht vorgesehen ist */
  SELECT MAX(SNID) FROM SENDUNGEN JOIN SENDEPLAENE ON (SNSPID = SPID)
  WHERE (SPPAPIERKORB = 1) AND 
        (SPWELLE = (SELECT SPWELLE FROM SENDUNGEN JOIN SENDEPLAENE ON (SNSPID = SPID)
                    WHERE (SNID = :SrcSnId)))
  INTO :SnIdPapierkorb;
  IF ((SnIdPapierkorb IS NOT NULL) AND (SnIdPapierkorb <> SrcSnId)) THEN BEGIN
    SELECT MAX(SEPOSITION) FROM SENDEELEMENTE
    WHERE (SESNID = :SnIdPapierkorb)
    INTO :MaxSePosition;
    IF (MaxSePosition IS NULL) THEN
      MaxSePosition = 0;
    IF (MaxSePosition < 2147482647) THEN
      MaxSePosition = MaxSePosition + 1000;

    /* Sendeelement in den Papierkorb kopieren */
    INSERT INTO SENDEELEMENTE (SEID, SESNID, SETIID, SEDATUM, SESPPOSITION,
        SESNPOSITION, SEPOSITION, SEMARK, SEZEIT, SEDAUER, SESEQUENZ, SEGRUPPE,
        SEKLAMMER, SEPARALLEL, SERFLAG, SETYP, SETITELTHEMA, SEINTERPRET, SEKURZBEZ,
        SEGESCHLECHT, SEJAHRGANG, SEAUTOR, SEARCHIVNR, SESYSTEMNR, SEERSTELLDATUM,
        SEERSTELLER, SEBEARBDATUM, SEBEARBEITER, SEQUELLE, SEFILENAME, SESEITE,
        SESTUECKNR, SEMAGAZINNR, SESLOTNR, SEANMODERATION, SETEXT, SEABMODERATION,
        SEZUSATZTEXT, SEZUSATZFELD1, SEZUSATZFELD2, SESCHEMANR, SEANMODSTATUS,
        SEABMODSTATUS, SETEXTSTATUS, SEVORLAUF, SEFADEIN, SEMITTELTEIL, SEFADEOUT,
        SENACHLAUF, SESTARTNEXT, SEINTRO1, SEINTRO2, SEINTRO3, SEREFRAIN1,
        SEREFRAIN2, SEREFRAIN3, SEREFRAIN4, SEDROPINLEVEL, SEFADEINCHAR,
        SEFADEOUTCHAR, SEOUTROCHAR, SETOLERANZ1, SETOLERANZ2, SEFIXELAENGE,
        SEISTDATUM, SEISTZEIT, SEISTDAUER, SESTATUS, SELEVELINFO, SEAKTBENUTZER,
        SELEVELOFFSET, SEKAID, SEINFO, SEVERLAG, SEKATALOGNR, SEISRC, SEALBUMNAME,
        SEAUDIOFLAG, SEKOMPONIST, SEREID, SETEXTER, SELAID, SEOMROID, SEOMSTORYID,
        SEOMITEMID, SEOBJID, SEMOSID, SEPLAYERSTATUS, SEASPECTRATIO,
        SERECORDVERSION, SEBLOCKID, SEHITJAHRGANG, SEHERKUNFTID, SEMUSIKVERSIONID,
        SEIMPORTER, SEADBOOKINGID, SESYNCIN, SESYNCOUT, SEVORZEITIGER_STARTNEXT,
        SESMARTMIX, SEARCHIVNR_2)
    SELECT GEN_ID(SEID_GEN, 2), :SnIdPapierkorb, SETIID, SEDATUM, SESPPOSITION, 
        SESNPOSITION, :MaxSePosition, SEMARK, SEZEIT, SEDAUER, SESEQUENZ, SEGRUPPE,
        SEKLAMMER, SEPARALLEL, SERFLAG, SETYP, SETITELTHEMA, SEINTERPRET, SEKURZBEZ, 
        SEGESCHLECHT, SEJAHRGANG, SEAUTOR, SEARCHIVNR, SESYSTEMNR, SEERSTELLDATUM, 
        SEERSTELLER, SEBEARBDATUM, SEBEARBEITER, SEQUELLE, SEFILENAME, SESEITE, 
        SESTUECKNR, SEMAGAZINNR, SESLOTNR, SEANMODERATION, SETEXT, SEABMODERATION,
        SEZUSATZTEXT, SEZUSATZFELD1, SEZUSATZFELD2, SESCHEMANR, SEANMODSTATUS, 
        SEABMODSTATUS, SETEXTSTATUS, SEVORLAUF, SEFADEIN, SEMITTELTEIL, SEFADEOUT, 
        SENACHLAUF, SESTARTNEXT, SEINTRO1, SEINTRO2, SEINTRO3, SEREFRAIN1, 
        SEREFRAIN2, SEREFRAIN3, SEREFRAIN4, SEDROPINLEVEL, SEFADEINCHAR, 
        SEFADEOUTCHAR, SEOUTROCHAR, SETOLERANZ1, SETOLERANZ2, SEFIXELAENGE, 
        SEISTDATUM, SEISTZEIT, SEISTDAUER, SESTATUS, SELEVELINFO, SEAKTBENUTZER,
        SELEVELOFFSET, SEKAID, SEINFO, SEVERLAG, SEKATALOGNR, SEISRC, SEALBUMNAME, 
        SEAUDIOFLAG, SEKOMPONIST, SEREID, SETEXTER, SELAID, SEOMROID, SEOMSTORYID, 
        SEOMITEMID, SEOBJID, SEMOSID, SEPLAYERSTATUS, SEASPECTRATIO, 
        SERECORDVERSION, SEBLOCKID, SEHITJAHRGANG, SEHERKUNFTID, SEMUSIKVERSIONID, 
        SEIMPORTER, SEADBOOKINGID, SESYNCIN, SESYNCOUT, SEVORZEITIGER_STARTNEXT,
        SESMARTMIX, SEARCHIVNR_2
    FROM SENDEELEMENTE WHERE (SEID = :SrcSeId);
    
  END
END