Thema
:
Delphi
StoredProcedure Problem
Einzelnen Beitrag anzeigen
Wunni
Registriert seit: 1. Mai 2003
Ort: Hamburg
46 Beiträge
FreePascal / Lazarus
#
8
Re: StoredProcedure Problem
27. Dez 2008, 18:26
eventuell so?
zusammenfalten
·
markieren
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
Zitat
Wunni
Öffentliches Profil ansehen
Besuche die Homepage von Wunni!
Mehr Beiträge von Wunni finden