{"id":4227,"date":"2022-01-24T09:41:00","date_gmt":"2022-01-24T09:41:00","guid":{"rendered":"https:\/\/erpconsultors.com\/?p=4227"},"modified":"2022-01-24T09:43:17","modified_gmt":"2022-01-24T09:43:17","slug":"tcs-register-report-development-and-format-in-bc","status":"publish","type":"post","link":"https:\/\/erpconsultors.com\/tcs-register-report-development-and-format-in-bc\/","title":{"rendered":"TCS Register Report Development and Format in BC D365"},"content":{"rendered":"\n

TCS Register Report Development and Format in BC:<\/h2>\n\n\n\n

(1) In this blog we will do the development of the TCS Register report in export to excel format.<\/p>\n\n\n\n

(2) For developing TCS Report: Use Dataitem: TCS Entry as shown.<\/p>\n\n\n\n

\"TCS<\/figure><\/div>\n\n\n\n
\"TCS<\/figure><\/div>\n\n\n\n

Header Part:<\/strong><\/p>\n\n\n\n

\"TCS<\/figure><\/div>\n\n\n\n

Body Part:<\/strong><\/p>\n\n\n\n

\"TCS<\/figure><\/div>\n\n\n\n

Excel creation Part:<\/strong><\/p>\n\n\n\n

\"TCS<\/figure><\/div>\n\n\n\n

Source Code:<\/strong><\/p>\n\n\n\n

report 50014 “TCS Register”
{
\u00a0\u00a0\u00a0 UsageCategory = Administration;
\u00a0\u00a0\u00a0 ApplicationArea = All;
\u00a0\u00a0\u00a0 ProcessingOnly = True;
\u00a0\u00a0\u00a0 dataset
\u00a0\u00a0\u00a0 {
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 dataitem(TCS_Entry; “TCS Entry”)
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 {
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 DataItemTableView = SORTING(“Document No.”);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 RequestFilterFields = “Posting Date”;
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 trigger OnAfterGetRecord()
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 begin
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 IF GetCustomer.GET(“Customer No.”) THEN;
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 MakeBody();
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0\u00a0end;
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 }
\u00a0
\u00a0\u00a0\u00a0 }
\u00a0\u00a0\u00a0 trigger OnPreReport()
\u00a0\u00a0\u00a0 begin
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.Reset();
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.DELETEALL();
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 MakeHeader; \/\/Create Header Part
\u00a0\u00a0\u00a0 end;
\u00a0
\u00a0\u00a0\u00a0 trigger OnPostReport()
\u00a0\u00a0\u00a0 begin
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 CreateExcelBook; \/\/ Create Excel Book
\u00a0\u00a0\u00a0 end;
\u00a0
\u00a0\u00a0\u00a0 var
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer: Record “Excel Buffer” temporary;
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 GetCustomer: Record Customer;
\u00a0
\u00a0
\u00a0\u00a0\u00a0 local procedure MakeHeader()
\u00a0\u00a0\u00a0 var
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 myInt: Integer;
\u00a0\u00a0\u00a0 begin
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.NewRow;
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(‘TCSNatureof Deduction TDSEntry’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(‘Posting Date’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(‘Document No.’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(‘Customer No.’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(‘Customer Name’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(‘Customer Address’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(‘Customer State’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(‘Customer PAN No.’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(‘TCS Base Amount’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(‘TCS %’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(‘TCS Amount’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(‘Invoice Amount’, FALSE, ”, TRUE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
\u00a0\u00a0\u00a0 end;
\u00a0
\u00a0\u00a0\u00a0 local procedure MakeBody()
\u00a0\u00a0\u00a0 var
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 myInt: Integer;
\u00a0\u00a0\u00a0 begin
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.NewRow;
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(TCS_Entry.”TCS Nature of Collection”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(TCS_Entry.”Posting Date”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Number);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(TCS_Entry.”Document No.”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(GetCustomer.”No.”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(GetCustomer.”Name”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(GetCustomer.”Address”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(GetCustomer.”State Code”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(TCS_Entry.”Customer P.A.N. No.”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Text);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(TCS_Entry.”TCS Base Amount”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Number);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(TCS_Entry.”TCS %”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Number);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(TCS_Entry.”TCS Amount”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Number);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.AddColumn(TCS_Entry.”Invoice Amount”, FALSE, ”, FALSE, FALSE, TRUE, ”, TempExcelBuffer.”Cell Type”::Number);
\u00a0\u00a0\u00a0 end;
\u00a0
\u00a0\u00a0\u00a0 Local procedure CreateExcelBook();
\u00a0\u00a0\u00a0 begin
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.CreateNewBook(‘TCSRegister’);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.WriteSheet(‘TCSRegister’, CompanyName, UserId);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.CloseBook();
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.SetFriendlyFilename(‘TCSRegister’);
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.OpenExcel();
\u00a0\u00a0\u00a0 end;
\u00a0
}<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n
\n\n\n\n
How to Create Vendor Master in D365 BC<\/span><\/a>
TDS Register Report Development and Format in BC D365<\/span><\/a>
How to Create or Setup Accounting Period in BC D365<\/span><\/a>
Purchase Received not Invoiced Report in BC D365<\/span><\/a>
Sales Shipped not Invoiced Report in BC D365<\/span><\/a>
Create a vendor account<\/span><\/a>\u2013 Microsoft Docs<\/td><\/tr><\/tbody><\/table><\/figure>\n","protected":false},"excerpt":{"rendered":"

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. Header Part: Body Part: Excel creation Part: Source Code: report 50014 “TCS Register”{\u00a0\u00a0\u00a0 UsageCategory = Administration;\u00a0\u00a0\u00a0 ApplicationArea = All;\u00a0\u00a0\u00a0 ProcessingOnly = True;\u00a0\u00a0\u00a0 dataset\u00a0\u00a0\u00a0 {\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 dataitem(TCS_Entry; “TCS Entry”)\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 {\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 DataItemTableView = SORTING(“Document No.”);\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 RequestFilterFields = “Posting Date”;\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 trigger OnAfterGetRecord()\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 begin\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 IF GetCustomer.GET(“Customer No.”) THEN;\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 MakeBody();\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0\u00a0end;\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 }\u00a0\u00a0\u00a0\u00a0 }\u00a0\u00a0\u00a0 trigger OnPreReport()\u00a0\u00a0\u00a0 begin\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.Reset();\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 TempExcelBuffer.DELETEALL();\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 MakeHeader; \/\/Create Header Part\u00a0\u00a0\u00a0 end;\u00a0\u00a0\u00a0\u00a0 trigger OnPostReport()\u00a0\u00a0\u00a0 begin\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 CreateExcelBook; \/\/ <\/p>\n","protected":false},"author":1,"featured_media":4232,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[1],"tags":[458,460,459,461,462],"jetpack_sharing_enabled":true,"jetpack_featured_media_url":"https:\/\/i0.wp.com\/erpconsultors.com\/wp-content\/uploads\/2022\/01\/TCS-Register-Report-Development-and-Format-in-BC-D365.jpg?fit=350%2C270&ssl=1","_links":{"self":[{"href":"https:\/\/erpconsultors.com\/wp-json\/wp\/v2\/posts\/4227"}],"collection":[{"href":"https:\/\/erpconsultors.com\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/erpconsultors.com\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/erpconsultors.com\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/erpconsultors.com\/wp-json\/wp\/v2\/comments?post=4227"}],"version-history":[{"count":0,"href":"https:\/\/erpconsultors.com\/wp-json\/wp\/v2\/posts\/4227\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/erpconsultors.com\/wp-json\/wp\/v2\/media\/4232"}],"wp:attachment":[{"href":"https:\/\/erpconsultors.com\/wp-json\/wp\/v2\/media?parent=4227"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/erpconsultors.com\/wp-json\/wp\/v2\/categories?post=4227"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/erpconsultors.com\/wp-json\/wp\/v2\/tags?post=4227"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}