bc-code-intelligence-mcp 1.3.3 → 1.3.4

package/embedded-knowledge/domains/maya-mentor/samples/case-statement-multiple-conditions.md

@@ -1,385 +0,0 @@
-# Case Statement Multiple Conditions and Ranges - Code Samples
-
-## Multiple Value Conditions
-
-```al
-codeunit 50102 "Case Multiple Conditions"
-{
-    // Example 1: Multiple discrete values for same action
-    procedure GetBusinessHoursMessage(DayOfWeek: Integer; Hour: Integer): Text
-    begin
-        case DayOfWeek of
-            1, 2, 3, 4, 5:  // Monday through Friday
-                case Hour of
-                    8, 9, 10, 11, 12, 13, 14, 15, 16, 17:  // 8 AM to 5 PM
-                        exit('We are open - business hours');
-                    18, 19:  // 6 PM to 7 PM
-                        exit('Extended hours - limited service');
-                    else
-                        exit('We are closed - business day but outside hours');
-                end;
-            6:  // Saturday
-                case Hour of
-                    9, 10, 11, 12, 13:  // 9 AM to 1 PM
-                        exit('Saturday hours - limited service');
-                    else
-                        exit('We are closed - Saturday outside hours');
-                end;
-            7:  // Sunday
-                exit('We are closed - Sunday');
-        end;
-    end;
-
-    // Example 2: Multiple country codes for regional processing
-    procedure GetRegionalTaxRate(CountryCode: Code[10]): Decimal
-    begin
-        case CountryCode of
-            'US', 'CA', 'MX':  // North America
-                exit(CalculateNorthAmericaTax());
-            'GB', 'FR', 'DE', 'IT', 'ES', 'NL', 'BE':  // Western Europe
-                exit(CalculateEUTax());
-            'JP', 'CN', 'KR', 'SG', 'AU':  // Asia Pacific
-                exit(CalculateAsiaPacificTax());
-            'BR', 'AR', 'CL', 'CO':  // South America
-                exit(CalculateSouthAmericaTax());
-            else
-                exit(CalculateDefaultTax());
-        end;
-    end;
-
-    // Example 3: Multiple product categories with shared logic
-    procedure ApplyCategoryDiscount(ItemCategoryCode: Code[20]): Decimal
-    var
-        DiscountPercent: Decimal;
-    begin
-        case ItemCategoryCode of
-            'ELECTRONICS', 'COMPUTERS', 'SOFTWARE':
-                DiscountPercent := 5.0;  // Technology discount
-            'CLOTHING', 'SHOES', 'ACCESSORIES':
-                DiscountPercent := 15.0;  // Fashion discount
-            'BOOKS', 'EDUCATION', 'TRAINING':
-                DiscountPercent := 10.0;  // Educational discount
-            'FOOD', 'BEVERAGE', 'ORGANIC':
-                DiscountPercent := 8.0;  // Food & beverage discount
-            else
-                DiscountPercent := 0.0;  // No category discount
-        end;
-        exit(DiscountPercent);
-    end;
-
-    local procedure CalculateNorthAmericaTax(): Decimal
-    begin
-        exit(7.5);  // Example rate
-    end;
-
-    local procedure CalculateEUTax(): Decimal
-    begin
-        exit(20.0);  // Example VAT rate
-    end;
-
-    local procedure CalculateAsiaPacificTax(): Decimal
-    begin
-        exit(10.0);  // Example rate
-    end;
-
-    local procedure CalculateSouthAmericaTax(): Decimal
-    begin
-        exit(12.0);  // Example rate
-    end;
-
-    local procedure CalculateDefaultTax(): Decimal
-    begin
-        exit(5.0);  // Default rate
-    end;
-}
-```
-
-## Range-Based Conditions
-
-```al
-codeunit 50103 "Case Range Conditions"
-{
-    // Example 1: Quantity-based pricing tiers
-    procedure CalculateVolumeDiscount(Quantity: Decimal): Decimal
-    var
-        DiscountPercent: Decimal;
-    begin
-        case Quantity of
-            0:
-                DiscountPercent := 0.0;  // No discount for zero quantity
-            1..9:
-                DiscountPercent := 0.0;  // No volume discount
-            10..49:
-                DiscountPercent := 5.0;  // Small volume discount
-            50..99:
-                DiscountPercent := 10.0; // Medium volume discount
-            100..499:
-                DiscountPercent := 15.0; // Large volume discount
-            500..999:
-                DiscountPercent := 20.0; // Enterprise discount
-            else
-                DiscountPercent := 25.0; // Maximum discount for 1000+
-        end;
-        exit(DiscountPercent);
-    end;
-
-    // Example 2: Amount-based shipping calculations
-    procedure CalculateShippingCost(OrderAmount: Decimal; Weight: Decimal): Decimal
-    var
-        ShippingCost: Decimal;
-    begin
-        // First check order amount for free shipping
-        case OrderAmount of
-            100..999.99:
-                ShippingCost := CalculateWeightBasedShipping(Weight) * 0.5; // 50% discount
-            1000..9999.99:
-                ShippingCost := 0; // Free shipping
-            else
-                ShippingCost := CalculateWeightBasedShipping(Weight); // Full rate
-        end;
-        
-        exit(ShippingCost);
-    end;
-
-    // Example 3: Date-based seasonal pricing
-    procedure GetSeasonalMultiplier(OrderDate: Date): Decimal
-    var
-        Month: Integer;
-        Multiplier: Decimal;
-    begin
-        Month := Date2DMY(OrderDate, 2); // Extract month
-        
-        case Month of
-            12, 1, 2:  // Winter months
-                Multiplier := 1.1;  // 10% winter surcharge
-            3, 4, 5:   // Spring months
-                Multiplier := 1.0;  // Standard pricing
-            6, 7, 8:   // Summer months
-                Multiplier := 1.15; // 15% peak season surcharge
-            9, 10, 11: // Fall months
-                Multiplier := 0.95; // 5% off-season discount
-        end;
-        
-        exit(Multiplier);
-    end;
-
-    // Example 4: Age-based service categories
-    procedure DetermineServiceLevel(CustomerAge: Integer): Text
-    begin
-        case CustomerAge of
-            0..17:
-                exit('Youth Service - Parental approval required');
-            18..24:
-                exit('Student Service - Education discounts available');
-            25..54:
-                exit('Standard Service - Full access');
-            55..64:
-                exit('Pre-Senior Service - Early retirement benefits');
-            65..150:
-                exit('Senior Service - Senior citizen discounts');
-            else
-                exit('Invalid Age - Please verify information');
-        end;
-    end;
-
-    // Example 5: Complex range conditions with business logic
-    procedure AssignSalesTerritory(PostalCode: Code[10]): Code[20]
-    var
-        NumericCode: Integer;
-    begin
-        // Convert postal code to numeric for range evaluation
-        if Evaluate(NumericCode, CopyStr(PostalCode, 1, 5)) then
-            case NumericCode of
-                00001..09999:
-                    exit('NORTHEAST');
-                10000..19999:
-                    exit('MID_ATLANTIC');
-                20000..29999:
-                    exit('SOUTHEAST');
-                30000..39999:
-                    exit('SOUTH_CENTRAL');
-                40000..49999:
-                    exit('MIDWEST');
-                50000..59999:
-                    exit('MOUNTAIN_WEST');
-                60000..79999:
-                    exit('SOUTHWEST');
-                80000..99999:
-                    exit('WEST_COAST');
-                else
-                    exit('INTERNATIONAL');
-            end
-        else
-            exit('UNKNOWN'); // Non-numeric postal codes
-    end;
-
-    local procedure CalculateWeightBasedShipping(Weight: Decimal): Decimal
-    begin
-        case Weight of
-            0..1:
-                exit(5.99);
-            1.01..5:
-                exit(9.99);
-            5.01..10:
-                exit(14.99);
-            10.01..25:
-                exit(19.99);
-            else
-                exit(29.99);
-        end;
-    end;
-}
-```
-
-## Advanced Multiple Condition Patterns
-
-```al
-codeunit 50104 "Advanced Case Patterns"
-{
-    // Example 1: Combining multiple conditions with calculated values
-    procedure DetermineCustomerRisk(CreditLimit: Decimal; DaysOverdue: Integer; PaymentHistory: Text): Text
-    var
-        RiskScore: Integer;
-    begin
-        // Calculate composite risk score
-        RiskScore := 0;
-        
-        case CreditLimit of
-            0..999:
-                RiskScore += 3;     // High risk - low credit limit
-            1000..4999:
-                RiskScore += 2;     // Medium risk
-            5000..19999:
-                RiskScore += 1;     // Low risk
-            else
-                RiskScore += 0;     // Lowest risk - high credit limit
-        end;
-        
-        case DaysOverdue of
-            0:
-                RiskScore += 0;     // No overdue amount
-            1..30:
-                RiskScore += 1;     // Slightly overdue
-            31..60:
-                RiskScore += 2;     // Moderately overdue
-            61..90:
-                RiskScore += 3;     // Seriously overdue
-            else
-                RiskScore += 4;     // Severely overdue
-        end;
-        
-        case PaymentHistory of
-            'EXCELLENT', 'GOOD':
-                RiskScore -= 1;     // Reduce risk for good history
-            'POOR', 'TERRIBLE':
-                RiskScore += 2;     // Increase risk for poor history
-        end;
-        
-        // Final risk assessment based on composite score
-        case RiskScore of
-            0..2:
-                exit('LOW_RISK');
-            3..4:
-                exit('MEDIUM_RISK');
-            5..7:
-                exit('HIGH_RISK');
-            else
-                exit('EXTREME_RISK');
-        end;
-    end;
-
-    // Example 2: Multiple condition matching with enum combinations
-    procedure GetApprovalWorkflow(Amount: Decimal; Department: Option Finance,Sales,Operations,IT): Code[20]
-    var
-        AmountTier: Integer;
-        WorkflowCode: Code[20];
-    begin
-        // Determine amount tier
-        case Amount of
-            0..999.99:
-                AmountTier := 1;
-            1000..4999.99:
-                AmountTier := 2;
-            5000..24999.99:
-                AmountTier := 3;
-            else
-                AmountTier := 4;
-        end;
-        
-        // Determine workflow based on department and amount tier
-        case Department of
-            Department::Finance:
-                case AmountTier of
-                    1: WorkflowCode := 'FIN_STANDARD';
-                    2: WorkflowCode := 'FIN_MANAGER';
-                    3: WorkflowCode := 'FIN_DIRECTOR';
-                    4: WorkflowCode := 'FIN_CFO';
-                end;
-            Department::Sales:
-                case AmountTier of
-                    1, 2: WorkflowCode := 'SALES_STANDARD';
-                    3: WorkflowCode := 'SALES_MANAGER';
-                    4: WorkflowCode := 'SALES_VP';
-                end;
-            Department::Operations:
-                case AmountTier of
-                    1: WorkflowCode := 'OPS_AUTO';
-                    2, 3: WorkflowCode := 'OPS_MANAGER';
-                    4: WorkflowCode := 'OPS_DIRECTOR';
-                end;
-            Department::IT:
-                case AmountTier of
-                    1, 2: WorkflowCode := 'IT_STANDARD';
-                    3, 4: WorkflowCode := 'IT_DIRECTOR';
-                end;
-        end;
-        
-        exit(WorkflowCode);
-    end;
-
-    // Example 3: Dynamic range calculations
-    procedure CalculateDynamicPricing(BasePrice: Decimal; CustomerType: Code[10]; OrderDate: Date): Decimal
-    var
-        PriceMultiplier: Decimal;
-        DaysFromToday: Integer;
-        FinalPrice: Decimal;
-    begin
-        PriceMultiplier := 1.0; // Start with base multiplier
-        DaysFromToday := OrderDate - Today;
-        
-        // Customer type adjustments
-        case CustomerType of
-            'GOLD', 'PLATINUM':
-                PriceMultiplier *= 0.85; // 15% discount
-            'SILVER', 'PREFERRED':
-                PriceMultiplier *= 0.90; // 10% discount
-            'BRONZE', 'STANDARD':
-                PriceMultiplier *= 1.0;  // No discount
-            'NEW', 'TRIAL':
-                PriceMultiplier *= 1.05; // 5% markup
-            else
-                PriceMultiplier *= 1.10; // 10% markup for unknown types
-        end;
-        
-        // Delivery date adjustments
-        case DaysFromToday of
-            -999..-1:    // Rush orders (past due)
-                PriceMultiplier *= 1.25; // 25% rush charge
-            0..7:        // Within a week
-                PriceMultiplier *= 1.10; // 10% expedite charge
-            8..30:       // Standard delivery
-                PriceMultiplier *= 1.0;  // No adjustment
-            31..90:      // Future delivery
-                PriceMultiplier *= 0.95; // 5% discount for advance orders
-            else         // Very far future
-                PriceMultiplier *= 0.90; // 10% discount for long advance orders
-        end;
-        
-        FinalPrice := BasePrice * PriceMultiplier;
-        exit(FinalPrice);
-    end;
-}
-```
-
-Related atomic topic: Case Statement Multiple Conditions and Ranges
-Knowledge reference: al-fundamentals-index.json#case-statements-advanced

