Upgrade to 721 TaxRate Show A - Report Report: Difference between revisions

Revision as of 09:18, 13 November 2015

Introduction

This happen if you had write script to get the TaxRate from Maintain Tax in the report

This due to changing SQLAccounting Coding Structure to cater future Changes in Tax Rate

Problem

You will get below error when you preview the report

Solution

01. Click Calc Tab

02. Click View | Module

03. Click Event

04. Click OnCreate

05. Scroll down & look for SQL_6

06. Replace this script with below script

  SQL_6 := 'SELECT DocKey,  Tax, TaxRate, Sum(LocalAmount) LocalAmount, Sum(Qty) Qty, Sum(LocalTaxAmt) localTaxAmt, Description '+ 
		        'FROM Document_Detail ' +
		        'Where Tax <> ''''' +
		        'GROUP BY Dockey, Tax, TaxRate';

07. Click on Subreport4:plSQL_6 tab

08. Click on Event Handlers

09. Click on procedure VarTaxOnCalc(var Value:Variant);

10. Replace this script with below script

procedure VarTaxOnCalc(var Value:Variant);
Var s : string;
begin
  if Trim(plsql_6.getfieldvalue('TaxRate')) <> '' then
    Value := plsql_6.getfieldvalue('Tax') + ' @ ' + plsql_6.getfieldvalue('TaxRate') else
    Value := plsql_6.getfieldvalue('Tax');
end;

11. Save the report

@@ Line 10: / Line 10: @@
 ==Solution==
 [[File:Error-721-RB-TaxRate-02.jpg|750px|center]]
-:01. Click Calc Tab
+:01. Click '''Calc''' Tab
 :02. Click '''View | Module'''
 :03. Click '''Event'''
@@ Line 23: / Line 23: @@
 </syntaxhighlight>
 <br />
-[[File:Error-721-FR-TaxRate-03.jpg|center]]
+[[File:Error-721-RB-TaxRate-03.jpg|center]]
-:04. Click on Subreport1 tab
+:07. Click on '''Subreport4:plSQL_6''' tab
-:05. Double the Tax Rate memo
+:08. Click on '''Event Handlers'''
-[[File:Error-721-FR-TaxRate-04.jpg|750px|center]]
+:09. Click on '''procedure VarTaxOnCalc(var Value:Variant);'''
-:06. Replace this script with below script
+:10. Replace this script with below script
 <syntaxhighlight lang="delphi">
-[IIF(Trim(<GSTAmt."TaxRate">)='',<GSTAmt."Tax">,<GSTAmt."Tax"> +' @ ' + <GSTAmt."TaxRate">)]
+procedure VarTaxOnCalc(var Value:Variant);
+Var s : string;
+begin
+  if Trim(plsql_6.getfieldvalue('TaxRate')) <> '' then
+    Value := plsql_6.getfieldvalue('Tax') + ' @ ' + plsql_6.getfieldvalue('TaxRate') else
+    Value := plsql_6.getfieldvalue('Tax');
+end;
 </syntaxhighlight>
-:07. Click OK button
+:11. Save the report
-:08. Save the report
 ==See also==