openai/gpt-5.3-codex

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 (or syntactically invalid query definition at line 12)

Correct Pattern:

interface "INotificationChannel"
{
    procedure Send(Message: Text): Boolean;
    procedure GetChannelName(): Text;
}

codeunit 70221 "CG Email Channel"
{
    Access = Public;
    implements "INotificationChannel";

    procedure Send(Message: Text): Boolean
    begin
        exit(true);
    end;

    procedure GetChannelName(): Text
    begin
        exit('Email');
    end;
}

codeunit 70222 "CG SMS Channel"
{
    Access = Public;
    implements "INotificationChannel";

    procedure Send(Message: Text): Boolean
    begin
        exit(true);
    end;

    procedure GetChannelName(): Text
    begin
        exit('SMS');
    end;
}

codeunit 70223 "CG Slack Channel"
{
    Access = Public;
    implements "INotificationChannel";

    procedure Send(Message: Text): Boolean
    begin
        exit(true);
    end;

    procedure GetChannelName(): Text
    begin
        exit('Slack');
    end;
}

codeunit 70220 "CG Notification Manager"
{
    Access = Public;

    var
        ChannelList: List of [Interface "INotificationChannel"];
        ChannelDict: Dictionary of [Text, Interface "INotificationChannel"];

    procedure RegisterChannel(Channel: Interface "INotificationChannel")
    begin
        ChannelList.Add(Channel);
    end;

    procedure BroadcastMessage(Message: Text): Integer
    var
        Channel: Interface "INotificationChannel";
        SuccessCount: Integer;
    begin
        foreach Channel in ChannelList do
            if Channel.Send(Message) then
                SuccessCount += 1;
        exit(SuccessCount);
    end;

    procedure GetRegisteredChannelNames(): List of [Text]
    var
        Channel: Interface "INotificationChannel";
        Names: List of [Text];
    begin
        foreach Channel in ChannelList do
            Names.Add(Channel.GetChannelName());
        exit(Names);
    end;

    procedure RegisterNamedChannel(Name: Text; Channel: Interface "INotificationChannel")
    begin
        ChannelDict.Set(Name, Channel);
    end;

    procedure SendToChannel(Name: Text; Message: Text): Boolean
    var
        Channel: Interface "INotificationChannel";
    begin
        if ChannelDict.Get(Name, Channel) then
            exit(Channel.Send(Message));
        exit(false);
    end;

    procedure GetChannelByName(Name: Text; var Channel: Interface "INotificationChannel"): Boolean
    begin
        exit(ChannelDict.Get(Name, Channel));
    end;

    procedure ClearChannels()
    begin
        Clear(ChannelList);
        Clear(ChannelDict);
    end;
}

// Generated code not found

Correct Pattern:

Correct Pattern:

KeyList := Dict.Keys()

Dict.Keys(KeyList)

Correct Pattern:

A properly structured codeunit 70002 'External Payment Service' with correct AL syntax for all procedure signatures including SendPaymentRequest, ValidatePaymentResponse, GetPaymentStatus, HandlePaymentWebhook, and LogPaymentTransaction, using proper HttpClient patterns and JSON handling.

// Generated code not found - but line 255 has syntax error at column 60

Correct Pattern:

var JToken: JsonToken; JValue: JsonValue; begin if CustomerJson.Get('active', JToken) then begin JValue := JToken.AsValue(); active := JValue.AsBoolean(); end;

// Line 47 likely contained something like: active := CustomerJson.GetBoolean('active'); or similar incorrect JSON API usage with wrong parameter types

Correct Pattern:

procedure StoreApiKey(ApiKey: SecretText)
begin
    IsolatedStorage.Set('CG_API_KEY', ApiKey, DataScope::Module);
end;

procedure RetrieveApiKey(): SecretText
var
    StoredKey: SecretText;
begin
    IsolatedStorage.Get('CG_API_KEY', DataScope::Module, StoredKey);
    exit(StoredKey);
end;

procedure BuildAuthHeader(ApiKey: SecretText): Text
begin
    exit('Bearer ' + ApiKey.Unwrap());
end;

procedure MaskSecret(Secret: SecretText): Text
var
    Unwrapped: Text;
begin
    Unwrapped := Secret.Unwrap();
    if StrLen(Unwrapped) <= 4 then
        exit(Unwrapped + '****');
    exit(CopyStr(Unwrapped, 1, 4) + '****');
end;

IsolatedStorage.Set('CG_API_KEY', ApiKey, DataScope::Module); // line 23 area - incorrect SecretText usage
IsolatedStorage.Get('CG_API_KEY', DataScope::Module, StoredValue); // line 39 area - incorrect SecretText retrieval

Correct Pattern:

Use the correct table trigger names: 'trigger OnInsert()', 'trigger OnModify()', 'trigger OnDelete()'. For cascade delete, implement 'trigger OnDelete()' in the Project table to delete related Project Task records.

OnAfterInsert
OnAfterModify
OnAfterDelete

Correct Pattern:

