openrouter/qwen/qwen3-coder-next

Correct Pattern:

codeunit 70214 "CG Order Processor"
{
    Access = Public;

    procedure ProcessOrder(OrderNo: Code[20]; Amount: Decimal; var ProcessedAmount: Decimal; var IsHandled: Boolean)
    begin
        OnBeforeProcessOrder(OrderNo, Amount, ProcessedAmount, IsHandled);
        if IsHandled then
            exit;
        ProcessedAmount := Amount * 1.1;
        OnAfterProcessOrder(OrderNo, Amount, ProcessedAmount);
    end;

    procedure ValidateOrder(OrderNo: Code[20]; Amount: Decimal): Boolean
    var
        IsValid: Boolean;
        Handled: Boolean;
    begin
        IsValid := false;
        Handled := false;
        OnBeforeValidateOrder(OrderNo, Amount, IsValid, Handled);
        if Handled then
            exit(IsValid);
        exit((Amount > 0) and (OrderNo <> ''));
    end;

    [IntegrationEvent(false, false)]
    local procedure OnBeforeProcessOrder(OrderNo: Code[20]; Amount: Decimal; var ProcessedAmount: Decimal; var IsHandled: Boolean)
    begin
    end;

    [IntegrationEvent(false, false)]
    local procedure OnAfterProcessOrder(OrderNo: Code[20]; OriginalAmount: Decimal; ProcessedAmount: Decimal)
    begin
    end;

    [IntegrationEvent(true, false)]
    local procedure OnBeforeValidateOrder(OrderNo: Code[20]; Amount: Decimal; var IsValid: Boolean; var Handled: Boolean)
    begin
    end;
}

Correct Pattern:

interface "CG Token Provider"
{
    Access = Public;

    procedure GetToken(Endpoint: Text; ForceRefresh: Boolean): Text;
    procedure ClearCache();
}

codeunit 50032 "CG-AL-E032 Mock Token Provider" implements "CG Token Provider"
{
    var
        ClearCacheCount: Integer;

    procedure GetToken(Endpoint: Text; ForceRefresh: Boolean): Text
    begin
        if ForceRefresh then
            exit('TOKEN:' + Endpoint + ':F')
        else
            exit('TOKEN:' + Endpoint + ':C');
    end;

    procedure ClearCache()
    begin
        ClearCacheCount += 1;
    end;

    procedure GetClearCacheCallCount(): Integer
    begin
        exit(ClearCacheCount);
    end;
}

// Generated code not found - but errors suggest incorrect interface declaration syntax, likely including an object ID number

Correct Pattern:

query 70011 "CG Sales Summary"
{
    QueryType = Normal;
    OrderBy = ascending(Sell_to_Customer_No);

    elements
    {
        dataitem(SalesLine; "Sales Line")
        {
            column(Document_No; "Document No.") { }
            column(Sell_to_Customer_No; "Sell-to Customer No.") { }
            column(Line_Amount_Sum; "Line Amount") { Method = Sum; }
            column(Line_Count; "Line Amount") { Method = Count; }
            filter(Document_Type; "Document Type") { ColumnFilter = const(Order); }
        }
    }
}

// Generated code not found (the produced file had syntax errors at line 5)

Correct Pattern:

field(3; Active; Boolean)
{
    Caption = 'Active';
    DataClassification = CustomerContent;
    InitValue = true;
}

field(3; Active; Boolean)
{
    Caption = 'Active';
    DataClassification = CustomerContent;
    DefaultValue = true;
}

Correct Pattern:

// Use DelChr to trim whitespace in AL:
InputText := DelChr(InputText, '<>', ' ');
// Or for more complex trimming, use a loop-based approach

// Approximate reconstruction based on error:
// SomeVariable := InputText.Trim();  // or Trim(InputText)

Correct Pattern:

tableextension 70000 "Customer Extension" extends Customer
{
    fields
    {
        field(70000; "Preferred Contact Method"; Option)
        {
            Caption = 'Preferred Contact Method';
            OptionMembers = Email,Phone,Mail,SMS;
            OptionCaption = 'Email,Phone,Mail,SMS';
        }
        field(70001; "Customer Notes"; Text[500])
        {
            Caption = 'Customer Notes';
        }
        field(70002; "VIP Customer"; Boolean)
        {
            Caption = 'VIP Customer';
        }
    }
}

