gemini/gemini-3.1-pro-preview

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.Add(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 (empty or no output)

Correct Pattern:

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

    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()
    var
        NoSeriesMgt: Codeunit NoSeriesManagement;
    begin
        if "Contract No." = '' then
            "Contract No." := 'SC-' + Format(Database.CompanyName()) + Format(CurrentDateTime, 0, '<Year4><Month,2><Day,2><Hours24><Minutes,2><Seconds,2>');
        Status := Status::Draft;
    end;

    trigger OnDelete()
    begin
        if Status = Status::Active then
            Error('Cannot delete active contract');
    end;
}

Correct Pattern:

codeunit 70050 "CG Text Builder"
{
    Access = Public;

    procedure GetSqlQuery(): Text
    begin
        exit(
'SELECT CustomerNo, Name, Balance
FROM Customer
WHERE Active = true
ORDER BY Name');
    end;

    procedure GetJsonTemplate(): Text
    begin
        exit(
'{
  "type": "invoice",
  "version": "1.0",
  "data": null
}');
    end;

    procedure GetEmailBody(CustomerName: Text): Text
    begin
        exit(
'Dear ' + CustomerName + ',

Thank you for your order.

Best regards,
Sales Team');
    end;
}

// Generated code not found

Correct Pattern:

tableextension 70000 "Customer Table 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

Correct Pattern:

codeunit 70224 "CG Dynamic Record Handler"
{
    Access = Public;

    procedure GetTableName(TableId: Integer): Text
    var
        RecRef: RecordRef;
        TableName: Text;
    begin
        if not TryOpenTable(RecRef, TableId) then
            exit('');
        TableName := RecRef.Name;
        RecRef.Close();
        exit(TableName);
    end;

    [TryFunction]
    local procedure TryOpenTable(var RecRef: RecordRef; TableId: Integer)
    begin
        RecRef.Open(TableId);
    end;
    // ... remaining procedures with proper syntax
}

// Generated code not found - but errors at line 107 indicate syntax issues in the generated codeunit

Correct Pattern:

codeunit 70016 "CG Secure Storage"
{
    procedure StoreApiKey(ApiKey: SecretText)
    begin
        IsolatedStorage.Set('CG_API_KEY', ApiKey, DataScope::Module);
    end;

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

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

    procedure ValidateCredentials(Username: Text; Password: SecretText): Boolean
    begin
        if Username = '' then
            exit(false);
        if Password.Unwrap() = '' then
            exit(false);
        exit(true);
    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;
}

// Generated code not found - model produced syntactically invalid AL code with errors around line 21

Correct Pattern:

table 70206 "CG Audit Log"
{
    DataClassification = CustomerContent;

    fields
    {
        field(1; "Entry No."; Integer)
        {
            AutoIncrement = true;
        }
        field(2; "Table ID"; Integer) { }
        field(3; "Record ID"; RecordId) { }
        field(4; "Field Changed"; Text[50]) { }
        field(5; "Old Value"; Text[250]) { }
        field(6; "New Value"; Text[250]) { }
        field(7; "Changed At"; DateTime) { }
        field(8; "Changed By"; Code[50]) { }
    }

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

table 70207 "CG Tracked Item"
{
    DataClassification = CustomerContent;

    fields
    {
        field(1; Code; Code[20]) { }
        field(2; Description; Text[100]) { }
        field(3; "Unit Price"; Decimal) { }
        field(4; Blocked; Boolean) { }
    }

    keys
    {
        key(PK; Code) { Clustered = true; }
    }

    trigger OnModify()
    var
        AuditLog: Record "CG Audit Log";
    begin
        if Rec."Unit Price" <> xRec."Unit Price" then begin
            AuditLog.Init();
            AuditLog."Field Changed" := 'Unit Price';
            AuditLog."Old Value" := Format(xRec."Unit Price");
            AuditLog."New Value" := Format(Rec."Unit Price");
            AuditLog."Changed At" := CurrentDateTime;
            AuditLog."Changed By" := CopyStr(UserId, 1, 50);
            AuditLog.Insert(true);
        end;
        if (xRec.Blocked = false) and (Rec.Blocked = true) then begin
            AuditLog.Init();
            AuditLog."Field Changed" := 'Blocked';
            AuditLog."Old Value" := 'No';
            AuditLog."New Value" := 'Yes';
            AuditLog."Changed At" := CurrentDateTime;
            AuditLog."Changed By" := CopyStr(UserId, 1, 50);
            AuditLog.Insert(true);
        end;
    end;
}

Correct Pattern:

table 70100 Product
{
    DataClassification = CustomerContent;
    fields
    {
        field(1; "No."; Code[20]) { Caption = 'No.'; }
        field(2; Description; Text[100]) { Caption = 'Description'; }
        field(3; "Unit Price"; Decimal) { Caption = 'Unit Price'; }
        field(4; "Stock Quantity"; Integer) { Caption = 'Stock Quantity'; }
        field(5; "Category Id"; Code[20]) { Caption = 'Category Id'; }
    }
    keys
    {
        key(PK; "No.") { Clustered = true; }
    }
    trigger OnInsert()
    begin
        if "Unit Price" < 0 then Error('Price must be positive');
        if "Stock Quantity" < 0 then Error('Stock must be non-negative');
    end;
    trigger OnModify()
    begin
        if "Unit Price" < 0 then Error('Price must be positive');
        if "Stock Quantity" < 0 then Error('Stock must be non-negative');
    end;
}

page 70100 "Product API"
{
    PageType = API;
    APIPublisher = 'mycompany';
    APIGroup = 'products';
    APIVersion = 'v1.0';
    EntityName = 'product';
    EntitySetName = 'products';
    SourceTable = Product;
    DelayedInsert = true;
    ODataKeyFields = SystemId;
    layout
    {
        area(Content)
        {
            repeater(Group)
            {
                field(id; Rec.SystemId) { Caption = 'Id'; }
                field(productCode; Rec."No.") { Caption = 'Product Code'; }
                field(description; Rec.Description) { Caption = 'Description'; }
                field(unitPrice; Rec."Unit Price") { Caption = 'Unit Price'; }
                field(stockQuantity; Rec."Stock Quantity") { Caption = 'Stock Quantity'; }
                field(categoryId; Rec."Category Id") { Caption = 'Category Id'; }
            }
        }
    }
}

// Generated code not found

Correct Pattern:

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

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

    procedure GetErrorCode(ErrInfo: ErrorInfo): Enum "CG Validation Error"
    var
        ErrorCodeText: Text;
        ErrorCodeInt: Integer;
    begin
        ErrorCodeText := ErrInfo.CustomDimensions.Get('ErrorCode');
        Evaluate(ErrorCodeInt, ErrorCodeText);
        exit(Enum::"CG Validation Error".FromInteger(ErrorCodeInt));
    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 - but compilation errors at line 29 suggest malformed procedure structure with 'begin' appearing where a declaration was expected

Correct Pattern:

if Condition then begin
    // statements
end else begin
    // statements
end;

Code around line 104 with malformed if/then/else or begin/end blocks (generated code not captured but errors indicate syntax issues in conditional statements)

Correct Pattern:

interface "IFieldTransformer"
{
    procedure Transform(var FRef: FieldRef): Variant;
}

codeunit 70226 "CG Record Introspector"
{
    Access = Public;

    procedure SerializeToJson(SourceRecord: Variant): JsonObject
    var
        RecRef: RecordRef;
        FRef: FieldRef;
        ...
    begin
        ...
    end;
    // ... properly structured procedures with begin/end blocks
}

Generated code not available but compilation errors at lines 25, 35-36 indicate malformed procedure bodies or interface definitions with missing semicolons, missing end statements, and incorrect expression syntax

Correct Pattern:

In AL, if-then-else must follow: if <condition> then begin ... end else begin ... end; — no semicolon before 'else', and 'then' keyword is required after the condition.

Code not captured, but errors indicate malformed if/then/else blocks with semicolons before ELSE and missing 'then' keywords around lines 22-38

Correct Pattern:

Each AL object (table 70003 Project, table 70004 "Project Task", page 70102 "Project Card", codeunit 70005 "Project Management") should be properly defined with correct syntax: table ID Name { fields { field(ID; Name; Type) { } } } and proper trigger/procedure definitions within each object block.

Generated code not available but errors at line 25 show 'Data' property misuse and line 51 shows missing object structure keywords

Correct Pattern:

In AL, if statements must follow the pattern: if <condition> then begin ... end; The 'then' keyword is mandatory after the condition expression, and 'begin'/'end' blocks must be properly paired.

// Generated code not available but errors indicate missing 'then' keywords and incorrect block structure around lines 20 and 143

Correct Pattern:

report 70001 "Sales Performance Analysis"
{
    UsageCategory = ReportsAndAnalysis;
    ApplicationArea = All;
    DefaultRenderingLayout = RDLCLayout;
    dataset
    {
        dataitem(Customer; Customer) { ... }
        dataitem(SalesHeader; "Sales Header") { DataItemLink = "Sell-to Customer No." = field("No."); ... }
        dataitem(SalesLine; "Sales Line") { DataItemLink = "Document No." = field("No."); ... }
    }
    requestpage { ... }
    rendering { layout(RDLCLayout) { Type = RDLC; LayoutFile = '...'; } }
}

codeunit 70001 "CG-AL-M007 Mock Calculator"
{
    procedure Initialize() ...
    procedure AddSalesLine(CustomerCode: Code[20]; Region: Code[20]; ItemCode: Code[20]; Quantity: Decimal; Amount: Decimal) ...
    procedure GetRunningTotalByCustomer(CustomerCode: Code[20]): Decimal ...
    procedure GetRunningTotalByRegion(Region: Code[20]): Decimal ...
    procedure CalculateAverageOrderValue(): Decimal ...
    procedure GetCustomerRank(CustomerCode: Code[20]): Integer ...
    procedure GetTopProduct(): Code[20] ...
    procedure GetProductSalesQuantity(ItemCode: Code[20]): Decimal ...
    procedure CalculateYoYComparison(CurrentYear: Decimal; PreviousYear: Decimal): Decimal ...
    procedure CalculateOrderFrequency(OrderCount: Integer; Days: Integer): Decimal ...
    procedure GetTotalSales(): Decimal ...
    procedure GetCustomerCount(): Integer ...
}

Correct Pattern:

// Properly terminated string literals in AL use single quotes, and embedded single quotes must be doubled:
Message('Order No. %1 - Amount: %2, Amount Including VAT: %3', Rec."No.", Rec.Amount, Rec."Amount Including VAT");
// For Confirm:
if Confirm('Do you want to apply a 10%% discount to order %1?', true, Rec."No.") then begin
    // apply discount logic
    Message('Discount applied successfully.');
end;

// Exact generated code not available, but based on errors at lines 103-105, the model likely wrote something like:
Message('Order No. ' + Rec."No." + ' totals: Amount = ' + Format(Rec.Amount) + ', Amount Including VAT = ' + Format(Rec."Amount Including VAT"));
// or a Confirm call with improperly terminated string literal