package/embedded-knowledge/domains/maya-mentor/samples/case-statement-syntax-structure.md

@@ -1,72 +0,0 @@
-# Case Statement Syntax Structure Examples
-
-## Basic Case Statement
-```al
-procedure ProcessDocumentType(DocumentType: Enum "Document Type")
-begin
-    case DocumentType of
-        DocumentType::Quote:
-            ProcessQuote();
-        DocumentType::Order:
-            ProcessOrder();
-        DocumentType::"Credit Memo":
-            ProcessCreditMemo();
-        else
-            Error('Unsupported document type: %1', DocumentType);
-    end;
-end;
-```
-
-## Case with Multiple Values
-```al
-procedure GetDocumentStatus(Status: Integer): Text
-begin
-    case Status of
-        1, 2, 3:
-            exit('Draft');
-        4, 5:
-            exit('Pending Approval');
-        6:
-            exit('Approved');
-        else
-            exit('Unknown');
-    end;
-end;
-```
-
-## Case with Ranges
-```al
-procedure CategorizeAmount(Amount: Decimal): Text
-begin
-    case true of
-        (Amount >= 0) and (Amount <= 1000):
-            exit('Small');
-        (Amount > 1000) and (Amount <= 10000):
-            exit('Medium');
-        Amount > 10000:
-            exit('Large');
-        else
-            exit('Invalid');
-    end;
-end;
-```
-
-## Complex Case Logic
-```al
-procedure HandleInventoryPosting(ItemType: Enum "Item Type"; LocationCode: Code[10])
-begin
-    case ItemType of
-        ItemType::Inventory:
-            begin
-                if LocationCode <> '' then
-                    PostToLocation(LocationCode)
-                else
-                    PostToDefaultLocation();
-            end;
-        ItemType::Service:
-            PostServiceItem();
-        ItemType::"Non-Inventory":
-            LogNonInventoryTransaction();
-    end;
-end;
-```

