Aufruf: Nächste Langnummer holen

STRING = NextNr(tcNrKreis AS STRING , tnAnzahl AS NUMBER , tdDatum AS VARIANT)

Rückgabe: Nächste Langnummer holen

Rückgabe der Funktion: STRING

Code: Nächste Langnummer holen

PROCEDURE NextNr (tcNrKreis AS STRING,tnAnzahl AS NUMBER,tdDatum AS Variant) AS STRING
	LOCAL lcNrKreis,llLochSave,lnLen
	llLochSave	= PCOUNT()=3
	lcNrKreis	= UPPER(ALLTRIM(m.tcNrKreis))
	IF LEFT(m.lcNrKreis,4)="M.ID"
		m.lcNrKreis = SUBSTR(m.lcNrKreis,3)
	ENDIF
	lnLen		= LEN(m.lcNrKreis)
	m.lcNrKreis = ICASE(;
		NOT INLIST(m.lnLen,3,5),m.lcNrKreis,;
		M.lnLen=3,"ID"+m.lcNrKreis,;
		M.lcNrKreis+"," $ "ARTNR,ICC55,",m.lcNrKreis,;
		"ID"+SUBSTR(m.lcNrKreis,3))
	IF LEFT(m.lcNrKreis,2)=="ID" AND LEN(m.lcNrKreis)=5
		*/ Interne ID, sollte direkt aufgerufen werden...
		RETURN My.Functions.Internals.NextId(m.lcNrKreis,m.tnAnzahl)
	ELSE
		RETURN My.Functions.Internals.NextNr(m.lcNrKreis,m.tdDatum,m.llLochSave,SET("Datasession"))
	ENDIF
ENDPROC