From 73f8eb939cb405dbe19589a54ddb4a60c01ae539 Mon Sep 17 00:00:00 2001 From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com> Date: Tue, 23 Jun 2026 12:55:49 +0000 Subject: [PATCH 1/2] Add FSC License No. field to Item Card (Table 27) --- .../Page 50100 PVS FSC License List.al | 28 +++++++++++++++++++ .../PageExt 50100 PVS Item Card Ext.al | 16 +++++++++++ Prototyping/Table 50100 PVS FSC License.al | 27 ++++++++++++++++++ Prototyping/TableExt 50100 PVS Item Ext.al | 12 ++++++++ 4 files changed, 83 insertions(+) create mode 100644 Prototyping/Page 50100 PVS FSC License List.al create mode 100644 Prototyping/PageExt 50100 PVS Item Card Ext.al create mode 100644 Prototyping/Table 50100 PVS FSC License.al create mode 100644 Prototyping/TableExt 50100 PVS Item Ext.al diff --git a/Prototyping/Page 50100 PVS FSC License List.al b/Prototyping/Page 50100 PVS FSC License List.al new file mode 100644 index 0000000..1e3953c --- /dev/null +++ b/Prototyping/Page 50100 PVS FSC License List.al @@ -0,0 +1,28 @@ +page 50100 "PVS FSC License List" +{ + Caption = 'FSC License List'; + PageType = List; + SourceTable = "PVS FSC License"; + UsageCategory = Lists; + ApplicationArea = All; + + layout + { + area(Content) + { + repeater(Control1) + { + field("Code"; Rec."Code") + { + ApplicationArea = All; + ToolTip = 'Specifies the FSC license code.'; + } + field(Description; Rec.Description) + { + ApplicationArea = All; + ToolTip = 'Specifies the description of the FSC license.'; + } + } + } + } +} diff --git a/Prototyping/PageExt 50100 PVS Item Card Ext.al b/Prototyping/PageExt 50100 PVS Item Card Ext.al new file mode 100644 index 0000000..675ac36 --- /dev/null +++ b/Prototyping/PageExt 50100 PVS Item Card Ext.al @@ -0,0 +1,16 @@ +pageextension 50100 "PVS Item Card Ext" extends "Item Card" +{ + layout + { + addafter(6010118) + { + field("PVS FSC License No."; Rec."PVS FSC License No.") + { + ApplicationArea = All; + Caption = 'FSC License No.'; + ToolTip = 'Specifies the FSC license number assigned to this item.'; + LookupPageId = "PVS FSC License List"; + } + } + } +} diff --git a/Prototyping/Table 50100 PVS FSC License.al b/Prototyping/Table 50100 PVS FSC License.al new file mode 100644 index 0000000..1bb3a94 --- /dev/null +++ b/Prototyping/Table 50100 PVS FSC License.al @@ -0,0 +1,27 @@ +table 50100 "PVS FSC License" +{ + Caption = 'FSC License'; + DataClassification = CustomerContent; + LookupPageId = "PVS FSC License List"; + + fields + { + field(1; "Code"; Code[20]) + { + Caption = 'Code'; + NotBlank = true; + } + field(2; Description; Text[100]) + { + Caption = 'Description'; + } + } + + keys + { + key(PK; "Code") + { + Clustered = true; + } + } +} diff --git a/Prototyping/TableExt 50100 PVS Item Ext.al b/Prototyping/TableExt 50100 PVS Item Ext.al new file mode 100644 index 0000000..0a6e305 --- /dev/null +++ b/Prototyping/TableExt 50100 PVS Item Ext.al @@ -0,0 +1,12 @@ +tableextension 50100 "PVS Item Ext" extends Item +{ + fields + { + field(50100; "PVS FSC License No."; Code[20]) + { + Caption = 'FSC License No.'; + DataClassification = CustomerContent; + TableRelation = "PVS FSC License"; + } + } +} From 2ccd82af0e2d7b8062efb6fdabbfae3874db3ef7 Mon Sep 17 00:00:00 2001 From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com> Date: Tue, 23 Jun 2026 12:56:29 +0000 Subject: [PATCH 2/2] Fix: remove obsolete NotBlank property, use field name anchor in page extension --- Prototyping/PageExt 50100 PVS Item Card Ext.al | 2 +- Prototyping/Table 50100 PVS FSC License.al | 1 - 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/Prototyping/PageExt 50100 PVS Item Card Ext.al b/Prototyping/PageExt 50100 PVS Item Card Ext.al index 675ac36..0f7959f 100644 --- a/Prototyping/PageExt 50100 PVS Item Card Ext.al +++ b/Prototyping/PageExt 50100 PVS Item Card Ext.al @@ -2,7 +2,7 @@ pageextension 50100 "PVS Item Card Ext" extends "Item Card" { layout { - addafter(6010118) + addafter("PVS ECO Label Code") { field("PVS FSC License No."; Rec."PVS FSC License No.") { diff --git a/Prototyping/Table 50100 PVS FSC License.al b/Prototyping/Table 50100 PVS FSC License.al index 1bb3a94..29528f4 100644 --- a/Prototyping/Table 50100 PVS FSC License.al +++ b/Prototyping/Table 50100 PVS FSC License.al @@ -9,7 +9,6 @@ table 50100 "PVS FSC License" field(1; "Code"; Code[20]) { Caption = 'Code'; - NotBlank = true; } field(2; Description; Text[100]) {