report 60007 " Location Transfer Report"
{
ApplicationArea = All;
DefaultLayout = RDLC;
Caption = ' Location Transfer Report';
RDLCLayout = './ReportLayouts/LocationTransferReport.rdl';
UseRequestPage = true;
UsageCategory = ReportsAndAnalysis;
dataset
{
dataitem("Transfer Receipt Header"; "Transfer Receipt Header")
{
//RequestFilterFields = "Receipt Date";
// RequestFilterFields = "No";
column(FromDate; FromDate)
{
}
column(Todate; Todate)
{
}
column(Transfer_Order_Date; Format("Transfer Order Date", 0, 3))
{
}
column(Posting_Date; format("Posting Date", 0, 3))
{
}
column(Transfer_Order_No_; "Transfer Order No.")
{
}
column(No_TransferReceiptHeader; "No.")
{
}
column(NoSeries_TransferReceiptHeader; "No. Series")
{
}
column(ExternalDocumentNo_TransferReceiptHeader; "External Document No.")
{
}
column(ReceiptDate_TransferReceiptHeader; "Receipt Date")
{
}
column(TransferOrderDate_TransferReceiptHeader; "Transfer Order Date")
{
}
column(TransferOrderNo_TransferReceiptHeader; "Transfer Order No.")
{
}
column(Transfer_from_Code; "Transfer-from Code")
{
}
column(Transfer_to_Code; "Transfer-to Code")
{
}
column(Transfer_to_Post_Code; "Transfer-to Post Code")
{
}
dataitem("Transfer Receipt Line"; "Transfer Receipt Line")
{
DataItemLink = "Document No." = field("No.");
// DataItemTableView = sorting("Document No.");
DataItemTableView = sorting("Receipt Date");
column(Item_No_; "Item No.")
{
}
column(Item_Rcpt__Entry_No_; "Item Rcpt. Entry No.")
{
}
column(DocumentNo_TransferReceiptLine; "Document No.")
{
}
column(QtyperUnitofMeasure_TransferReceiptLine; "Qty. per Unit of Measure")
{
}
column(ReceiptDate_TransferReceiptLine; "Receipt Date")
{
}
column(TransferOrderNo_TransferReceiptLine; "Transfer Order No.")
{
}
column(JobNo_TransferReceiptLine; "Job No.")
{
}
column(Description; Description)
{
}
column(Quantity; Quantity)
{
}
column(LineAmount; LineAmount)
{
}
column(UnitPrice; UnitPrice)
{
}
trigger OnAfterGetRecord()
var
CalculateTotalCost: Decimal;
Rec_item: Record item;
begin
clear(Rec_item);
Rec_item.Reset();
Rec_item.SetRange("No.", "Transfer Receipt Line"."Item No.");
if
Rec_item.FindFirst() then begin
CalculateTotalCost := ("Transfer Receipt Line".Quantity * Rec_item * UnitPrice);
TotalCost: = CalculateTotalCost;
end;
end;
}
trigger OnPreDataItem()
begin
"Transfer Receipt Header".SetRange("Posting Date", FromDate, Todate);
end;
}
}
requestpage
{
layout
{
area(Content)
{
group("LTO Report Data")
{
field(FromDate; FromDate)
{
Caption = 'From Date';
ApplicationArea = All;
}
field(Todate; Todate)
{
Caption = 'To Date';
ApplicationArea = all;
}
}
}
}
}
var
myInt: Integer;
LineAmount: Decimal;
UnitPrice: Decimal;
FromDate: date;
Todate: date;
TotalCost: Decimal;
}
Share
Report
194
All responses (
Answers (
