Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
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
2 changes: 1 addition & 1 deletion .github/AL-Go-Settings.json
Original file line number Diff line number Diff line change
Expand Up @@ -6,7 +6,7 @@
"runs-on": "windows-latest",
"cacheImageName": "",
"UsePsSession": false,
"artifact": "https://bcinsider-fvh2ekdjecfjd6gk.b02.azurefd.net/sandbox/29.0.47162.0/base",
"artifact": "https://bcinsider-fvh2ekdjecfjd6gk.b02.azurefd.net/sandbox/29.0.48074.0/base",
"country": "base",
"useProjectDependencies": true,
"repoVersion": "29.0",
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -953,10 +953,16 @@ codeunit 31019 "PurchAdvLetterManagement CZZ"
OriginalDocumentVATDate: Date;
DocumentDate: Date;
PostingDate: Date;
IsHandled: Boolean;
begin
PurchAdvLetterEntryCZZ.TestField("Entry Type", PurchAdvLetterEntryCZZ."Entry Type"::"VAT Payment");
PurchAdvLetterEntryCZZ.TestField(Cancelled, false);

IsHandled := false;
OnBeforePostAdvanceCreditMemoVAT(PurchAdvLetterEntryCZZ, IsHandled);
if IsHandled then
exit;

PurchAdvLetterHeaderCZZ.Get(PurchAdvLetterEntryCZZ."Purch. Adv. Letter No.");
AdvanceLetterTemplateCZZ.Get(PurchAdvLetterHeaderCZZ."Advance Letter Code");

Expand Down Expand Up @@ -1348,6 +1354,11 @@ codeunit 31019 "PurchAdvLetterManagement CZZ"
begin
end;

[IntegrationEvent(false, false)]
local procedure OnBeforePostAdvanceCreditMemoVAT(var PurchAdvLetterEntryCZZ: Record "Purch. Adv. Letter Entry CZZ"; var IsHandled: Boolean)
begin
end;




Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -955,10 +955,16 @@ codeunit 31002 "SalesAdvLetterManagement CZZ"
PostingDate: Date;
CurrencyFactor: Decimal;
AddCurrencyFactor: Decimal;
IsHandled: Boolean;
begin
SalesAdvLetterEntryCZZ.TestField("Entry Type", SalesAdvLetterEntryCZZ."Entry Type"::"VAT Payment");
SalesAdvLetterEntryCZZ.TestField(Cancelled, false);

IsHandled := false;
OnBeforePostAdvanceCreditMemoVAT(SalesAdvLetterEntryCZZ, IsHandled);
if IsHandled then
exit;

AdvPaymentCloseDialog.SetValues(SalesAdvLetterEntryCZZ."Posting Date", SalesAdvLetterEntryCZZ."VAT Date", SalesAdvLetterEntryCZZ."Currency Code", SalesAdvLetterEntryCZZ."Currency Factor", '', false);
if AdvPaymentCloseDialog.RunModal() = Action::OK then begin
AdvPaymentCloseDialog.GetValues(PostingDate, VATDate, CurrencyFactor, AddCurrencyFactor);
Expand Down Expand Up @@ -1329,6 +1335,11 @@ codeunit 31002 "SalesAdvLetterManagement CZZ"
begin
end;

[IntegrationEvent(false, false)]
local procedure OnBeforePostAdvanceCreditMemoVAT(var SalesAdvLetterEntryCZZ: Record "Sales Adv. Letter Entry CZZ"; var IsHandled: Boolean)
begin
end;




Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -23,6 +23,7 @@ codeunit 31446 "Calculate Invent. Handler CZA"
begin
ItemsWithoutChange := ItemsWithoutChangeCZA;
UseItemDimensions := UseItemDimensionsCZA;
IsItemWithoutChange := false;
end;

[EventSubscriber(ObjectType::Report, Report::"Calculate Inventory", 'OnAfterItemOnPreDataItem', '', false, false)]
Expand Down
Loading
Loading