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..0f7959f --- /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("PVS ECO Label Code") + { + 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..29528f4 --- /dev/null +++ b/Prototyping/Table 50100 PVS FSC License.al @@ -0,0 +1,26 @@ +table 50100 "PVS FSC License" +{ + Caption = 'FSC License'; + DataClassification = CustomerContent; + LookupPageId = "PVS FSC License List"; + + fields + { + field(1; "Code"; Code[20]) + { + Caption = 'Code'; + } + 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"; + } + } +}