feat: Enhance AL Parser with Table and Field Parsing Capabilities

src/AL2DBML.Application/Interfaces/IAlParser.cs

@@ -8,4 +8,7 @@ public interface IAlParser
     AlFileType DetectFileType(string alFileContent);
     DBMLEnum ParseEnum(string alEnumFileContent);
     DBMLEnum ParseEnumExtension(string alEnumExtensionFileContent);
+    DBMLTable ParseTable(string alTableFileContent);
+    DBMLTable ParseTableExtension(string alTableExtensionFileContent);
+    DBMLColumn ParseField(string alFieldContent);
 }

src/AL2DBML.Core/Models/DBMLColumn.cs

@@ -0,0 +1,11 @@
+namespace AL2DBML.Core.Models;
+
+public class DBMLColumn
+{
+    public string Name { get; set; } = string.Empty;
+    public string Type { get; set; } = string.Empty;
+    public bool IsPrimaryKey { get; set; } = false;
+    public string[]? References { get; set; } = new string[2];
+    public bool IsFlowfield { get; set; } = false;
+    public string CalcFormula { get; set; } = string.Empty;
+}

src/AL2DBML.Core/Models/DBMLEnum.cs

@@ -1,5 +1,3 @@
-using System;
-
 namespace AL2DBML.Core.Models;
 
 public class DBMLEnum

src/AL2DBML.Core/Models/DBMLTable.cs

@@ -0,0 +1,7 @@
+namespace AL2DBML.Core.Models;
+
+public class DBMLTable
+{
+    public string Name { get; set; } = string.Empty;
+    public List<DBMLColumn> Fields { get; set; } = [];
+}

src/AL2DBML.Core/Models/OutputSchema.cs

@@ -1,8 +1,7 @@
-using System;
-
 namespace AL2DBML.Core.Models;
 
 public class OutputSchema
 {
     public List<DBMLEnum> Enums { get; set; } = [];
+    public List<DBMLTable> Tables { get; set; } = [];
 }

src/AL2DBML.Parser/AlParser.cs

@@ -2,6 +2,7 @@
 using AL2DBML.Application.Interfaces;
 using AL2DBML.Core.Enums;
 using AL2DBML.Core.Models;
+using AL2DBML.Parser.Helpers;
 
 namespace AL2DBML.Parser;
 
@@ -14,6 +15,8 @@ private static class Patterns
         public const string EnumValue = @"^\s*value\(\s*\d+;\s*(""[^""]+""|\w+)";
         public const string Table = @"^\s*table\s+\d+\s+(""[^""]+""|\w+)";
         public const string TableExtension = @"^\s*tableextension\s+\d+\s+(""[^""]+""|\w+)\s+extends\s+(""[^""]+""|\w+)";
+        public const string Field = @"^\s*field\s*\(\s*(\d+);\s*(""[^""]+""|\w+)\s*;\s*(Enum)?\s*(""[^""]+""|\w+(\[\d+\])?)\s*\)\s*{([^{}]*)}";
+        public const string Key = @"^\s*key\s*\(\s*(""[^""]+""|\w+)\s*;\s*([^)]*)\s*\)";
     }
     private readonly OutputSchema _outputSchema = new();
 
@@ -53,4 +56,122 @@ private DBMLEnum GetOrCreateEnum(string name, out bool isNew)
         isNew = existing is null;
         return existing ?? new DBMLEnum { Name = name, Values = [] };
     }
