Prozeduren

SE_UPDATE_TITELSTATUS_NEW

Eingabeparameter

Ausgabeparameter

Beschreibung

Damit aktualisiert das DU01 den Status pro Fach.

Definition

CREATE PROCEDURE SE_UPDATE_TITELSTATUS_NEW(
    ACTFAID INTEGER)
RETURNS (
    UPDATED INTEGER)
AS
  DECLARE VARIABLE ActTiId     INTEGER;
  DECLARE VARIABLE ActTiStatus INTEGER;
  DECLARE VARIABLE ActTiTyp    VARCHAR(2);
  DECLARE VARIABLE hasUpdated  INTEGER;
BEGIN
  Updated = 0;
  FOR SELECT TIID,TISTATUS,TITYP FROM TITEL
    WHERE (TIFAID = :ActFaId)
    INTO :ActTiId, :ActTiStatus, :ActTiTyp
  DO BEGIN

    EXECUTE PROCEDURE TI_UPDATE_STATUS_WITH_RETURN ActTiId, ActTiStatus, ActTiTyp
      RETURNING_VALUES hasUpdated;
    
    Updated = Updated + hasUpdated;

  END
END