bc-code-intelligence-mcp 1.3.2 → 1.3.4

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

@@ -1,84 +0,0 @@
-# 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

@@ -1,127 +0,0 @@
-# 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

@@ -1,89 +0,0 @@
-# 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;
-```