ar_classes = array(); } function addReportClass($class_name) { $this->ar_classes[$class_name] = array(); } function addReport($class_name, $id, $rep_name, $params=null) { $this->ar_classes[$class_name][] = new Report($id,$rep_name,$params); } function getDisplay($class=null) { global $table_style2; $temp = array_values($this->ar_classes); $display_class = $class==null ? $temp[0] : $this->ar_classes[$class]; $class_counter = 0; $rep_counter = 0; $st_reports = ""; $st_params = ""; $st_classes = "" . _("Report Classes:") . "
"; foreach($this->ar_classes as $key=>$value) { $style = $class_counter==0 ? '' : $style = "style='display:none'"; $st_classes .= "$key
"; $st_reports .= ""; foreach($value as $report) { $st_reports .= ""; $st_params .= "

" . _("Reports For Class: ") . " $key

" . $report->name . "

"; $st_params .= "

" . $report->getDisplay() . "

"; } $st_reports .= ""; } $st = " "; $st .= ""; $st .= ""; $st .= ""; $st .= ""; $st .= "

$st_classes

$st_reports

$st_params

"; return $st; } } class Report { var $id; var $name; var $ar_params; function Report($id, $name, $ar_params) { $this->id = $id; $this->name = $name; $this->ar_params = $ar_params; } function getDisplay() { global $path_to_root; $st = " "; $st .= "

"; $dummy = ""; if ($this->ar_params==null) return ""; foreach($this->ar_params as $index=>$param) { $st .= $param->param_name . ':
'; switch ($param->param_type) { case 'CURRENCY': $sql = "SELECT curr_abrev, concat(curr_abrev,' - ', currency) FROM ".TB_PREF."currencies"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy, true, _("No Currency Filter")); break; case 'DATE': case 'DATEBEGIN': case 'DATEEND': case 'DATEBEGINM': case 'DATEENDM': case 'DATEBEGINTAX': case 'DATEENDTAX': if ($param->param_type == 'DATEBEGIN') $date = begin_fiscalyear(); elseif ($param->param_type == 'DATEEND') $date = end_fiscalyear(); else $date = Today(); if ($param->param_type == 'DATEBEGINM') $date = begin_month($date); elseif ($param->param_type == 'DATEENDM') $date = enc_month($date); elseif ($param->param_type == 'DATEBEGINTAX' || $param->param_type == 'DATEENDTAX') { $row = get_company_prefs(); $edate = add_months($date, -$row['tax_last']); $edate = enc_month($edate); if ($param->param_type == 'DATEENDTAX') $date = $edate; else { $bdate = add_months($edate, -$row['tax_prd'] + 1); $date = begin_month($bdate); } } //$st .= ""; $st .= ""; break; case 'YES_NO': $sel = array(_('No'), _("Yes")); $st .= dup_simple_name_list("RP_" . $this->id . "_$index", $sel); break; case 'COMPARE': $sel = array(_("Accumulated"), _("Period Y-1"), _("Budget")); $st .= dup_simple_name_list("RP_" . $this->id . "_$index", $sel); break; case 'GRAPHIC': $sel = array(_("No Graphics"), _("Vertical bars"), _("Horizontal bars"), _("Dots"), _("Lines"), _("Pie"), _("Donut")); $st .= dup_simple_name_list("RP_" . $this->id . "_$index", $sel); break; case 'SYS_TYPES': $st .= dup_systypes_list("RP_" . $this->id . "_$index", $dummy, true, _("No Type Filter"), true); break; case 'TEXT': $st .= ""; break; case 'TEXTBOX': $st .= ""; break; case 'ACCOUNTS': $sql = "SELECT id, name FROM ".TB_PREF."chart_types ORDER BY name"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy, true, _("No Account Group Filter"), true); break; case 'GL_ACCOUNTS': $sql = "SELECT account_code, concat(account_code, ' - ', account_name) as account_name FROM ".TB_PREF."chart_master ORDER BY account_code"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy); break; case 'BANK_ACCOUNTS': $sql = "SELECT ".TB_PREF."bank_accounts.account_code, concat(bank_account_name, if (bank_curr_code=curr_default,'', concat(' - ', bank_curr_code))) FROM ".TB_PREF."bank_accounts, ".TB_PREF."chart_master, ".TB_PREF."company WHERE ".TB_PREF."bank_accounts.account_code=".TB_PREF."chart_master.account_code"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy); break; case 'DIMENSION': $sql = "SELECT reference, concat(reference, ' - ', name) AS DimName FROM ".TB_PREF."dimensions ORDER BY reference"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy); break; case 'DIMENSIONS': $sql = "SELECT reference, concat(reference, ' - ', name) as DimName FROM ".TB_PREF."dimensions ORDER BY reference"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy, true, _("No Dimension Filter"), true); break; case 'DIMENSION1': $sql = "SELECT reference, concat(reference, ' - ', name) AS DimName FROM ".TB_PREF."dimensions WHERE type_=1 ORDER BY reference"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy); break; case 'DIMENSIONS1': $sql = "SELECT reference, concat(reference, ' - ', name) as DimName FROM ".TB_PREF."dimensions WHERE type_=1 ORDER BY reference"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy, true, _("No Dimension Filter"), true); break; case 'DIMENSION2': $sql = "SELECT reference, concat(reference, ' - ', name) AS DimName FROM ".TB_PREF."dimensions WHERE type_=2 ORDER BY reference"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy); break; case 'DIMENSIONS2': $sql = "SELECT reference, concat(reference, ' - ', name) as DimName FROM ".TB_PREF."dimensions WHERE type_=2 ORDER BY reference"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy, true, _("No Dimension Filter"), true); break; case 'CUSTOMERS_NO_FILTER': case 'CUSTOMERS': $sql = "SELECT debtor_no, name FROM ".TB_PREF."debtors_master ORDER BY debtor_no"; if ($param->param_type == 'CUSTOMERS_NO_FILTER') $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy, true, _("No Customer Filter"), true); else $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy); break; case 'SUPPLIERS': $sql = "SELECT supplier_id, supp_name FROM ".TB_PREF."suppliers ORDER BY supplier_id"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy); break; case 'INVOICE': $IV = _("IV"); $CN = _("CN"); $sql = "SELECT concat(".TB_PREF."debtor_trans.trans_no, '-', ".TB_PREF."debtor_trans.type) AS TNO, concat(".TB_PREF."debtor_trans.trans_no, if (type=10, ' $IV ', ' $CN '), ".TB_PREF."debtors_master.name) as IName FROM ".TB_PREF."debtors_master, ".TB_PREF."debtor_trans WHERE (type=10 OR type=11) AND ".TB_PREF."debtors_master.debtor_no=".TB_PREF."debtor_trans.debtor_no ORDER BY ".TB_PREF."debtor_trans.trans_no DESC"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy); break; case 'ORDERS': $sql = "SELECT ".TB_PREF."sales_orders.order_no, concat(".TB_PREF."sales_orders.order_no, '-', ".TB_PREF."debtors_master.name) as IName FROM ".TB_PREF."debtors_master, ".TB_PREF."sales_orders WHERE ".TB_PREF."debtors_master.debtor_no=".TB_PREF."sales_orders.debtor_no ORDER BY ".TB_PREF."sales_orders.order_no DESC"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy); break; case 'PO': $sql = "SELECT ".TB_PREF."purch_orders.order_no, concat(".TB_PREF."purch_orders.order_no, '-', ".TB_PREF."suppliers.supp_name) as IName FROM ".TB_PREF."suppliers, ".TB_PREF."purch_orders WHERE ".TB_PREF."suppliers.supplier_id=".TB_PREF."purch_orders.supplier_id ORDER BY ".TB_PREF."purch_orders.order_no DESC"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy); break; case 'ITEMS': $sql = "SELECT stock_id, concat(stock_id, '-', description) as name FROM ".TB_PREF."stock_master WHERE (mb_flag='A' OR mb_flag='M') ORDER BY stock_id"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy); break; case 'LOCATIONS': $sql = "SELECT loc_code, location_name FROM ".TB_PREF."locations ORDER BY location_name"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy, true, _("No Location Filter"), false); break; case 'CATEGORIES': $sql = "SELECT category_id, description FROM ".TB_PREF."stock_category ORDER BY description"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy, true, _("No Category Filter"), true); break; case 'SALESTYPES': $sql = "SELECT id, sales_type FROM ".TB_PREF."sales_types ORDER BY sales_type"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy); break; case 'AREAS': $sql = "SELECT area_code, description FROM ".TB_PREF."areas ORDER BY description"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy, true, _("No Area Filter"), true); break; case 'SALESMEN': $sql = "SELECT salesman_code, salesman_name FROM ".TB_PREF."salesman ORDER BY salesman_name"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy, true, _("No Sales Folk Filter"), true); break; case 'TRANS_YEARS': $sql = "SELECT DISTINCT YEAR(tran_date), YEAR(tran_date) FROM ".TB_PREF."gl_trans"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy); break; case 'ACCOUNTS_NO_FILTER': $sql = "SELECT id, name FROM ".TB_PREF."chart_types ORDER BY name"; $st .= dup_simple_codeandname_list($sql, "RP_" . $this->id . "_$index", $dummy); break; } $st .= "

"; } return $st; } } class ReportParam { var $param_name; var $param_type; function ReportParam($param_name, $param_type) { $this->param_name = $param_name; $this->param_type = $param_type; } } function dup_simple_codeandname_list($sql, $name, &$selected_id, $all_option=false, $all_option_name=null, $all_option_numeric=false, $submit_on_change=false) { if ($submit_on_change == true) $st = ""; else $st = ""; if ($all_option == true) { if ($all_option_numeric) $reserved_word = reserved_words::get_all_numeric(); else $reserved_word = reserved_words::get_all(); if ($reserved_word == $selected_id) { $st .= "" . $all_option_name . "\n"; } else { $st .= "" . $all_option_name . "\n"; } if ($selected_id == "") { $selected_id = $reserved_word; } } $result = db_query($sql); while ($row = db_fetch_row($result)) { if ($selected_id == $row[0]) { $st .= ""; } else { $st .= ""; } $st .= $row[1] . "\n"; if ($selected_id == "") { $selected_id = $row[0]; } } $st .= ""; db_free_result($result); return $st; } function dup_simple_name_list($name, $selections) { $st = ""; for ($i = 0; $i < count($selections); $i++) $st .= "" . $selections[$i] . "\n"; $st .= ""; return $st; } //------------------------------------------------------------------------------------------------ function dup_systypes_list($name, &$selected_id, $all_option=false, $all_option_name=null) { global $systypes_array; $st = ""; if ($all_option == true) { $reserved_word = reserved_words::get_all_numeric(); if ($reserved_word == $selected_id) $st .= "" . $all_option_name . "\n"; else $st .= "" . $all_option_name . "\n"; if ($selected_id == "") $selected_id = $reserved_word; } foreach ($systypes_array as $i => $value) { if ($i == 16 || $i == 18 || $i == 25 || $i >= 28) continue; $st .= "" . $value['name'] . "\n"; } $st .= ""; return $st; } ?>