local procedure TestNoSeriesNoGaps()
var
NoSeriesManagement: Codeunit NoSeriesManagement;
ListOfText: List of [Text];
StartDateTime: DateTime;
i: Integer;
begin
StartDateTime := CurrentDateTime();
for i := 1 to NumberOfIterations do
ListOfText.Add(NoSeriesManagement.GetNextNo(NoSeriesCodeNoGapsLbl, Today(), true));
Message('Number series with no gaps: %1 iterations took %2.', NumberOfIterations, CurrentDateTime() - StartDateTime);
end;
local procedure TestNoSeriesGaps()
var
NoSeriesManagement: Codeunit NoSeriesManagement;
ListOfText: List of [Text];
StartDateTime: DateTime;
i: Integer;
begin
StartDateTime := CurrentDateTime();
for i := 1 to NumberOfIterations do
ListOfText.Add(NoSeriesManagement.GetNextNo(NoSeriesCodeGapsLbl, Today(), true));
Message('Number series with gaps: %1 iterations took %2.', NumberOfIterations, CurrentDateTime() - StartDateTime);
end;