Skip to content

Commit 785f277

Browse files
aholstrup1aholstrup1
authored
Syncing with version 25.0.22684.0 (#26959)
Fixes [AB#420000](https://dynamicssmb2.visualstudio.com/1fcb79e7-ab07-432a-a3c6-6cf5a88ba4a5/_workitems/edit/420000)
1 parent 47455bf commit 785f277

File tree

94 files changed

+6377
-332
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

94 files changed

+6377
-332
lines changed

‎.github/AL-Go-Settings.json

+60-60
Original file line numberDiff line numberDiff line change
@@ -1,62 +1,62 @@
11
{
2-
"type": "PTE",
3-
"templateUrl": "https://github.com/microsoft/AL-Go-PTE@preview",
4-
"bcContainerHelperVersion": "preview",
5-
"runs-on": "windows-latest",
6-
"cacheImageName": "",
7-
"UsePsSession": false,
8-
"artifact": "https://bcinsider-fvh2ekdjecfjd6gk.b02.azurefd.net/sandbox/25.0.22639.0/base",
9-
"country": "base",
10-
"useProjectDependencies": true,
11-
"repoVersion": "25.0",
12-
"cleanModePreprocessorSymbols": [
13-
"CLEAN17",
14-
"CLEAN18",
15-
"CLEAN19",
16-
"CLEAN20",
17-
"CLEAN21",
18-
"CLEAN22",
19-
"CLEAN23",
20-
"CLEAN24"
21-
],
22-
"unusedALGoSystemFiles": [
23-
"AddExistingAppOrTestApp.yaml",
24-
"CreateApp.yaml",
25-
"CreateOnlineDevelopmentEnvironment.yaml",
26-
"CreatePerformanceTestApp.yaml",
27-
"CreateRelease.yaml",
28-
"CreateTestApp.yaml",
29-
"Current.yaml",
30-
"IncrementVersionNumber.yaml",
31-
"NextMajor.yaml",
32-
"NextMinor.yaml",
33-
"PublishToEnvironment.yaml",
34-
"Test Current.settings.json"
35-
],
36-
"excludeEnvironments": [
37-
"Official-Build"
38-
],
39-
"buildModes": [
40-
"Translated"
41-
],
42-
"CICDPushBranches": [
43-
"main"
44-
],
45-
"CICDPullRequestBranches": [
46-
"main"
47-
],
48-
"enableCodeCop": true,
49-
"enableAppSourceCop": true,
50-
"enablePerTenantExtensionCop": true,
51-
"enableUICop": true,
52-
"rulesetFile": "..\\..\\..\\Build\\rulesets\\app.ruleset.json",
53-
"skipUpgrade": true,
54-
"fullBuildPatterns": [
55-
"Build/*",
56-
".github/workflows/PullRequestHandler.yaml",
57-
".github/workflows/_BuildALGoProject.yaml"
58-
],
59-
"UpdateALGoSystemFilesEnvironment": "Official-Build",
60-
"PullRequestTrigger": "pull_request",
61-
"templateSha": "0476547896ebcd3ba5455b3e0e59b48c0d4a26ca"
2+
"type": "PTE",
3+
"templateUrl": "https://github.com/microsoft/AL-Go-PTE@preview",
4+
"bcContainerHelperVersion": "preview",
5+
"runs-on": "windows-latest",
6+
"cacheImageName": "",
7+
"UsePsSession": false,
8+
"artifact": "https://bcinsider-fvh2ekdjecfjd6gk.b02.azurefd.net/sandbox/25.0.22684.0/base",
9+
"country": "base",
10+
"useProjectDependencies": true,
11+
"repoVersion": "25.0",
12+
"cleanModePreprocessorSymbols": [
13+
"CLEAN17",
14+
"CLEAN18",
15+
"CLEAN19",
16+
"CLEAN20",
17+
"CLEAN21",
18+
"CLEAN22",
19+
"CLEAN23",
20+
"CLEAN24"
21+
],
22+
"unusedALGoSystemFiles": [
23+
"AddExistingAppOrTestApp.yaml",
24+
"CreateApp.yaml",
25+
"CreateOnlineDevelopmentEnvironment.yaml",
26+
"CreatePerformanceTestApp.yaml",
27+
"CreateRelease.yaml",
28+
"CreateTestApp.yaml",
29+
"Current.yaml",
30+
"IncrementVersionNumber.yaml",
31+
"NextMajor.yaml",
32+
"NextMinor.yaml",
33+
"PublishToEnvironment.yaml",
34+
"Test Current.settings.json"
35+
],
36+
"excludeEnvironments": [
37+
"Official-Build"
38+
],
39+
"buildModes": [
40+
"Translated"
41+
],
42+
"CICDPushBranches": [
43+
"main"
44+
],
45+
"CICDPullRequestBranches": [
46+
"main"
47+
],
48+
"enableCodeCop": true,
49+
"enableAppSourceCop": true,
50+
"enablePerTenantExtensionCop": true,
51+
"enableUICop": true,
52+
"rulesetFile": "..\\..\\..\\Build\\rulesets\\app.ruleset.json",
53+
"skipUpgrade": true,
54+
"fullBuildPatterns": [
55+
"Build/*",
56+
".github/workflows/PullRequestHandler.yaml",
57+
".github/workflows/_BuildALGoProject.yaml"
58+
],
59+
"UpdateALGoSystemFilesEnvironment": "Official-Build",
60+
"PullRequestTrigger": "pull_request",
61+
"templateSha": "0476547896ebcd3ba5455b3e0e59b48c0d4a26ca"
6262
}

‎Apps/CZ/AdvancePaymentsLocalization/app/Src/Codeunits/SalesAdvLetterManagementCZZ.Codeunit.al

+2
Original file line numberDiff line numberDiff line change
@@ -526,6 +526,8 @@ codeunit 31002 "SalesAdvLetterManagement CZZ"
526526
AdvanceLetterApplicationCZZ."Posting Date" := TempAdvanceLetterApplicationCZZ."Posting Date";
527527
AdvanceLetterApplicationCZZ."Document Type" := AdvLetterUsageDocTypeCZZ;
528528
AdvanceLetterApplicationCZZ."Document No." := DocumentNo;
529+
AdvanceLetterApplicationCZZ."Job No." := TempAdvanceLetterApplicationCZZ."Job No.";
530+
AdvanceLetterApplicationCZZ."Job Task No." := TempAdvanceLetterApplicationCZZ."Job Task No.";
529531
AdvanceLetterApplicationCZZ.Amount := TempAdvanceLetterApplicationCZZ.Amount;
530532
AdvanceLetterApplicationCZZ."Amount (LCY)" := TempAdvanceLetterApplicationCZZ."Amount (LCY)";
531533
OnLinkAdvanceLetterOnBeforeInsertAdvanceLetterApplication(AdvanceLetterApplicationCZZ, TempAdvanceLetterApplicationCZZ);

‎Apps/CZ/AdvancePaymentsLocalization/app/Src/PageExtensions/JobCardCZZ.PageExt.al

+65
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,65 @@
1+
pageextension 31245 "Job Card CZZ" extends "Job Card"
2+
{
3+
layout
4+
{
5+
addlast(factboxes)
6+
{
7+
part(AdvanceUsageFactBoxCZZ; "Advance Usage FactBox CZZ")
8+
{
9+
ApplicationArea = Basic, Suite;
10+
}
11+
}
12+
}
13+
actions
14+
{
15+
addlast("F&unctions")
16+
{
17+
action(CreateAdvanceLetterCZZ)
18+
{
19+
Caption = 'Create Advance Letter';
20+
ApplicationArea = Basic, Suite;
21+
ToolTip = 'The function creates the advance letter for the project.';
22+
Image = CreateDocument;
23+
Ellipsis = true;
24+
25+
trigger OnAction()
26+
var
27+
CreateSalesAdvLetterCZZ: Report "Create Sales Adv. Letter CZZ";
28+
begin
29+
CreateSalesAdvLetterCZZ.SetJob(Rec);
30+
CreateSalesAdvLetterCZZ.Run();
31+
end;
32+
}
33+
}
34+
addafter(SalesInvoicesCreditMemos)
35+
{
36+
action(SalesAdvanceLettersCZZ)
37+
{
38+
ApplicationArea = Jobs;
39+
Caption = 'Sales Advance Letters';
40+
Image = GetSourceDoc;
41+
ToolTip = 'View the sales advance letters that are related to the selected project.';
42+
43+
trigger OnAction()
44+
var
45+
TempAdvanceLetterApplicationCZZ: Record "Advance Letter Application CZZ" temporary;
46+
begin
47+
TempAdvanceLetterApplicationCZZ.GetAssignedAdvance(Rec."No.", TempAdvanceLetterApplicationCZZ);
48+
Page.RunModal(Page::"Advance Letter Application CZZ", TempAdvanceLetterApplicationCZZ)
49+
end;
50+
}
51+
}
52+
addafter(SalesInvoicesCreditMemos_Promoted)
53+
{
54+
actionref(SalesAdvanceLetters_PromotedCZZ; SalesAdvanceLettersCZZ)
55+
{
56+
}
57+
}
58+
}
59+
60+
trigger OnAfterGetCurrRecord()
61+
begin
62+
if GuiAllowed() then
63+
CurrPage.AdvanceUsageFactBoxCZZ.Page.SetDocument(Rec);
64+
end;
65+
}

‎Apps/CZ/AdvancePaymentsLocalization/app/Src/PageExtensions/JobTaskCardCZZ.PageExt.al

+49
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,49 @@
1+
pageextension 31247 "Job Task Card CZZ" extends "Job Task Card"
2+
{
3+
actions
4+
{
5+
addlast(Processing)
6+
{
7+
group("F&unctions CZZ")
8+
{
9+
Caption = 'F&unctions';
10+
Image = "Action";
11+
12+
action(CreateAdvanceLetterCZZ)
13+
{
14+
Caption = 'Create Advance Letter';
15+
ApplicationArea = Basic, Suite;
16+
ToolTip = 'The function creates the advance letter for the project task.';
17+
Image = CreateDocument;
18+
Ellipsis = true;
19+
20+
trigger OnAction()
21+
var
22+
CreateSalesAdvLetterCZZ: Report "Create Sales Adv. Letter CZZ";
23+
begin
24+
CreateSalesAdvLetterCZZ.SetJobTask(Rec);
25+
CreateSalesAdvLetterCZZ.Run();
26+
end;
27+
}
28+
}
29+
}
30+
addafter(Dimensions)
31+
{
32+
action(SalesAdvanceLettersCZZ)
33+
{
34+
ApplicationArea = Jobs;
35+
Caption = 'Sales Advance Letters';
36+
Image = GetSourceDoc;
37+
ToolTip = 'View the sales advance letters that are related to the selected project task.';
38+
39+
trigger OnAction()
40+
var
41+
TempAdvanceLetterApplicationCZZ: Record "Advance Letter Application CZZ" temporary;
42+
begin
43+
TempAdvanceLetterApplicationCZZ.GetAssignedAdvance(Rec."Job No.", Rec."Job Task No.", TempAdvanceLetterApplicationCZZ);
44+
Page.RunModal(Page::"Advance Letter Application CZZ", TempAdvanceLetterApplicationCZZ)
45+
end;
46+
}
47+
}
48+
}
49+
}

‎Apps/CZ/AdvancePaymentsLocalization/app/Src/PageExtensions/JobTaskLinesSubformCZZ.PageExt.al

+40
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,40 @@
1+
pageextension 31246 "Job Task Lines Subform CZZ" extends "Job Task Lines Subform"
2+
{
3+
actions
4+
{
5+
addlast(Documents)
6+
{
7+
action(CreateAdvanceLetterCZZ)
8+
{
9+
Caption = 'Create Advance Letter';
10+
ApplicationArea = Basic, Suite;
11+
ToolTip = 'The function creates the advance letter for the project task.';
12+
Image = CreateDocument;
13+
Ellipsis = true;
14+
15+
trigger OnAction()
16+
var
17+
CreateSalesAdvLetterCZZ: Report "Create Sales Adv. Letter CZZ";
18+
begin
19+
CreateSalesAdvLetterCZZ.SetJobTask(Rec);
20+
CreateSalesAdvLetterCZZ.Run();
21+
end;
22+
}
23+
action(SalesAdvanceLettersCZZ)
24+
{
25+
ApplicationArea = Jobs;
26+
Caption = 'Sales Advance Letters';
27+
Image = GetSourceDoc;
28+
ToolTip = 'View the sales advance letters that are related to the selected project task.';
29+
30+
trigger OnAction()
31+
var
32+
TempAdvanceLetterApplicationCZZ: Record "Advance Letter Application CZZ" temporary;
33+
begin
34+
TempAdvanceLetterApplicationCZZ.GetAssignedAdvance(Rec."Job No.", Rec."Job Task No.", TempAdvanceLetterApplicationCZZ);
35+
Page.RunModal(Page::"Advance Letter Application CZZ", TempAdvanceLetterApplicationCZZ)
36+
end;
37+
}
38+
}
39+
}
40+
}

‎Apps/CZ/AdvancePaymentsLocalization/app/Src/Pages/AdvanceLetterApplEditCZZ.Page.al

+10
Original file line numberDiff line numberDiff line change
@@ -61,6 +61,16 @@ page 31175 "Advance Letter Appl. Edit CZZ"
6161
Error(AmountExceededErr, TempAdvanceLetterApplication.Amount);
6262
end;
6363
}
64+
field("Job No."; Rec."Job No.")
65+
{
66+
ApplicationArea = Basic, Suite;
67+
Visible = false;
68+
}
69+
field("Job Task No."; Rec."Job Task No.")
70+
{
71+
ApplicationArea = Basic, Suite;
72+
Visible = false;
73+
}
6474
}
6575
}
6676
area(FactBoxes)

‎Apps/CZ/AdvancePaymentsLocalization/app/Src/Pages/AdvanceLetterApplicationCZZ.Page.al

+10
Original file line numberDiff line numberDiff line change
@@ -35,6 +35,16 @@ page 31174 "Advance Letter Application CZZ"
3535
ToolTip = 'Specifies amount.';
3636
MinValue = 0;
3737
}
38+
field("Job No."; Rec."Job No.")
39+
{
40+
ApplicationArea = Basic, Suite;
41+
Visible = false;
42+
}
43+
field("Job Task No."; Rec."Job Task No.")
44+
{
45+
ApplicationArea = Basic, Suite;
46+
Visible = false;
47+
}
3848
}
3949
}
4050
area(FactBoxes)

0 commit comments

Comments
 (0)