New report, Sales Summary Report, added under Sales Reports.

diff --git a/reporting/rep114.php b/reporting/rep114.php
new file mode 100644 (file)
index 0000000..6839a45
--- /dev/null
+++ b/reporting/rep114.php
@@ -0,0 +1,119 @@
+<?php
+/**********************************************************************
+    Copyright (C) FrontAccounting, LLC.
+       Released under the terms of the GNU General Public License, GPL, 
+       as published by the Free Software Foundation, either version 3 
+       of the License, or (at your option) any later version.
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  
+    See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
+***********************************************************************/
+$page_security = 'SA_TAXREP';
+// ----------------------------------------------------------------
+// $ Revision: 2.0 $
+// Creator:    Joe Hunt
+// date_:      2005-05-19
+// Title:      Sales Summary Report
+// ----------------------------------------------------------------
+$path_to_root="..";
+
+include_once($path_to_root . "/includes/session.inc");
+include_once($path_to_root . "/includes/date_functions.inc");
+include_once($path_to_root . "/includes/data_checks.inc");
+include_once($path_to_root . "/gl/includes/gl_db.inc");
+
+//------------------------------------------------------------------
+
+
+print_sales_summary_report();
+
+function getTaxTransactions($from, $to)
+{
+       $fromdate = date2sql($from);
+       $todate = date2sql($to);
+\r
+       $sql = "SELECT d.debtor_no, d.name AS cust_name, d.tax_id, 
+               CASE WHEN net_amount IS NULL THEN 
+                       SUM(CASE WHEN dt.type=".ST_CUSTCREDIT." THEN (ov_amount+ov_freight+ov_discount)*-1 
+                       ELSE (ov_amount+ov_freight+ov_discount) END *dt.rate) ELSE 
+                       SUM(CASE WHEN dt.type=".ST_CUSTCREDIT." THEN -net_amount ELSE net_amount END *ex_rate) END AS total,
+               SUM(CASE WHEN dt.type=".ST_CUSTCREDIT." THEN -amount ELSE amount END *ex_rate) AS tax\r
+               FROM ".TB_PREF."debtor_trans dt\r
+                       LEFT JOIN ".TB_PREF."debtors_master d ON d.debtor_no=dt.debtor_no\r
+                       LEFT JOIN ".TB_PREF."trans_tax_details t ON (t.trans_type=dt.type AND t.trans_no=dt.trans_no)\r
+               WHERE (dt.type=".ST_SALESINVOICE." OR dt.type=".ST_CUSTCREDIT.")\r
+               AND dt.tran_date >=".db_escape($fromdate)." AND dt.tran_date<=".db_escape($todate)."\r
+               GROUP BY d.debtor_no, d.name, d.tax_id ORDER BY d.name"; \r
+    return db_query($sql,"No transactions were returned");
+}
+
+//----------------------------------------------------------------------------------------------------
+
+function print_sales_summary_report()
+{
+       global $path_to_root;\r
+       
+       $from = $_POST['PARAM_0'];
+       $to = $_POST['PARAM_1'];
+       $comments = $_POST['PARAM_2'];
+       $destination = $_POST['PARAM_3'];
+
+       if ($destination)
+               include_once($path_to_root . "/reporting/includes/excel_report.inc");
+       else
+               include_once($path_to_root . "/reporting/includes/pdf_report.inc");
+
+       $dec = user_price_dec();
+
+       $rep = new FrontReport(_('Sales Summary Report'), "SalesSummaryReport", user_pagesize());
+
+       $params =   array(      0 => $comments,
+                                               1 => array('text' => _('Period'), 'from' => $from, 'to' => $to));
+
+       $cols = array(0, 130, 180, 270, 350, 500);\r
+
+       $headers = array(_('Customer'), _('Tax Id'), _('Total ex. Tax'), _('Tax'));\r
+       $aligns = array('left', 'left', 'right', 'right');\r
+       $rep->Font();
+       $rep->Info($params, $cols, $headers, $aligns);
+       $rep->NewPage();
+       
+       $totalnet = 0.0;
+       $totaltax = 0.0;
+       $transactions = getTaxTransactions($from, $to);
+\r
+       $rep->TextCol(0, 4, _("Values in domestic currency"));\r
+       $rep->NewLine(2);\r
+       
+       while ($trans=db_fetch($transactions))
+       {
+               $rep->TextCol(0, 1, $trans['cust_name']);
+               $rep->TextCol(1, 2,     $trans['tax_id']);
+               $rep->AmountCol(2, 3,   $trans['total'], $dec);
+               $rep->AmountCol(3, 4,   $trans['tax'], $dec);
+               $totalnet += $trans['total'];\r
+               $totaltax += $trans['tax'];\r
+\r
+               $rep->NewLine();
+
+               if ($rep->row < $rep->bottomMargin + $rep->lineHeight)
+               {
+                       $rep->Line($rep->row - 2);
+                       $rep->NewPage();
+               }
+       }
+\r
+       $rep->Font('bold');\r
+       $rep->NewLine();\r
+       $rep->Line($rep->row + $rep->lineHeight);\r
+       $rep->TextCol(0, 2,     _("Total"));\r
+       $rep->AmountCol(2, 3, $totalnet, $dec);\r
+       $rep->AmountCol(3, 4, $totaltax, $dec);\r
+       $rep->Line($rep->row - 5);\r
+       $rep->Font();\r
+\r
+       $rep->End();
+}
+
+?>
\ No newline at end of file

diff --git a/reporting/reports_main.php b/reporting/reports_main.php
index 379041690edd406ce4cfd94e23793db064d8abc2..74ace3c96612225f439e95b44f0e5abeecbf4b0f 100644 (file)
--- a/reporting/reports_main.php
+++ b/reporting/reports_main.php
@@ -55,6 +55,11 @@ $reports->addReport(RC_CUSTOMER, 103, _('Customer &Detail Listing'),
                        _('Activity Less Than') => 'TEXT',
                        _('Comments') => 'TEXTBOX',
                        _('Destination') => 'DESTINATION'));
+$reports->addReport(RC_CUSTOMER, 114, _('Sales &Summary Report'),
+       array(  _('Start Date') => 'DATEBEGINTAX',
+                       _('End Date') => 'DATEENDTAX',
+                       _('Comments') => 'TEXTBOX',
+                       _('Destination') => 'DESTINATION'));
 $reports->addReport(RC_CUSTOMER, 104, _('&Price Listing'),
        array(  _('Currency Filter') => 'CURRENCY',
                        _('Inventory Category') => 'CATEGORIES',