Dear all,
In My sales Invoice, there are columns of service tax, VAT,
but in Invoice it is not displaying VAT and Service Tax
while in Total amount it is showing the impact of VAT and Service Tax.
e.g.
TOTAL ---------- 40000
VAT -------------------- 0.00
S. TAX-----------------0.00
GRAND TOTAL ----- 4050
Why the Vat and Service tax is not displaying in report and showing the impact in Grand total ?
Export the object as text. Paste the code.
OBJECT Report 206 Sales - Invoice
{
OBJECT-PROPERTIES
{
Date=03/12/08;
Time=12:07:14 PM;
Modified=Yes;
Version List=NAVW14.00.03,NAVIN4.00.02;
}
PROPERTIES
{
Permissions=TableData 7190=rimd;
CaptionML=ENU=Sales - Invoice;
OnInitReport=BEGIN
GLSetup.GET;
CompanyInfo.GET;
SalesSetup.GET;
CASE SalesSetup.“Logo Position on Documents” OF
SalesSetup.“Logo Position on Documents”::“No Logo”:;
SalesSetup.“Logo Position on Documents”::Left:
BEGIN
CompanyInfo.CALCFIELDS(Picture);
END;
SalesSetup.“Logo Position on Documents”::Center:
BEGIN
CompanyInfo1.GET;
CompanyInfo1.CALCFIELDS(Picture);
END;
SalesSetup.“Logo Position on Documents”::Right:
BEGIN
CompanyInfo2.GET;
CompanyInfo2.CALCFIELDS(Picture);
END;
END;
END;
OnPreReport=BEGIN
IF NOT CurrReport.USEREQUESTFORM THEN
InitLogInteraction;
END;
HorzGrid=210;
}
DATAITEMS
{
{ PROPERTIES
{
DataItemTable=Table112;
DataItemTableView=SORTING(No.);
NewPagePerRecord=Yes;
ReqFilterHeadingML=ENU=Posted Sales Invoice;
OnAfterGetRecord=BEGIN
CurrReport.LANGUAGE := Language.GetLanguageID(“Language Code”);
IF RespCenter.GET(“Responsibility Center”) THEN BEGIN
FormatAddr.RespCenter(CompanyAddr,RespCenter);
CompanyInfo.“Phone No.” := RespCenter.“Phone No.”;
CompanyInfo.“Fax No.” := RespCenter.“Fax No.”;
END ELSE BEGIN
FormatAddr.Company(CompanyAddr,CompanyInfo);
END;
PostedDocDim1.SETRANGE(“Table ID”,DATABASE::“Sales Invoice Header”);
PostedDocDim1.SETRANGE(“Document No.”,“Sales Invoice Header”.“No.”);
IF “Order No.” = ‘’ THEN
OrderNoText := ‘’
ELSE
OrderNoText := FIELDCAPTION(“Order No.”);
IF “Salesperson Code” = ‘’ THEN BEGIN
SalesPurchPerson.INIT;
SalesPersonText := ‘’;
END ELSE BEGIN
SalesPurchPerson.GET(“Salesperson Code”);
SalesPersonText := Text000;
END;
IF “Your Reference” = ‘’ THEN
ReferenceText := ‘’
ELSE
ReferenceText := FIELDCAPTION(“Your Reference”);
IF “VAT Registration No.” = ‘’ THEN
VATNoText := ‘’
ELSE
VATNoText := FIELDCAPTION(“VAT Registration No.”);
IF “Currency Code” = ‘’ THEN BEGIN
GLSetup.TESTFIELD(“LCY Code”);
TotalText := STRSUBSTNO(Text001,GLSetup.“LCY Code”);
TotalInclVATText := STRSUBSTNO(Text13700,GLSetup.“LCY Code”);
TotalExclVATText := STRSUBSTNO(Text13701,GLSetup.“LCY Code”);
END ELSE BEGIN
TotalText := STRSUBSTNO(Text001,“Currency Code”);
TotalInclVATText := STRSUBSTNO(Text13700,“Currency Code”);
TotalExclVATText := STRSUBSTNO(Text13701,“Currency Code”);
END;
FormatAddr.SalesInvBillTo(CustAddr,“Sales Invoice Header”);
IF NOT Cust.GET(“Bill-to Customer No.”) THEN
CLEAR(Cust);
IF “Payment Terms Code” = ‘’ THEN
PaymentTerms.INIT
ELSE
PaymentTerms.GET(“Payment Terms Code”);
IF “Shipment Method Code” = ‘’ THEN
ShipmentMethod.INIT
ELSE
ShipmentMethod.GET(“Shipment Method Code”);
FormatAddr.SalesInvShipTo(ShipToAddr,“Sales Invoice Header”);
ShowShippingAddr := “Sell-to Customer No.” <> “Bill-to Customer No.”;
FOR i := 1 TO ARRAYLEN(ShipToAddr) DO
IF ShipToAddr[i] <> CustAddr[i] THEN
ShowShippingAddr := TRUE;
IF LogInteraction THEN
IF NOT CurrReport.PREVIEW THEN BEGIN
IF “Bill-to Contact No.” <> ‘’ THEN
SegManagement.LogDocument(
4,“No.”,0,0,DATABASE::Contact,“Bill-to Contact No.”,“Salesperson Code”,
“Campaign No.”,“Posting Description”,’’)
ELSE
SegManagement.LogDocument(
4,“No.”,0,0,DATABASE::Customer,“Bill-to Customer No.”,“Salesperson Code”,
“Campaign No.”,“Posting Description”,’’);
END;
END;
ReqFilterFields=No.,Sell-to Customer No.,No. Printed;
}
SECTIONS
{
}
}
{ PROPERTIES
{
DataItemIndent=1;
DataItemTable=Table2000000026;
DataItemTableView=SORTING(Number);
NewPagePerRecord=Yes;
DataItemVarName=CopyLoop;
OnPreDataItem=BEGIN
NoOfLoops := ABS(NoOfCopies) + Cust.“Invoice Copies” + 1;
IF NoOfLoops <= 0 THEN
NoOfLoops := 1;
CopyText := ‘’;
SETRANGE(Number,1,NoOfLoops);
END;
OnAfterGetRecord=BEGIN
IF Number > 1 THEN
CopyText := Text003;
CurrReport.PAGENO := 1;
END;
OnPostDataItem=BEGIN
IF NOT CurrReport.PREVIEW THEN
SalesInvCountPrinted.RUN(“Sales Invoice Header”);
END;
}
SECTIONS
{
}
}
{ PROPERTIES
{
DataItemIndent=2;
DataItemTable=Table2000000026;
DataItemTableView=SORTING(Number)
WHERE(Number=CONST(1));
DataItemVarName=PageLoop;
}
SECTIONS
{
{ PROPERTIES
{
SectionType=Header;
PrintOnEveryPage=Yes;
SectionWidth=40210;
SectionHeight=8460;
}
CONTROLS
{
{ 149 ;PictureBox ;10920;1269 ;4200 ;1269 ;BackTransparent=No;
SourceExpr=CompanyInfo2.Picture }
{ 148 ;PictureBox ;5460 ;0 ;6160 ;1269 ;SourceExpr=CompanyInfo1.Picture }
{ 147 ;PictureBox ;0 ;0 ;6160 ;1269 ;SourceExpr=CompanyInfo.Picture }
{ 1 ;TextBox ;6510 ;846 ;4410 ;846 ;FontSize=14;
FontBold=Yes;
FontUnderline=Yes;
SourceExpr=Text004 }
{ 2 ;TextBox ;15540;0 ;1890 ;423 ;FontSize=9;
SourceExpr=STRSUBSTNO(Text005,FORMAT(CurrReport.PAGENO)) }
{ 4 ;TextBox ;0 ;4230 ;6300 ;423 ;FontSize=9;
SourceExpr=CustAddr[1] }
{ 5 ;TextBox ;11130;3807 ;6300 ;423 ;FontSize=9;
FontBold=Yes;
SourceExpr=CompanyAddr[1] }
{ 6 ;TextBox ;0 ;4653 ;6300 ;423 ;FontSize=9;
SourceExpr=CustAddr[2] }
{ 7 ;TextBox ;11130;4230 ;6300 ;423 ;FontSize=9;
SourceExpr=CompanyAddr[2] }
{ 8 ;TextBox ;0 ;5076 ;6300 ;423 ;FontSize=9;
SourceExpr=CustAddr[3] }
{ 9 ;TextBox ;11130;4653 ;6300 ;423 ;FontSize=9;
SourceExpr=CompanyAddr[3] }
{ 10 ;TextBox ;0 ;5499 ;6300 ;423 ;FontSize=9;
SourceExpr=CustAddr[4] }
{ 11 ;TextBox ;11130;5076 ;6300 ;423 ;FontSize=9;
SourceExpr=CompanyAddr[4] }
{ 12 ;TextBox ;0 ;5922 ;6300 ;423 ;FontSize=9;
SourceExpr=CustAddr[5] }
{ 13 ;Label ;11130;5499 ;2100 ;423 ;ParentControl=14;
FontSize=9 }
{ 14 ;TextBox ;14490;5499 ;3990 ;423 ;FontSize=9;
CaptionM
From what I can tell, you don’t have service tax as field in the sales invoice line section. Add the fields to the Body (4) section.
I tried that but in vain.
Infact, We have mentiioned, service tax and vat field in footer section of report .