html.formaccounting.class.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2013-2016  Florian Henry           <florian.henry@open-concept.pro>
 * Copyright (C) 2013-2014  Olivier Geffroy         <jeff@jeffinfo.com>
 * Copyright (C) 2015       Ari Elbaz (elarifr)     <github@accedinfo.com>
 * Copyright (C) 2016       Marcos García           <marcosgdf@gmail.com>
 * Copyright (C) 2016-2024  Alexandre Spangaro      <aspangaro@easya.solutions>
 * Copyright (C) 2024-2025  MDW           <mdeweerd@users.noreply.github.com>
 * Copyright (C) 2024   Frédéric France     <frederic.france@free.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/>.
 */
 
require_once DOL_DOCUMENT_ROOT.'/core/class/html.form.class.php';
 
 
class FormAccounting extends Form
{
  private $options_cache = array();
 
  public $db;
 
  public $error = '';
 
  public $nbaccounts;
  public $nbaccounts_category;
 
 
  public function __construct($db)
  {
    $this->db = $db;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function select_journal($selectid, $htmlname = 'journal', $nature = 0, $showempty = 0, $select_in = 0, $select_out = 0, $morecss = 'maxwidth300 maxwidthonsmartphone', $usecache = '', $disabledajaxcombo = 0)
  {
    // phpcs:enable
    global $conf, $langs;
 
    $out = '';
 
    $options = array();
    if ($usecache && !empty($this->options_cache[$usecache])) {
      $options = $this->options_cache[$usecache];
      $selected = $selectid;
    } else {
      $sql = "SELECT rowid, code, label, nature, entity, active";
      $sql .= " FROM ".$this->db->prefix()."accounting_journal";
      $sql .= " WHERE active = 1";
      $sql .= " AND entity = ".((int) $conf->entity);
      if ($nature && is_numeric($nature)) {
        $sql .= " AND nature = ".((int) $nature);
      }
      $sql .= " ORDER BY code";
 
      dol_syslog(get_class($this)."::select_journal", LOG_DEBUG);
      $resql = $this->db->query($sql);
 
      if (!$resql) {
        $this->error = "Error ".$this->db->lasterror();
        dol_syslog(get_class($this)."::select_journal ".$this->error, LOG_ERR);
        return -1;
      }
 
      $selected = 0;
      $langs->load('accountancy');
      while ($obj = $this->db->fetch_object($resql)) {
        $label = $obj->code.' - '.$langs->trans($obj->label);
 
        $select_value_in = $obj->rowid;
        $select_value_out = $obj->rowid;
 
        // Try to guess if we have found default value
        if ($select_in == 1) {
          $select_value_in = $obj->code;
        }
        if ($select_out == 1) {
          $select_value_out = $obj->code;
        }
        // Remember guy's we store in database llx_accounting_bookkeeping the code of accounting_journal and not the rowid
        if ($selectid != '' && $selectid == $select_value_in) {
          //var_dump("Found ".$selectid." ".$select_value_in);
          $selected = $select_value_out;
        }
 
        $options[$select_value_out] = $label;
      }
      $this->db->free($resql);
 
      if ($usecache) {
        $this->options_cache[$usecache] = $options;
      }
    }
 
    $out .= Form::selectarray($htmlname, $options, $selected, $showempty, 0, 0, '', 0, 0, 0, '', $morecss, ($disabledajaxcombo ? 0 : 1));
 
    return $out;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function multi_select_journal($selectedIds = array(), $htmlname = 'journal', $nature = 0, $showempty = 0, $select_in = 0, $select_out = 0, $morecss = '', $usecache = '', $disabledajaxcombo = 0)
  {
    // phpcs:enable
    global $conf, $langs;
 
    $out = '';
 
    $options = array();
    if ($usecache && !empty($this->options_cache[$usecache])) {
      $options = $this->options_cache[$usecache];
      $selected = $selectedIds;
    } else {
      $sql = "SELECT rowid, code, label, nature, entity, active";
      $sql .= " FROM ".$this->db->prefix()."accounting_journal";
      $sql .= " WHERE active = 1";
      $sql .= " AND entity = ".$conf->entity;
      if ($nature && is_numeric($nature)) {
        $sql .= " AND nature = ".((int) $nature);
      }
      $sql .= " ORDER BY code";
 
      dol_syslog(get_class($this)."::multi_select_journal", LOG_DEBUG);
      $resql = $this->db->query($sql);
 
      if (!$resql) {
        $this->error = "Error ".$this->db->lasterror();
        dol_syslog(get_class($this)."::multi_select_journal ".$this->error, LOG_ERR);
        return -1;
      }
 
      $selected = array();
      $langs->load('accountancy');
      while ($obj = $this->db->fetch_object($resql)) {
        $label = $langs->trans($obj->label);
 
        $select_value_in = $obj->rowid;
        $select_value_out = $obj->rowid;
 
        // Try to guess if we have found default value
        if ($select_in == 1) {
          $select_value_in = $obj->code;
        }
        if ($select_out == 1) {
          $select_value_out = $obj->code;
        }
        // Remember guy's we store in database llx_accounting_bookkeeping the code of accounting_journal and not the rowid
        if (!empty($selectedIds) && in_array($select_value_in, $selectedIds)) {
          //var_dump("Found ".$selectid." ".$select_value_in);
          $selected[] = $select_value_out;
        }
        $options[$select_value_out] = $label;
      }
      $this->db->free($resql);
 
      if ($usecache) {
        $this->options_cache[$usecache] = $options;
      }
    }
 
    $out .= Form::multiselectarray($htmlname, $options, $selected, $showempty, 0, $morecss, 0, 0, '', 'code_journal', '', ($disabledajaxcombo ? 0 : 1));
 
    return $out;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function select_accounting_category($selected = 0, $htmlname = 'account_category', $useempty = 0, $maxlen = 0, $help = 1, $allcountries = 0)
  {
    // phpcs:enable
    global $langs, $mysoc;
 
    if (empty($mysoc->country_id) && empty($mysoc->country_code) && empty($allcountries)) {
      dol_print_error(null, 'Call to select_accounting_account with mysoc country not yet defined');
      exit;
    }
 
    $out = '';
 
    if (!empty($mysoc->country_id)) {
      $sql = "SELECT c.rowid, c.label as type, c.range_account";
      $sql .= " FROM ".$this->db->prefix()."c_accounting_category as c";
      $sql .= " WHERE c.active = 1";
      $sql .= " AND c.category_type = 0";
      if (empty($allcountries)) {
        $sql .= " AND c.fk_country = ".((int) $mysoc->country_id);
      }
      $sql .= " ORDER BY c.label ASC";
    } else {
      $sql = "SELECT c.rowid, c.label as type, c.range_account";
      $sql .= " FROM ".$this->db->prefix()."c_accounting_category as c, ".$this->db->prefix()."c_country as co";
      $sql .= " WHERE c.active = 1";
      $sql .= " AND c.category_type = 0";
      $sql .= " AND c.fk_country = co.rowid";
      if (empty($allcountries)) {
        $sql .= " AND co.code = '".$this->db->escape($mysoc->country_code)."'";
      }
      $sql .= " ORDER BY c.label ASC";
    }
 
    $this->nbaccounts_category = 0;
 
    dol_syslog(get_class($this).'::'.__METHOD__, LOG_DEBUG);
    $resql = $this->db->query($sql);
    if ($resql) {
      $num = $this->db->num_rows($resql);
      if ($num) {
        $this->nbaccounts_category = $num;
 
        $out .= '<select class="flat minwidth200" id="'.$htmlname.'" name="'.$htmlname.'">';
        $i = 0;
 
        if ($useempty) {
          $out .= '<option value="0">&nbsp;</option>';
        }
        while ($i < $num) {
          $obj = $this->db->fetch_object($resql);
 
          $titletoshowhtml = ($maxlen ? dol_trunc($obj->type, $maxlen) : $obj->type).($obj->range_account ? ' <span class="opacitymedium">('.$obj->range_account.')</span>' : '');
          $titletoshow = ($maxlen ? dol_trunc($obj->type, $maxlen) : $obj->type).($obj->range_account ? ' ('.$obj->range_account.')' : '');
 
          $out .= '<option value="'.$obj->rowid.'"';
          if ($obj->rowid == $selected) {
            $out .= ' selected';
          }
          //$out .= ' data-html="'.dol_escape_htmltag(dol_string_onlythesehtmltags($titletoshowhtml, 1, 0, 0, 0, array('span'))).'"';
          $out .= ' data-html="'.dolPrintHTMLForAttribute($titletoshowhtml).'"';
          $out .= '>';
          $out .= dol_escape_htmltag($titletoshow);
          $out .= '</option>';
          $i++;
        }
        $out .= '</select>';
        //if ($user->admin && $help) $out .= info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionarySetup"),1);
 
        $out .= ajax_combobox($htmlname, array());
      } else {
        $out .= '<span class="opacitymedium">'.$langs->trans("ErrorNoAccountingCategoryForThisCountry", $mysoc->country_code, $langs->transnoentitiesnoconv("Accounting"), $langs->transnoentitiesnoconv("Setup"), $langs->transnoentitiesnoconv("AccountingCategories")).'</span>';
      }
    } else {
      dol_print_error($this->db);
    }
 
    return $out;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function select_bookkeeping_importkey($htmlname = 'importkey', $selectedkey = '')
  {
    // phpcs:enable
    $options = array();
 
    $sql = "SELECT DISTINCT import_key FROM ".$this->db->prefix()."accounting_bookkeeping";
    $sql .= " WHERE entity IN (".getEntity('accountancy').")";
    $sql .= ' ORDER BY import_key DESC';
 
    dol_syslog(get_class($this)."::select_bookkeeping_importkey", LOG_DEBUG);
    $resql = $this->db->query($sql);
 
    if (!$resql) {
      $this->error = "Error ".$this->db->lasterror();
      dol_syslog(get_class($this)."::select_bookkeeping_importkey ".$this->error, LOG_ERR);
      return -1;
    }
 
    while ($obj = $this->db->fetch_object($resql)) {
      $options[$obj->import_key] = $obj->import_key;
    }
 
    return Form::selectarray($htmlname, $options, $selectedkey);
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function select_account($selectid, $htmlname = 'account', $showempty = 0, $event = array(), $select_in = 0, $select_out = 0, $morecss = 'minwidth100 maxwidth300 maxwidthonsmartphone', $usecache = '', $active = '1', $centralized = 0)
  {
    global $conf, $langs;
    require_once DOL_DOCUMENT_ROOT.'/core/lib/accounting.lib.php';
 
    $out = '';
    $selected = '';
    $options = [];
 
    if ($showempty == 2) {
      $options['0'] = '--- '.$langs->trans("None").' ---';
    }
 
    if ($usecache && !empty($this->options_cache[$usecache])) {
      $options += $this->options_cache[$usecache];
      $selected = $selectid;
    } else {
      $trunclength = getDolGlobalInt('ACCOUNTING_LENGTH_DESCRIPTION_ACCOUNT', 50);
 
      // Construct SQL request
      $sql = "SELECT DISTINCT aa.account_number, aa.label, aa.labelshort, aa.rowid, aa.fk_pcg_version, aa.centralized";
      $sql .= " FROM ".$this->db->prefix()."accounting_account as aa";
      $sql .= " INNER JOIN ".$this->db->prefix()."accounting_system as asy ON aa.fk_pcg_version = asy.pcg_version";
      $sql .= " AND asy.rowid = ".((int) getDolGlobalInt('CHARTOFACCOUNTS'));
 
      if ($active === '1') {
        $sql .= " AND aa.active = 1";
      } elseif ($active === '0') {
        $sql .= " AND aa.active = 0";
      }
 
      if ($centralized == 1) {
        $sql .= " AND aa.centralized = 1";
      }
 
      $sql .= " AND aa.entity=".((int) $conf->entity);
 
      // Sorting: centralized accounts first, then others
      if ($centralized == 2) {
        $sql .= " ORDER BY aa.centralized DESC, aa.account_number";
      } else {
        $sql .= " ORDER BY aa.account_number";
      }
 
      dol_syslog(get_class($this)."::select_account", LOG_DEBUG);
      $resql = $this->db->query($sql);
 
      if (!$resql) {
        $this->error = "Error ".$this->db->lasterror();
        dol_syslog(get_class($this)."::select_account ".$this->error, LOG_ERR);
        return -1;
      }
 
      $num_rows = $this->db->num_rows($resql);
 
      if ($num_rows == 0 && getDolGlobalInt('CHARTOFACCOUNTS') <= 0) {
        $langs->load("errors");
        $showempty = $langs->trans("ErrorYouMustFirstSetupYourChartOfAccount");
      } else {
        $selected = $selectid;
        $lastCentralized = null;
 
        while ($obj = $this->db->fetch_object($resql)) {
          // Insert a separator if you change category (centralized = 1 → 0)
          if ($centralized == 2 && $lastCentralized !== null && $lastCentralized != $obj->centralized) {
            $options['0'] = '-------------'; // Visual separator
          }
 
          $lastCentralized = $obj->centralized;
 
          $labeltoshow = !empty($obj->labelshort) ? $obj->labelshort : $obj->label;
          $label = length_accountg($obj->account_number).' - '.$labeltoshow;
          $label = dol_trunc($label, $trunclength);
 
          $select_value_in = $obj->rowid;
          $select_value_out = $obj->rowid;
 
          if ($select_in == 1) {
            $select_value_in = $obj->account_number;
          }
          if ($select_out == 1) {
            $select_value_out = $obj->account_number;
          }
 
          if ($selectid != '' && $selectid == $select_value_in) {
            $selected = $select_value_out;
          }
 
          $options[$select_value_out] = $label;
        }
      }
 
      $this->db->free($resql);
 
      if ($usecache) {
        $this->options_cache[$usecache] = $options;
        unset($this->options_cache[$usecache]['0']);
      }
    }
 
    $out .= Form::selectarray($htmlname, $options, $selected, ($showempty ? (is_numeric($showempty) ? 1 : $showempty) : 0), 0, 0, '', 0, 0, 0, '', $morecss, 1);
    $this->nbaccounts = count($options) - ($showempty == 2 ? 1 : 0);
 
    return $out;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function select_auxaccount($selectid, $htmlname = 'account_num_aux', $showempty = 0, $morecss = 'minwidth100 maxwidth300 maxwidthonsmartphone', $usecache = '', $labelhtmlname = '')
  {
    // phpcs:enable
    global $conf;
 
    $aux_account = array();
 
    if ($usecache && !empty($this->options_cache[$usecache])) {
      $aux_account += $this->options_cache[$usecache]; // We use + instead of array_merge because we don't want to reindex key from 0
    } else {
      dol_syslog(get_class($this)."::select_auxaccount", LOG_DEBUG);
 
      // Auxiliary thirdparties account
      $sql = "SELECT code_compta as code_compta_client, code_compta_fournisseur, nom as name";
      $sql .= " FROM ".$this->db->prefix()."societe";
      $sql .= " WHERE entity IN (".getEntity('societe').")";
      $sql .= " AND (client IN (1,3) OR fournisseur = 1)";
 
      $resql = $this->db->query($sql);
      if ($resql) {
        while ($obj = $this->db->fetch_object($resql)) {
          if (!empty($obj->code_compta_client)) {
            $aux_account[$obj->code_compta_client] = $obj->code_compta_client.' <span class="opacitymedium">('.$obj->name.')</span>';
          }
          if (!empty($obj->code_compta_fournisseur)) {
            $aux_account[$obj->code_compta_fournisseur] = $obj->code_compta_fournisseur.' <span class="opacitymedium">('.$obj->name.')</span>';
          }
        }
      } else {
        $this->error = "Error ".$this->db->lasterror();
        dol_syslog(get_class($this)."::select_auxaccount ".$this->error, LOG_ERR);
        return -1;
      }
 
      $this->db->free($resql);
 
      // Auxiliary user account
      $sql = "SELECT DISTINCT accountancy_code, lastname, firstname ";
      $sql .= " FROM ".$this->db->prefix()."user";
      $sql .= " WHERE entity IN (".getEntity('user').")";
      $sql .= " ORDER BY accountancy_code";
 
      $resql = $this->db->query($sql);
      if ($resql) {
        while ($obj = $this->db->fetch_object($resql)) {
          if (!empty($obj->accountancy_code)) {
            $aux_account[$obj->accountancy_code] = $obj->accountancy_code.' <span class="opacitymedium">('.dolGetFirstLastname($obj->firstname, $obj->lastname).')</span>';
          }
        }
      } else {
        $this->error = "Error ".$this->db->lasterror();
        dol_syslog(get_class($this)."::select_auxaccount ".$this->error, LOG_ERR);
        return -1;
      }
      $this->db->free($resql);
 
      ksort($aux_account);
 
      if ($usecache) {
        $this->options_cache[$usecache] = $aux_account;
      }
    }
 
    // Build select
    $out = '';
    $out .= Form::selectarray($htmlname, $aux_account, $selectid, ($showempty ? (is_numeric($showempty) ? 1 : $showempty) : 0), 0, 0, '', 0, 0, 0, '', $morecss, 1);
    //automatic filling if we give the name of the subledger_label input
    if (!empty($conf->use_javascript_ajax) && !empty($labelhtmlname)) {
      $out .= '<script nonce="'.getNonce().'">
        jQuery(document).ready(() => {
          $("#'.$htmlname.'").on("select2:select", function(e) {
            var regExp = /\‍(([^)]+)\‍)/;
            const match = regExp.exec(e.params.data.text);
            $(\'input[name="'.dol_escape_js($labelhtmlname).'"]\').val(match[1]);
          });
        });
 
      </script>';
    }
 
    return $out;
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function selectyear_accountancy_bookkepping($selected = '', $htmlname = 'yearid', $useempty = 0, $output_format = 'html')
  {
    // phpcs:enable
    global $conf;
 
    $out_array = array();
 
    $sql = "SELECT DISTINCT date_format(doc_date, '%Y') as dtyear";
    $sql .= " FROM ".$this->db->prefix()."accounting_bookkeeping";
    $sql .= " WHERE entity IN (".getEntity('accountancy').")";
    $sql .= " ORDER BY date_format(doc_date, '%Y')";
    dol_syslog(__METHOD__, LOG_DEBUG);
    $resql = $this->db->query($sql);
 
    if (!$resql) {
      $this->error = "Error ".$this->db->lasterror();
      dol_syslog(__METHOD__.$this->error, LOG_ERR);
      return -1;
    }
    while ($obj = $this->db->fetch_object($resql)) {
      $out_array[$obj->dtyear] = $obj->dtyear;
    }
    $this->db->free($resql);
 
    if ($output_format == 'html') {
      return Form::selectarray($htmlname, $out_array, $selected, $useempty, 0, 0, 'placeholder="aa"');
    } else {
      return $out_array;
    }
  }
 
  public function formAccountingAccount($page, $selected = '', $htmlname = 'none', $option = 0, $useempty = 1, $filter = '', $nooutput = 0)
  {
    global $langs;
 
    $out = '';
    if ($htmlname != "none") {
      $out .= '<form method="post" action="' . $page . '">';
      $out .= '<input type="hidden" name="action" value="set'.$htmlname.'">';
      $out .= '<input type="hidden" name="token" value="' . newToken() . '">';
      if ($option == 0) {
        $out .= $this->select_account($selected, $htmlname, $useempty, array(), 1, 1, 'minwidth100 maxwidth300 maxwidthonsmartphone', 'accounts', $filter);
      } else {
        $out .= $this->select_auxaccount($selected, $htmlname, $useempty, 'minwidth100 maxwidth300 maxwidthonsmartphone', 'subaccounts');
      }
      $out .= '<input type="submit" class="button smallpaddingimp valignmiddle" name="modify" value="' . $langs->trans("Modify") . '">';
      //$out .= '<input type="submit" class="button smallpaddingimp valignmiddle button-cancel" name="cancel" value="' . $langs->trans("Cancel") . '">';
      $out .= '</form>';
    } else {
      $out .= "&nbsp;";
    }
 
    if ($nooutput) {
      return $out;
    } else {
      print $out;
    }
  }
 
  public static function printJournalLine($langs, $date, $ref, $accountAccounting, $labelOperation, $paymentMode, $amount)
  {
    $out = '<tr class="oddeven">';
    $out .= '<td>'.$date.'</td>';
    $out .= '<td>'.$ref.'</td>';
    // Ledger account
    $out .= '<td>';
    $accounttoshow = length_accountg($accountAccounting);
    if (empty($accounttoshow) || $accounttoshow == 'NotDefined') {
      // Could be ProductAccountNotDefined, VATAccountNotDefined, ...
      $out .= '<span class="error">'.$langs->trans('AccountNotDefined').'</span>';
    } else {
      $out .= $accounttoshow;
    }
    $out .= '</td>';
    $out .= '<td>'.$labelOperation.'</td>';
    $out .= '<td class="center">'.$paymentMode.'</td>';
    $out .= '<td class="nowraponall right amount">'.($amount >= 0 ? price($amount) : '').'</td>';
    $out .= '<td class="nowraponall right amount">'.($amount < 0 ? price(-$amount) : '').'</td>';
    $out .= '</tr>';
 
    print $out;
  }
}