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

package/embedded-knowledge/domains/sam-coder/samples/manual-binding.md

@@ -0,0 +1,84 @@
+# Manual Binding for Conditional Subscribers - AL Code Samples
+
+## Basic Manual Binding Pattern
+
+```al
+codeunit 50400 "Manual Event Binding Manager"
+{
+    var
+        SubscriberBindings: Dictionary of [Text, Boolean];
+
+    procedure InitializeConditionalBindings()
+    var
+        CompanySetup: Record "Company Information";
+        FeatureManagement: Record "Feature Key";
+    begin
+        CompanySetup.Get();
+        
+        if ShouldBindCustomerValidation(CompanySetup) then
+            BindCustomerValidationSubscriber()
+        else
+            UnbindCustomerValidationSubscriber();
+            
+        if FeatureManagement.Get('ADVANCED_INVENTORY') and FeatureManagement.Enabled then
+            BindInventoryTrackingSubscriber()
+        else
+            UnbindInventoryTrackingSubscriber();
+    end;
+
+    local procedure BindCustomerValidationSubscriber()
+    var
+        BindingKey: Text;
+    begin
+        BindingKey := 'CustomerValidation';
+        
+        if not IsSubscriberBound(BindingKey) then begin
+            BindSubscription(Codeunit::"Customer Validation Subscriber");
+            SubscriberBindings.Set(BindingKey, true);
+        end;
+    end;
+
+    local procedure IsSubscriberBound(BindingKey: Text): Boolean
+    var
+        IsBound: Boolean;
+    begin
+        if SubscriberBindings.Get(BindingKey, IsBound) then
+            exit(IsBound)
+        else
+            exit(false);
+    end;
+}
+```
+
+## Context-Aware Binding
+
+```al
+codeunit 50401 "Context-Aware Binding Manager"
+{
+    procedure InitializeUserContextBindings()
+    var
+        UserSetup: Record "User Setup";
+    begin
+        if UserSetup.Get(UserId) then begin
+            if HasAuditPermissions(UserId) then
+                BindAuditTrailSubscriber()
+            else
+                UnbindAuditTrailSubscriber();
+                
+            if HasApprovalPermissions(UserId) then
+                BindApprovalSubscriber()
+            else
+                UnbindApprovalSubscriber();
+        end;
+    end;
+    
+    local procedure HasAuditPermissions(UserID: Text): Boolean
+    var
+        AccessControl: Record "Access Control";
+    begin
+        AccessControl.SetRange("User Name", UserID);
+        AccessControl.SetRange("Role ID", 'AUDITOR');
+        exit(not AccessControl.IsEmpty);
+    end;
+}
+```

package/embedded-knowledge/domains/sam-coder/samples/nested-compound-best-practices.md

