mod_bookkeeping_argon.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2025    Jean-Rémi Taponier   <jean-remi@netlogic.fr>
 * Copyright (C) 2025   MDW         <mdeweerd@users.noreply.github.com>
 *
 * 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/lib/functions2.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/modules/accountancy/modules_accountancy.php';
 
class mod_bookkeeping_argon extends ModeleNumRefBookkeeping
{
  public $version = 'dolibarr'; // 'development', 'experimental', 'dolibarr'
 
  public $error = '';
 
  public $name = 'Argon';
 
  public $position = 50;
 
 
  public function __construct()
  {
    // Nothing
  }
 
  public function info($langs): string
  {
    global $langs;
    return $langs->trans("BookkeepingNumRefModelDesc");
  }
 
 
  public function getExample(): string
  {
    return "2501VT00001";
  }
 
 
  public function canBeActivated($object): bool
  {
    global $langs;
 
    $max = '';
 
    if (get_class($object) !== 'BookKeeping') {
      return false;
    }
 
    $prefix = $this->getPrefix($object);
    // If prefix size is not 7, prefix is not correct (YYYYCCC)
    if (!empty($prefix) || strlen($prefix) !== 7) {
      $langs->load("errors");
      $this->error = $langs->trans('ErrorNumRefModel', $max);
      return false;
    }
 
    return true;
  }
 
  public function getNextValue(BookKeeping $object, $mode = 'next')
  {
    global $conf, $db;
 
    // Get mask
    $mask = '{yy}{mm}{jj}{00000@99}';
 
    $where = '';
 
    // Get entities
    //$entity = getEntity('invoicenumber', 1, $object);
    $entity = $conf->entity;  // In accountancy, we never share entities
    $numFinal = get_next_value($db, $mask, 'accounting_bookkeeping', 'ref', $where, null, $object->doc_date, $mode, false, null, (string) $entity, $object);
    if (!preg_match('/([0-9])+/', $numFinal)) {
      $this->error = $numFinal;
    }
 
    return $numFinal;
  }
 
  private function getPrefix(BookKeeping $object): string
  {
    $fiscalStartMonth = getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1);
    $docYear = (int) dol_print_date($object->doc_date, '%Y');
    $docMonth = (int) dol_print_date($object->doc_date, '%m');
    $docFiscalYear = $docMonth < $fiscalStartMonth ? ($docYear - 1) : $docYear;
    return $docFiscalYear .  str_pad((string) $object->code_journal, 3, "0", STR_PAD_LEFT);
  }
}