mod_codecompta_aquarium.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2004-2007 Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2005      Eric Seigne          <eric.seigne@ryxeo.com>
 * Copyright (C) 2006-2011 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2024   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/>.
 * or see https://www.gnu.org/
 */
 
require_once DOL_DOCUMENT_ROOT.'/core/modules/societe/modules_societe.class.php';
 
 
class mod_codecompta_aquarium extends ModeleAccountancyCode
{
  public $name = 'Aquarium';
 
  public $code;
 
  public $version = 'dolibarr'; // 'development', 'experimental', 'dolibarr'
 
  public $prefixcustomeraccountancycode;
 
  public $prefixsupplieraccountancycode;
 
  public $position = 20;
 
 
  public function __construct()
  {
    global $conf;
    if (!isset($conf->global->COMPANY_AQUARIUM_MASK_CUSTOMER) || trim($conf->global->COMPANY_AQUARIUM_MASK_CUSTOMER) == '') {
      $conf->global->COMPANY_AQUARIUM_MASK_CUSTOMER = '411';
    }
    if (!isset($conf->global->COMPANY_AQUARIUM_MASK_SUPPLIER) || trim($conf->global->COMPANY_AQUARIUM_MASK_SUPPLIER) == '') {
      $conf->global->COMPANY_AQUARIUM_MASK_SUPPLIER = '401';
    }
 
    if (getDolGlobalString('COMPANY_AQUARIUM_NO_PREFIX')) {
      $this->prefixcustomeraccountancycode = '';
      $this->prefixsupplieraccountancycode = '';
    } else {
      $this->prefixcustomeraccountancycode = getDolGlobalString('COMPANY_AQUARIUM_MASK_CUSTOMER');
      $this->prefixsupplieraccountancycode = getDolGlobalString('COMPANY_AQUARIUM_MASK_SUPPLIER');
    }
  }
 
 
  public function info($langs)
  {
    global $form;
 
    $langs->load("companies");
 
    $tooltip = '';
    $texte = '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
    $texte .= '<input type="hidden" name="token" value="'.newToken().'">';
    $texte .= '<input type="hidden" name="page_y" value="">';
    $texte .= '<input type="hidden" name="action" value="setModuleOptions">';
    $texte .= '<input type="hidden" name="param1" value="COMPANY_AQUARIUM_MASK_SUPPLIER">';
    $texte .= '<input type="hidden" name="param2" value="COMPANY_AQUARIUM_MASK_CUSTOMER">';
    $texte .= '<table class="nobordernopadding" width="100%">';
    $s1 = $form->textwithpicto('<input type="text" class="flat" size="4" name="value1" value="' . getDolGlobalString('COMPANY_AQUARIUM_MASK_SUPPLIER').'">', $tooltip, 1, 'help', 'valignmiddle', 0, 3, $this->name);
    $s2 = $form->textwithpicto('<input type="text" class="flat" size="4" name="value2" value="' . getDolGlobalString('COMPANY_AQUARIUM_MASK_CUSTOMER').'">', $tooltip, 1, 'help', 'valignmiddle', 0, 3, $this->name);
    $texte .= '<tr><td>';
    // trans remove html entities
    $texte .= $langs->trans("ModuleCompanyCodeCustomer".$this->name, '{s2}')."<br>\n";
    $texte .= $langs->trans("ModuleCompanyCodeSupplier".$this->name, '{s1}')."<br>\n";
    $texte = str_replace(array('{s1}', '{s2}'), array($s1, $s2), $texte);
    $texte .= "<br>\n";
    if (getDolGlobalInt('COMPANY_AQUARIUM_REMOVE_SPECIAL')) {
      $texte .= $langs->trans('RemoveSpecialChars').' = '.yn(1)."<br>\n";
    }
    //if (!empty($conf->global->COMPANY_AQUARIUM_REMOVE_ALPHA)) $texte.=$langs->trans('COMPANY_AQUARIUM_REMOVE_ALPHA').' = '.yn($conf->global->COMPANY_AQUARIUM_REMOVE_ALPHA)."<br>\n";
    if (getDolGlobalString('COMPANY_AQUARIUM_CLEAN_REGEX')) {
      $texte .= $langs->trans('COMPANY_AQUARIUM_CLEAN_REGEX').' = ' . getDolGlobalString('COMPANY_AQUARIUM_CLEAN_REGEX')."<br>\n";
    }
 
    if (getDolGlobalString('COMPANY_AQUARIUM_NO_PREFIX')) {
      $texte .= $langs->trans('COMPANY_AQUARIUM_NO_PREFIX').' = ' . getDolGlobalString('COMPANY_AQUARIUM_NO_PREFIX')."<br>\n";
    }
    $texte .= '</td>';
    $texte .= '<td class="right"><input type="submit" class="button button-edit reposition smallpaddingimp" name="modify" value="'.$langs->trans("Modify").'"></td>';
    $texte .= '</tr></table>';
    $texte .= '</form>';
 
    return $texte;
  }
 
