SQL Statement CREATE or ALTER PROCEDURE Fehler

[MrSpock]

Hallo,

habe folgendes SQL Statement in einer Datei:

Code:

CREATE OR ALTER procedure GET_VNR (
    INJAHR integer,
    INART char(1))
returns (
    SVNUMMER varchar(5))
as
declare variable AKTJAHR integer;
declare variable AKTWOCHE integer;
declare variable NR integer;
declare variable VNUMMER integer;
begin
  /* Procedure Text */
  VNUMMER = 0;
  select JAHR
  from AKTUELL
  where VORGANG = :INART
  into :AKTJAHR;
  /* aktuelles Jahr */
  if (INJAHR = AKTJAHR) then
    VNUMMER = iif(INART = 'A', gen_id(VNR_A, 1), gen_id(VNR_V, 1));
  else
  /* neues Jahr */
      if (INJAHR > AKTJAHR) /* Jahreswechsel */ then
      begin
        if (INART = 'A') then
          execute statement 'alter sequence vnr_a restart with 0';
        else
          /* art = 'V' */
          execute statement 'alter sequence vnr_v restart with 0';
        update AKTUELL
        set JAHR = :INJAHR
        where VORGANG = :INART;
        VNUMMER = iif(INART = 'A', gen_id(VNR_A, 1), gen_id(VNR_V, 1));
      end
      else
      begin
        /* altes Jahr -> wird ohne Generatoren gelöst */
        select max(VORGANGSNUMMER)
        from VORGANGKOPF VK
        where VK.VORGANGSART = :INART and
              cast(Substr(Woche, 4, 5) as integer) = :injahr
        into :NR;
        VNUMMER = NR + 1;
      end

  SVNUMMER = cast(VNUMMER as varchar(5));
  while (char_length(SVNUMMER) < 5) do
    SVNUMMER = '0' || SVNUMMER;
  suspend;
end;

Diese Datei lade ich und führe sie aus:

Delphi-Quellcode:

...IBSQLDD.SQL.LoadFromFile(fname);
      ShowMessage(IBSQLDD.SQL.Text);
      IBSQLDD.Transaction.StartTransaction;
      IBSQLDD.ExecQuery;...

Dabei erhalte ich den Fehler:

Zitat:

---------------------------
Fehler
---------------------------
unsuccessful metadata update
MODIFY RDB$PROCEDURES failed
Malformed string
---------------------------
OK
---------------------------

Das gleiche Statement in den SQL Editor von IBExpert eingegeben funktioniert ohne Probleme.

Hat jemand eine Idee?

[himitsu]

Sicher, dass :AKTJAHR von IBSQLDD als Variable und nicht als Parameter verwendet wird?

[Neumann]

Denke mal da fehlt das

SET TERM ^ ;
am Anfang und entsprechend
SET TERM ; ^

am Ende

[IBExpert]

lass mal die umlaute und sonderzeichen in den kommentaren weg
(metadaten sind Unicode, ggf kannst du die dann mit passender connection auch ausführen, weglassen ist aber einfacher)

[Hansa]

Glaube auch, dass das SET TERM da falsch ist. Ich schreibe allerdings aus anderem Grund. Du wirst doch hoffentlich nicht Generatoren / Sequences für Datenhaltung missbrauchen ? Da wimmelt es ja nur so mit gen_id, alter sequence etc. Durch solche Aktionen wird ja das ganze Firebird - Transaktions - Management aus den Angeln gehoben. Wozu das ?

[Neumann]

Es spricht nichts dagegen, Werte in Generatoren zu speichern. Mit dem Transaktionsmanagement hat das nichts zu tun; die Generatoren sind zwar davon unabhängig aber wenn man das berücksichtigt ist es ok.

Ich speichere z.B. eine Versionsnummer sowohl in der Datenbank (Generator) als auch im Programm. Beim Programmstart wird geprüft, ob die Versionsnummer des Programmes größer ist und dann gegebenenfalls die Datenbank angepasst.

[MrSpock]

Zitat von himitsu:

Sicher, dass :AKTJAHR von IBSQLDD als Variable und nicht als Parameter verwendet wird?

Ja, :AKTJAHR wird als Variable benutzt.

Zitat von Neumann:

Denke mal da fehlt das

SET TERM ^ ;
am Anfang und entsprechend
SET TERM ; ^

am Ende

Das muss nur bei einem Script gemacht werden.

Zitat von IBExpert:

lass mal die umlaute und sonderzeichen in den kommentaren weg
(metadaten sind Unicode, ggf kannst du die dann mit passender connection auch ausführen, weglassen ist aber einfacher)

Danke. Genau das war es. "ö" durch "oe" getauscht und schon hat es funktioniert.

Zitat von Hansa:

Glaube auch, dass das SET TERM da falsch ist. Ich schreibe allerdings aus anderem Grund. Du wirst doch hoffentlich nicht Generatoren / Sequences für Datenhaltung missbrauchen ? Da wimmelt es ja nur so mit gen_id, alter sequence etc. Durch solche Aktionen wird ja das ganze Firebird - Transaktions - Management aus den Angeln gehoben. Wozu das ?

Wie gesagt: SET TERM ist nicht nötig. Ich benutze zwei Zähler (Rechnungsnummer) für Eingangs- bzw. Ausgangsrechnungen. Die am Jahresanfang zurückgesetzt werden. Was das aktuelle Jahr ist merke ich mir in einer Tabelle. Sollte nachträglich noch eine rechnung für ein vergangenes Jahr erstellt werden, hole ich die maximale Rechnungsnummer und nehme dann die nächste freie. Das kann im Mehrbenutzerbetrieb schief gehen, aber im Falle einer Exception wiederhole ich den Schritt einfach. Außerdem ist dieser Fall extrem selten.