dolibarr 21.0.0-alpha
mod_chequereceipt_mint.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2015 Juanjo Menent <jmenent@2byte.es>
3 * Copyright (C) 2024 Frédéric France <frederic.france@free.fr>
4 * Copyright (C) 2024 MDW <mdeweerd@users.noreply.github.com>
5 *
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 3 of the License, or
9 * (at your option) any later version.
10 *
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
15 *
16 * You should have received a copy of the GNU General Public License
17 * along with this program. If not, see <https://www.gnu.org/licenses/>.
18 * or see https://www.gnu.org/
19 */
20
27require_once DOL_DOCUMENT_ROOT.'/core/modules/cheque/modules_chequereceipts.php';
28
33{
38 public $version = 'dolibarr'; // 'development', 'experimental', 'dolibarr'
39
40 public $prefix = 'CHK';
41
45 public $error = '';
46
47 public $name = 'Mint';
48
49
56 public function info($langs)
57 {
58 global $langs;
59 return $langs->trans("SimpleNumRefModelDesc", $this->prefix);
60 }
61
62
68 public function getExample()
69 {
70 return $this->prefix."0501-0001";
71 }
72
73
81 public function canBeActivated($object)
82 {
83 global $conf, $langs, $db;
84
85 $payyymm = '';
86 $max = '';
87
88 $posindice = strlen($this->prefix) + 6;
89 $sql = "SELECT MAX(CAST(SUBSTRING(ref FROM ".$posindice.") AS SIGNED)) as max";
90 $sql .= " FROM ".MAIN_DB_PREFIX."bordereau_cheque";
91 $sql .= " WHERE ref LIKE '".$db->escape($this->prefix)."____-%'";
92 $sql .= " AND entity = ".$conf->entity;
93
94 $resql = $db->query($sql);
95 if ($resql) {
96 $row = $db->fetch_row($resql);
97 if ($row) {
98 $payyymm = substr($row[0], 0, 6);
99 $max = $row[0];
100 }
101 }
102 if ($payyymm && !preg_match('/'.$this->prefix.'[0-9][0-9][0-9][0-9]/i', $payyymm)) {
103 $langs->load("errors");
104 $this->error = $langs->trans('ErrorNumRefModel', $max);
105 return false;
106 }
107
108 return true;
109 }
110
118 public function getNextValue($objsoc, $object)
119 {
120 global $db, $conf;
121
122 // First, we get the max value
123 $posindice = strlen($this->prefix) + 6;
124 $sql = "SELECT MAX(CAST(SUBSTRING(ref FROM ".$posindice.") AS SIGNED)) as max";
125 $sql .= " FROM ".MAIN_DB_PREFIX."bordereau_cheque";
126 $sql .= " WHERE ref like '".$db->escape($this->prefix)."____-%'";
127 $sql .= " AND entity = ".$conf->entity;
128
129 $resql = $db->query($sql);
130 if ($resql) {
131 $obj = $db->fetch_object($resql);
132 if ($obj) {
133 $max = intval($obj->max);
134 } else {
135 $max = 0;
136 }
137 } else {
138 dol_syslog(__METHOD__, LOG_DEBUG);
139 return -1;
140 }
141
142 //$date=time();
143 $date = $object->date_bordereau;
144 $yymm = dol_print_date($date, "%y%m");
145
146 if ($max >= (pow(10, 4) - 1)) {
147 $num = $max + 1; // If counter > 9999, we do not format on 4 chars, we take number as it is
148 } else {
149 $num = sprintf("%04d", $max + 1);
150 }
151
152 dol_syslog(__METHOD__." return ".$this->prefix.$yymm."-".$num);
153 return $this->prefix.$yymm."-".$num;
154 }
155}
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
Definition card.php:58
Class parent for cheque Receipts numbering references mother class.
Class to manage cheque receipts numbering rules Mint.
getExample()
Return an example of numbering.
getNextValue($objsoc, $object)
Return next free value.
canBeActivated($object)
Checks if the numbers already in the database do not cause conflicts that would prevent this numberin...
info($langs)
Return description of numbering module.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs=null, $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.