Skip to content

Update data search MFG tables with pragma al0801 2 #4825

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
Alexander-Ya merged 2 commits into from
Sep 22, 2025
Merged

Update data search MFG tables with pragma al0801 2 #4825

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
31e7ac7
Update DataSearch MFg and SRV references with pragma AL0801
Alexander-Ya Sep 21, 2025
0b00e01
Remove obsoleted page extensions
Alexander-Ya Sep 21, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
28 changes: 28 additions & 0 deletions src/Apps/W1/DataSearch/App/DataSearchObjectMapping.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -38,8 +38,10 @@ codeunit 2685 "Data Search Object Mapping"
DataSearchEvents: Codeunit "Data Search Events";
SalesDocumentType: Enum "Sales Document Type";
PurchaseDocumentType: Enum "Purchase Document Type";
#pragma warning disable AL0801
ServiceDocumentType: Enum "Service Document Type";
ServiceContractType: Enum "Service Contract Type";
#pragma warning restore AL0801
ParentTableNo: Integer;
PageNo: Integer;
begin
Expand Down Expand Up @@ -81,6 +83,7 @@ codeunit 2685 "Data Search Object Mapping"
PurchaseDocumentType::"Return Order".AsInteger():
PageNo := Page::"Purchase Return Order List";
end;
#pragma warning disable AL0801
Database::"Service Header":
case TableSubType of
ServiceDocumentType::"Credit Memo".AsInteger():
Expand All @@ -101,6 +104,7 @@ codeunit 2685 "Data Search Object Mapping"
ServiceContractType::Template.AsInteger():
PageNo := Page::"Service Contract Template List";
end;
#pragma warning restore AL0801
end;
if PageNo = 0 then
DataSearchEvents.OnGetListPageNo(TableNo, TableSubType, PageNo);
Expand All @@ -120,10 +124,12 @@ codeunit 2685 "Data Search Object Mapping"
ParentTableNo := Database::"Sales Header";
Database::"Purchase Line":
ParentTableNo := Database::"Purchase Header";
#pragma warning disable AL0801
Database::"Service Item Line":
ParentTableNo := Database::"Service Header";
Database::"Service Contract Line":
ParentTableNo := Database::"Service Contract Header";
#pragma warning restore AL0801
Database::"Sales Invoice Line":
ParentTableNo := Database::"Sales Invoice Header";
Database::"Sales Shipment Line":
Expand All @@ -136,12 +142,14 @@ codeunit 2685 "Data Search Object Mapping"
ParentTableNo := Database::"Purch. Cr. Memo Hdr.";
Database::"Purch. Rcpt. Line":
ParentTableNo := Database::"Purch. Rcpt. Header";
#pragma warning disable AL0801
Database::"Service Shipment Item Line", Database::"Service Shipment Line":
ParentTableNo := Database::"Service Shipment Header";
Database::"Service Invoice Line":
ParentTableNo := Database::"Service Invoice Header";
Database::"Service Cr.Memo Line":
ParentTableNo := Database::"Service Cr.Memo Header";
#pragma warning restore AL0801
Database::"Reminder Line":
ParentTableNo := Database::"Reminder Header";
Database::"Issued Reminder Line":
Expand All @@ -154,12 +162,14 @@ codeunit 2685 "Data Search Object Mapping"
ParentTableNo := Database::"Job";
Database::"Job Planning Line":
ParentTableNo := Database::"Job";
#pragma warning disable AL0801
Database::"Prod. Order Line":
ParentTableNo := Database::"Production Order";
Database::"Production BOM Line":
ParentTableNo := Database::"Production BOM Header";
Database::"Routing Line":
ParentTableNo := Database::"Routing Header";
#pragma warning restore AL0801
Database::"Warehouse Shipment Line":
ParentTableNo := Database::"Warehouse Shipment Header";
Database::"Warehouse Receipt Line":
Expand Down Expand Up @@ -193,10 +203,12 @@ codeunit 2685 "Data Search Object Mapping"
SubTableNos.Add(Database::"Sales Line");
Database::"Purchase Header":
SubTableNos.Add(Database::"Purchase Line");
#pragma warning disable AL0801
Database::"Service Header":
SubTableNos.Add(Database::"Service Item Line");
Database::"Service Contract Header":
SubTableNos.Add(Database::"Service Contract Line");
#pragma warning restore AL0801
Database::"Sales Invoice Header":
SubTableNos.Add(Database::"Sales Invoice Line");
Database::"Sales Shipment Header":
Expand All @@ -209,6 +221,7 @@ codeunit 2685 "Data Search Object Mapping"
SubTableNos.Add(Database::"Purch. Cr. Memo Line");
Database::"Purch. Rcpt. Header":
SubTableNos.Add(Database::"Purch. Rcpt. Line");
#pragma warning disable AL0801
Database::"Service Shipment Header":
begin
SubTableNos.Add(Database::"Service Shipment Item Line");
Expand All @@ -218,6 +231,7 @@ codeunit 2685 "Data Search Object Mapping"
SubTableNos.Add(Database::"Service Invoice Line");
Database::"Service Cr.Memo Header":
SubTableNos.Add(Database::"Service Cr.Memo Line");
#pragma warning restore AL0801
Database::"Reminder Header":
SubTableNos.Add(Database::"Reminder Line");
Database::"Issued Reminder Header":
Expand All @@ -231,12 +245,14 @@ codeunit 2685 "Data Search Object Mapping"
SubTableNos.Add(Database::"Job Task");
SubTableNos.Add(Database::"Job Planning Line");
end;
#pragma warning disable AL0801
Database::"Production Order":
SubTableNos.Add(Database::"Prod. Order Line");
Database::"Production BOM Header":
SubTableNos.Add(Database::"Production BOM Line");
Database::"Routing Header":
SubTableNos.Add(Database::"Routing Line");
#pragma warning restore AL0801
Database::"Warehouse Shipment Header":
SubTableNos.Add(Database::"Warehouse Shipment Line");
Database::"Warehouse Receipt Header":
Expand Down Expand Up @@ -270,13 +286,15 @@ codeunit 2685 "Data Search Object Mapping"
FieldNo := 1;
Database::"Sales Header", Database::"Sales Line",
Database::"Purchase Header", Database::"Purchase Line",
#pragma warning disable AL0801
Database::"Service Header", Database::"Service Line",
Database::"Service Contract Line":
FieldNo := 1;
Database::"Service Item Line":
FieldNo := 43;
Database::"Service Contract Header":
FieldNo := 2;
#pragma warning restore AL0801
end;
if FieldNo = 0 then
DataSearchEvents.OnGetFieldNoForTableType(TableNo, FieldNo);
Expand Down Expand Up @@ -353,11 +371,13 @@ codeunit 2685 "Data Search Object Mapping"
FieldNo := 1;
Database::"Sales Header", Database::"Sales Line",
Database::"Purchase Header", Database::"Purchase Line",
#pragma warning disable AL0801
Database::"Service Header", Database::"Service Item Line",
Database::"Service Contract Line":
FieldNo := 1;
Database::"Service Contract Header":
FieldNo := 2;
#pragma warning restore AL0801
end;
if FieldNo = 0 then
DataSearchEvents.OnGetFieldNoForTableType(DataSearchSetupTable."Table No.", FieldNo);
Expand Down Expand Up @@ -387,8 +407,10 @@ codeunit 2685 "Data Search Object Mapping"
DataSearchEvents: Codeunit "Data Search Events";
SalesDocumentType: Enum "Sales Document Type";
PurchaseDocumentType: Enum "Purchase Document Type";
#pragma warning disable AL0801
ServiceDocumentType: Enum "Service Document Type";
ServiceContractType: Enum "Service Contract Type";
#pragma warning restore AL0801
TableSubtype: Integer;
begin
case PageNo of
Expand Down Expand Up @@ -416,6 +438,7 @@ codeunit 2685 "Data Search Object Mapping"
exit(PurchaseDocumentType::Quote.AsInteger());
Page::"Purchase Return Order List":
exit(PurchaseDocumentType::"Return Order".AsInteger());
#pragma warning disable AL0801
Page::"Service Credit Memos":
exit(ServiceDocumentType::"Credit Memo".AsInteger());
Page::"Service Invoices":
Expand All @@ -430,6 +453,7 @@ codeunit 2685 "Data Search Object Mapping"
exit(ServiceContractType::Quote.AsInteger());
Page::"Service Contract Template List":
exit(ServiceContractType::Template.AsInteger());
#pragma warning restore AL0801
else begin
if PageMetaData.Get(PageNo) and (PageMetaData.SourceTable = Database::"Gen. Journal Line") then
exit(FindGenJournalTemplateType(PageNo));
Expand Down Expand Up @@ -559,6 +583,7 @@ codeunit 2685 "Data Search Object Mapping"
JobTaskToJob(RecRef);
Database::"Job Planning Line":
JobPlanningLineToJob(RecRef);
#pragma warning disable AL0801
Database::"Service Item Line":
ServiceItemLineToHeader(RecRef);
Database::"Service Shipment Item Line":
Expand All @@ -577,6 +602,7 @@ codeunit 2685 "Data Search Object Mapping"
ProductionBOMLineToHeader(RecRef);
Database::"Routing Line":
RoutingLineToHeader(RecRef);
#pragma warning restore AL0801
Database::"Warehouse Shipment Line":
WarehouseShipmentLineToHeader(RecRef);
Database::"Warehouse Receipt Line":
Expand Down Expand Up @@ -680,6 +706,7 @@ codeunit 2685 "Data Search Object Mapping"
RecRef.GetTable(PurchCrMemoHdr);
end;

