Domino Code Fragment

Code Name*
Calculate Next Available Number		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.18.219.95.244
Description*
This formula will calculate the next available number.		Type*
Formula		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
REM - This sets up lookup values
CLASS := "Notes";
CACHE := "Cache";
NOCACHE := "NoCache";
SERVER := @Subset(@DbName; 1);
DATABASE := "";
VIEW := "($CallTrackingNumbers)";
KEY := "XXXX-999999";
COLUMN := 1;

REM - This looks up & returns the column of already saved
GetString := @If(@IsError(@DbColumn(CLASS : NOCACHE; DATABASE; VIEW; COLUMN)); "XXXX-000000"; @DbColumn(CLASS : NOCACHE; DATABASE; VIEW; COLUMN));

LastNumUsed := @TextToNumber(@Right(GetString; 6));

NewNum := LastNumUsed + 1;

Digits := @Length(@Text(NewNum));

Zeros := 6 - Digits;

@If(CallIdNumber = ""; @If(@IsDocBeingSaved; "XXXX-" + @Repeat("0"; Zeros) + @Text(NewNum); ""); CallIdNumber)