PMS32 Online- Hilfereferenz
NextNr - Nächste Langnummer holen
STRING = NextNr(tcNrKreis AS STRING , tnAnzahl AS NUMBER , tdDatum AS VARIANT)
Rückgabe der Funktion: STRING
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
Siehe auch : Hauptmenü / Hauptindex / Such Index / Cursor Index / Programm Module / Tabellen Index / Tabellenmodule / Masken Index / Programmcode Index / Servicepacks / My.Struktur / Funktionen / Sonstiges Index
Lokale Benutzerhilfe : Meine eigene Hilfe / Zurück zur PMS32 - Hilfe
Dateiversion:1.0.04#3648 - H.U.DD#SSFF 02.12.2022
Senden Sie Ihren Kommentar zu diesem Thema an das Entwicklungsteam von PMS32
Weitere Informationen finden Sie unter der aktuellen
PMS32 WEB-Hilfe
Die Informationen dieser Mitteilung sind vertraulich und nur für Sie bestimmt. Unbefugtes Weiterleiten,
Veröffentlichen, Kopieren usw. sind untersagt und werden gerichtlich verfolgt.
© PMS Compelec GmbH 2022 ® el-Projekt