Dynamics Community Forum Thread Details

Tracking of Stock Transfer

Dear Experts,

i made the report like this (attached) brought some details regarding the stock Transfer. is there any possibility to modify the code and bring some of my above requirements into this. (Req 2,3,4).

Posted Transfer Rcpt and Posted Transfer Shipment data only i used in the code. i think transfer order table also need to include

I need coding experts help on this .

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";
            //RequestFilterFields = "Transfer Order No.";
            //DataItemTableView = sorting("Transfer Order Date");

            column(FromDate;
            FromDate)
            {

            }
            column(Todate; Todate)
            {

            }


            column(Transfer_Order_Date; Format("Transfer Order Date", 0, 1))
            {

            }
            column(Posting_Date; format("Posting Date", 0, 1))
            {

            }

            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") order(ascending);



                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(Description; Description)
                {

                }
                column(Quantity; Quantity)
                {

                }
                column(LineAmount; LineAmount)
                {
                }
                column(UnitPrice; UnitPrice)
                {

                }
                column(UnitCost; UnitCost)
                {

                }
                column(JobNo_TransferReceiptLine; "Job No.")
                {
                }
                column(TotalCost; TotalCost)
                { }
                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.Get("Item No.") then begin
                        UnitCost := Rec_item."Unit Cost";
                        CalculateTotalCost := (Quantity * Rec_item."Unit Cost");
                        TotalCost := CalculateTotalCost;
                        // Price := UnitCost;
                    end;

                end;

            }

            trigger OnPreDataItem()
            begin
                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;
        UnitCost: Decimal;
        Price: Decimal;


}

Right now am getting the data like this....if LTO number is there and corresponding NO Recpt number is there , then the column comes as blank also satisfy my parital req