Skip to content

Commit

Permalink
Statistical Accounts (#23955)
Browse files Browse the repository at this point in the history
- Correction for apply totaling dimensions filters:
The cell value calculation does not apply the totaling dimensions
filters, however the drilldown shows the entries with the totaling
dimensions filters.
- Allow to reverse entries with HideDialog option
  • Loading branch information
gleonsummar authored Aug 9, 2023
1 parent 5cd451a commit cd0e7e9
Show file tree
Hide file tree
Showing 2 changed files with 8 additions and 4 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -93,12 +93,13 @@ codeunit 2622 "Stat. Acc. Fin Reporting Mgt"
if ColumnLayout."Column Type" = ColumnLayout."Column Type"::Formula then
exit(ColValue);

AccSchedLine.CopyFilters(SourceAccScheduleLine);
if AccSchedName."Analysis View Name" = '' then begin
SetStatisticalAccountsLedgerEntryFilters(StatisticalAccount, StatisticalLedgerEntry, SourceAccScheduleLine, ColumnLayout, sender);
SetStatisticalAccountsLedgerEntryFilters(StatisticalAccount, StatisticalLedgerEntry, AccSchedLine, ColumnLayout, sender);
StatisticalLedgerEntry.CalcSums(Amount);
ColValue := StatisticalLedgerEntry.Amount;
end else begin
SetStatisticalAccountAnalysisViewEntryFilters(StatisticalAccount, AnalysisViewEntry, SourceAccScheduleLine, ColumnLayout, AccSchedName);
SetStatisticalAccountAnalysisViewEntryFilters(StatisticalAccount, AnalysisViewEntry, AccSchedLine, ColumnLayout, AccSchedName);
AnalysisViewEntry.CalcSums(Amount);
ColValue := AnalysisViewEntry.Amount;
end;
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -16,8 +16,11 @@ codeunit 2630 "Stat. Acc. Reverse Entry"

InsertReversalEntry(Number, TempReversalEntry, RevType);
TempReversalEntry.SetCurrentKey("Document No.", "Posting Date", "Entry Type", "Entry No.");
StatAccReverseEntries.SetReversalEntries(TempReversalEntry);
StatAccReverseEntries.RunModal();
if not HideDialog then begin
StatAccReverseEntries.SetReversalEntries(TempReversalEntry);
StatAccReverseEntries.RunModal();
end else
PostReversal(TempReversalEntry);
end;

internal procedure PostReversal(ReversalEntry: Record "Reversal Entry")
Expand Down

0 comments on commit cd0e7e9

Please sign in to comment.