OBJECT Codeunit 50010 MyNotifications { OBJECT-PROPERTIES { Date=09-10-16; Time=19:05:39; Modified=Yes; Version List=Notifications; } PROPERTIES { OnRun=BEGIN END; } CODE { PROCEDURE SomethingElse@1(MyNotification@1000 : Notification); BEGIN MESSAGE('Not quite there yet...'); END; BEGIN END. } } OBJECT Page 50001 ShowNotification { OBJECT-PROPERTIES { Date=09-10-16; Time=19:04:42; Modified=Yes; Version List=Notifications; } PROPERTIES { SourceTable=Table18; PageType=Card; ActionList=ACTIONS { { 1 ; ;ActionContainer; ActionContainerType=ActionItems } { 2 ;1 ;Action ; CaptionML=ENU=DoAnAutomatedUpgrade; Image=Note; OnAction=BEGIN ShowComingSoonNotification; END; } { 3 ;1 ;Action ; CaptionML=ENU=DoAnAutomatedUpgradeAgain; Image=Note; OnAction=BEGIN ShowComingSoonNotification2; END; } } } CONTROLS { } CODE { LOCAL PROCEDURE ShowComingSoonNotification@1(); VAR ComingSoonNotification@1000 : Notification; ComingSoonMsg@1001 : TextConst 'ENU=This feature is coming soon...'; BEGIN ComingSoonNotification.MESSAGE := ComingSoonMsg; ComingSoonNotification.SCOPE := NOTIFICATIONSCOPE::LocalScope; ComingSoonNotification.SEND; END; LOCAL PROCEDURE ShowComingSoonNotification2@2(); VAR ComingSoonNotification@1000 : Notification; ComingSoonMsg@1001 : TextConst 'ENU=This feature is coming soon...'; BEGIN ComingSoonNotification.MESSAGE := ComingSoonMsg; ComingSoonNotification.SCOPE := NOTIFICATIONSCOPE::LocalScope; ComingSoonNotification.ADDACTION('DoThisNow',50010,'SomethingElse'); ComingSoonNotification.SEND; END; BEGIN END. } }