package/embedded-knowledge/domains/maya-mentor/samples/fielderror-syntax-usage.md

@@ -1,48 +0,0 @@
-# FieldError Syntax Usage Examples
-
-## Basic FieldError Usage
-```al
-trigger OnValidate()
-begin
-    if Quantity <= 0 then
-        FieldError(Quantity, 'Quantity must be greater than zero.');
-end;
-```
-
-## FieldError with Business Context
-```al
-trigger OnValidate()
-begin
-    if ("Starting Date" > "Ending Date") and ("Ending Date" <> 0D) then
-        FieldError("Starting Date", 'Starting date cannot be later than ending date.');
-end;
-```
-
-## FieldError in Complex Validation
-```al
-procedure ValidateInventoryPosting()
-var
-    Location: Record Location;
-begin
-    if "Location Code" <> '' then begin
-        if not Location.Get("Location Code") then
-            FieldError("Location Code", 'Location does not exist.');
-        
-        if not Location."Require Shipment" and ("Bin Code" = '') then
-            FieldError("Bin Code", 'Bin code is required for this location.');
-    end;
-end;
-```
-
-## FieldError with User Guidance
-```al
-trigger OnValidate()
-begin
-    Customer.SetRange("No.", "Customer No.");
-    if not Customer.FindFirst() then
-        FieldError("Customer No.", 'Customer not found. Please select a valid customer from the lookup.');
-        
-    if Customer.Blocked <> Customer.Blocked::" " then
-        FieldError("Customer No.", StrSubstNo('Customer %1 is blocked for %2.', Customer."No.", Customer.Blocked));
-end;
-```

