accountancycategory.class.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2016   Jamal Elbaz     <jamelbaz@gmail.pro>
 * Copyright (C) 2016-2017  Alexandre Spangaro  <aspangaro@open-dsi.fr>
 * Copyright (C) 2018-2019  Frédéric France     <frederic.france@netlogic.fr>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License 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
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */

// Class
require_once DOL_DOCUMENT_ROOT.'/core/lib/accounting.lib.php';

class AccountancyCategory // extends CommonObject
{
  public $db;

  public $error;

  public $errors = array();

  public $element = 'c_accounting_category';

  public $table_element = 'c_accounting_category';

  public $rowid;

  public $id;

  public $code;

  public $label;

  public $range_account;

  public $sens;

  public $category_type;

  public $formula;

  public $position;

  public $fk_country;

  public $active;

  public $lines_cptbk;

  public $lines_display;

  public $sdc;



  public function __construct($db)
  {
    $this->db = $db;
  }


  public function create($user, $notrigger = 0)
  {
    global $conf, $langs;
    $error = 0;

    // Clean parameters
    if (isset($this->code)) $this->code = trim($this->code);
    if (isset($this->label)) $this->label = trim($this->label);
    if (isset($this->range_account)) $this->range_account = trim($this->range_account);
    if (isset($this->sens)) $this->sens = (int) $this->sens;
    if (isset($this->category_type)) $this->category_type = (int) $this->category_type;
    if (isset($this->formula)) $this->formula = trim($this->formula);
    if (isset($this->position)) $this->position = (int) $this->position;
    if (isset($this->fk_country)) $this->fk_country = (int) $this->fk_country;
    if (isset($this->active)) $this->active = (int) $this->active;

    // Check parameters
    // Put here code to add control on parameters values

    // Insert request
    $sql = "INSERT INTO ".MAIN_DB_PREFIX."c_accounting_category(";
    if ($this->rowid > 0) $sql .= "rowid, ";
    $sql .= "code, ";
    $sql .= "label, ";
    $sql .= "range_account, ";
    $sql .= "sens, ";
    $sql .= "category_type, ";
    $sql .= "formula, ";
    $sql .= "position, ";
    $sql .= "fk_country, ";
    $sql .= "active, ";
    $sql .= "entity";
    $sql .= ") VALUES (";
    if ($this->rowid > 0) $sql .= " ".$this->rowid.",";
    $sql .= " ".(!isset($this->code) ? 'NULL' : "'".$this->db->escape($this->code)."'").",";
    $sql .= " ".(!isset($this->label) ? 'NULL' : "'".$this->db->escape($this->label)."'").",";
    $sql .= " ".(!isset($this->range_account) ? 'NULL' : "'".$this->db->escape($this->range_account)."'").",";
    $sql .= " ".(!isset($this->sens) ? 'NULL' : "'".$this->db->escape($this->sens)."'").",";
    $sql .= " ".(!isset($this->category_type) ? 'NULL' : "'".$this->db->escape($this->category_type)."'").",";
    $sql .= " ".(!isset($this->formula) ? 'NULL' : "'".$this->db->escape($this->formula)."'").",";
    $sql .= " ".(!isset($this->position) ? 'NULL' : $this->db->escape($this->position)).",";
    $sql .= " ".(!isset($this->fk_country) ? 'NULL' : $this->db->escape($this->fk_country)).",";
    $sql .= " ".(!isset($this->active) ? 'NULL' : $this->db->escape($this->active));
    $sql .= ", ".$conf->entity;
    $sql .= ")";

    $this->db->begin();

    dol_syslog(get_class($this)."::create", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if (!$resql) { $error++; $this->errors[] = "Error ".$this->db->lasterror(); }

    // Commit or rollback
    if ($error)
    {
      foreach ($this->errors as $errmsg)
      {
        dol_syslog(get_class($this)."::create ".$errmsg, LOG_ERR);
        $this->error .= ($this->error ? ', '.$errmsg : $errmsg);
      }
      $this->db->rollback();
      return -1 * $error;
    } else {
      $this->db->commit();
      return $this->id;
    }
  }


  public function fetch($id, $code = '', $label = '')
  {
    $sql = "SELECT";
    $sql .= " t.rowid,";
    $sql .= " t.code,";
    $sql .= " t.label,";
    $sql .= " t.range_account,";
    $sql .= " t.sens,";
    $sql .= " t.category_type,";
    $sql .= " t.formula,";
    $sql .= " t.position,";
    $sql .= " t.fk_country,";
    $sql .= " t.active";
    $sql .= " FROM ".MAIN_DB_PREFIX."c_accounting_category as t";
    if ($id)   $sql .= " WHERE t.rowid = ".$id;
    else {
      $sql .= " WHERE t.entity IN (".getEntity('c_accounting_category').")"; // Dont't use entity if you use rowid
      if ($code) $sql .= " AND t.code = '".$this->db->escape($code)."'";
      elseif ($label) $sql .= " AND t.label = '".$this->db->escape($label)."'";
    }

    dol_syslog(get_class($this)."::fetch", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql)
    {
      if ($this->db->num_rows($resql))
      {
        $obj = $this->db->fetch_object($resql);

        $this->id            = $obj->rowid;
        $this->code          = $obj->code;
        $this->label         = $obj->label;
        $this->range_account = $obj->range_account;
        $this->sens          = $obj->sens;
        $this->category_type = $obj->category_type;
        $this->formula       = $obj->formula;
        $this->position      = $obj->position;
        $this->fk_country    = $obj->fk_country;
        $this->active        = $obj->active;
      }
      $this->db->free($resql);

      return 1;
    } else {
      $this->error = "Error ".$this->db->lasterror();
      return -1;
    }
  }


  public function update($user = null, $notrigger = 0)
  {
    global $conf, $langs;
    $error = 0;

    // Clean parameters
    if (isset($this->code)) $this->code = trim($this->code);
    if (isset($this->label)) $this->label = trim($this->label);
    if (isset($this->range_account)) $this->range_account = trim($this->range_account);
    if (isset($this->sens)) $this->sens = (int) $this->sens;
    if (isset($this->category_type)) $this->category_type = (int) $this->category_type;
    if (isset($this->formula)) $this->formula = trim($this->formula);
    if (isset($this->position)) $this->position = (int) $this->position;
    if (isset($this->fk_country)) $this->fk_country = (int) $this->fk_country;
    if (isset($this->active)) $this->active = (int) $this->active;


    // Check parameters
    // Put here code to add control on parameters values

    // Update request
    $sql = "UPDATE ".MAIN_DB_PREFIX."c_accounting_category SET";
    $sql .= " code=".(isset($this->code) ? "'".$this->db->escape($this->code)."'" : "null").",";
    $sql .= " label=".(isset($this->label) ? "'".$this->db->escape($this->label)."'" : "null").",";
    $sql .= " range_account=".(isset($this->range_account) ? "'".$this->db->escape($this->range_account)."'" : "null").",";
    $sql .= " sens=".(isset($this->sens) ? $this->sens : "null").",";
    $sql .= " category_type=".(isset($this->category_type) ? $this->category_type : "null").",";
    $sql .= " formula=".(isset($this->formula) ? "'".$this->db->escape($this->formula)."'" : "null").",";
    $sql .= " position=".(isset($this->position) ? $this->position : "null").",";
    $sql .= " fk_country=".(isset($this->fk_country) ? $this->fk_country : "null").",";
    $sql .= " active=".(isset($this->active) ? $this->active : "null")."";
    $sql .= " WHERE rowid=".$this->id;

    $this->db->begin();

    dol_syslog(get_class($this)."::update", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if (!$resql) { $error++; $this->errors[] = "Error ".$this->db->lasterror(); }

    // Commit or rollback
    if ($error)
    {
      foreach ($this->errors as $errmsg)
      {
        dol_syslog(get_class($this)."::update ".$errmsg, LOG_ERR);
        $this->error .= ($this->error ? ', '.$errmsg : $errmsg);
      }
      $this->db->rollback();
      return -1 * $error;
    } else {
      $this->db->commit();
      return 1;
    }
  }


  public function delete($user, $notrigger = 0)
  {
    global $conf, $langs;
    $error = 0;

    $sql = "DELETE FROM ".MAIN_DB_PREFIX."c_accounting_category";
    $sql .= " WHERE rowid=".$this->id;

    $this->db->begin();

    dol_syslog(get_class($this)."::delete", LOG_DEBUG);
    $resql = $this->db->query($sql);
    if (!$resql) { $error++; $this->errors[] = "Error ".$this->db->lasterror(); }

    // Commit or rollback
    if ($error)
    {
      foreach ($this->errors as $errmsg)
      {
        dol_syslog(get_class($this)."::delete ".$errmsg, LOG_ERR);
        $this->error .= ($this->error ? ', '.$errmsg : $errmsg);
      }
      $this->db->rollback();
      return -1 * $error;
    } else {
      $this->db->commit();
      return 1;
    }
  }


  public function display($id)
  {
    global $conf;
    $sql = "SELECT t.rowid, t.account_number, t.label";
    $sql .= " FROM ".MAIN_DB_PREFIX."accounting_account as t";
    $sql .= " WHERE t.fk_accounting_category = ".$id;
    $sql .= " AND t.entity = ".$conf->entity;

    $this->lines_display = array();

    dol_syslog(__METHOD__." sql=".$sql, LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      $num = $this->db->num_rows($resql);
      if ($num) {
        while ($obj = $this->db->fetch_object($resql)) {
          $this->lines_display[] = $obj;
        }
      }
      return $num;
    } else {
      $this->error = "Error ".$this->db->lasterror();
      $this->errors[] = $this->error;
      dol_syslog(__METHOD__." ".implode(','.$this->errors), LOG_ERR);

      return -1;
    }
  }

  public function getCptBK($id)
  {
    global $conf;

    $sql = "SELECT t.numero_compte, t.label_operation, t.doc_ref";
    $sql .= " FROM ".MAIN_DB_PREFIX."accounting_bookkeeping as t";
    $sql .= " WHERE t.numero_compte NOT IN (";
    $sql .= " SELECT t.account_number";
    $sql .= " FROM ".MAIN_DB_PREFIX."accounting_account as t";
    $sql .= " WHERE t.fk_accounting_category = ".$id." AND t.entity = ".$conf->entity.")";
    $sql .= " AND t.numero_compte IN (";
    $sql .= " SELECT DISTINCT aa.account_number";
    $sql .= " FROM ".MAIN_DB_PREFIX."accounting_account as aa";
    $sql .= " INNER JOIN ".MAIN_DB_PREFIX."accounting_system as asy ON aa.fk_pcg_version = asy.pcg_version";
    $sql .= " AND asy.rowid = ".$conf->global->CHARTOFACCOUNTS;
    $sql .= " AND aa.active = 1";
    $sql .= " AND aa.entity = ".$conf->entity.")";
    $sql .= " GROUP BY t.numero_compte, t.label_operation, t.doc_ref";
    $sql .= " ORDER BY t.numero_compte";

    $this->lines_CptBk = array();

    dol_syslog(__METHOD__, LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      $num = $this->db->num_rows($resql);
      if ($num) {
        while ($obj = $this->db->fetch_object($resql)) {
          $this->lines_cptbk[] = $obj;
        }
      }

      return $num;
    } else {
      $this->error = "Error ".$this->db->lasterror();
      $this->errors[] = $this->error;
      dol_syslog(__METHOD__." ".implode(','.$this->errors), LOG_ERR);

      return -1;
    }
  }

  public function getAccountsWithNoCategory($id)
  {
    global $conf;

    $sql = "SELECT aa.account_number as numero_compte, aa.label as label_compte";
    $sql .= " FROM ".MAIN_DB_PREFIX."accounting_account as aa";
    $sql .= " INNER JOIN ".MAIN_DB_PREFIX."accounting_system as asy ON aa.fk_pcg_version = asy.pcg_version";
    $sql .= " WHERE (aa.fk_accounting_category != ".$id." OR aa.fk_accounting_category IS NULL)";
    $sql .= " AND asy.rowid = ".$conf->global->CHARTOFACCOUNTS;
    $sql .= " AND aa.active = 1";
    $sql .= " AND aa.entity = ".$conf->entity;
    $sql .= " GROUP BY aa.account_number, aa.label";
    $sql .= " ORDER BY aa.account_number, aa.label";

    $this->lines_CptBk = array();

    dol_syslog(__METHOD__, LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      $num = $this->db->num_rows($resql);
      if ($num) {
        while ($obj = $this->db->fetch_object($resql)) {
          $this->lines_cptbk[] = $obj;
        }
      }

      return $num;
    } else {
      $this->error = "Error ".$this->db->lasterror();
      $this->errors[] = $this->error;
      dol_syslog(__METHOD__." ".implode(','.$this->errors), LOG_ERR);

      return -1;
    }
  }

  public function updateAccAcc($id_cat, $cpts = array())
  {
    global $conf;
    $error = 0;

    require_once DOL_DOCUMENT_ROOT.'/core/lib/accounting.lib.php';

    $sql = "SELECT aa.rowid, aa.account_number";
    $sql .= " FROM ".MAIN_DB_PREFIX."accounting_account as aa";
    $sql .= " INNER JOIN ".MAIN_DB_PREFIX."accounting_system as asy ON aa.fk_pcg_version = asy.pcg_version";
    $sql .= " AND asy.rowid = ".$conf->global->CHARTOFACCOUNTS;
    $sql .= " AND aa.active = 1";
    $sql .= " AND aa.entity = ".$conf->entity;
    $sql .= " ORDER BY LENGTH(aa.account_number) DESC;"; // LENGTH is ok with mysql and postgresql

    $this->db->begin();

    dol_syslog(__METHOD__, LOG_DEBUG);
    $resql = $this->db->query($sql);
    if (!$resql) {
      $error++;
      $this->errors[] = "Error ".$this->db->lasterror();
      $this->db->rollback();
      return -1;
    }

    $accountincptsadded = array();
    while ($obj = $this->db->fetch_object($resql))
    {
      $account_number_formated = length_accountg($obj->account_number);
      if (!empty($accountincptsadded[$account_number_formated])) continue;

      if (array_key_exists($account_number_formated, $cpts))
      {
        $accountincptsadded[$account_number_formated] = 1;
        // We found an account number that is in list $cpts of account to add
        $sql = "UPDATE ".MAIN_DB_PREFIX."accounting_account";
        $sql .= " SET fk_accounting_category=".$id_cat;
        $sql .= " WHERE rowid=".$obj->rowid;
        dol_syslog(__METHOD__, LOG_DEBUG);
        $resqlupdate = $this->db->query($sql);
        if (!$resqlupdate) {
          $error++;
          $this->errors[] = "Error ".$this->db->lasterror();
        }
      }
    }

    // Commit or rollback
    if ($error) {
      foreach ($this->errors as $errmsg) {
        dol_syslog(__METHOD__." ".$errmsg, LOG_ERR);
        $this->error .= ($this->error ? ', '.$errmsg : $errmsg);
      }
      $this->db->rollback();

      return -1 * $error;
    } else {
      $this->db->commit();

      return 1;
    }
  }

  public function deleteCptCat($cpt_id)
  {
    $error = 0;

    $sql = "UPDATE ".MAIN_DB_PREFIX."accounting_account as aa";
    $sql .= " SET fk_accounting_category= 0";
    $sql .= " WHERE aa.rowid= ".$cpt_id;
    $this->db->begin();

    dol_syslog(__METHOD__." sql=".$sql, LOG_DEBUG);
    $resql = $this->db->query($sql);
    if (!$resql) {
      $error++;
      $this->errors[] = "Error ".$this->db->lasterror();
    }

    // Commit or rollback
    if ($error) {
      foreach ($this->errors as $errmsg) {
        dol_syslog(__METHOD__." ".$errmsg, LOG_ERR);
        $this->error .= ($this->error ? ', '.$errmsg : $errmsg);
      }
      $this->db->rollback();

      return -1 * $error;
    } else {
      $this->db->commit();

      return 1;
    }
  }

  public function getCatsCpts()
  {
    global $mysoc, $conf;

    if (empty($mysoc->country_id)) {
      dol_print_error('', 'Call to select_accounting_account with mysoc country not yet defined');
      exit();
    }

    $sql = "SELECT t.rowid, t.account_number, t.label as account_label, cat.code, cat.position, cat.label as name_cat, cat.sens ";
    $sql .= " FROM ".MAIN_DB_PREFIX."accounting_account as t, ".MAIN_DB_PREFIX."c_accounting_category as cat";
    $sql .= " WHERE t.fk_accounting_category IN ( SELECT c.rowid ";
    $sql .= " FROM ".MAIN_DB_PREFIX."c_accounting_category as c";
    $sql .= " WHERE c.active = 1";
    $sql .= " AND c.entity = ".$conf->entity;
    $sql .= " AND (c.fk_country = ".$mysoc->country_id." OR c.fk_country = 0)";
    $sql .= " AND cat.rowid = t.fk_accounting_category";
    $sql .= " AND t.entity = ".$conf->entity;
    $sql .= " ORDER BY cat.position ASC";

    $resql = $this->db->query($sql);
    if ($resql) {
      $i = 0;
      $obj = '';
      $num = $this->db->num_rows($resql);
      $data = array();
      if ($num) {
        while ($obj = $this->db->fetch_object($resql)) {
          $name_cat = $obj->name_cat;
          $data[$name_cat][$i] = array(
              'id' => $obj->rowid,
              'code' => $obj->code,
              'position' => $obj->position,
              'account_number' => $obj->account_number,
              'account_label' => $obj->account_label,
              'sens' => $obj->sens
          );
          $i++;
        }
      }
      return $data;
    } else {
      $this->error = "Error ".$this->db->lasterror();
      dol_syslog(__METHOD__." ".$this->error, LOG_ERR);

      return -1;
    }
  }

  public function getSumDebitCredit($cpt, $date_start, $date_end, $sens, $thirdparty_code = 'nofilter', $month = 0, $year = 0)
  {
    global $conf;

    $this->sdc = 0;
    $this->sdcpermonth = array();

    $sql = "SELECT SUM(t.debit) as debit, SUM(t.credit) as credit";
    if (is_array($cpt)) $sql .= ", t.numero_compte as accountancy_account";
    $sql .= " FROM ".MAIN_DB_PREFIX."accounting_bookkeeping as t";
    //if (in_array($this->db->type, array('mysql', 'mysqli'))) $sql.=' USE INDEX idx_accounting_bookkeeping_doc_date';
    $sql .= " WHERE t.entity = ".$conf->entity;
    if (is_array($cpt))
    {
      $listofaccount = '';
      foreach ($cpt as $cptcursor)
      {
        if ($listofaccount) $listofaccount .= ",";
        $listofaccount .= "'".$cptcursor."'";
      }
      $sql .= " AND t.numero_compte IN (".$listofaccount.")";
    } else {
      $sql .= " AND t.numero_compte = '".$this->db->escape($cpt)."'";
    }
    if (!empty($date_start) && !empty($date_end) && (empty($month) || empty($year)))  // If month/year provided, it is stronger than filter date_start/date_end
      $sql .= " AND (t.doc_date BETWEEN '".$this->db->idate($date_start)."' AND '".$this->db->idate($date_end)."')";
    if (!empty($month) && !empty($year)) {
      $sql .= " AND (t.doc_date BETWEEN '".$this->db->idate(dol_get_first_day($year, $month))."' AND '".$this->db->idate(dol_get_last_day($year, $month))."')";
    }
    if ($thirdparty_code != 'nofilter')
    {
      $sql .= " AND t.thirdparty_code = '".$this->db->escape($thirdparty_code)."'";
    }
    if (is_array($cpt)) $sql .= " GROUP BY t.numero_compte";
    //print $sql;

    $resql = $this->db->query($sql);
    if ($resql)
    {
      $num = $this->db->num_rows($resql);
      if ($num)
      {
        $obj = $this->db->fetch_object($resql);
        if ($sens == 1) {
          $this->sdc = $obj->debit - $obj->credit;
        } else {
          $this->sdc = $obj->credit - $obj->debit;
        }
        if (is_array($cpt))
        {
          $this->sdcperaccount[$obj->accountancy_account] = $this->sdc;
        }
      }
      return $num;
    } else {
      $this->error = "Error ".$this->db->lasterror();
      $this->errors[] = $this->error;
      dol_syslog(__METHOD__." ".$this->error, LOG_ERR);
      return -1;
    }
  }

  public function getCats($categorytype = -1)
  {
    global $conf, $mysoc;

    if (empty($mysoc->country_id)) {
      dol_print_error('', 'Call to select_accounting_account with mysoc country not yet defined');
      exit();
    }

    $sql = "SELECT c.rowid, c.code, c.label, c.formula, c.position, c.category_type, c.sens";
    $sql .= " FROM ".MAIN_DB_PREFIX."c_accounting_category as c";
    $sql .= " WHERE c.active = 1";
    $sql .= " AND c.entity = ".$conf->entity;
    if ($categorytype >= 0) $sql .= " AND c.category_type = 1";
    $sql .= " AND (c.fk_country = ".$mysoc->country_id." OR c.fk_country = 0)";
    $sql .= " ORDER BY c.position ASC";

    $resql = $this->db->query($sql);
    if ($resql) {
      $i = 0;
      $obj = '';
      $num = $this->db->num_rows($resql);
      $data = array();
      if ($num) {
        while ($i < $num) {
          $obj = $this->db->fetch_object($resql);

          $data[] = array(
              'rowid' => $obj->rowid,
              'code' => $obj->code,
              'label' => $obj->label,
              'formula' => $obj->formula,
              'position' => $obj->position,
              'category_type' => $obj->category_type,
              'bc' => $obj->sens
          );
          $i++;
        }
      }
      return $data;
    } else {
      $this->error = "Error ".$this->db->lasterror();
      $this->errors[] = $this->error;
      dol_syslog(__METHOD__." ".implode(',', $this->errors), LOG_ERR);

      return -1;
    }
  }


  public function getCptsCat($cat_id, $predefinedgroupwhere = '')
  {
    global $conf, $mysoc;
    $sql = '';

    if (empty($mysoc->country_id) && empty($mysoc->country_code)) {
      dol_print_error('', 'Call to select_accounting_account with mysoc country not yet defined');
      exit();
    }

    if (!empty($cat_id))
    {
      $sql = "SELECT t.rowid, t.account_number, t.label as account_label";
      $sql .= " FROM ".MAIN_DB_PREFIX."accounting_account as t";
      $sql .= " WHERE t.fk_accounting_category = ".$cat_id;
      $sql .= " AND t.entity = ".$conf->entity;
      $sql .= " ORDER BY t.account_number";
    } else {
      $sql = "SELECT t.rowid, t.account_number, t.label as account_label";
      $sql .= " FROM ".MAIN_DB_PREFIX."accounting_account as t";
      $sql .= " WHERE ".$predefinedgroupwhere;
      $sql .= " AND t.entity = ".$conf->entity;
      $sql .= " ORDER BY t.account_number";
    }
    //echo $sql;

    $resql = $this->db->query($sql);
    if ($resql) {
      $i = 0;
      $obj = '';
      $num = $this->db->num_rows($resql);
      $data = array();
      if ($num) {
        while ($obj = $this->db->fetch_object($resql))
        {
          $data[] = array(
              'id' => $obj->rowid,
              'account_number' => $obj->account_number,
              'account_label' => $obj->account_label,
          );
          $i++;
        }
      }
      return $data;
    } else {
      $this->error = "Error ".$this->db->lasterror();
      dol_syslog(__METHOD__." ".$this->error, LOG_ERR);

      return -1;
    }
  }
}