Moin,
es gibt auch die Möglichkeit, eine Tabelle anzulegen, in der die Nummern verwaltet werden z. B.:
SQL-Code:
CREATE TABLE [dbo].[Nummernkreise](
[IdNo] [int] IDENTITY(1,1) NOT NULL,
[Mandant] [tinyint] NULL,
[BelegArt] [char](10) NULL,
[BelegNr] [int] NULL,
[BelegPrefix] [char](20) NULL,
CONSTRAINT [PK_Nummernkreise] PRIMARY KEY CLUSTERED
(
[IdNo] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
Und der Inhalt sieht dann so aus:
Code:
IdNo Mandant BelegArt BelegNr BelegPrefix
1 1 RE 123 2016-12
2 1 LS 17 2016-12
3 2 RE 17 KDNR
4 1 AB 500 2016-16
Dann hast Du für alle möglichen Belegarten einen Speicher, in dem Du hochzählen kannst, in dem Du Startwerte setzen kannst etc.; und natürlich sind weitere Felder in der Tabelle denkbar, wie Monat und / oder Jahr, wenn das nötig wäre.
Gruß
Rolf
wenn nicht anders angegeben, schreibe ich zu D7, XE2 und MS
SQL - ansonsten fragen Sie ihren Administrator oder einen Operator. Update 06/2020: Delphi 10.4 Sydney