#pragma warning disable AL0801
local procedure ServiceItemLineToHeader(var RecRef: RecordRef)
var
ServiceHeader: Record "Service Header";
Expand Down Expand Up @@ -739,6 +766,7 @@ codeunit 2685 "Data Search Object Mapping"
ServiceContractHeader.Get(ServiceContractLine."Contract Type", ServiceContractLine."Contract No.");
RecRef.GetTable(ServiceContractHeader);
end;
#pragma warning restore AL0801

local procedure SalesLineArchiveToHeader(var RecRef: RecordRef)
var
Expand Down
25 changes: 0 additions & 25 deletions src/Apps/W1/DataSearch/App/RoleCenterExtensions/DataSearchAccountantRCExt.pageext.al
View file
Open in desktop

This file was deleted.

25 changes: 0 additions & 25 deletions src/Apps/W1/DataSearch/App/RoleCenterExtensions/DataSearchBusManRCExt.pageext.al
View file
Open in desktop

This file was deleted.

25 changes: 0 additions & 25 deletions src/Apps/W1/DataSearch/App/RoleCenterExtensions/DataSearchJobProjManRCExt.pageext.al
View file
Open in desktop

This file was deleted.

25 changes: 0 additions & 25 deletions src/Apps/W1/DataSearch/App/RoleCenterExtensions/DataSearchOrderProcRCExt.pageext.al
View file
Open in desktop

This file was deleted.

26 changes: 0 additions & 26 deletions src/Apps/W1/DataSearch/App/RoleCenterExtensions/DataSearchProdPlanRCExt.pageext.al
View file
Open in desktop

This file was deleted.

25 changes: 0 additions & 25 deletions src/Apps/W1/DataSearch/App/RoleCenterExtensions/DataSearchProjManRCExt.pageext.al
View file
Open in desktop

This file was deleted.

25 changes: 0 additions & 25 deletions src/Apps/W1/DataSearch/App/RoleCenterExtensions/DataSearchRelManRCExt.pageext.al
View file
Open in desktop

This file was deleted.

Loading
Loading