@jwikman/bc-code-intelligence-mcp 1.5.7-dev.1

package/embedded-knowledge/domains/dean-debug/samples/custom-dimensions.md

@@ -0,0 +1,190 @@
+# Custom Dimension Implementation Examples - AL Code Samples
+
+## Standard Custom Dimensions Pattern
+```al
+codeunit 50110 "Custom Dimensions Examples"
+{
+    // Example 1: Building comprehensive custom dimensions
+    procedure BuildStandardDimensions(): Dictionary of [Text, Text]
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+    begin
+        // Core identification dimensions
+        CustomDimensions.Add('CompanyName', CompanyName());
+        CustomDimensions.Add('UserID', UserId());
+        CustomDimensions.Add('SessionID', Format(SessionId()));
+        
+        // Environment context
+        CustomDimensions.Add('Environment', GetEnvironmentType());
+        CustomDimensions.Add('AppVersion', GetAppVersion());
+        CustomDimensions.Add('BCVersion', GetBCVersion());
+        
+        // Temporal dimensions
+        CustomDimensions.Add('Timestamp', Format(CurrentDateTime, 0, 9));
+        CustomDimensions.Add('Date', Format(Today(), 0, '<Year4>-<Month,2>-<Day,2>'));
+        CustomDimensions.Add('Hour', Format(Time(), 0, '<Hours24>'));
+        
+        exit(CustomDimensions);
+    end;
+
+    // Example 2: Business context dimensions
+    procedure BuildBusinessContextDimensions(CustomerNo: Code[20]; ItemNo: Code[20]): Dictionary of [Text, Text]
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+        Customer: Record Customer;
+        Item: Record Item;
+    begin
+        CustomDimensions := BuildStandardDimensions();
+        
+        // Customer context
+        if Customer.Get(CustomerNo) then begin
+            CustomDimensions.Add('CustomerNo', CustomerNo);
+            CustomDimensions.Add('CustomerGroup', Customer."Customer Posting Group");
+            CustomDimensions.Add('SalespersonCode', Customer."Salesperson Code");
+            CustomDimensions.Add('CountryRegion', Customer."Country/Region Code");
+        end;
+        
+        // Item context
+        if Item.Get(ItemNo) then begin
+            CustomDimensions.Add('ItemNo', ItemNo);
+            CustomDimensions.Add('ItemCategory', Item."Item Category Code");
+            CustomDimensions.Add('ItemType', Format(Item.Type));
+            CustomDimensions.Add('UnitOfMeasure', Item."Base Unit of Measure");
+        end;
+        
+        exit(CustomDimensions);
+    end;
+    
+    // Helper methods
+    local procedure GetEnvironmentType(): Text
+    begin
+        exit('Production'); // Implement actual environment detection
+    end;
+    
+    local procedure GetAppVersion(): Text
+    begin
+        exit('1.0.0.0'); // Implement actual version detection
+    end;
+    
+    local procedure GetBCVersion(): Text
+    begin
+        exit('24.0'); // Implement actual BC version detection
+    end;
+}
+```
+
+## Performance-Optimized Dimension Patterns
+```al
+codeunit 50111 "Optimized Dimension Builder"
+{
+    var
+        CachedDimensions: Dictionary of [Text, Text];
+        LastCacheTime: DateTime;
+        CacheValidityMinutes: Integer;
+
+    // Example 3: Cached dimension building for performance
+    procedure GetCachedStandardDimensions(): Dictionary of [Text, Text]
+    begin
+        if ShouldRefreshCache() then
+            RefreshCachedDimensions();
+            
+        exit(CachedDimensions);
+    end;
+
+    local procedure ShouldRefreshCache(): Boolean
+    begin
+        if LastCacheTime = 0DT then
+            exit(true);
+            
+        exit(CurrentDateTime - LastCacheTime > CacheValidityMinutes * 60000);
+    end;
+
+    local procedure RefreshCachedDimensions()
+    begin
+        CachedDimensions.Clear();
+        
+        // Cache static dimensions that don't change frequently
+        CachedDimensions.Add('CompanyName', CompanyName());
+        CachedDimensions.Add('Environment', 'Production');
+        CachedDimensions.Add('AppVersion', '1.0.0.0');
+        CachedDimensions.Add('BCVersion', '24.0');
+        
+        LastCacheTime := CurrentDateTime;
+    end;
+
+    // Example 4: Conditional dimension building
+    procedure BuildConditionalDimensions(IncludeDetailed: Boolean; IncludePerformance: Boolean): Dictionary of [Text, Text]
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+    begin
+        CustomDimensions := GetCachedStandardDimensions();
+        
+        // Always include dynamic dimensions
+        CustomDimensions.Add('UserID', UserId());
+        CustomDimensions.Add('Timestamp', Format(CurrentDateTime, 0, 9));
+        
+        if IncludeDetailed then begin
+            CustomDimensions.Add('SessionID', Format(SessionId()));
+            CustomDimensions.Add('ClientType', Format(ClientType()));
+            CustomDimensions.Add('LanguageID', Format(GlobalLanguage()));
+        end;
+        
+        if IncludePerformance then begin
+            CustomDimensions.Add('MemoryUsage', 'Unknown');
+            CustomDimensions.Add('CPUTime', 'Unknown');
+        end;
+        
+        exit(CustomDimensions);
+    end;
+}
+```
+
+## Domain-Specific Dimension Patterns
+```al
+codeunit 50112 "Domain Telemetry Dimensions"
+{
+    // Example 5: Sales process dimensions
+    procedure BuildSalesDimensions(SalesHeader: Record "Sales Header"): Dictionary of [Text, Text]
+    var
+        CustomDimensions: Dictionary of [Text, Text];
+        Customer: Record Customer;
+        Salesperson: Record "Salesperson/Purchaser";
+    begin
+        CustomDimensions.Add('Domain', 'Sales');
+        CustomDimensions.Add('DocumentType', Format(SalesHeader."Document Type"));
+        CustomDimensions.Add('DocumentNo', SalesHeader."No.");
+        CustomDimensions.Add('CustomerNo', SalesHeader."Sell-to Customer No.");
+        
+        if Customer.Get(SalesHeader."Sell-to Customer No.") then begin
+            CustomDimensions.Add('CustomerGroup', Customer."Customer Posting Group");
+            CustomDimensions.Add('PaymentTerms', Customer."Payment Terms Code");
+            CustomDimensions.Add('CustomerSize', ClassifyCustomerSize(Customer."Credit Limit (LCY)"));
+        end;
+        
+        if Salesperson.Get(SalesHeader."Salesperson Code") then
+            CustomDimensions.Add('SalespersonName', Salesperson.Name);
+            
+        // Financial dimensions
+        CustomDimensions.Add('CurrencyCode', SalesHeader."Currency Code");
+        CustomDimensions.Add('AmountLCY', Format(SalesHeader."Amount Including VAT"));
+        CustomDimensions.Add('PriceGroup', SalesHeader."Customer Price Group");
+        
+        exit(CustomDimensions);
+    end;
+
+    // Helper function for customer classification
+    local procedure ClassifyCustomerSize(CreditLimit: Decimal): Text
+    begin
+        case true of
+            CreditLimit >= 1000000:
+                exit('Enterprise');
+            CreditLimit >= 100000:
+                exit('Large');
+            CreditLimit >= 10000:
+                exit('Medium');
+            else
+                exit('Small');
+        end;
+    end;
+}
+```