  public function getExample($langs = null, $objsoc = '', $type = -1)
  {
    $s = '';
    $s .= $this->prefixcustomeraccountancycode.'CUSTCODE';
    $s .= "<br>\n";
    $s .= $this->prefixsupplieraccountancycode.'SUPPCODE';
    return $s;
  }
 
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function get_code($db, $societe, $type = '')
  {
    // phpcs:enable
    global $conf;
 
    $i = 0;
    $this->db = $db;
 
    dol_syslog("mod_codecompta_aquarium::get_code search code for type=".$type." company=".(!empty($societe->name) ? $societe->name : ''));
 
    // Regle gestion compte compta
    if ($type == 'customer') {
      $codetouse = (!empty($societe->code_client) ? $societe->code_client : 'CUSTCODE');
      $prefix = $this->prefixcustomeraccountancycode;
    } elseif ($type == 'supplier') {
      $codetouse = (!empty($societe->code_fournisseur) ? $societe->code_fournisseur : 'SUPPCODE');
      $prefix = $this->prefixsupplieraccountancycode;
    } else {
      $this->error = 'Bad value for parameter type';
      return -1;
    }
 
    //$conf->global->COMPANY_AQUARIUM_CLEAN_REGEX='^..(..)..';
 
    // Remove special char if COMPANY_AQUARIUM_REMOVE_SPECIAL is set to 1 or not set (default)
    if (!isset($conf->global->COMPANY_AQUARIUM_REMOVE_SPECIAL) || getDolGlobalString('COMPANY_AQUARIUM_REMOVE_SPECIAL')) {
      $codetouse = preg_replace('/([^a-z0-9])/i', '', $codetouse);
    }
    // Remove special alpha if COMPANY_AQUARIUM_REMOVE_ALPHA is set to 1
    if (getDolGlobalString('COMPANY_AQUARIUM_REMOVE_ALPHA')) {
      $codetouse = preg_replace('/([a-z])/i', '', $codetouse);
    }
    // Apply a regex replacement pattern on code if COMPANY_AQUARIUM_CLEAN_REGEX is set. Value must be a regex with parenthesis. The part into parenthesis is kept, the rest removed.
    if (getDolGlobalString('COMPANY_AQUARIUM_CLEAN_REGEX')) { // Example: $conf->global->COMPANY_AQUARIUM_CLEAN_REGEX='^..(..)..';
      $codetouse = preg_replace('/' . getDolGlobalString('COMPANY_AQUARIUM_CLEAN_REGEX').'/', '\1\2\3', $codetouse);
    }
 
    $codetouse = $prefix.strtoupper($codetouse);
 
    $is_dispo = $this->verif($db, $codetouse, $societe, $type);
    $this->code = $codetouse;
    dol_syslog("mod_codecompta_aquarium::get_code found code=".$this->code);
    return $is_dispo;
  }
 
 
  public function verif($db, $code, $societe, $type)
  {
    $sql = "SELECT ";
    if ($type == 'customer') {
      $sql .= "code_compta";
    } elseif ($type == 'supplier') {
      $sql .= "code_compta_fournisseur";
    }
    $sql .= " FROM ".MAIN_DB_PREFIX."societe";
    $sql .= " WHERE ";
    if ($type == 'customer') {
      $sql .= "code_compta";
    } elseif ($type == 'supplier') {
      $sql .= "code_compta_fournisseur";
    }
    $sql .= " = '".$db->escape($code)."'";
    if (!empty($societe->id)) {
      $sql .= " AND rowid <> ".$societe->id;
    }
 
    $resql = $db->query($sql);
    if ($resql) {
      if ($db->num_rows($resql) == 0) {
        dol_syslog("mod_codecompta_aquarium::verif code '".$code."' available");
        return 1; // Dispo
      } else {
        dol_syslog("mod_codecompta_aquarium::verif code '".$code."' not available");
        return 0; // Non dispo
      }
    } else {
      $this->error = $db->error()." sql=".$sql;
      return -1; // Erreur
    }
  }
}