Skip to content

Commit

Permalink
Skip BC Avoid AL0604 warning message - New branch
Browse files Browse the repository at this point in the history
  • Loading branch information
@picazin
picazin committed Oct 2, 2020
1 parent 48bed81 commit a256088
Show file tree
Hide file tree
Showing 19 changed files with 272 additions and 256 deletions.
10 changes: 5 additions & 5 deletions src/page/EXMEnumExtValues.Page.al
View file
Original file line number Diff line number Diff line change
Expand Up @@ -14,23 +14,23 @@ page 83211 "EXM EnumExt Values"
{
repeater(Fields)
{
field("Extension Code"; Rec."Extension Code")
field("Extension Code"; "Extension Code")
{
ApplicationArea = All;
}
field("Ordinal ID"; Rec."Ordinal ID")
field("Ordinal ID"; "Ordinal ID")
{
ApplicationArea = All;
}
field("Enum Value"; Rec."Enum Value")
field("Enum Value"; "Enum Value")
{
ApplicationArea = All;
}
field("Created by"; Rec."Created by")
field("Created by"; "Created by")
{
ApplicationArea = All;
}
field("Creation Date"; Rec."Creation Date")
field("Creation Date"; "Creation Date")
{
ApplicationArea = All;
}
Expand Down
38 changes: 19 additions & 19 deletions src/page/EXMEnumValues.Page.al
View file
Original file line number Diff line number Diff line change
Expand Up @@ -13,49 +13,49 @@ page 83210 "EXM Enum Values"
{
repeater(Fields)
{
field("Extension Code"; Rec."Extension Code")
field("Extension Code"; "Extension Code")
{
ApplicationArea = All;
Visible = false;
}
field("Source Line No."; Rec."Source Line No.")
field("Source Line No."; "Source Line No.")
{
ApplicationArea = All;
Editable = false;
Visible = false;
}
field("Source Type"; Rec."Source Type")
field("Source Type"; "Source Type")
{
ApplicationArea = All;
Editable = false;
Visible = false;
}
field("Source Enum ID"; Rec."Source Enum ID")
field("Source Enum ID"; "Source Enum ID")
{
ApplicationArea = All;
Editable = false;
Visible = false;
}
field("Enum ID"; Rec."Enum ID")
field("Enum ID"; "Enum ID")
{
ApplicationArea = All;
Editable = false;
Visible = false;
}
field("Ordinal ID"; Rec."Ordinal ID")
field("Ordinal ID"; "Ordinal ID")
{
ApplicationArea = All;
}
field("Enum Value"; Rec."Enum Value")
field("Enum Value"; "Enum Value")
{
ApplicationArea = All;
}
field("Created by"; Rec."Created by")
field("Created by"; "Created by")
{
ApplicationArea = All;
Visible = IsVisible;
}
field("Creation Date"; Rec."Creation Date")
field("Creation Date"; "Creation Date")
{
ApplicationArea = All;
Visible = IsVisible;
Expand Down Expand Up @@ -85,7 +85,7 @@ page 83210 "EXM Enum Values"
PromotedIsBig = true;
PromotedOnly = true;
Image = ResetStatus;
Enabled = (Rec."Source Type" = Rec."Source Type"::"EnumExtension");
Enabled = ("Source Type" = "Source Type"::"EnumExtension");

trigger OnAction()
begin
Expand All @@ -104,14 +104,14 @@ page 83210 "EXM Enum Values"
PromotedIsBig = true;
PromotedOnly = true;
Image = Table;
Enabled = (Rec."Source Type" = Rec."Source Type"::"EnumExtension");
Enabled = ("Source Type" = "Source Type"::"EnumExtension");
Visible = IsVisible;

trigger OnAction()
var
EXMExtMgt: Codeunit "EXM Extension Management";
begin
EXMExtMgt.GetEnumValues(Rec."Source Enum ID");
EXMExtMgt.GetEnumValues("Source Enum ID");
end;
}
}
Expand All @@ -121,22 +121,22 @@ page 83210 "EXM Enum Values"
AllObject: Record AllObj;
EXMExtLine: Record "EXM Extension Lines";
begin
if Rec.IsTemporary() then begin
AllObject.Get(AllObject."Object Type"::Enum, Rec."Enum ID");
exit(Format(Rec."Enum ID") + ' ' + AllObject."Object Name");
if IsTemporary then begin
AllObject.Get(AllObject."Object Type"::Enum, "Enum ID");
exit(Format("Enum ID") + ' ' + AllObject."Object Name");
end;

EXMExtLine.Get(Rec."Extension Code", Rec."Source Line No.");
EXMExtLine.Get("Extension Code", "Source Line No.");
if Rec."Source Type" = Rec."Source Type"::"EnumExtension" then begin
AllObject.Get(AllObject."Object Type"::Enum, Rec."Source Enum ID");
exit(Format(Rec."Source Enum ID") + ' ' + AllObject."Object Name" + ' - ' + Format(EXMExtLine."Object ID") + ' ' + EXMExtLine.Name);
AllObject.Get(AllObject."Object Type"::Enum, "Source Enum ID");
exit(Format("Source Enum ID") + ' ' + AllObject."Object Name" + ' - ' + Format(EXMExtLine."Object ID") + ' ' + EXMExtLine.Name);
end else
exit(Format(EXMExtLine."Object ID") + ' ' + EXMExtLine.Name);
end;

trigger OnOpenPage()
begin
IsVisible := not Rec.IsTemporary();
IsVisible := not IsTemporary;
if not IsVisible then
CurrPage.Editable(false);
end;
Expand Down
4 changes: 2 additions & 2 deletions src/page/EXMExtensionDepFactbox.Page.al
View file
Original file line number Diff line number Diff line change
Expand Up @@ -12,11 +12,11 @@ page 83220 "EXM Extension Dep. Factbox"
repeater(Control1)
{

field("Dependent Ext. Code"; Rec."Dependent Ext. Code")
field("Dependent Ext. Code"; "Dependent Ext. Code")
{
ApplicationArea = All;
}
field("Dependent Ext. Name"; Rec."Dependent Ext. Name")
field("Dependent Ext. Name"; "Dependent Ext. Name")
{
ApplicationArea = All;
}
Expand Down
4 changes: 2 additions & 2 deletions src/page/EXMExtensionDependencies.Page.al
View file
Original file line number Diff line number Diff line change
Expand Up @@ -12,11 +12,11 @@ page 83219 "EXM Extension Dependencies"
{
repeater(General)
{
field("Dependent Ext. Code"; Rec."Dependent Ext. Code")
field("Dependent Ext. Code"; "Dependent Ext. Code")
{
ApplicationArea = All;
}
field("Dependent Ext. Name"; Rec."Dependent Ext. Name")
field("Dependent Ext. Name"; "Dependent Ext. Name")
{
ApplicationArea = All;
}
Expand Down
26 changes: 13 additions & 13 deletions src/page/EXMExtensionFactBox.Page.al
View file
Original file line number Diff line number Diff line change
Expand Up @@ -11,95 +11,95 @@ page 83213 "EXM Extension FactBox"
{
cuegroup(General)
{
field("No. of Tables"; Rec."No. of Tables")
field("No. of Tables"; "No. of Tables")
{
ApplicationArea = All;
trigger OnDrillDown()
begin
ViewObjectDetail(Objects::Table)
end;
}
field("No. of TableExtensions"; Rec."No. of TableExtensions")
field("No. of TableExtensions"; "No. of TableExtensions")
{
ApplicationArea = All;
trigger OnDrillDown()
begin
ViewObjectDetail(Objects::"TableExtension")
end;
}
field("No. of Page"; Rec."No. of Page")
field("No. of Page"; "No. of Page")
{
ApplicationArea = All;
trigger OnDrillDown()
begin
ViewObjectDetail(Objects::Page)
end;
}
field("No. of PageExtensions"; Rec."No. of PageExtensions")
field("No. of PageExtensions"; "No. of PageExtensions")
{
ApplicationArea = All;
trigger OnDrillDown()
begin
ViewObjectDetail(Objects::"PageExtension")
end;
}
field("No. of Codeunits"; Rec."No. of Codeunits")
field("No. of Codeunits"; "No. of Codeunits")
{
ApplicationArea = All;
trigger OnDrillDown()
begin
ViewObjectDetail(Objects::Codeunit)
end;
}
field("No. of Reports"; Rec."No. of Reports")
field("No. of Reports"; "No. of Reports")
{
ApplicationArea = All;
trigger OnDrillDown()
begin
ViewObjectDetail(Objects::Report)
end;
}
field("No. of Querys"; Rec."No. of Querys")
field("No. of Querys"; "No. of Querys")
{
ApplicationArea = All;
trigger OnDrillDown()
begin
ViewObjectDetail(Objects::Query)
end;
}
field("No. of XMLports"; Rec."No. of XMLports")
field("No. of XMLports"; "No. of XMLports")
{
ApplicationArea = All;
trigger OnDrillDown()
begin
ViewObjectDetail(Objects::XMLport)
end;
}
field("No. of Enums"; Rec."No. of Enums")
field("No. of Enums"; "No. of Enums")
{
ApplicationArea = All;
trigger OnDrillDown()
begin
ViewObjectDetail(Objects::Enum)
end;
}
field("No. of EnumExtensions"; Rec."No. of EnumExtensions")
field("No. of EnumExtensions"; "No. of EnumExtensions")
{
ApplicationArea = All;
trigger OnDrillDown()
begin
ViewObjectDetail(Objects::EnumExtension)
end;
}
field("No. of Profiles"; Rec."No. of Profiles")
field("No. of Profiles"; "No. of Profiles")
{
ApplicationArea = All;
trigger OnDrillDown()
begin
ViewObjectDetail(Objects::Profile)
end;
}
field("No. of ProfileExtensions"; Rec."No. of ProfileExtensions")
field("No. of ProfileExtensions"; "No. of ProfileExtensions")
{
ApplicationArea = All;
trigger OnDrillDown()
Expand All @@ -116,7 +116,7 @@ page 83213 "EXM Extension FactBox"
EXMObjectDetail: Page "EXM Object Detail";
begin
EXMExtLine.FilterGroup(2);
EXMExtLine.SetRange("Extension Code", Rec.Code);
EXMExtLine.SetRange("Extension Code", Code);
EXMExtLine.SetRange("Object Type", ObjType);
EXMExtLine.FilterGroup(0);

Expand Down
34 changes: 17 additions & 17 deletions src/page/EXMExtensionHeader.Page.al
View file
Original file line number Diff line number Diff line change
Expand Up @@ -13,35 +13,35 @@ page 83201 "EXM Extension Header"
group(Header)
{
Caption = 'Information', Comment = 'ESP="Información"';
field("Code"; Rec."Code")
field("Code"; "Code")
{
ApplicationArea = All;
}
field(Description; Rec."Description")
field(Description; "Description")
{
ApplicationArea = All;
}
field("App Version"; Rec."App Version")
field("App Version"; "App Version")
{
ApplicationArea = All;
}
field(Dependencies; Rec.Dependencies)
field(Dependencies; Dependencies)
{
ApplicationArea = All;
}
group(Target)
{
Caption = 'Target', Comment = 'Destino';
field(Type; Rec."Type")
field(Type; "Type")
{
ApplicationArea = All;
}
field("Customer No."; Rec."Customer No.")
field("Customer No."; "Customer No.")
{
ApplicationArea = All;
Editable = (Rec.Type = Rec.Type::External);
Editable = (Type = Type::External);
}
field("Customer Name"; Rec."Customer Name")
field("Customer Name"; "Customer Name")
{
ApplicationArea = All;
}
Expand All @@ -50,23 +50,23 @@ page 83201 "EXM Extension Header"
group(ObjectRange)
{
Caption = 'Object Range', Comment = 'ESP="Rango objetos"';
field("Object Starting ID"; Rec."Object Starting ID")
field("Object Starting ID"; "Object Starting ID")
{
Caption = 'Starting No.', Comment = 'ESP="Nº inicial"';
ApplicationArea = All;
trigger OnValidate()
begin
if xRec."Object Starting ID" <> Rec."Object Starting ID" then
if xRec."Object Starting ID" <> "Object Starting ID" then
CurrPage.Update(true);
end;
}
field("Object Ending ID"; Rec."Object Ending ID")
field("Object Ending ID"; "Object Ending ID")
{
Caption = 'Ending No.', Comment = 'ESP="Nº final"';
ApplicationArea = All;
trigger OnValidate()
begin
if xRec."Object Ending ID" <> Rec."Object Ending ID" then
if xRec."Object Ending ID" <> "Object Ending ID" then
CurrPage.Update(true);
end;
}
Expand All @@ -79,7 +79,7 @@ page 83201 "EXM Extension Header"
}
group(GIT)
{
field("GIT Repository URL"; Rec."GIT Repository URL")
field("GIT Repository URL"; "GIT Repository URL")
{
ApplicationArea = All;
ExtendedDatatype = URL;
Expand All @@ -103,14 +103,14 @@ page 83201 "EXM Extension Header"

trigger OnNewRecord(BelowxRec: Boolean)
begin
Rec.InitRecord();
InitRecord();
end;

trigger OnQueryClosePage(CloseAction: Action): Boolean
begin
if Rec.Code <> '' then begin
Rec.TestField("Object Starting ID");
Rec.TestField("Object Ending ID");
if Code <> '' then begin
TestField("Object Starting ID");
TestField("Object Ending ID");
end;
end;
}
Loading

0 comments on commit a256088

Please sign in to comment.