AL

Copy

1namespace LLM.LLM;
2
3page 50100 LLM
4{
5    ApplicationArea = All;
6    Caption = 'LLM';
7    PageType = PromptDialog;
8    Extensible = false;
9    DataCaptionExpression = Prompt;
10    IsPreview = true;
11
12    layout
13    {
14        #region input section
15        area(Prompt)
16        {
17            field(PromptField; Prompt)
18            {
19                ShowCaption = false;
20                MultiLine = true;
21                InstructionalText = 'Message Large Language Model';
22            }
23        }
24        #endregion
25
26        #region output section
27        area(Content)
28        {
29            field(OutputFiled; Output)
30            {
31                ShowCaption=false;
32                MultiLine = true;
33            }
34        }
35        #endregion
36    }
37    actions
38    {
39        #region prompt guide
40        area(PromptGuide)
41        {
42            action("Capital City")
43            {
44                ApplicationArea = All;
45                Caption = 'Capital City';
46                ToolTip = 'What is the Capital of ...';
47
48                trigger OnAction()
49                begin
50                    Prompt := 'What is the Capital of <Country>?';
51                end;
52            }
53        }
54        #endregion
55
56        #region system actions
57        area(SystemActions)
58        {
59            systemaction(Generate)
60            {
61                Caption = 'Generate';
62                ToolTip = 'Generate a response.';
63
64                trigger OnAction()
65                begin
66                    RunGeneration();
67                end;
68            }
69            systemaction(OK)
70            {
71                Caption = 'OK';
72                ToolTip = 'Save the result.';
73            }
74            systemaction(Cancel)
75            {
76                Caption = 'Cancel';
77                ToolTip = 'Discard the result.';
78            }
79            systemaction(Regenerate)
80            {
81                Caption = 'Regenerate';
82                ToolTip = 'Regenerate a response.';
83
84                trigger OnAction()
85                begin
86                    RunGeneration();
87                end;
88            }
89            #endregion
90        }
91    }
92    var
93        Prompt: Text;
94        Output: Text;
95
96    local procedure RunGeneration()
97    begin
98        Output := 'The prompt you entered was: ' + Prompt;
99    end;
100
101}