Here, I have created one page to show objects under the License of Dynamics NAV.
source code as below
OBJECT Page 50240 License Check
{
OBJECT-PROPERTIES
{
Date=02-09-16;
Time=18:17:33;
Modified=Yes;
Version List=V.01;
}
PROPERTIES
{
SourceTable=Table2000000043;
SourceTableView=SORTING(Object Type,Object Number)
ORDER(Ascending)
WHERE(Object Type=FILTER(Table|Query|XMLport|Page|Report|Codeunit));
PageType=List;
OnAfterGetRecord=VAR
LiceanceCheck@1000000000 : Record 2000000043;
BEGIN
CLEAR(Name_Txt);
CLEAR(Var_Tx);
IF “Object Type” = “Object Type”::Table THEN
BEGIN
IF Object_Lrec.GET(Object_Lrec.Type::Table,”,”Object Number”)THEN
BEGIN
Name_Txt := Object_Lrec.Name;
Var_Tx := Object_Lrec.”Version List”;
END;
END ELSE IF “Object Type” = “Object Type” ::Codeunit THEN
BEGIN
IF Object_Lrec.GET(Object_Lrec.Type::Codeunit,”,”Object Number”)THEN
BEGIN
Name_Txt := Object_Lrec.Name;
Var_Tx := Object_Lrec.”Version List”;
END;
END ELSE IF “Object Type” = “Object Type”::Page THEN
BEGIN
IF Object_Lrec.GET(Object_Lrec.Type::Page,”,”Object Number”)THEN
BEGIN
Name_Txt := Object_Lrec.Name;
Var_Tx := Object_Lrec.”Version List”;
END;
END ELSE IF “Object Type” = “Object Type”::Report THEN
BEGIN
IF Object_Lrec.GET(Object_Lrec.Type::Report,”,”Object Number”)THEN
BEGIN
Name_Txt := Object_Lrec.Name;
Var_Tx := Object_Lrec.”Version List”;
END;
END ELSE IF “Object Type” = “Object Type”::Query THEN
BEGIN
IF Object_Lrec.GET(Object_Lrec.Type::Query,”,”Object Number”)THEN
BEGIN
Name_Txt := Object_Lrec.Name;
Var_Tx := Object_Lrec.”Version List”;
END;
END ELSE IF “Object Type” = “Object Type”::XMLport THEN
BEGIN
IF Object_Lrec.GET(Object_Lrec.Type::XMLport,”,”Object Number”)THEN
BEGIN
Name_Txt := Object_Lrec.Name;
Var_Tx := Object_Lrec.”Version List”;
END;
END ELSE;
END;
}
CONTROLS
{
{ 1000000000;0;Container;
ContainerType=ContentArea }
{ 1000000001;1;Group ;
Name=Group;
Editable=FALSE;
GroupType=Repeater }
{ 1000000002;2;Field ;
SourceExpr=”Object Type” }
{ 1000000007;2;Field ;
SourceExpr=”Object Number” }
{ 1000000010;2;Field ;
Name=&Name;
SourceExpr=Name_Txt }
{ 1000000011;2;Field ;
Name=&Version List;
SourceExpr=Var_Tx }
{ 1000000003;2;Field ;
SourceExpr=”Modify Permission” }
{ 1000000004;2;Field ;
SourceExpr=”Delete Permission” }
{ 1000000005;2;Field ;
SourceExpr=”Execute Permission” }
{ 1000000006;2;Field ;
SourceExpr=”Limited Usage Permission” }
{ 1000000008;2;Field ;
SourceExpr=”Read Permission” }
{ 1000000009;2;Field ;
SourceExpr=”Insert Permission” }
}
CODE
{
VAR
Name_Txt@1000000000 : Text;
Var_Tx@1000000001 : Text;
Object_Lrec@1000000002 : Record 2000000001;
BEGIN
{
MQSHAPAR-02Sep16
}
END.
}
}