package/embedded-knowledge/domains/maya-mentor/samples/testfield-basic-syntax.md

@@ -1,49 +0,0 @@
-# TestField Basic Syntax Examples
-
-## Simple Field Validation
-```al
-procedure ValidateCustomerData()
-var
-    Customer: Record Customer;
-begin
-    Customer.TestField("No.");
-    Customer.TestField(Name);
-    Customer.TestField("Customer Posting Group");
-end;
-```
-
-## Field Value Validation
-```al
-procedure ValidateItemType()
-var
-    Item: Record Item;
-begin
-    Item.TestField(Type, Item.Type::Inventory);
-    Item.TestField("Inventory Posting Group");
-end;
-```
-
-## Multiple Field Validation
-```al
-procedure ValidateVendorSetup()
-var
-    Vendor: Record Vendor;
-begin
-    Vendor.TestField("No.");
-    Vendor.TestField(Name);
-    Vendor.TestField("Vendor Posting Group");
-    Vendor.TestField("Payment Terms Code");
-end;
-```
-
-## Conditional Field Validation
-```al
-procedure ValidateCustomerBalance()
-var
-    Customer: Record Customer;
-begin
-    Customer.CalcFields(Balance);
-    if Customer."Credit Limit (LCY)" > 0 then
-        Customer.TestField(Balance);
-end;
-```

