Report 5705 Transfer Receipt, source in 29
Source29
src/Layers/W1/BaseApp/Inventory/Transfer/TransferReceipt.Report.al352 lines, Copyright (c) Microsoft Corporation. MIT
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Inventory.Transfer;
using Microsoft.Finance.Dimension;
using Microsoft.Foundation.Address;
using System.Utilities;
report 5705 "Transfer Receipt"
{
Caption = 'Transfer Receipt';
ToolTip = 'View the list of posted inbound transfers to the location.';
WordMergeDataItem = "Transfer Receipt Header";
DefaultRenderingLayout = RDLCLayout;
dataset
{
dataitem("Transfer Receipt Header"; "Transfer Receipt Header")
{
DataItemTableView = sorting("No.");
RequestFilterFields = "No.", "Transfer-from Code";
RequestFilterHeading = 'Posted Transfer Receipt';
column(No_TransRcptHdr; "No.")
{
}
dataitem(CopyLoop; "Integer")
{
DataItemTableView = sorting(Number);
dataitem(PageLoop; "Integer")
{
DataItemTableView = sorting(Number) where(Number = const(1));
column(CopyText; StrSubstNo(Text001, CopyText))
{
}
column(TransferToAddr1; TransferToAddr[1])
{
}
column(TransferToAddr2; TransferToAddr[2])
{
}
column(TransferToAddr3; TransferToAddr[3])
{
}
column(TransferToAddr4; TransferToAddr[4])
{
}
column(TransferToAddr5; TransferToAddr[5])
{
}
column(TransferToAddr6; TransferToAddr[6])
{
}
column(InTransitCode_TransRcptHdr; "Transfer Receipt Header"."In-Transit Code")
{
IncludeCaption = true;
}
column(PostingDate_TransRcptHdr; Format("Transfer Receipt Header"."Posting Date", 0, 4))
{
}
column(No2_TransRcptHdr; "Transfer Receipt Header"."No.")
{
}
column(TransferToAddr7; TransferToAddr[7])
{
}
column(TransferToAddr8; TransferToAddr[8])
{
}
column(RcptDate_TransRcptHdr; "Transfer Receipt Header"."Receipt Date")
{
IncludeCaption = true;
}
column(TransferFromAddr8; TransferFromAddr[8])
{
}
column(TransferFromAddr7; TransferFromAddr[7])
{
}
column(TransferFromAddr6; TransferFromAddr[6])
{
}
column(TransferFromAddr5; TransferFromAddr[5])
{
}
column(TransferFromAddr4; TransferFromAddr[4])
{
}
column(TransferFromAddr3; TransferFromAddr[3])
{
}
column(TransferFromAddr2; TransferFromAddr[2])
{
}
column(TransferFromAddr1; TransferFromAddr[1])
{
}
column(PageCaption; StrSubstNo(Text002, ''))
{
}
column(OutputNo; OutputNo)
{
}
column(TransRcptHdrNo2Caption; TransRcptHdrNo2CaptionLbl)
{
}
dataitem(DimensionLoop1; "Integer")
{
DataItemLinkReference = "Transfer Receipt Header";
DataItemTableView = sorting(Number) where(Number = filter(1 ..));
column(DimText; DimText)
{
}
column(DimensionLoop1Number; Number)
{
}
column(HdrDimCaption; HdrDimCaptionLbl)
{
}
trigger OnAfterGetRecord()
begin
if Number = 1 then begin
if not DimSetEntry1.FindSet() then
CurrReport.Break();
end else
if not Continue then
CurrReport.Break();
Clear(DimText);
Continue := false;
repeat
OldDimText := DimText;
if DimText = '' then
DimText := StrSubstNo('%1 - %2', DimSetEntry1."Dimension Code", DimSetEntry1."Dimension Value Code")
else
DimText :=
StrSubstNo(
'%1; %2 - %3', DimText,
DimSetEntry1."Dimension Code", DimSetEntry1."Dimension Value Code");
if StrLen(DimText) > MaxStrLen(OldDimText) then begin
DimText := OldDimText;
Continue := true;
exit;
end;
until DimSetEntry1.Next() = 0;
end;
trigger OnPreDataItem()
begin
if not ShowInternalInfo then
CurrReport.Break();
end;
}
dataitem("Transfer Receipt Line"; "Transfer Receipt Line")
{
DataItemLink = "Document No." = field("No.");
DataItemLinkReference = "Transfer Receipt Header";
DataItemTableView = sorting("Document No.", "Line No.");
column(ShowInternalInfo; ShowInternalInfo)
{
}
column(ItemNo_TransRcpLine; "Item No.")
{
IncludeCaption = true;
}
column(Desc_TransRcpLine; Description)
{
IncludeCaption = true;
}
column(Qty_TransRcpLine; Quantity)
{
IncludeCaption = true;
}
column(UOM_TransRcpLine; "Unit of Measure")
{
IncludeCaption = true;
}
column(LineNo_TransRcpLine; "Line No.")
{
}
dataitem(DimensionLoop2; "Integer")
{
DataItemTableView = sorting(Number) where(Number = filter(1 ..));
column(DimText2; DimText)
{
}
column(DimensionLoop2Number; Number)
{
}
column(LineDimCaption; LineDimCaptionLbl)
{
}
trigger OnAfterGetRecord()
begin
if Number = 1 then begin
if not DimSetEntry2.FindSet() then
CurrReport.Break();
end else
if not Continue then
CurrReport.Break();
Clear(DimText);
Continue := false;
repeat
OldDimText := DimText;
if DimText = '' then
DimText := StrSubstNo('%1 - %2', DimSetEntry2."Dimension Code", DimSetEntry2."Dimension Value Code")
else
DimText :=
StrSubstNo(
'%1; %2 - %3', DimText,
DimSetEntry2."Dimension Code", DimSetEntry2."Dimension Value Code");
if StrLen(DimText) > MaxStrLen(OldDimText) then begin
DimText := OldDimText;
Continue := true;
exit;
end;
until DimSetEntry2.Next() = 0;
end;
trigger OnPreDataItem()
begin
if not ShowInternalInfo then
CurrReport.Break();
end;
}
trigger OnAfterGetRecord()
begin
DimSetEntry2.SetRange("Dimension Set ID", "Dimension Set ID");
end;
trigger OnPreDataItem()
begin
MoreLines := Find('+');
while MoreLines and (Description = '') and ("Item No." = '') and (Quantity = 0) do
MoreLines := Next(-1) <> 0;
if not MoreLines then
CurrReport.Break();
SetFilter("Line No.", '<=%1', "Line No.");
end;
}
}
trigger OnAfterGetRecord()
begin
if Number > 1 then begin
CopyText := Text000;
OutputNo += 1;
end;
end;
trigger OnPreDataItem()
begin
NoOfLoops := 1 + Abs(NoOfCopies);
CopyText := '';
SetRange(Number, 1, NoOfLoops);
OutputNo := 1;
end;
}
trigger OnAfterGetRecord()
begin
DimSetEntry1.SetRange("Dimension Set ID", "Dimension Set ID");
FormatAddr.TransferRcptTransferFrom(TransferFromAddr, "Transfer Receipt Header");
FormatAddr.TransferRcptTransferTo(TransferToAddr, "Transfer Receipt Header");
end;
}
}
requestpage
{
SaveValues = true;
layout
{
area(content)
{
group(Options)
{
Caption = 'Options';
field(NoOfCopies; NoOfCopies)
{
ApplicationArea = Location;
Caption = 'No. of Copies';
ToolTip = 'Specifies how many copies of the document to print.';
}
field(ShowInternalInfo; ShowInternalInfo)
{
ApplicationArea = Dimensions;
Caption = 'Show Internal Information';
ToolTip = 'Specifies if you want all dimensions assigned to the line to be shown.';
}
}
}
}
actions
{
}
}
rendering
{
layout(RDLCLayout)
{
Type = RDLC;
LayoutFile = './Inventory/Transfer/TransferReceipt.rdlc';
Summary = 'Report layout made in the legacy RDLC format. Use an RDLC editor to modify the layout.';
}
}
labels
{
PostingDateCaption = 'Posting Date';
}
var
DimSetEntry1: Record "Dimension Set Entry";
DimSetEntry2: Record "Dimension Set Entry";
MoreLines: Boolean;
CopyText: Text[30];
DimText: Text[120];
OldDimText: Text[75];
Continue: Boolean;
#pragma warning disable AA0074
Text000: Label 'COPY';
#pragma warning disable AA0470
Text001: Label 'Transfer Receipt %1';
Text002: Label 'Page %1';
#pragma warning restore AA0470
#pragma warning restore AA0074
TransRcptHdrNo2CaptionLbl: Label 'Shipment No.';
HdrDimCaptionLbl: Label 'Header Dimensions';
LineDimCaptionLbl: Label 'Line Dimensions';
protected var
FormatAddr: Codeunit "Format Address";
TransferFromAddr: array[8] of Text[100];
TransferToAddr: array[8] of Text[100];
NoOfCopies: Integer;
NoOfLoops: Integer;
OutputNo: Integer;
ShowInternalInfo: Boolean;
}