Action Create Conference Document

fluxxus-nl · Sep 20, 2024 · 0b7a8d4 · 0b7a8d4
1 parent f05a679
commit 0b7a8d4
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 3 deletions.
diff --git a/app/src/page/Conferencelocationcard.Page.al b/app/src/page/Conferencelocationcard.Page.al
@@ -81,7 +81,7 @@ page 50002 "Conference Location Card ASD"
         {
             action(CreateConferenceDocument)
             {
-                Caption = 'Create Conference Document (TEST)';
+                Caption = 'Create Conference Document';
                 ToolTip = 'Specifies the Create Conference Document action';
                 ApplicationArea = All;
                 Scope = Repeater;

diff --git a/app/src/page/Conferencelocationlist.Page.al b/app/src/page/Conferencelocationlist.Page.al
@@ -36,15 +36,24 @@ page 50000 "Conference Location List ASD"
         {
             action(CreateConferenceDocument)
             {
-                Caption = 'Create Conference Document (TEST)';
+                Caption = 'Create Conference Document';
                 ToolTip = 'Specifies the Create Conference Document action';
                 ApplicationArea = All;
                 Scope = Repeater;
                 Image = Create;
 
                 trigger OnAction();
+                var
+                    ConferenceASD: record "Conference ASD";
                 begin
-                    Message('in progress');
+                    if Rec."No." <> '' then begin
+                        ConferenceASD.Init();
+                        ConferenceASD.ConferenceLocation := Rec."No.";
+                        if Rec."Unit Price" <> 0 then
+                            ConferenceASD."Unit Price" := Rec."Unit Price";
+                        ConferenceASD.Insert(true);
+                        PAGE.Run(Page::"Conference Card ASD", ConferenceASD);
+                    end;
                 end;
             }
         }