Domino Code Fragment

Code Name*
Formated Numbers		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.13.59.36.203
Description*
Generates Formated numbers		Type*
Formula		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
REM "***Generate # using the format: TXZ-12345 ***";
REM "***T=N for New, M for Modify, A for Admin; P for Install X=1st init Z=last init 12345=5-digit random number***";
REM;
ReqType := @If(Form="NewAppReq";"N"; Form="ModAppReq";"M";Form="AdminAppReq";"A";Form="Install";"P";"X");
Name := @Name([CN];@UserName);
FI := @Left(Name;1);
LI := @Left(@RightBack(Name;" ");1);
RNum := @Round(99999 * @Random + 1);
REM;
ReqType + FI + LI + "-" + @Text(RNum)