pageextension 70000 "Customer Card Extension" extends "Customer Card"
{
    layout
    {
        addlast(General)
        {
            field("Preferred Contact Method"; Rec."Preferred Contact Method")
            {
                ApplicationArea = All;
                Caption = 'Preferred Contact Method';
            }
            field("Customer Notes"; Rec."Customer Notes")
            {
                ApplicationArea = All;
                Caption = 'Customer Notes';
            }
            field("VIP Customer"; Rec."VIP Customer")
            {
                ApplicationArea = All;
                Caption = 'VIP Customer';
            }
        }
    }
}

// Generated code not found - model failed to produce valid output

Correct Pattern:

var
    CrLf: Text[2];
    Result: Text;
begin
    CrLf[1] := 13;
    CrLf[2] := 10;
    Result := 'SELECT CustomerNo, Name, Balance' + CrLf + 'FROM Customer' + CrLf + 'WHERE Active = true' + CrLf + 'ORDER BY Name';
    exit(Result);
end;

exit('SELECT CustomerNo, Name, Balance
FROM Customer
WHERE Active = true
ORDER BY Name');

Correct Pattern:

Instead of calling .Clear() on a List of [Text], either declare a fresh local List of [Text] variable or re-initialize it. For example, use 'Clear(MyList);' (the built-in Clear function) rather than 'MyList.Clear();' (a method call on the list).

SomeListVariable.Clear();

Correct Pattern:

codeunit 70212 "CG Safe Executor"
{
    Access = Public;

    [TryFunction]
    procedure TryDivide(Numerator: Decimal; Denominator: Decimal; var Result: Decimal)
    begin
        if Denominator = 0 then
            Error('Division by zero');
        Result := Numerator / Denominator;
    end;

    procedure SafeDivide(Numerator: Decimal; Denominator: Decimal; DefaultValue: Decimal): Decimal
    var
        Result: Decimal;
    begin
        if TryDivide(Numerator, Denominator, Result) then
            exit(Result)
        else
            exit(DefaultValue);
    end;

    [TryFunction]
    procedure TryParseInteger(InputText: Text; var ParsedValue: Integer)
    begin
        Evaluate(ParsedValue, InputText);
    end;

    procedure SafeParseInteger(InputText: Text; DefaultValue: Integer): Integer
    var
        ParsedValue: Integer;
    begin
        if TryParseInteger(InputText, ParsedValue) then
            exit(ParsedValue)
        else
            exit(DefaultValue);
    end;

    procedure ExecuteWithFallback(PrimaryValue: Decimal; FallbackValue: Decimal; Divisor: Decimal): Decimal
    var
        Result: Decimal;
    begin
        if TryDivide(PrimaryValue, Divisor, Result) then
            exit(Result);
        if TryDivide(FallbackValue, Divisor, Result) then
            exit(Result);
        exit(0);
    end;
}

Correct Pattern:

enum 70211 "CG Validation Error"
{
    Extensible = false;
    value(0; None) { }
    value(1; EmptyField) { }
    value(2; InvalidFormat) { }
    value(3; OutOfRange) { }
    value(4; DuplicateValue) { }
}

codeunit 70210 "CG Validation Engine"
{
    Access = Public;

    procedure CreateValidationError(ErrorCode: Enum "CG Validation Error"; FieldName: Text; ErrorMessage: Text): ErrorInfo
    var
        ErrInfo: ErrorInfo;
        Dims: Dictionary of [Text, Text];
    begin
        ErrInfo.Message(ErrorMessage);
        Dims.Add('ErrorCode', Format(ErrorCode.AsInteger()));
        Dims.Add('FieldName', FieldName);
        ErrInfo.CustomDimensions(Dims);
        ErrInfo.Collectible(IsCollectingErrors());
        exit(ErrInfo);
    end;

    procedure GetErrorCode(ErrInfo: ErrorInfo): Enum "CG Validation Error"
    var
        CodeText: Text;
        CodeInt: Integer;
    begin
        CodeText := ErrInfo.CustomDimensions.Get('ErrorCode');
        Evaluate(CodeInt, CodeText);
        exit(Enum::"CG Validation Error".FromInteger(CodeInt));
    end;

    procedure ValidateNotEmpty(Value: Text; FieldName: Text)
    var
        ErrInfo: ErrorInfo;
    begin
        if Value = '' then begin
            ErrInfo := CreateValidationError("CG Validation Error"::EmptyField, FieldName, 'Field cannot be empty');
            Error(ErrInfo);
        end;
    end;

    procedure ValidateInRange(Value: Decimal; MinValue: Decimal; MaxValue: Decimal; FieldName: Text)
    var
        ErrInfo: ErrorInfo;
    begin
        if (Value < MinValue) or (Value > MaxValue) then begin
            ErrInfo := CreateValidationError("CG Validation Error"::OutOfRange, FieldName, StrSubstNo('Value must be between %1 and %2', MinValue, MaxValue));
            Error(ErrInfo);
        end;
    end;
}

// Generated code not found

Correct Pattern:

table 70203 "CG Discount Result"
{
    DataClassification = ToBeClassified;

    fields
    {
        field(1; "Line No."; Integer) { }
        field(2; "Item No."; Code[20]) { }
        field(3; "Original Price"; Decimal) { }
        field(4; "Discount Percent"; Decimal) { }
        field(5; "Final Price"; Decimal) { }
    }

    keys
    {
        key(PK; "Line No.") { Clustered = true; }
    }
}

codeunit 70202 "CG Temp Table Processor"
{
    Access = Public;

    procedure ProcessItemsWithDiscount(var TempResult: Record "CG Discount Result" temporary; MinDiscount: Decimal)
    var
        Item: Record Item;
        LineNo: Integer;
        Discount: Decimal;
    begin
        TempResult.Reset();
        TempResult.DeleteAll();
        LineNo := 0;

        Item.SetFilter("Unit Price", '>0');
        if Item.FindSet() then
            repeat
                if Item.Inventory >= 100 then
                    Discount := 15
                else if Item.Inventory >= 50 then
                    Discount := 10
                else if Item.Inventory >= 10 then
                    Discount := 5
                else
                    Discount := 0;

                if Discount >= MinDiscount then begin
                    LineNo += 1;
                    TempResult.Init();
                    TempResult."Line No." := LineNo;
                    TempResult."Item No." := Item."No.";
                    TempResult."Original Price" := Item."Unit Price";
                    TempResult."Discount Percent" := Discount;
                    TempResult."Final Price" := Round(Item."Unit Price" * (1 - Discount / 100), 0.01);
                    TempResult.Insert();
                end;
            until Item.Next() = 0;
    end;
}

Generated code not available (marked as 'not found'), but compilation errors at line 50 and 93 indicate malformed object definitions

Correct Pattern:

procedure SafeGetText(Obj: JsonObject; "Key": Text; DefaultValue: Text): Text — or use a non-reserved name like KeyName. In AL, reserved words used as identifiers must be enclosed in double quotes.

procedure SafeGetText(Obj: JsonObject; Key: Text; DefaultValue: Text): Text

Correct Pattern:

Declare a variable (e.g., KeyVar: Text;) and use 'foreach KeyVar in Dict.Keys do begin ... end;' or retrieve keys first with 'Keys := Dict.Keys;' then iterate over the Keys list.

Key in Dict (approximate - the model used 'Key' as an undeclared identifier or invalid syntax at lines 60 and 113 for dictionary iteration)

Correct Pattern:

page 70101 "Sales Order Workspace"
{
    PageType = Card;
    SourceTable = "Sales Header";
    SourceTableView = where("Document Type" = const(Order));

    layout
    {
        area(Content)
        {
            group(General)
            {
                field("No."; Rec."No.") { ApplicationArea = All; }
                field("Sell-to Customer No."; Rec."Sell-to Customer No.") { ApplicationArea = All; }
                field("Sell-to Customer Name"; Rec."Sell-to Customer Name") { ApplicationArea = All; }
                field("Order Date"; Rec."Order Date") { ApplicationArea = All; }
                field("Posting Date"; Rec."Posting Date") { ApplicationArea = All; }
                field(Status; Rec.Status) { ApplicationArea = All; }
            }
            group(Financial)
            {
                field(Amount; Rec.Amount) { ApplicationArea = All; }
                field("Amount Including VAT"; Rec."Amount Including VAT") { ApplicationArea = All; }
            }
            part(Lines; "Sales Order Subform")
            {
                ApplicationArea = All;
                SubPageLink = "Document No." = field("No.");
            }
        }
    }

    actions
    {
        area(Processing)
        {
            action(CalculateTotals)
            {
                ApplicationArea = All;
                Caption = 'Calculate Totals';
                Promoted = true;
                Enabled = IsNotReleased;
                trigger OnAction()
                begin
                    Rec.CalcFields(Amount, "Amount Including VAT");
                    Message('Totals calculated: Amount = %1, Amount Incl. VAT = %2', Rec.Amount, Rec."Amount Including VAT");
                end;
            }
            action(ApplyDiscount)
            {
                ApplicationArea = All;
                Caption = 'Apply Discount';
                Promoted = true;
                Enabled = IsNotReleased;
                trigger OnAction()
                begin
                    if Confirm('Apply 10% discount?') then
                        Message('10% discount applied.');
                end;
            }
            action(ExportPDF)
            {
                ApplicationArea = All;
                Caption = 'Export to PDF';
                Promoted = true;
                trigger OnAction()
                begin
                    Message('PDF would be generated for order %1.', Rec."No.");
                end;
            }
            action(SendEmail)
            {
                ApplicationArea = All;
                Caption = 'Send Email';
                Promoted = true;
                trigger OnAction()
                begin
                    Message('Email would be sent for order %1.', Rec."No.");
                end;
            }
        }
    }

    var
        IsNotReleased: Boolean;

    trigger OnAfterGetRecord()
    begin
        IsNotReleased := Rec.Status <> Rec.Status::Released;
    end;
}

// Generated code not found - the model produced malformed or incomplete AL page code that failed at line 14 with syntax errors

Correct Pattern:

var JToken: JsonToken; JValue: JsonValue; JArray: JsonArray; ... ProductJson.Get('name', JToken); JValue := JToken.AsValue(); NameText := JValue.AsText(); ... ProductJson.Get('price', JToken); JValue := JToken.AsValue(); PriceDecimal := JValue.AsDecimal(); ... ProductJson.Get('values', JToken); JArray := JToken.AsArray(); ... For iterating keys, use JsonObject.Keys() which returns a List of [Text]. For integer from JsonValue, use AsInteger(). For text representation, use Format() on the typed value.

ProductJson.Get('name', NameText); ProductJson.Get('price', PriceDecimal); token.IsInteger(); token.AsInteger(); token.AsText(); ConfigJson.GetNames()

Correct Pattern:

Use proper AL JsonObject iteration: declare 'KeyName: Text' and 'KeyList: List of [Text]', call KeyList := JObj.Keys, then 'foreach KeyName in KeyList do begin ... end'. Avoid using 'Key' as a bare identifier or reserved-word-like token.

Key (used as identifier in invalid context at lines 56, 85, 113)

Correct Pattern:

CalcDate('<1M>', BaseDate) for adding 1 month, CalcDate('<3M>', BaseDate) for adding 3 months, CalcDate('<1Y>', BaseDate) for adding 1 year

BaseDate.AddMonths(1) / BaseDate.AddMonths(3) / BaseDate.AddYears(1)

Correct Pattern:

codeunit 70002 "External Payment Service"
{
    procedure SendPaymentRequest(OrderId: Text; Amount: Decimal; Currency: Text; var ResponseJson: JsonObject): Boolean
    begin
        // HTTP client implementation
    end;

    procedure ValidatePaymentResponse(Response: JsonObject): Boolean
    begin
        // Validate required fields and status
    end;

    procedure GetPaymentStatus(TransactionId: Text): Text
    begin
        // Return payment status
    end;

    procedure HandlePaymentWebhook(WebhookData: JsonObject): Boolean
    begin
        // Process webhook events
    end;

    procedure LogPaymentTransaction(TransactionId: Text[50]; Amount: Decimal; Status: Text[20])
    begin
        // Log transaction
    end;
}

// Generated code not found - file contains markdown with backticks and prose instead of AL code

Correct Pattern:

report 70001 "Sales Performance Analysis"
{
    UsageCategory = ReportsAndAnalysis;
    ApplicationArea = All;
    DefaultRenderingLayout = RDLCLayout;
    dataset
    {
        dataitem(Customer; Customer)
        {
            ...
            dataitem(SalesHeader; "Sales Header")
            {
                ...
                dataitem(SalesLine; "Sales Line")
                {
                    ...
                }
            }
        }
    }
    requestpage { ... }
}

codeunit 70001 "CG-AL-M007 Mock Calculator"
{
    procedure Initialize() ...
    procedure AddSalesLine(...) ...
    procedure GetRunningTotalByCustomer(...): Decimal ...
    procedure GetRunningTotalByRegion(...): Decimal ...
    procedure CalculateAverageOrderValue(): Decimal ...
    procedure GetCustomerRank(...): Integer ...
    procedure GetTopProduct(): Code[20] ...
    procedure GetProductSalesQuantity(...): Decimal ...
    procedure CalculateYoYComparison(...): Decimal ...
    procedure CalculateOrderFrequency(...): Decimal ...
    procedure GetTotalSales(): Decimal ...
    procedure GetCustomerCount(): Integer ...
}

Generated code not found - output contained markdown characters (|, `, —) instead of AL code