TCS Register Report Development And Format In BC D365

TCS Register Report Development and Format in BC:

(1) In this blog we will do the development of the TCS Register report in export to excel format.

(2) For developing TCS Report: Use Dataitem: TCS Entry as shown.

TCS Register Report Development dataitem

TCS Register Report Development dataitem code

Header Part:

Body Part:

Excel creation Part:

Source Code:

report 50014 “TCS Register”
{
    UsageCategory = Administration;
    ApplicationArea = All;
    ProcessingOnly = True;
    dataset
    {
        dataitem(TCS_Entry; “TCS Entry”)
        {
            DataItemTableView = SORTING(“Document No.”);
            RequestFilterFields = “Posting Date”;
            trigger OnAfterGetRecord()
            begin
                IF GetCustomer.GET(“Customer No.”) THEN;
                MakeBody();
            end;
        }

    }
    trigger OnPreReport()
    begin
        TempExcelBuffer.Reset();
        TempExcelBuffer.DELETEALL();
        MakeHeader; //Create Header Part
    end;

    trigger OnPostReport()
    begin
        CreateExcelBook; // Create Excel Book
    end;

    var
        TempExcelBuffer: Record “Excel Buffer” temporary;
        GetCustomer: Record Customer;

    local procedure MakeHeader()
    var
        myInt: Integer;
    begin
        TempExcelBuffer.NewRow;
        TempExcelBuffer.AddColumn(‘TCSNatureof Deduction TDSEntry’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
        TempExcelBuffer.AddColumn(‘Posting Date’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
        TempExcelBuffer.AddColumn(‘Document No.’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
        TempExcelBuffer.AddColumn(‘Customer No.’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
        TempExcelBuffer.AddColumn(‘Customer Name’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
        TempExcelBuffer.AddColumn(‘Customer Address’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
        TempExcelBuffer.AddColumn(‘Customer State’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
        TempExcelBuffer.AddColumn(‘Customer PAN No.’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
        TempExcelBuffer.AddColumn(‘TCS Base Amount’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
        TempExcelBuffer.AddColumn(‘TCS %’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
        TempExcelBuffer.AddColumn(‘TCS Amount’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
        TempExcelBuffer.AddColumn(‘Invoice Amount’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
    end;

    local procedure MakeBody()
    var
        myInt: Integer;
    begin
        TempExcelBuffer.NewRow;
        TempExcelBuffer.AddColumn(TCS_Entry.”TCS Nature of Collection”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
        TempExcelBuffer.AddColumn(TCS_Entry.”Posting Date”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Number);
        TempExcelBuffer.AddColumn(TCS_Entry.”Document No.”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
        TempExcelBuffer.AddColumn(GetCustomer.”No.”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
        TempExcelBuffer.AddColumn(GetCustomer.”Name”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
        TempExcelBuffer.AddColumn(GetCustomer.”Address”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
        TempExcelBuffer.AddColumn(GetCustomer.”State Code”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
        TempExcelBuffer.AddColumn(TCS_Entry.”Customer P.A.N. No.”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
        TempExcelBuffer.AddColumn(TCS_Entry.”TCS Base Amount”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Number);
        TempExcelBuffer.AddColumn(TCS_Entry.”TCS %”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Number);
        TempExcelBuffer.AddColumn(TCS_Entry.”TCS Amount”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Number);
        TempExcelBuffer.AddColumn(TCS_Entry.”Invoice Amount”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Number);
    end;

    Local procedure CreateExcelBook();
    begin
        TempExcelBuffer.CreateNewBook(‘TCSRegister’);
        TempExcelBuffer.WriteSheet(‘TCSRegister’, CompanyName, UserId);
        TempExcelBuffer.CloseBook();
        TempExcelBuffer.SetFriendlyFilename(‘TCSRegister’);
        TempExcelBuffer.OpenExcel();
    end;

}

How to Create Vendor Master in D365 BC
TDS Register Report Development and Format in BC D365
How to Create or Setup Accounting Period in BC D365
Purchase Received not Invoiced Report in BC D365
Sales Shipped not Invoiced Report in BC D365
Create a vendor account– Microsoft Docs