Report 305 Vendor - Summary Aging, source in 29
Source29
src/Layers/W1/BaseApp/Purchases/Reports/VendorSummaryAging.Report.al414 lines, Copyright (c) Microsoft Corporation. MIT
#if not CLEAN28
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Purchases.Reports;
using Microsoft.Finance.Currency;
using Microsoft.Purchases.Payables;
using Microsoft.Purchases.Vendor;
using Microsoft.Utilities;
using System.Utilities;
report 305 "Vendor - Summary Aging"
{
ApplicationArea = Basic, Suite;
Caption = 'Vendor - Summary Aging (Obsolete)';
UsageCategory = ReportsAndAnalysis;
DataAccessIntent = ReadOnly;
ObsoleteState = Pending;
ObsoleteReason = 'This report is obsolete and will be removed in a future release. See the documentation for alternative options.';
ObsoleteTag = '28.0';
DefaultRenderingLayout = RDLCLayout;
dataset
{
dataitem(Vendor; Vendor)
{
DataItemTableView = sorting("No.");
RequestFilterFields = "No.", "Search Name", "Vendor Posting Group", "Currency Filter";
column(COMPANYNAME; COMPANYPROPERTY.DisplayName())
{
}
column(PrintAmountsInLCY; PrintAmountsInLCYReq)
{
}
column(Vendor_TABLECAPTION__________VendFilter; TableCaption + ': ' + VendFilter)
{
}
column(VendFilter; VendFilter)
{
}
column(PeriodStartDate_2_; Format(PeriodStartDate[2]))
{
}
column(PeriodStartDate_3_; Format(PeriodStartDate[3]))
{
}
column(PeriodStartDate_4_; Format(PeriodStartDate[4]))
{
}
column(PeriodStartDate_3____1; Format(PeriodStartDate[3] - 1))
{
}
column(PeriodStartDate_4____1; Format(PeriodStartDate[4] - 1))
{
}
column(PeriodStartDate_5____1; Format(PeriodStartDate[5] - 1))
{
}
column(PrintLine; PrintLine)
{
}
column(VendBalanceDueLCY_1_; VendBalanceDueLCY[1])
{
AutoFormatType = 1;
}
column(VendBalanceDueLCY_2_; VendBalanceDueLCY[2])
{
AutoFormatType = 1;
}
column(VendBalanceDueLCY_3_; VendBalanceDueLCY[3])
{
AutoFormatType = 1;
}
column(VendBalanceDueLCY_4_; VendBalanceDueLCY[4])
{
AutoFormatType = 1;
}
column(VendBalanceDueLCY_5_; VendBalanceDueLCY[5])
{
AutoFormatType = 1;
}
column(TotalVendAmtDueLCY; TotalVendAmtDueLCY)
{
AutoFormatType = 1;
}
column(LineTotalVendAmountDue; LineTotalVendAmountDue)
{
AutoFormatType = 1;
}
column(VendBalanceDue_5_; VendBalanceDue[5])
{
AutoFormatType = 1;
}
column(VendBalanceDue_4_; VendBalanceDue[4])
{
AutoFormatType = 1;
}
column(VendBalanceDue_3_; VendBalanceDue[3])
{
AutoFormatType = 1;
}
column(VendBalanceDue_2_; VendBalanceDue[2])
{
AutoFormatType = 1;
}
column(VendBalanceDue_1_; VendBalanceDue[1])
{
AutoFormatType = 1;
}
column(Vendor_Name; Name)
{
}
column(Vendor__No__; "No.")
{
}
column(InVendBalanceDueLCY_1; InVendBalanceDueLCY[1])
{
AutoFormatType = 1;
}
column(InVendBalanceDueLCY_2; InVendBalanceDueLCY[2])
{
AutoFormatType = 1;
}
column(InVendBalanceDueLCY_3; InVendBalanceDueLCY[3])
{
AutoFormatType = 1;
}
column(InVendBalanceDueLCY_4; InVendBalanceDueLCY[4])
{
AutoFormatType = 1;
}
column(InVendBalanceDueLCY_5; InVendBalanceDueLCY[5])
{
AutoFormatType = 1;
}
column(Vendor___Summary_AgingCaption; Vendor___Summary_AgingCaptionLbl)
{
}
column(CurrReport_PAGENOCaption; CurrReport_PAGENOCaptionLbl)
{
}
column(All_amounts_are_in_LCYCaption; All_amounts_are_in_LCYCaptionLbl)
{
}
column(Balance_DueCaption; Balance_DueCaptionLbl)
{
}
column(Vendor__No___Control29Caption; FieldCaption("No."))
{
}
column(Vendor_Name_Control30Caption; FieldCaption(Name))
{
}
column(VendBalanceDue_1__Control31Caption; VendBalanceDue_1__Control31CaptionLbl)
{
}
column(VendBalanceDue_5__Control35Caption; VendBalanceDue_5__Control35CaptionLbl)
{
}
column(LineTotalVendAmountDue_Control36Caption; LineTotalVendAmountDue_Control36CaptionLbl)
{
}
column(Total__LCY_Caption; Total__LCY_CaptionLbl)
{
}
dataitem("Integer"; "Integer")
{
DataItemTableView = sorting(Number) where(Number = filter(1 ..));
column(Currency2_Code; TempCurrency.Code)
{
}
column(LineTotalVendAmountDue_Control36; LineTotalVendAmountDue)
{
AutoFormatExpression = TempCurrency.Code;
AutoFormatType = 1;
}
column(VendBalanceDue_5__Control35; VendBalanceDue[5])
{
AutoFormatExpression = TempCurrency.Code;
AutoFormatType = 1;
}
column(VendBalanceDue_4__Control34; VendBalanceDue[4])
{
AutoFormatExpression = TempCurrency.Code;
AutoFormatType = 1;
}
column(VendBalanceDue_3__Control33; VendBalanceDue[3])
{
AutoFormatExpression = TempCurrency.Code;
AutoFormatType = 1;
}
column(VendBalanceDue_2__Control32; VendBalanceDue[2])
{
AutoFormatExpression = TempCurrency.Code;
AutoFormatType = 1;
}
column(VendBalanceDue_1__Control31; VendBalanceDue[1])
{
AutoFormatExpression = TempCurrency.Code;
AutoFormatType = 1;
}
column(Vendor_Name_Control30; Vendor.Name)
{
}
column(Vendor__No___Control29; Vendor."No.")
{
}
trigger OnAfterGetRecord()
var
DtldVendLedgEntry: Record "Detailed Vendor Ledg. Entry";
begin
if Number = 1 then
TempCurrency.Find('-')
else
if TempCurrency.Next() = 0 then
CurrReport.Break();
TempCurrency.CalcFields("Vendor Ledg. Entries in Filter");
if not TempCurrency."Vendor Ledg. Entries in Filter" then
CurrReport.Skip();
PrintLine := false;
LineTotalVendAmountDue := 0;
OnAfterGetRecordIntegerOnBeforeFillColumns(Vendor, DtldVendLedgEntry);
for i := 1 to 5 do begin
DtldVendLedgEntry.SetCurrentKey("Vendor No.", "Initial Entry Due Date");
DtldVendLedgEntry.SetRange("Vendor No.", Vendor."No.");
DtldVendLedgEntry.SetRange("Initial Entry Due Date", PeriodStartDate[i], PeriodStartDate[i + 1] - 1);
DtldVendLedgEntry.SetRange("Currency Code", TempCurrency.Code);
DtldVendLedgEntry.CalcSums(Amount);
VendBalanceDue[i] := DtldVendLedgEntry.Amount;
InVendBalanceDueLCY[i] := InVendBalanceDueLCY2[i];
if VendBalanceDue[i] <> 0 then
PrintLine := true;
LineTotalVendAmountDue := LineTotalVendAmountDue + VendBalanceDue[i];
end;
end;
trigger OnPreDataItem()
begin
if PrintAmountsInLCYReq or not PrintLine then
CurrReport.Break();
TempCurrency.Reset();
TempCurrency.SetRange("Vendor Filter", Vendor."No.");
Vendor.CopyFilter("Currency Filter", TempCurrency.Code);
if (Vendor.GetFilter("Global Dimension 1 Filter") <> '') or
(Vendor.GetFilter("Global Dimension 2 Filter") <> '')
then begin
Vendor.CopyFilter("Global Dimension 1 Filter", TempCurrency."Global Dimension 1 Filter");
Vendor.CopyFilter("Global Dimension 2 Filter", TempCurrency."Global Dimension 2 Filter");
end;
end;
}
trigger OnAfterGetRecord()
var
DtldVendLedgEntry: Record "Detailed Vendor Ledg. Entry";
begin
Clear(VendBalanceDueLCY);
TotalVendAmtDueLCY := 0;
PrintLine := false;
LineTotalVendAmountDue := 0;
CopyFilter("Currency Filter", DtldVendLedgEntry."Currency Code");
OnAfterGetRecordVendorOnBeforeFillColumns(Vendor, DtldVendLedgEntry);
for i := 1 to 5 do begin
DtldVendLedgEntry.SetCurrentKey("Vendor No.", "Initial Entry Due Date");
DtldVendLedgEntry.SetRange("Vendor No.", "No.");
DtldVendLedgEntry.SetRange("Initial Entry Due Date", PeriodStartDate[i], PeriodStartDate[i + 1] - 1);
DtldVendLedgEntry.CalcSums("Amount (LCY)");
VendBalanceDue[i] := DtldVendLedgEntry."Amount (LCY)";
VendBalanceDueLCY[i] := DtldVendLedgEntry."Amount (LCY)";
if PrintAmountsInLCYReq then
InVendBalanceDueLCY[i] += DtldVendLedgEntry."Amount (LCY)"
else
InVendBalanceDueLCY2[i] += DtldVendLedgEntry."Amount (LCY)";
if VendBalanceDue[i] <> 0 then
PrintLine := true;
LineTotalVendAmountDue := LineTotalVendAmountDue + VendBalanceDueLCY[i];
TotalVendAmtDueLCY := TotalVendAmtDueLCY + VendBalanceDueLCY[i];
end;
end;
trigger OnPreDataItem()
begin
TempCurrency.Code := '';
TempCurrency.Insert();
if Currency.Find('-') then
repeat
TempCurrency := Currency;
TempCurrency.Insert();
until Currency.Next() = 0;
end;
}
}
requestpage
{
AboutTitle = 'About Vendor - Summary Aging (Obsolete)';
AboutText = 'This is a legacy report for aged accounts payable.** This report is obsolete and will be removed in a future release.** Please refer to the report documentation for alternative ways to retrieve this information.';
SaveValues = true;
layout
{
area(content)
{
group(Options)
{
Caption = 'Options';
field("PeriodStartDate[2]"; PeriodStartDate[2])
{
ApplicationArea = Basic, Suite;
Caption = 'Starting Date';
NotBlank = true;
ToolTip = 'Specifies the beginning of the period covered by the report that lists payables owed to each vendor.';
}
field(PeriodLength; PeriodLengthReq)
{
ApplicationArea = Basic, Suite;
Caption = 'Period Length';
ToolTip = 'Specifies the length of each of the three periods. For example, enter "1M" for one month.';
}
field(PrintAmountsInLCY; PrintAmountsInLCYReq)
{
ApplicationArea = Basic, Suite;
Caption = 'Show Amounts in LCY';
ToolTip = 'Specifies if amounts in the report are displayed in LCY. If you leave the check box blank, amounts are shown in foreign currencies.';
}
}
}
}
actions
{
}
trigger OnOpenPage()
begin
if PeriodStartDate[2] = 0D then
PeriodStartDate[2] := WorkDate();
if Format(PeriodLengthReq) = '' then
Evaluate(PeriodLengthReq, '<1M>');
end;
}
rendering
{
layout(RDLCLayout)
{
Type = RDLC;
LayoutFile = './Purchases/Reports/VendorSummaryAging.rdlc';
Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.';
}
}
labels
{
}
trigger OnPreReport()
var
FormatDocument: Codeunit "Format Document";
begin
VendFilter := FormatDocument.GetRecordFiltersWithCaptions(Vendor);
for i := 3 to 5 do
PeriodStartDate[i] := CalcDate(PeriodLengthReq, PeriodStartDate[i - 1]);
PeriodStartDate[6] := DMY2Date(31, 12, 9999);
end;
var
Currency: Record Currency;
TempCurrency: Record Currency temporary;
PeriodLengthReq: DateFormula;
PrintAmountsInLCYReq: Boolean;
VendFilter: Text;
PeriodStartDate: array[6] of Date;
LineTotalVendAmountDue: Decimal;
TotalVendAmtDueLCY: Decimal;
VendBalanceDue: array[5] of Decimal;
VendBalanceDueLCY: array[5] of Decimal;
PrintLine: Boolean;
i: Integer;
InVendBalanceDueLCY: array[5] of Decimal;
InVendBalanceDueLCY2: array[5] of Decimal;
Vendor___Summary_AgingCaptionLbl: Label 'Vendor - Summary Aging';
CurrReport_PAGENOCaptionLbl: Label 'Page';
All_amounts_are_in_LCYCaptionLbl: Label 'All amounts are in LCY.';
Balance_DueCaptionLbl: Label 'Balance Due';
VendBalanceDue_1__Control31CaptionLbl: Label '...Before';
VendBalanceDue_5__Control35CaptionLbl: Label 'After...';
LineTotalVendAmountDue_Control36CaptionLbl: Label 'Balance';
Total__LCY_CaptionLbl: Label 'Total (LCY)';
procedure InitializeRequest(NewPeriodStartDate: Date; NewPeriodLength: Text[10]; NewPrintAmountsInLCY: Boolean)
begin
PeriodStartDate[2] := NewPeriodStartDate;
Evaluate(PeriodLengthReq, NewPeriodLength);
PrintAmountsInLCYReq := NewPrintAmountsInLCY;
end;
[IntegrationEvent(false, false)]
procedure OnAfterGetRecordIntegerOnBeforeFillColumns(var Vendor: Record Vendor; var DetailedVendorLedgEntry: Record "Detailed Vendor Ledg. Entry")
begin
end;
[IntegrationEvent(false, false)]
procedure OnAfterGetRecordVendorOnBeforeFillColumns(var Vendor: Record Vendor; var DetailedVendorLedgEntry: Record "Detailed Vendor Ledg. Entry")
begin
end;
}
#endif