+
+    public DBMLTable ParseTable(string alTableFileContent)
+    {
+        var name = AlSyntaxHelper.ExtractMatch(alTableFileContent, Patterns.Table);
+        var dbmlTable = GetOrCreateTable(name, out bool isNew);
+
+        var primaryKeys = GetPrimaryKeys(alTableFileContent);
+        ParseFields(alTableFileContent, dbmlTable, primaryKeys);
+
+        if (isNew) _outputSchema.Tables.Add(dbmlTable);
+        return dbmlTable;
+    }
+
+    public DBMLTable ParseTableExtension(string alTableExtensionFileContent)
+    {
+        var tableName = AlSyntaxHelper.ExtractMatch(alTableExtensionFileContent, Patterns.TableExtension, 2);
+        var dbmlTable = GetOrCreateTable(tableName, out bool isNew);
+
+        var primaryKeys = GetPrimaryKeys(alTableExtensionFileContent);
+        ParseFields(alTableExtensionFileContent, dbmlTable, primaryKeys);
+
+        if (isNew) _outputSchema.Tables.Add(dbmlTable);
+        return dbmlTable;
+    }
+
+    private List<string> GetPrimaryKeys(string content)
+    {
+        var keyMatches = Regex.Matches(content, Patterns.Key, RegexOptions.Multiline);
+
+        foreach (Match keyMatch in keyMatches)
+        {
+            if (keyMatch.Success)
+            {
+                var keyName = AlSyntaxHelper.CleanName(keyMatch.Groups[1].Value);
+                var keyFields = keyMatch.Groups[2].Value;
+                // Check if this is the primary key by looking for "PK" or "Clustered = true" after it
+                if (keyName.Equals("PK", StringComparison.OrdinalIgnoreCase) ||
+                    content.Substring(keyMatch.Index).Contains("Clustered = true"))
+                {
+                    return keyFields.Split(',')
+                        .Select(k => AlSyntaxHelper.CleanName(k.Trim()))
+                        .ToList();
+                }
+            }
+        }
+        return [];
+    }
+
+    private void ParseFields(string content, DBMLTable table, List<string> primaryKeys)
+    {
+        var fieldMatches = Regex.Matches(content, Patterns.Field, RegexOptions.Multiline);
+
+        foreach (Match fieldMatch in fieldMatches)
+        {
+            var columnName = AlSyntaxHelper.CleanName(fieldMatch.Groups[2].Value);
+            var columnType = AlSyntaxHelper.CleanName(fieldMatch.Groups[4].Value);
+            var fieldBody = fieldMatch.Groups[6].Value;
+
+            var isFlowField = fieldBody.Contains("FieldClass") && fieldBody.Contains("FlowField");
+            var calcFormula = ExtractCalcFormula(fieldBody);
+
+            var existingColumn = table.Fields.FirstOrDefault(c => c.Name == columnName);
+            if (existingColumn == null)
+            {
+                table.Fields.Add(new DBMLColumn
+                {
+                    Name = columnName,
+                    Type = columnType,
+                    IsPrimaryKey = primaryKeys.Contains(columnName),
+                    IsFlowfield = isFlowField,
+                    CalcFormula = calcFormula
+                });
+            }
+            else
+            {
+                existingColumn.Type = columnType;
+                existingColumn.IsPrimaryKey = primaryKeys.Contains(columnName);
+                existingColumn.IsFlowfield = isFlowField;
+                existingColumn.CalcFormula = calcFormula;
+            }
+        }
+    }
+
+    private string ExtractCalcFormula(string fieldBody)
+    {
+        var match = Regex.Match(fieldBody, @"CalcFormula\s*=\s*([^;]+)");
+        return match.Success ? match.Groups[1].Value.Trim() : string.Empty;
+    }
+
+    private DBMLTable GetOrCreateTable(string name, out bool isNew)
+    {
+        var existing = _outputSchema.Tables.FirstOrDefault(t => t.Name == name);
+        isNew = existing is null;
+        return existing ?? new DBMLTable { Name = name, Fields = [] };
+    }
+
+    public DBMLColumn ParseField(string alFieldContent)
+    {
+        var fieldMatch = Regex.Match(alFieldContent, Patterns.Field, RegexOptions.Multiline);
+
+        if (!fieldMatch.Success)
+            throw new FormatException("Field pattern not found or invalid");
+
+        var columnName = AlSyntaxHelper.CleanName(fieldMatch.Groups[2].Value);
+        var columnType = AlSyntaxHelper.CleanName(fieldMatch.Groups[4].Value);
+        var fieldBody = fieldMatch.Groups[6].Value;
+
+        var isFlowField = fieldBody.Contains("FieldClass") && fieldBody.Contains("FlowField");
+        var calcFormula = ExtractCalcFormula(fieldBody);
+
+        return new DBMLColumn
+        {
+            Name = columnName,
+            Type = columnType,
+            IsFlowfield = isFlowField,
+            CalcFormula = calcFormula
+        };
+    }
 }

src/AL2DBML.Parser/Helpers/AlSyntaxHelper.cs

@@ -1,5 +1,7 @@
 using System.Text.RegularExpressions;
 
