bc-code-intelligence-mcp 1.3.3 → 1.3.4

package/embedded-knowledge/domains/dean-debug/samples/no-series-implementation.md

@@ -1,810 +0,0 @@
-# No Series Implementation Patterns - AL Code Examples
-
-This sample demonstrates implementing robust number generation and sequence management in Business Central.
-
-## Basic No Series Implementation
-
-```al
-// Custom number generation codeunit
-codeunit 50500 "Custom No. Series Management"
-{
-    procedure GetNextNo(NoSeriesCode: Code[20]; SeriesDate: Date): Code[20]
-    var
-        NoSeries: Record "No. Series";
-        NoSeriesLine: Record "No. Series Line";
-        NextNo: Code[20];
-    begin
-        if not NoSeries.Get(NoSeriesCode) then
-            Error('No. Series %1 does not exist', NoSeriesCode);
-
-        NoSeriesLine := FindApplicableNoSeriesLine(NoSeriesCode, SeriesDate);
-        NextNo := GenerateNextNumber(NoSeriesLine);
-
-        UpdateNoSeriesLine(NoSeriesLine, NextNo);
-        LogNumberGeneration(NoSeriesCode, NextNo);
-
-        exit(NextNo);
-    end;
-
-    procedure GetNextNoWithGapManagement(NoSeriesCode: Code[20]; SeriesDate: Date; FillGaps: Boolean): Code[20]
-    var
-        NextNo: Code[20];
-        GapNo: Code[20];
-    begin
-        if FillGaps then begin
-            GapNo := FindFirstGap(NoSeriesCode);
-            if GapNo <> '' then begin
-                MarkGapAsFilled(NoSeriesCode, GapNo);
-                exit(GapNo);
-            end;
-        end;
-
-        exit(GetNextNo(NoSeriesCode, SeriesDate));
-    end;
-
-    procedure CreateCustomNoSeries(NoSeriesCode: Code[20]; Description: Text[100]; StartingNo: Code[20]; EndingNo: Code[20]): Boolean
-    var
-        NoSeries: Record "No. Series";
-        NoSeriesLine: Record "No. Series Line";
-    begin
-        // Create No. Series header
-        if NoSeries.Get(NoSeriesCode) then
-            exit(false); // Already exists
-
-        NoSeries.Init();
-        NoSeries.Code := NoSeriesCode;
-        NoSeries.Description := Description;
-        NoSeries."Default Nos." := true;
-        NoSeries."Manual Nos." := false;
-        NoSeries.Insert(true);
-
-        // Create No. Series line
-        NoSeriesLine.Init();
-        NoSeriesLine."Series Code" := NoSeriesCode;
-        NoSeriesLine."Line No." := 10000;
-        NoSeriesLine."Starting Date" := Today;
-        NoSeriesLine."Starting No." := StartingNo;
-        NoSeriesLine."Ending No." := EndingNo;
-        NoSeriesLine."Last No. Used" := '';
-        NoSeriesLine."Increment-by No." := 1;
-        NoSeriesLine.Insert(true);
-
-        exit(true);
-    end;
-
-    local procedure FindApplicableNoSeriesLine(NoSeriesCode: Code[20]; SeriesDate: Date): Record "No. Series Line"
-    var
-        NoSeriesLine: Record "No. Series Line";
-    begin
-        NoSeriesLine.SetRange("Series Code", NoSeriesCode);
-        NoSeriesLine.SetFilter("Starting Date", '<=%1', SeriesDate);
-        NoSeriesLine.SetFilter("Ending Date", '%1|>=%2', 0D, SeriesDate);
-
-        if not NoSeriesLine.FindLast() then
-            Error('No applicable No. Series Line found for %1 on %2', NoSeriesCode, SeriesDate);
-
-        exit(NoSeriesLine);
-    end;
-
-    local procedure GenerateNextNumber(var NoSeriesLine: Record "No. Series Line"): Code[20]
-    var
-        NextNo: Code[20];
-        NumberPart: BigInteger;
-        PrefixPart: Text;
-        SuffixPart: Text;
-        NumberLength: Integer;
-    begin
-        if NoSeriesLine."Last No. Used" = '' then
-            NextNo := NoSeriesLine."Starting No."
-        else begin
-            // Parse current number
-            ParseNumberComponents(NoSeriesLine."Last No. Used", PrefixPart, NumberPart, SuffixPart, NumberLength);
-
-            // Increment number
-            NumberPart += NoSeriesLine."Increment-by No.";
-
-            // Reconstruct number
-            NextNo := ReconstructNumber(PrefixPart, NumberPart, SuffixPart, NumberLength);
-        end;
-
-        // Validate against ending number
-        if (NoSeriesLine."Ending No." <> '') and (NextNo > NoSeriesLine."Ending No.") then
-            Error('No. Series %1 has reached its ending number %2', NoSeriesLine."Series Code", NoSeriesLine."Ending No.");
-
-        exit(NextNo);
-    end;
-
-    local procedure UpdateNoSeriesLine(var NoSeriesLine: Record "No. Series Line"; NextNo: Code[20])
-    begin
-        NoSeriesLine."Last No. Used" := NextNo;
-        NoSeriesLine."Last Date Used" := Today;
-        NoSeriesLine.Modify(true);
-    end;
-
-    local procedure ParseNumberComponents(NumberStr: Code[20]; var Prefix: Text; var Number: BigInteger; var Suffix: Text; var NumberLength: Integer)
-    var
-        i: Integer;
-        CurrentChar: Char;
-        NumberStartPos: Integer;
-        NumberEndPos: Integer;
-        NumberPart: Text;
-    begin
-        Clear(Prefix);
-        Clear(Suffix);
-        Number := 0;
-        NumberLength := 0;
-        NumberStartPos := 0;
-        NumberEndPos := 0;
-
-        // Find the start of the numeric part
-        for i := 1 to StrLen(NumberStr) do begin
-            CurrentChar := NumberStr[i];
-            if CurrentChar in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9'] then begin
-                if NumberStartPos = 0 then
-                    NumberStartPos := i;
-                NumberEndPos := i;
-            end else begin
-                if NumberStartPos > 0 then
-                    break;
-            end;
-        end;
-
-        if NumberStartPos > 0 then begin
-            // Extract components
-            if NumberStartPos > 1 then
-                Prefix := CopyStr(NumberStr, 1, NumberStartPos - 1);
-
-            NumberPart := CopyStr(NumberStr, NumberStartPos, NumberEndPos - NumberStartPos + 1);
-            NumberLength := StrLen(NumberPart);
-            Evaluate(Number, NumberPart);
-
-            if NumberEndPos < StrLen(NumberStr) then
-                Suffix := CopyStr(NumberStr, NumberEndPos + 1);
-        end;
-    end;
-
-    local procedure ReconstructNumber(Prefix: Text; Number: BigInteger; Suffix: Text; NumberLength: Integer): Code[20]
-    var
-        NumberPart: Text;
-        Result: Text;
-    begin
-        NumberPart := Format(Number);
-
-        // Pad with leading zeros if necessary
-        while StrLen(NumberPart) < NumberLength do
-            NumberPart := '0' + NumberPart;
-
-        Result := Prefix + NumberPart + Suffix;
-        exit(CopyStr(Result, 1, 20));
-    end;
-
-    local procedure FindFirstGap(NoSeriesCode: Code[20]): Code[20]
-    var
-        NoSeriesGap: Record "No. Series Gap";
-    begin
-        NoSeriesGap.SetRange("Series Code", NoSeriesCode);
-        NoSeriesGap.SetRange(Filled, false);
-        if NoSeriesGap.FindFirst() then
-            exit(NoSeriesGap."Gap No.");
-
-        exit('');
-    end;
-
-    local procedure MarkGapAsFilled(NoSeriesCode: Code[20]; GapNo: Code[20])
-    var
-        NoSeriesGap: Record "No. Series Gap";
-    begin
-        if NoSeriesGap.Get(NoSeriesCode, GapNo) then begin
-            NoSeriesGap.Filled := true;
-            NoSeriesGap."Fill Date" := Today;
-            NoSeriesGap."Fill Time" := Time;
-            NoSeriesGap.Modify(true);
-        end;
-    end;
-
-    local procedure LogNumberGeneration(NoSeriesCode: Code[20]; GeneratedNo: Code[20])
-    var
-        NoSeriesLog: Record "No. Series Log";
-    begin
-        NoSeriesLog.Init();
-        NoSeriesLog."Entry No." := GetNextLogEntryNo();
-        NoSeriesLog."Series Code" := NoSeriesCode;
-        NoSeriesLog."Generated No." := GeneratedNo;
-        NoSeriesLog."Generation Date" := Today;
-        NoSeriesLog."Generation Time" := Time;
-        NoSeriesLog."User ID" := UserId;
-        NoSeriesLog.Insert(true);
-    end;
-
-    local procedure GetNextLogEntryNo(): Integer
-    var
-        NoSeriesLog: Record "No. Series Log";
-    begin
-        if NoSeriesLog.FindLast() then
-            exit(NoSeriesLog."Entry No." + 1)
-        else
-            exit(1);
-    end;
-}
-```
-
-## Concurrency-Safe Number Generation
-
-```al
-// High-performance number generation with concurrency control
-codeunit 50501 "Concurrent No. Series Management"
-{
-    procedure GetNextNoSafe(NoSeriesCode: Code[20]; SeriesDate: Date): Code[20]
-    var
-        NoSeriesLine: Record "No. Series Line";
-        NextNo: Code[20];
-        RetryCount: Integer;
-        MaxRetries: Integer;
-    begin
-        MaxRetries := 10;
-        RetryCount := 0;
-
-        repeat
-            RetryCount += 1;
-
-            if TryGetNextNoWithLock(NoSeriesCode, SeriesDate, NextNo) then
-                exit(NextNo);
-
-            if RetryCount >= MaxRetries then
-                Error('Unable to generate next number after %1 attempts. Series may be in use by another user.', MaxRetries);
-
-            // Wait before retry (exponential backoff)
-            Sleep(RetryCount * 100);
-
-        until false;
-    end;
-
-    [TryFunction]
-    local procedure TryGetNextNoWithLock(NoSeriesCode: Code[20]; SeriesDate: Date; var NextNo: Code[20])
-    var
-        NoSeriesLine: Record "No. Series Line";
-        NoSeriesLock: Record "No. Series Lock";
-        LockAcquired: Boolean;
-    begin
-        // Attempt to acquire lock
-        LockAcquired := TryAcquireSeriesLock(NoSeriesCode);
-        if not LockAcquired then
-            Error('Lock not acquired');
-
-        try
-            // Find applicable line
-            NoSeriesLine := FindApplicableNoSeriesLine(NoSeriesCode, SeriesDate);
-
-            // Generate next number
-            NextNo := GenerateNextNumberSafe(NoSeriesLine);
-
-            // Update line
-            UpdateNoSeriesLineSafe(NoSeriesLine, NextNo);
-
-            // Commit changes
-            Commit();
-
-        finally
-            // Always release lock
-            ReleaseSeriesLock(NoSeriesCode);
-        end;
-    end;
-
-    [TryFunction]
-    local procedure TryAcquireSeriesLock(NoSeriesCode: Code[20]): Boolean
-    var
-        NoSeriesLock: Record "No. Series Lock";
-        LockTimeout: DateTime;
-    begin
-        LockTimeout := CurrentDateTime + 5000; // 5 second timeout
-
-        NoSeriesLock.SetRange("Series Code", NoSeriesCode);
-
-        repeat
-            if not NoSeriesLock.FindFirst() then begin
-                // Create lock record
-                NoSeriesLock.Init();
-                NoSeriesLock."Series Code" := NoSeriesCode;
-                NoSeriesLock."Locked By" := UserId;
-                NoSeriesLock."Lock Time" := CurrentDateTime;
-                NoSeriesLock.Insert(true);
-                exit(true);
-            end;
-
-            // Check if lock is stale (older than 1 minute)
-            if NoSeriesLock."Lock Time" < (CurrentDateTime - 60000) then begin
-                NoSeriesLock.Delete(true);
-                continue;
-            end;
-
-            Sleep(50); // Wait 50ms before retry
-
-        until CurrentDateTime > LockTimeout;
-
-        exit(false);
-    end;
-
-    local procedure ReleaseSeriesLock(NoSeriesCode: Code[20])
-    var
-        NoSeriesLock: Record "No. Series Lock";
-    begin
-        NoSeriesLock.SetRange("Series Code", NoSeriesCode);
-        NoSeriesLock.SetRange("Locked By", UserId);
-        if NoSeriesLock.FindFirst() then
-            NoSeriesLock.Delete(true);
-    end;
-
-    local procedure FindApplicableNoSeriesLine(NoSeriesCode: Code[20]; SeriesDate: Date): Record "No. Series Line"
-    var
-        NoSeriesLine: Record "No. Series Line";
-    begin
-        NoSeriesLine.SetRange("Series Code", NoSeriesCode);
-        NoSeriesLine.SetFilter("Starting Date", '<=%1', SeriesDate);
-        NoSeriesLine.SetFilter("Ending Date", '%1|>=%2', 0D, SeriesDate);
-
-        if not NoSeriesLine.FindLast() then
-            Error('No applicable No. Series Line found for %1 on %2', NoSeriesCode, SeriesDate);
-
-        exit(NoSeriesLine);
-    end;
-
-    local procedure GenerateNextNumberSafe(var NoSeriesLine: Record "No. Series Line"): Code[20]
-    var
-        NextNo: Code[20];
-        LastUsedNo: Code[20];
-    begin
-        // Re-read to get latest values
-        NoSeriesLine.Find();
-
-        if NoSeriesLine."Last No. Used" = '' then
-            NextNo := NoSeriesLine."Starting No."
-        else begin
-            NextNo := IncrementNumber(NoSeriesLine."Last No. Used", NoSeriesLine."Increment-by No.");
-        end;
-
-        // Validate against ending number
-        if (NoSeriesLine."Ending No." <> '') and (NextNo > NoSeriesLine."Ending No.") then
-            Error('No. Series %1 has reached its ending number %2', NoSeriesLine."Series Code", NoSeriesLine."Ending No.");
-
-        exit(NextNo);
-    end;
-
-    local procedure UpdateNoSeriesLineSafe(var NoSeriesLine: Record "No. Series Line"; NextNo: Code[20])
-    begin
-        NoSeriesLine."Last No. Used" := NextNo;
-        NoSeriesLine."Last Date Used" := Today;
-        NoSeriesLine.Modify(true);
-    end;
-
-    local procedure IncrementNumber(CurrentNo: Code[20]; IncrementBy: Integer): Code[20]
-    var
-        NumberPart: BigInteger;
-        PrefixPart: Text;
-        SuffixPart: Text;
-        NumberLength: Integer;
-    begin
-        ParseNumberComponents(CurrentNo, PrefixPart, NumberPart, SuffixPart, NumberLength);
-        NumberPart += IncrementBy;
-        exit(ReconstructNumber(PrefixPart, NumberPart, SuffixPart, NumberLength));
-    end;
-
-    local procedure ParseNumberComponents(NumberStr: Code[20]; var Prefix: Text; var Number: BigInteger; var Suffix: Text; var NumberLength: Integer)
-    begin
-        // Implementation from previous example
-    end;
-
-    local procedure ReconstructNumber(Prefix: Text; Number: BigInteger; Suffix: Text; NumberLength: Integer): Code[20]
-    begin
-        // Implementation from previous example
-    end;
-}
-```
-
-## Batch Number Allocation
-
-```al
-// Optimized batch allocation for high-volume scenarios
-codeunit 50502 "Batch No. Series Allocation"
-{
-    var
-        AllocatedNumbers: Dictionary of [Code[20], List of [Code[20]]];
-
-    procedure AllocateNumberBatch(NoSeriesCode: Code[20]; BatchSize: Integer): List of [Code[20]]
-    var
-        NoSeriesLine: Record "No. Series Line";
-        AllocatedBatch: List of [Code[20]];
-        NextNo: Code[20];
-        i: Integer;
-    begin
-        if BatchSize <= 0 then
-            Error('Batch size must be greater than zero');
-
-        if BatchSize > 1000 then
-            Error('Batch size cannot exceed 1000');
-
-        // Lock the series for batch allocation
-        LockNoSeriesForBatch(NoSeriesCode);
-
-        try
-            NoSeriesLine := FindApplicableNoSeriesLine(NoSeriesCode, Today);
-
-            // Allocate batch
-            for i := 1 to BatchSize do begin
-                NextNo := GenerateNextNumberInBatch(NoSeriesLine, i);
-                AllocatedBatch.Add(NextNo);
-            end;
-
-            // Update the line with the last allocated number
-            UpdateNoSeriesLineForBatch(NoSeriesLine, AllocatedBatch.Get(BatchSize));
-
-            // Cache allocated numbers
-            AllocatedNumbers.Set(NoSeriesCode, AllocatedBatch);
-
-            Commit();
-
-        finally
-            UnlockNoSeriesForBatch(NoSeriesCode);
-        end;
-
-        exit(AllocatedBatch);
-    end;
-
-    procedure GetNextFromBatch(NoSeriesCode: Code[20]): Code[20]
-    var
-        BatchList: List of [Code[20]];
-        NextNo: Code[20];
-    begin
-        if not AllocatedNumbers.Get(NoSeriesCode, BatchList) then
-            Error('No allocated batch found for series %1', NoSeriesCode);
-
-        if BatchList.Count = 0 then begin
-            // Batch exhausted, allocate new batch
-            BatchList := AllocateNumberBatch(NoSeriesCode, 100); // Default batch size
-        end;
-
-        NextNo := BatchList.Get(1);
-        BatchList.RemoveAt(1);
-        AllocatedNumbers.Set(NoSeriesCode, BatchList);
-
-        LogBatchUsage(NoSeriesCode, NextNo);
-
-        exit(NextNo);
-    end;
-
-    procedure GetBatchStatus(NoSeriesCode: Code[20]): Dictionary of [Text, Variant]
-    var
-        Status: Dictionary of [Text, Variant];
-        BatchList: List of [Code[20]];
-    begin
-        Status.Set('SeriesCode', NoSeriesCode);
-
-        if AllocatedNumbers.Get(NoSeriesCode, BatchList) then begin
-            Status.Set('HasBatch', true);
-            Status.Set('RemainingNumbers', BatchList.Count);
-            if BatchList.Count > 0 then begin
-                Status.Set('NextAvailable', BatchList.Get(1));
-                Status.Set('LastInBatch', BatchList.Get(BatchList.Count));
-            end;
-        end else begin
-            Status.Set('HasBatch', false);
-            Status.Set('RemainingNumbers', 0);
-        end;
-
-        exit(Status);
-    end;
-
-    local procedure FindApplicableNoSeriesLine(NoSeriesCode: Code[20]; SeriesDate: Date): Record "No. Series Line"
-    var
-        NoSeriesLine: Record "No. Series Line";
-    begin
-        NoSeriesLine.SetRange("Series Code", NoSeriesCode);
-        NoSeriesLine.SetFilter("Starting Date", '<=%1', SeriesDate);
-        NoSeriesLine.SetFilter("Ending Date", '%1|>=%2', 0D, SeriesDate);
-
-        if not NoSeriesLine.FindLast() then
-            Error('No applicable No. Series Line found for %1 on %2', NoSeriesCode, SeriesDate);
-
-        exit(NoSeriesLine);
-    end;
-
-    local procedure GenerateNextNumberInBatch(var NoSeriesLine: Record "No. Series Line"; BatchIndex: Integer): Code[20]
-    var
-        BaseNumber: Code[20];
-        NumberPart: BigInteger;
-        PrefixPart: Text;
-        SuffixPart: Text;
-        NumberLength: Integer;
-    begin
-        if BatchIndex = 1 then begin
-            if NoSeriesLine."Last No. Used" = '' then
-                BaseNumber := NoSeriesLine."Starting No."
-            else
-                BaseNumber := IncrementNumber(NoSeriesLine."Last No. Used", NoSeriesLine."Increment-by No.");
-        end else begin
-            BaseNumber := IncrementNumber(BaseNumber, NoSeriesLine."Increment-by No.");
-        end;
-
-        // Validate against ending number
-        if (NoSeriesLine."Ending No." <> '') and (BaseNumber > NoSeriesLine."Ending No.") then
-            Error('No. Series %1 would exceed its ending number %2 in batch allocation', NoSeriesLine."Series Code", NoSeriesLine."Ending No.");
-
-        exit(BaseNumber);
-    end;
-
-    local procedure UpdateNoSeriesLineForBatch(var NoSeriesLine: Record "No. Series Line"; LastAllocatedNo: Code[20])
-    begin
-        NoSeriesLine."Last No. Used" := LastAllocatedNo;
-        NoSeriesLine."Last Date Used" := Today;
-        NoSeriesLine.Modify(true);
-    end;
-
-    local procedure LockNoSeriesForBatch(NoSeriesCode: Code[20])
-    var
-        NoSeriesBatchLock: Record "No. Series Batch Lock";
-    begin
-        NoSeriesBatchLock.Init();
-        NoSeriesBatchLock."Series Code" := NoSeriesCode;
-        NoSeriesBatchLock."Locked By" := UserId;
-        NoSeriesBatchLock."Lock Time" := CurrentDateTime;
-        NoSeriesBatchLock.Insert(true);
-    end;
-
-    local procedure UnlockNoSeriesForBatch(NoSeriesCode: Code[20])
-    var
-        NoSeriesBatchLock: Record "No. Series Batch Lock";
-    begin
-        NoSeriesBatchLock.SetRange("Series Code", NoSeriesCode);
-        NoSeriesBatchLock.SetRange("Locked By", UserId);
-        if NoSeriesBatchLock.FindFirst() then
-            NoSeriesBatchLock.Delete(true);
-    end;
-
-    local procedure IncrementNumber(CurrentNo: Code[20]; IncrementBy: Integer): Code[20]
-    begin
-        // Implementation from previous examples
-    end;
-
-    local procedure LogBatchUsage(NoSeriesCode: Code[20]; UsedNo: Code[20])
-    var
-        NoSeriesBatchLog: Record "No. Series Batch Log";
-    begin
-        NoSeriesBatchLog.Init();
-        NoSeriesBatchLog."Entry No." := GetNextBatchLogEntryNo();
-        NoSeriesBatchLog."Series Code" := NoSeriesCode;
-        NoSeriesBatchLog."Used No." := UsedNo;
-        NoSeriesBatchLog."Usage Date" := Today;
-        NoSeriesBatchLog."Usage Time" := Time;
-        NoSeriesBatchLog."User ID" := UserId;
-        NoSeriesBatchLog.Insert(true);
-    end;
-
-    local procedure GetNextBatchLogEntryNo(): Integer
-    var
-        NoSeriesBatchLog: Record "No. Series Batch Log";
-    begin
-        if NoSeriesBatchLog.FindLast() then
-            exit(NoSeriesBatchLog."Entry No." + 1)
-        else
-            exit(1);
-    end;
-}
-```
-
-## Multi-Dimensional Number Generation
-
-```al
-// Support for complex numbering schemes with multiple dimensions
-codeunit 50503 "Multi-Dimensional No. Series"
-{
-    procedure GetNextCompoundNo(BaseSeriesCode: Code[20]; Dimensions: Dictionary of [Text, Text]): Code[20]
-    var
-        CompoundCode: Code[20];
-        GeneratedNo: Code[20];
-    begin
-        CompoundCode := BuildCompoundSeriesCode(BaseSeriesCode, Dimensions);
-        GeneratedNo := GetOrCreateCompoundSeries(CompoundCode, Dimensions);
-
-        LogCompoundNumberGeneration(BaseSeriesCode, CompoundCode, GeneratedNo, Dimensions);
-
-        exit(GeneratedNo);
-    end;
-
-    procedure GetLocationBasedNo(BaseSeriesCode: Code[20]; LocationCode: Code[10]): Code[20]
-    var
-        Dimensions: Dictionary of [Text, Text];
-    begin
-        Dimensions.Set('LOCATION', LocationCode);
-        exit(GetNextCompoundNo(BaseSeriesCode, Dimensions));
-    end;
-
-    procedure GetYearBasedNo(BaseSeriesCode: Code[20]; FiscalYear: Integer): Code[20]
-    var
-        Dimensions: Dictionary of [Text, Text];
-    begin
-        Dimensions.Set('YEAR', Format(FiscalYear));
-        exit(GetNextCompoundNo(BaseSeriesCode, Dimensions));
-    end;
-
-    procedure GetDepartmentBasedNo(BaseSeriesCode: Code[20]; DepartmentCode: Code[10]; LocationCode: Code[10]): Code[20]
-    var
-        Dimensions: Dictionary of [Text, Text];
-    begin
-        Dimensions.Set('DEPARTMENT', DepartmentCode);
-        Dimensions.Set('LOCATION', LocationCode);
-        exit(GetNextCompoundNo(BaseSeriesCode, Dimensions));
-    end;
-
-    local procedure BuildCompoundSeriesCode(BaseSeriesCode: Code[20]; Dimensions: Dictionary of [Text, Text]): Code[20]
-    var
-        CompoundCode: Text;
-        DimensionKey: Text;
-        DimensionValue: Text;
-        SortedKeys: List of [Text];
-    begin
-        CompoundCode := BaseSeriesCode;
-
-        // Sort dimension keys for consistent ordering
-        foreach DimensionKey in Dimensions.Keys do
-            SortedKeys.Add(DimensionKey);
-
-        SortDimensionKeys(SortedKeys);
-
-        // Build compound code
-        foreach DimensionKey in SortedKeys do begin
-            Dimensions.Get(DimensionKey, DimensionValue);
-            CompoundCode += '-' + DimensionKey + '-' + DimensionValue;
-        end;
-
-        // Ensure code fits in 20 characters
-        if StrLen(CompoundCode) > 20 then
-            CompoundCode := CreateHashedCompoundCode(BaseSeriesCode, Dimensions);
-
-        exit(CopyStr(CompoundCode, 1, 20));
-    end;
-
-    local procedure GetOrCreateCompoundSeries(CompoundCode: Code[20]; Dimensions: Dictionary of [Text, Text]): Code[20]
-    var
-        NoSeries: Record "No. Series";
-        CustomNoSeriesManagement: Codeunit "Custom No. Series Management";
-        StartingNo: Code[20];
-        EndingNo: Code[20];
-    begin
-        if not NoSeries.Get(CompoundCode) then begin
-            // Create new compound series
-            StartingNo := BuildStartingNumber(Dimensions);
-            EndingNo := BuildEndingNumber(Dimensions);
-
-            if not CustomNoSeriesManagement.CreateCustomNoSeries(
-                CompoundCode,
-                'Auto-generated compound series',
-                StartingNo,
-                EndingNo) then
-                Error('Failed to create compound No. Series %1', CompoundCode);
-        end;
-
-        exit(CustomNoSeriesManagement.GetNextNo(CompoundCode, Today));
-    end;
-
-    local procedure BuildStartingNumber(Dimensions: Dictionary of [Text, Text]): Code[20]
-    var
-        StartingNo: Text;
-        DimensionKey: Text;
-        DimensionValue: Text;
-    begin
-        StartingNo := '';
-
-        // Build starting number based on dimensions
-        if Dimensions.Get('LOCATION', DimensionValue) then
-            StartingNo += DimensionValue;
-
-        if Dimensions.Get('DEPARTMENT', DimensionValue) then
-            StartingNo += DimensionValue;
-
-        if Dimensions.Get('YEAR', DimensionValue) then
-            StartingNo += CopyStr(DimensionValue, 3, 2); // Last 2 digits of year
-
-        StartingNo += '00001';
-
-        exit(CopyStr(StartingNo, 1, 20));
-    end;
-
-    local procedure BuildEndingNumber(Dimensions: Dictionary of [Text, Text]): Code[20]
-    var
-        EndingNo: Text;
-        DimensionKey: Text;
-        DimensionValue: Text;
-    begin
-        EndingNo := '';
-
-        // Build ending number based on dimensions
-        if Dimensions.Get('LOCATION', DimensionValue) then
-            EndingNo += DimensionValue;
-
-        if Dimensions.Get('DEPARTMENT', DimensionValue) then
-            EndingNo += DimensionValue;
-
-        if Dimensions.Get('YEAR', DimensionValue) then
-            EndingNo += CopyStr(DimensionValue, 3, 2); // Last 2 digits of year
-
-        EndingNo += '99999';
-
-        exit(CopyStr(EndingNo, 1, 20));
-    end;
-
-    local procedure CreateHashedCompoundCode(BaseSeriesCode: Code[20]; Dimensions: Dictionary of [Text, Text]): Code[20]
-    var
-        HashInput: Text;
-        DimensionKey: Text;
-        DimensionValue: Text;
-        HashValue: Text;
-    begin
-        HashInput := BaseSeriesCode;
-
-        foreach DimensionKey in Dimensions.Keys do begin
-            Dimensions.Get(DimensionKey, DimensionValue);
-            HashInput += DimensionKey + DimensionValue;
-        end;
-
-        // Create simple hash (in production, use proper hashing)
-        HashValue := Format(HashInput.GetHashCode(), 0, '<Integer,8><Filler Character,0>');
-
-        exit(CopyStr(BaseSeriesCode + '-' + HashValue, 1, 20));
-    end;
-
-    local procedure SortDimensionKeys(var Keys: List of [Text])
-    var
-        i, j: Integer;
-        temp: Text;
-    begin
-        // Simple bubble sort for demonstration
-        for i := 1 to Keys.Count - 1 do begin
-            for j := 1 to Keys.Count - i do begin
-                if Keys.Get(j) > Keys.Get(j + 1) then begin
-                    temp := Keys.Get(j);
-                    Keys.Set(j, Keys.Get(j + 1));
-                    Keys.Set(j + 1, temp);
-                end;
-            end;
-        end;
-    end;
-
-    local procedure LogCompoundNumberGeneration(BaseSeriesCode: Code[20]; CompoundCode: Code[20]; GeneratedNo: Code[20]; Dimensions: Dictionary of [Text, Text])
-    var
-        CompoundNoLog: Record "Compound No. Log";
-        DimensionText: Text;
-        DimensionKey: Text;
-        DimensionValue: Text;
-    begin
-        // Build dimension text
-        foreach DimensionKey in Dimensions.Keys do begin
-            Dimensions.Get(DimensionKey, DimensionValue);
-            if DimensionText <> '' then
-                DimensionText += '; ';
-            DimensionText += DimensionKey + '=' + DimensionValue;
-        end;
-
-        CompoundNoLog.Init();
-        CompoundNoLog."Entry No." := GetNextCompoundLogEntryNo();
-        CompoundNoLog."Base Series Code" := BaseSeriesCode;
-        CompoundNoLog."Compound Series Code" := CompoundCode;
-        CompoundNoLog."Generated No." := GeneratedNo;
-        CompoundNoLog."Dimensions" := CopyStr(DimensionText, 1, 250);
-        CompoundNoLog."Generation Date" := Today;
-        CompoundNoLog."Generation Time" := Time;
-        CompoundNoLog."User ID" := UserId;
-        CompoundNoLog.Insert(true);
-    end;
-
-    local procedure GetNextCompoundLogEntryNo(): Integer
-    var
-        CompoundNoLog: Record "Compound No. Log";
-    begin
-        if CompoundNoLog.FindLast() then
-            exit(CompoundNoLog."Entry No." + 1)
-        else
-            exit(1);
-    end;
-}
-```
-
-This comprehensive implementation provides robust number generation capabilities including basic number series management, concurrency control, batch allocation, and multi-dimensional numbering for complex Business Central scenarios.