MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
***********************************************************************/
-$page_security = 2;
+$page_security = 'SA_CUSTPAYMREP';
// ----------------------------------------------------------------
// $ Revision: 2.0 $
// Creator: Joe Hunt
print_aged_customer_analysis();
-function get_invoices($costomer_id, $to)
+function get_invoices($customer_id, $to)
{
$todate = date2sql($to);
$PastDueDays1 = get_company_pref('past_due_days');
$value = "(".TB_PREF."debtor_trans.ov_amount + ".TB_PREF."debtor_trans.ov_gst + "
.TB_PREF."debtor_trans.ov_freight + ".TB_PREF."debtor_trans.ov_freight_tax + "
.TB_PREF."debtor_trans.ov_discount)";
- $due = "IF (".TB_PREF."debtor_trans.type=10,".TB_PREF."debtor_trans.due_date,".TB_PREF."debtor_trans.tran_date)";
- $sql = "SELECT ".TB_PREF."sys_types.type_name, ".TB_PREF."debtor_trans.type, ".TB_PREF."debtor_trans.reference,
+ $due = "IF (".TB_PREF."debtor_trans.type=".ST_SALESINVOICE.",".TB_PREF."debtor_trans.due_date,".TB_PREF."debtor_trans.tran_date)";
+ $sql = "SELECT ".TB_PREF."debtor_trans.type, ".TB_PREF."debtor_trans.reference,
".TB_PREF."debtor_trans.tran_date,
$value as Balance,
IF ((TO_DAYS('$todate') - TO_DAYS($due)) >= 0,$value,0) AS Due,
FROM ".TB_PREF."debtors_master,
".TB_PREF."payment_terms,
- ".TB_PREF."debtor_trans,
- ".TB_PREF."sys_types
+ ".TB_PREF."debtor_trans
- WHERE ".TB_PREF."sys_types.type_id = ".TB_PREF."debtor_trans.type
- AND ".TB_PREF."debtor_trans.type <> 13
+ WHERE ".TB_PREF."debtor_trans.type <> ".ST_CUSTDELIVERY."
AND ".TB_PREF."debtors_master.payment_terms = ".TB_PREF."payment_terms.terms_indicator
AND ".TB_PREF."debtors_master.debtor_no = ".TB_PREF."debtor_trans.debtor_no
- AND ".TB_PREF."debtor_trans.debtor_no = $costomer_id
+ AND ".TB_PREF."debtor_trans.debtor_no = $customer_id
AND ".TB_PREF."debtor_trans.tran_date <= '$todate'
AND ABS(".TB_PREF."debtor_trans.ov_amount + ".TB_PREF."debtor_trans.ov_gst + ".TB_PREF."debtor_trans.ov_freight + ".TB_PREF."debtor_trans.ov_freight_tax + ".TB_PREF."debtor_trans.ov_discount) > 0.004
ORDER BY ".TB_PREF."debtor_trans.tran_date";
function print_aged_customer_analysis()
{
- global $comp_path, $path_to_root;
+ global $comp_path, $path_to_root, $systypes_array;
$to = $_POST['PARAM_0'];
$fromcust = $_POST['PARAM_1'];
$pg = new graph();
}
- if ($fromcust == reserved_words::get_all_numeric())
+ if ($fromcust == ALL_NUMERIC)
$from = _('All');
else
$from = get_customer_name($fromcust);
$summary = _('Summary Only');
else
$summary = _('Detailed Report');
- if ($currency == reserved_words::get_all())
+ if ($currency == ALL_TEXT)
{
$convert = true;
$currency = _('Balances in Home Currency');
$total = array(0,0,0,0, 0);
- $sql = "SELECT debtor_no, name, curr_code FROM ".TB_PREF."debtors_master ";
- if ($fromcust != reserved_words::get_all_numeric())
- $sql .= "WHERE debtor_no=$fromcust ";
- $sql .= "ORDER BY name";
+ $sql = "SELECT debtor_no, name, curr_code FROM ".TB_PREF."debtors_master";
+ if ($fromcust != ALL_NUMERIC)
+ $sql .= " WHERE debtor_no=".db_escape($fromcust);
+ $sql .= " ORDER BY name";
$result = db_query($sql, "The customers could not be retrieved");
while ($myrow=db_fetch($result))
while ($trans=db_fetch($res))
{
$rep->NewLine(1, 2);
- $rep->TextCol(0, 1, $trans['type_name'], -2);
+ $rep->TextCol(0, 1, $systypes_array[$trans['type']], -2);
$rep->TextCol(1, 2, $trans['reference'], -2);
$rep->DateCol(2, 3, $trans['tran_date'], true, -2);
- if ($trans['type'] == 11 || $trans['type'] == 12 || $trans['type'] == 2)
+ if ($trans['type'] == ST_CUSTCREDIT || $trans['type'] == ST_CUSTPAYMENT || $trans['type'] == ST_BANKDEPOSIT)
{
$trans['Balance'] *= -1;
$trans['Due'] *= -1;