Thema: Delphi StoredProcedure Problem

Einzelnen Beitrag anzeigen

Benutzerbild von DirkG
DirkG

Registriert seit: 29. Sep 2003
Ort: Schwerin
67 Beiträge
 
Delphi 5 Enterprise
 
#13

Re: StoredProcedure Problem

  Alt 27. Dez 2008, 17:53
Is richtig, aber problem bleibt immer noch...
SQL-Code:
SET TERM ^ ;

CREATE PROCEDURE GetNUMBER RETURNS (NEWNUMBER VARCHAR(10)) AS
 DECLARE VARIABLE lyear VARCHAR(4);
 DECLARE VARIABLE lmonth VARCHAR(2);
 DECLARE VARIABLE lid VARCHAR(2);
BEGIN
 /* Jahr und Monat für die Suche ermitteln */
 SELECT EXTRACT(YEAR FROM CURRENT_TIMESTAMP) [color=#ff0000]INTO[/color] :lyear FROM RDB$DATABASE; /* Hier gehts nicht weiter */
 SELECT EXTRACT(MONTH FROM CURRENT_TIMESTAMP) INTO :lmonth FROM RDB$DATABASE;
 /* Suche Anzahl der bisher in Jahr+Monat erstellten Rechnungen */
 SELECT COUNT(RNUMBER) FROM Rechnungen WHERE (RNUMBER LIKE (lyear||lmonth||'%')) INTO :lid;
 /* Setze neue Rechnungsnummer zusammen */
 NEWNUMBER = lyear||lmonth||lid;
 SUSPEND;
END
^

COMMIT WORK ^
SET TERM ;^
Human are Human to make mistakes.
  Mit Zitat antworten Zitat