tableextension 70001 "Advanced Customer Extension" extends Customer
{
    fields
    {
        field(50100; "Credit Score"; Integer)
        {
            DataClassification = CustomerContent;
            trigger OnValidate()
            begin
                if ("Credit Score" < 300) or ("Credit Score" > 850) then
                    Error('Credit Score must be between 300 and 850');
            end;
        }
        field(50101; "Risk Level"; Option)
        {
            OptionMembers = Low,Medium,High,Critical;
            DataClassification = CustomerContent;
        }
        field(50102; "Last Risk Assessment Date"; Date)
        {
            DataClassification = CustomerContent;
        }
        field(50103; "Payment History Rating"; Decimal)
        {
            DataClassification = CustomerContent;
        }
        field(50104; "Preferred Payment Method"; Code[10])
        {
            TableRelation = "Payment Method";
            DataClassification = CustomerContent;
        }
    }

    procedure UpdateRiskLevel()
    begin
        case true of
            "Credit Score" >= 670: "Risk Level" := "Risk Level"::Low;
            "Credit Score" >= 580: "Risk Level" := "Risk Level"::Medium;
            "Credit Score" >= 500: "Risk Level" := "Risk Level"::High;
            else "Risk Level" := "Risk Level"::Critical;
        end;
    end;

    procedure CalculatePaymentHistoryRating(): Decimal
    begin
        exit(50.0);
    end;

    procedure GetCreditLimit(): Decimal
    begin
        case "Risk Level" of
            "Risk Level"::Low: exit(100000);
            "Risk Level"::Medium: exit(50000);
            "Risk Level"::High: exit(10000);
            "Risk Level"::Critical: exit(1000);
        end;
    end;

    procedure ValidateNewOrder(OrderAmount: Decimal): Boolean
    begin
        exit(OrderAmount <= GetCreditLimit());
    end;

    procedure TriggerRiskAssessment()
    begin
        UpdateRiskLevel();
        "Last Risk Assessment Date" := Today;
        Modify();
    end;
}

// Generated code not found - the code at line 64 had a syntax error suggesting malformed or truncated table extension structure

Correct Pattern:

Caption properties should only be used on table fields, pages, page fields, and other appropriate AL objects/elements. In table field definitions, Caption goes inside the field block. It should not be placed on properties like AutoIncrement or at the table level in certain contexts where it's not supported.

Caption = '...'; // placed in an invalid context (line 121 of generated file)

Correct Pattern:

The model should have generated two objects:

1) report 70001 "Sales Performance Analysis" with DataItems for Customer, Sales Header ("Sales Header"), and Sales Line ("Sales Line"), with proper triggers, request page with date filters, ApplicationArea, and UsageCategory.

2) codeunit XXXXX "CG-AL-M007 Mock Calculator" with internal Dictionary-based storage implementing all required methods:
- Initialize()
- AddSalesLine(CustomerCode: Code[20]; Region: Code[20]; ItemCode: Code[20]; Quantity: Decimal; Amount: Decimal)
- GetRunningTotalByCustomer(CustomerCode: Code[20]): Decimal
- GetRunningTotalByRegion(Region: Code[20]): Decimal
- CalculateAverageOrderValue(): Decimal
- GetCustomerRank(CustomerCode: Code[20]): Integer
- GetTopProduct(): Code[20]
- GetProductSalesQuantity(ItemCode: Code[20]): Decimal
- CalculateYoYComparison(CurrentYear: Decimal; PreviousYear: Decimal): Decimal
- CalculateOrderFrequency(OrderCount: Integer; Days: Integer): Decimal
- GetTotalSales(): Decimal
- GetCustomerCount(): Integer

// Generated code not found (empty or fundamentally broken output)

Correct Pattern:

Proper AL text parsing using TextBuilder, splitting by LF character (10), using JsonObject.Add/Replace for building JSON, and iterating JsonObject keys with proper AL syntax. For example: Line.Split(': ') to split YAML key-value pairs, JsonObj.Add(Key, Value) to build objects, and proper procedure signatures with Text/Boolean parameter types.

// Line 41 contained syntax error - exact code not captured but involved incorrect expression syntax

Correct Pattern:

A properly structured codeunit 70003 'Purchase Approval Workflow' with correctly formed procedure signatures and bodies, using Dictionary or temporary tables for tracking approval state, with proper AL syntax for all expressions and statements.

// Generated code not found - but line 122 col 49 had syntax error expecting ')' then 'end' then ';' then '}'

Correct Pattern:

table 70002 "Sales Contract"
{
    Caption = 'Sales Contract';
    DataClassification = CustomerContent;

    fields
    {
        field(1; "Contract No."; Code[20])
        {
            Caption = 'Contract No.';
            DataClassification = CustomerContent;
        }
        field(2; "Customer No."; Code[20])
        {
            Caption = 'Customer No.';
            TableRelation = Customer;
            DataClassification = CustomerContent;
        }
        field(3; "Start Date"; Date)
        {
            Caption = 'Start Date';
            DataClassification = CustomerContent;
        }
        field(4; "End Date"; Date)
        {
            Caption = 'End Date';
            DataClassification = CustomerContent;
            trigger OnValidate()
            begin
                if "End Date" <= "Start Date" then
                    Error('End Date must be after Start Date');
            end;
        }
        field(5; "Contract Value"; Decimal)
        {
            Caption = 'Contract Value';
            DataClassification = CustomerContent;
            trigger OnValidate()
            begin
                if "Contract Value" <= 0 then
                    Error('Contract Value must be positive');
            end;
        }
        field(6; Status; Option)
        {
            Caption = 'Status';
            OptionMembers = Draft,Active,Suspended,Terminated,Closed;
            DataClassification = CustomerContent;
        }
        field(7; "Payment Terms"; Code[10])
        {
            Caption = 'Payment Terms';
            TableRelation = "Payment Terms";
            DataClassification = CustomerContent;
        }
    }
    keys
    {
        key(PK; "Contract No.")
        {
            Clustered = true;
        }
    }
    trigger OnInsert()
    begin
        if "Contract No." = '' then
            "Contract No." := GenerateContractNo();
        Status := Status::Draft;
    end;
    trigger OnDelete()
    begin
        if Status = Status::Active then
            Error('Cannot delete active contract');
    end;
    local procedure GenerateContractNo(): Code[20]
    begin
        // Auto-generate logic
    end;
}

// Generated code not found - model produced invalid/empty output with Page '0' references