@@ -0,0 +1,127 @@
+# AL Nested Compound Statement Best Practices Examples
+
+## Manageable Nesting Depth Examples
+
+### Good: Three-Level Nesting with Clear Purpose
+```al
+local procedure ProcessCustomerOrder(var SalesHeader: Record "Sales Header")
+begin
+    if ValidateCustomerData(SalesHeader) then begin
+        if CheckInventoryAvailability(SalesHeader) then begin
+            if ValidateCreditLimit(SalesHeader) then begin
+                ProcessApprovedOrder(SalesHeader);
+            end else begin
+                HandleCreditLimitExceeded(SalesHeader);
+            end;
+        end else begin
+            HandleInventoryShortage(SalesHeader);
+        end;
+    end else begin
+        HandleCustomerValidationFailure(SalesHeader);
+    end;
+end;
+```
+
+### Better: Extracted Logic for Clarity
+```al
+local procedure ProcessCustomerOrder(var SalesHeader: Record "Sales Header")
+begin
+    if not ValidateCustomerData(SalesHeader) then begin
+        HandleCustomerValidationFailure(SalesHeader);
+        exit;
+    end;
+    
+    if not CheckInventoryAvailability(SalesHeader) then begin
+        HandleInventoryShortage(SalesHeader);
+        exit;
+    end;
+    
+    ProcessOrderWithCreditCheck(SalesHeader);
+end;
+
+local procedure ProcessOrderWithCreditCheck(var SalesHeader: Record "Sales Header")
+begin
+    if ValidateCreditLimit(SalesHeader) then begin
+        ProcessApprovedOrder(SalesHeader);
+    end else begin
+        HandleCreditLimitExceeded(SalesHeader);
+    end;
+end;
+```
+
+## Validation Cascade Patterns
+
+### Structured Validation with Clear Flow
+```al
+local procedure ValidateOrderData(var SalesHeader: Record "Sales Header"): Boolean
+var
+    Customer: Record Customer;
+    Item: Record Item;
+begin
+    if SalesHeader."Sell-to Customer No." = '' then begin
+        LogValidationError('Customer number is required');
+        exit(false);
+    end;
+    
+    if Customer.Get(SalesHeader."Sell-to Customer No.") then begin
+        if Customer.Blocked = Customer.Blocked::All then begin
+            LogValidationError('Customer is blocked for all transactions');
+            exit(false);
+        end;
+        
+        if ValidateOrderLines(SalesHeader) then begin
+            if ValidateOrderAmount(SalesHeader, Customer) then begin
+                exit(true);
+            end else begin
+                LogValidationError('Order amount validation failed');
+                exit(false);
+            end;
+        end else begin
+            LogValidationError('Order line validation failed');
+            exit(false);
+        end;
+    end else begin
+        LogValidationError('Customer not found');
+        exit(false);
+    end;
+end;
+```
+
+## Error Handling Hierarchies
+
+### Layered Exception Handling
+```al
+local procedure ProcessDocumentBatch(var DocumentBuffer: Record "Document Buffer")
+var
+    ProcessedCount: Integer;
+    ErrorCount: Integer;
+begin
+    if DocumentBuffer.FindSet() then begin
+        repeat
+            try
+                if ValidateDocumentStructure(DocumentBuffer) then begin
+                    try
+                        ProcessSingleDocument(DocumentBuffer);
+                        ProcessedCount += 1;
+                    except
+                        on E: Exception do begin
+                            LogDocumentProcessingError(DocumentBuffer."Document No.", E.Message);
+                            ErrorCount += 1;
+                        end;
+                    end;
+                end else begin
+                    LogDocumentValidationError(DocumentBuffer."Document No.");
+                    ErrorCount += 1;
+                end;
+            except
+                on E: Exception do begin
+                    LogCriticalError('Batch processing failed', E.Message);
+                    Error('Batch processing terminated due to critical error');
+                end;
+            end;
+        until DocumentBuffer.Next() = 0;
+        
+        LogBatchSummary(ProcessedCount, ErrorCount);
+    end;
+end;
+```

package/embedded-knowledge/domains/sam-coder/samples/single-to-compound-conversion.md

@@ -0,0 +1,89 @@
+# AL Single to Compound Statement Conversion Examples
+
+## Basic Conditional Conversion
+
+### Before: Single Statement If
+```al
+if CustomerNo <> '' then
+    ValidateCustomer(CustomerNo);
+```
+
+### After: Compound Statement
+```al
+if CustomerNo <> '' then begin
+    ValidateCustomer(CustomerNo);
+end;
+```
+
+## Complex Conditional Transformation
+
+### Before: Mixed Single/Compound Pattern
+```al
+if ValidateOrder(SalesHeader) then
+    ProcessOrder(SalesHeader)
+else begin
+    LogOrderError(SalesHeader."No.");
+    NotifyUser('Order validation failed');
+end;
+```
+
+### After: Consistent Compound Pattern
+```al
+if ValidateOrder(SalesHeader) then begin
+    ProcessOrder(SalesHeader);
+end else begin
+    LogOrderError(SalesHeader."No.");
+    NotifyUser('Order validation failed');
+end;
+```
+
+## Loop Statement Conversion
+
+### Before: Single Statement For Loop
+```al
+for i := 1 to RecordCount do
+    ProcessRecord(i);
+```
+
+### After: Compound For Loop
+```al
+for i := 1 to RecordCount do begin
+    ProcessRecord(i);
+end;
+```
+
+## Case Statement Enhancement
+
+### Before: Mixed Case Pattern
+```al
+case DocumentType of
+    DocumentType::Quote:
+        ProcessQuote(DocumentNo);
+    DocumentType::Order:
+        begin
+            ValidateOrder(DocumentNo);
+            ProcessOrder(DocumentNo);
+        end;
+    DocumentType::Invoice:
+        ProcessInvoice(DocumentNo);
+end;
+```
+
+### After: Consistent Case Pattern
+```al
+case DocumentType of
+    DocumentType::Quote:
+        begin
+            ProcessQuote(DocumentNo);
+        end;
+    DocumentType::Order:
+        begin
+            ValidateOrder(DocumentNo);
+            ProcessOrder(DocumentNo);
+        end;
+    DocumentType::Invoice:
+        begin
+            ProcessInvoice(DocumentNo);
+        end;
+end;
+```