package/embedded-knowledge/domains/maya-mentor/testfield-basic-syntax.md

@@ -1,67 +0,0 @@
----
-title: "TestField Basic Syntax and Usage"
-domain: "maya-mentor"
-difficulty: "beginner"
-bc_versions: "14+"
-tags: ["validation", "fields", "error-handling", "data-integrity"]
-prerequisites: ["record-variables", "field-access"]
-samples: "samples/testfield-basic-syntax.md"
----
-# TestField Basic Syntax and Usage
-
-## Overview
-
-TestField validates that a field contains a value before proceeding with business logic. It throws an error if the field is empty, preventing operations that require valid data. Essential for data integrity in BC applications.
-
-**Core Pattern**: `Record.FieldName.TestField()` - Validates field has value, throws error if empty.
-
-## Basic Syntax Forms
-
-### Simple Value Validation
-TestField validates that a field contains a non-empty value. Called on any field variable, it checks for empty strings, zero dates, or zero numeric values.
-
-### Expected Value Validation
-TestField can validate against specific expected values. Pass the expected value as a parameter to verify the field matches exactly.
-
-### Variable-Based Expected Values
-Expected values can be stored in variables before TestField validation, enabling dynamic validation scenarios.
-
-## Field Type Considerations
-
-### Text and Code Fields
-Text fields test for non-empty strings. Empty string ('') triggers validation error.
-
-### Option Fields
-Option fields test against specific option values. Commonly used to verify workflow states.
-
-### Boolean Fields
-Boolean fields can be tested for specific true/false values to enforce business rules.
-
-### Date and DateTime Fields
-Date fields test for non-zero dates. 0D (undefined date) triggers validation error.
-
-### Decimal and Integer Fields
-Numeric fields test for non-zero values. Zero values trigger validation error.
-
-## Common Usage Patterns
-
-### Mandatory Field Validation
-Group related TestField validations to ensure all required fields contain data before processing. Essential for maintaining data integrity in business processes.
-
-### Status Verification
-Use TestField with specific option values to verify records are in expected workflow states before proceeding with operations.
-
-### Precondition Checks
-Validate all prerequisite field data exists before executing complex business logic. Prevents processing failures and maintains consistent data state.
-
-## Best Practices
-
-### Field Validation Timing
-Call TestField early in procedures before complex processing begins. This fails fast and provides clear error context.
-
-### Logical Grouping
-Group related TestField calls together for related validations. This creates clear validation blocks.
-
-### User Experience
-TestField provides system-generated error messages. For better UX, consider custom error handling for complex business rules.
-