+namespace AL2DBML.Parser.Helpers;
+
 internal class AlSyntaxHelper
 {
     public static string CleanName(string name)

src/AL2DBML.Tests/Fixtures/EnumExts/GenJournalDocumentTypeExtension.al

@@ -0,0 +1,7 @@
+enumextension 50003 "Gen. Journal Document Type Ext" extends "Gen. Journal Document Type"
+{
+    value(10; "Finance Charge Memo")
+    {
+        Caption = 'Finance Charge Memo';
+    }
+}

src/AL2DBML.Tests/Fixtures/EnumExts/SalespersonPurchaserTypeExtension.al

@@ -0,0 +1,11 @@
+enumextension 50002 "Salesperson/Purchaser Type Ext" extends "Salesperson/Purchaser Type"
+{
+    value(10; "Agency")
+    {
+        Caption = 'Agency';
+    }
+    value(11; "Freelance")
+    {
+        Caption = 'Freelance';
+    }
+}

src/AL2DBML.Tests/Fixtures/Enums/GenJournalDocumentType.al

@@ -0,0 +1,21 @@
+enum 50002 "Gen. Journal Document Type"
+{
+    Caption = 'Gen. Journal Document Type';
+
+    value(0; " ")
+    {
+        Caption = ' ';
+    }
+    value(1; "Payment")
+    {
+        Caption = 'Payment';
+    }
+    value(2; "Invoice")
+    {
+        Caption = 'Invoice';
+    }
+    value(3; "Credit Memo")
+    {
+        Caption = 'Credit Memo';
+    }
+}

src/AL2DBML.Tests/Fixtures/Enums/PaymentTermsCalcType.al

@@ -0,0 +1,17 @@
+enum 50003 "Payment Terms Calc. Type" implements "IPaymentCalc"
+{
+    Caption = 'Payment Terms Calc. Type';
+
+    value(0; " ")
+    {
+        Caption = ' ';
+    }
+    value(1; "Fixed Day")
+    {
+        Caption = 'Fixed Day';
+    }
+    value(2; "Current Month")
+    {
+        Caption = 'Current Month';
+    }
+}

src/AL2DBML.Tests/Fixtures/Enums/SalespersonPurchaserType.al

@@ -0,0 +1,17 @@
+enum 50001 "Salesperson/Purchaser Type"
+{
+    Caption = 'Salesperson/Purchaser Type';
+
+    value(0; " ")
+    {
+        Caption = ' ';
+    }
+    value(1; "Internal")
+    {
+        Caption = 'Internal';
+    }
+    value(2; "External")
+    {
+        Caption = 'External';
+    }
+}

src/AL2DBML.Tests/Fixtures/Enums/VATBusinessPostingGroup.al

@@ -0,0 +1,21 @@
+enum 50004 "VAT Business Posting Group" implements "IVATPostable", "IPostingGroup"
+{
+    Caption = 'VAT Business Posting Group';
+
+    value(0; " ")
+    {
+        Caption = ' ';
+    }
+    value(1; "Domestic")
+    {
+        Caption = 'Domestic';
+    }
+    value(2; "EU")
+    {
+        Caption = 'EU';
+    }
+    value(3; "Export")
+    {
+        Caption = 'Export';
+    }
+}

src/AL2DBML.Tests/Fixtures/TableExts/CustomerExtension.al

@@ -0,0 +1,40 @@
+tableextension 50000 "Customer Extension" extends "Customer"
+{
+    fields
+    {
+        field(50001; "Customer Category"; Code[20])
+        {
+            Caption = 'Customer Category';
+            ToolTip = 'Specifies the customer category for segmentation';
+        }
+        field(50002; "Tax ID"; Text[20])
+        {
+            Caption = 'Tax ID';
+            ToolTip = 'Specifies the customer tax identification number';
+        }
+        field(50003; "Preferred Contact Method"; Option)
+        {
+            Caption = 'Preferred Contact Method';
+            OptionMembers = Email,Phone,Mail,Other;
+            ToolTip = 'Specifies the preferred method to contact the customer';
+        }
+        field(50004; "InvoiceAmount"; Decimal)
+        {
+            Caption = 'Invoice Amount';
+            FieldClass = FlowField;
+            CalcFormula = sum("Customer Ledger Entry"."Amount" where("Customer No." = field("No."), "Document Type" = const(Invoice)));
+        }
+    }
+
+    trigger OnAfterInsert()
+    begin
+        if "Customer Category" = '' then
+            "Customer Category" := 'GENERAL';
+    end;
+
+    local procedure ValidateTaxID()
+    begin
+        if "Tax ID" <> '' and StrLen("Tax ID") < 5 then
+            Error('Tax ID must be at least 5 characters');
+    end;
+}

src/AL2DBML.Tests/Fixtures/TableExts/GenJournalLineExtension.al

@@ -0,0 +1,10 @@
+tableextension 50003 "Gen. Journal Line Extension" extends "Gen. Journal Line"
+{
+    fields
+    {
+        field(50001; "Project Code"; Code[20])
+        {
+            Caption = 'Project Code';
+        }
+    }
+}

src/AL2DBML.Tests/Fixtures/TableExts/PurchaseHeaderExtension.al

@@ -0,0 +1,14 @@
+tableextension 50002 "Purchase Header Extension" extends "Purchase Header"
+{
+    fields
+    {
+        field(50001; "Custom Reference No."; Code[30])
+        {
+            Caption = 'Custom Reference No.';
+        }
+        field(50002; "Approval Status"; Enum "Approval Status")
+        {
+            Caption = 'Approval Status';
+        }
+    }
+}

src/AL2DBML.Tests/Fixtures/TableExts/SalespersonPurchaserExtension.al

@@ -0,0 +1,14 @@
+tableextension 50001 "Salesperson/Purchaser Extension" extends "Salesperson/Purchaser"
+{
+    fields
+    {
+        field(50001; "Phone No."; Text[30])
+        {
+            Caption = 'Phone No.';
+        }
+        field(50002; "Global Dimension 1 Code"; Code[20])
+        {
+            Caption = 'Global Dimension 1 Code';
+        }
+    }
+}