Thema: Delphi StoredProcedure Problem

Einzelnen Beitrag anzeigen

Benutzerbild von Wunni
Wunni

Registriert seit: 1. Mai 2003
Ort: Hamburg
46 Beiträge
 
FreePascal / Lazarus
 
#8

Re: StoredProcedure Problem

  Alt 27. Dez 2008, 18:26
eventuell so?

SQL-Code:
CREATE PROCEDURE MGLGETNUMBER
RETURNS (
    NEWNUMBER VARCHAR(20))
AS
declare variable y char(4);
declare variable m char(2);
declare variable lfdnr integer;
begin
  y = extract(year from current_timestamp);
  m = extract(month from current_timestamp);

  select count(rnumber)+1 from Rechnungen
  where rnumber starting with :y||:m
  into :lfdnr;
  /* mit count ist das allerdings nicht sehr elegant,
  da die Nummern ja nicht fortlaufend existieren werden */


  newnumber = :y||:m||:lfdnr;

  suspend;
end
Andreas Wunnenberg
  Mit Zitat antworten Zitat