dolibarr  17.0.2
chequereceipts.php
1 <?php
2 /* Copyright (C) 2009 Laurent Destailleur <eldy@users.sourceforge.net>
3  * Copyright (C) 2010-2016 Juanjo Menent <jmenent@2byte.es>
4  * Copyright (C) 2013-2018 Philippe Grand <philippe.grand@atoo-net.com>
5  * Copyright (C) 2015 Jean-Fran├žois Ferry <jfefe@aternatik.fr>
6  *
7  * This program is free software; you can redistribute it and/or modify
8  * it under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 3 of the License, or
10  * (at your option) any later version.
11  *
12  * This program is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with this program. If not, see <https://www.gnu.org/licenses/>.
19  */
20 
21 
28 // Load Dolibarr environment
29 require '../main.inc.php';
30 require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
31 require_once DOL_DOCUMENT_ROOT.'/core/lib/pdf.lib.php';
32 require_once DOL_DOCUMENT_ROOT.'/core/lib/bank.lib.php';
33 require_once DOL_DOCUMENT_ROOT.'/compta/paiement/cheque/class/remisecheque.class.php';
34 
35 // Load translation files required by the page
36 $langs->loadLangs(array("admin", "companies", "bills", "other", "banks"));
37 
38 if (!$user->admin) {
40 }
41 
42 $action = GETPOST('action', 'aZ09');
43 $value = GETPOST('value', 'alpha');
44 
45 
46 if (empty($conf->global->CHEQUERECEIPTS_ADDON)) {
47  $conf->global->CHEQUERECEIPTS_ADDON = 'mod_chequereceipts_mint.php';
48 }
49 
50 
51 
52 /*
53  * Actions
54  */
55 
56 if ($action == 'updateMask') {
57  $maskconstchequereceipts = GETPOST('maskconstchequereceipts', 'aZ09');
58  $maskchequereceipts = GETPOST('maskchequereceipts', 'alpha');
59  if ($maskconstchequereceipts && preg_match('/_MASK$/', $maskconstchequereceipts)) {
60  $res = dolibarr_set_const($db, $maskconstchequereceipts, $maskchequereceipts, 'chaine', 0, '', $conf->entity);
61  }
62 
63  if (!($res > 0)) {
64  $error++;
65  }
66 
67  if (!$error) {
68  setEventMessages($langs->trans("SetupSaved"), null, 'mesgs');
69  } else {
70  setEventMessages($langs->trans("Error"), null, 'errors');
71  }
72 }
73 
74 if ($action == 'setmod') {
75  dolibarr_set_const($db, "CHEQUERECEIPTS_ADDON", $value, 'chaine', 0, '', $conf->entity);
76 }
77 
78 if ($action == 'set_BANK_CHEQUERECEIPT_FREE_TEXT') {
79  $freetext = GETPOST('BANK_CHEQUERECEIPT_FREE_TEXT', 'restricthtml'); // No alpha here, we want exact string
80 
81  $res = dolibarr_set_const($db, "BANK_CHEQUERECEIPT_FREE_TEXT", $freetext, 'chaine', 0, '', $conf->entity);
82 
83  if (!($res > 0)) {
84  $error++;
85  }
86 
87  if (!$error) {
88  setEventMessages($langs->trans("SetupSaved"), null, 'mesgs');
89  } else {
90  setEventMessages($langs->trans("Error"), null, 'errors');
91  }
92 }
93 
94 /*
95  * View
96  */
97 
98 $dirmodels = array_merge(array('/'), (array) $conf->modules_parts['models']);
99 llxHeader("", $langs->trans("BankSetupModule"));
100 
101 $form = new Form($db);
102 
103 $linkback = '<a href="'.DOL_URL_ROOT.'/admin/modules.php?restore_lastsearch_values=1">'.$langs->trans("BackToModuleList").'</a>';
104 print load_fiche_titre($langs->trans("BankSetupModule"), $linkback, 'title_setup');
105 
106 $head = bank_admin_prepare_head(null);
107 print dol_get_fiche_head($head, 'checkreceipts', $langs->trans("BankSetupModule"), -1, 'account');
108 
109 /*
110  * Numbering module
111  */
112 
113 print load_fiche_titre($langs->trans("ChequeReceiptsNumberingModule"), '', '');
114 
115 print '<table class="noborder centpercent">';
116 print '<tr class="liste_titre">';
117 print '<td>'.$langs->trans("Name").'</td>';
118 print '<td>'.$langs->trans("Description").'</td>';
119 print '<td class="nowrap">'.$langs->trans("Example").'</td>';
120 print '<td class="center" width="60">'.$langs->trans("Status").'</td>';
121 print '<td class="center" width="16">'.$langs->trans("ShortInfo").'</td>';
122 print '</tr>'."\n";
123 
124 clearstatcache();
125 
126 foreach ($dirmodels as $reldir) {
127  $dir = dol_buildpath($reldir."core/modules/cheque/");
128  if (is_dir($dir)) {
129  $handle = opendir($dir);
130  if (is_resource($handle)) {
131  while (($file = readdir($handle)) !== false) {
132  if (!is_dir($dir.$file) || (substr($file, 0, 1) <> '.' && substr($file, 0, 3) <> 'CVS')) {
133  $filebis = $file;
134  $name = substr($file, 4, dol_strlen($file) - 16);
135  $classname = preg_replace('/\.php$/', '', $file);
136  // For compatibility
137  if (!is_file($dir.$filebis)) {
138  $filebis = $file."/".$file.".modules.php";
139  $classname = "mod_chequereceipt_".$file;
140  }
141  // Check if there is a filter on country
142  preg_match('/\-(.*)_(.*)$/', $classname, $reg);
143  if (!empty($reg[2]) && $reg[2] != strtoupper($mysoc->country_code)) {
144  continue;
145  }
146 
147  $classname = preg_replace('/\-.*$/', '', $classname);
148  if (!class_exists($classname) && is_readable($dir.$filebis) && (preg_match('/mod_/', $filebis) || preg_match('/mod_/', $classname)) && substr($filebis, dol_strlen($filebis) - 3, 3) == 'php') {
149  // Charging the numbering class
150  require_once $dir.$filebis;
151 
152  $module = new $classname($db);
153 
154  // Show modules according to features level
155  if ($module->version == 'development' && $conf->global->MAIN_FEATURES_LEVEL < 2) {
156  continue;
157  }
158  if ($module->version == 'experimental' && $conf->global->MAIN_FEATURES_LEVEL < 1) {
159  continue;
160  }
161 
162  if ($module->isEnabled()) {
163  print '<tr class="oddeven"><td width="100">';
164  print (empty($module->name) ? $name : $module->name);
165  print "</td><td>\n";
166 
167  print $module->info();
168 
169  print '</td>';
170 
171  // Show example of numbering module
172  print '<td class="nowrap">';
173  $tmp = $module->getExample();
174  if (preg_match('/^Error/', $tmp)) {
175  $langs->load("errors");
176  print '<div class="error">'.$langs->trans($tmp).'</div>';
177  } elseif ($tmp == 'NotConfigured') {
178  print '<span class="opacitymedium">'.$langs->trans($tmp).'</span>';
179  } else {
180  print $tmp;
181  }
182  print '</td>'."\n";
183 
184  print '<td class="center">';
185  if ($conf->global->CHEQUERECEIPTS_ADDON == $file || $conf->global->CHEQUERECEIPTS_ADDON.'.php' == $file) {
186  print img_picto($langs->trans("Activated"), 'switch_on');
187  } else {
188  print '<a class="reposition" href="'.$_SERVER["PHP_SELF"].'?action=setmod&token='.newToken().'&value='.preg_replace('/\.php$/', '', $file).'&scan_dir='.$module->scandir.'&label='.urlencode($module->name).'" alt="'.$langs->trans("Default").'">'.img_picto($langs->trans("Disabled"), 'switch_off').'</a>';
189  }
190  print '</td>';
191 
192  $chequereceipts = new RemiseCheque($db);
193  $chequereceipts->initAsSpecimen();
194 
195  // Example
196  $htmltooltip = '';
197  $htmltooltip .= ''.$langs->trans("Version").': <b>'.$module->getVersion().'</b><br>';
198  $nextval = $module->getNextValue($mysoc, $chequereceipts);
199  if ("$nextval" != $langs->trans("NotAvailable")) { // Keep " on nextval
200  $htmltooltip .= $langs->trans("NextValue").': ';
201  if ($nextval) {
202  if (preg_match('/^Error/', $nextval) || $nextval == 'NotConfigured') {
203  $nextval = $langs->trans($nextval);
204  }
205  $htmltooltip .= $nextval.'<br>';
206  } else {
207  $htmltooltip .= $langs->trans($module->error).'<br>';
208  }
209  }
210 
211  print '<td class="center">';
212  print $form->textwithpicto('', $htmltooltip, 1, 0);
213 
214  if (getDolGlobalString('CHEQUERECEIPTS_ADDON').'.php' == $file) { // If module is the one used, we show existing errors
215  if (!empty($module->error)) {
216  dol_htmloutput_mesg($module->error, '', 'error', 1);
217  }
218  }
219 
220  print '</td>';
221 
222  print "</tr>\n";
223  }
224  }
225  }
226  }
227  closedir($handle);
228  }
229  }
230 }
231 
232 print '</table>';
233 
234 print '<br>';
235 
236 
237 /*
238  * Other options
239  */
240 print load_fiche_titre($langs->trans("OtherOptions"), '', '');
241 
242 print '<form action="'.$_SERVER["PHP_SELF"].'" method="post">';
243 print '<input type="hidden" name="token" value="'.newToken().'">';
244 print '<input type="hidden" name="action" value="set_BANK_CHEQUERECEIPT_FREE_TEXT">';
245 
246 print '<table class="noborder centpercent">';
247 print '<tr class="liste_titre">';
248 print '<td>'.$langs->trans("Parameters").'</td>';
249 print '<td class="center" width="60">&nbsp;</td>';
250 print '<td width="80">&nbsp;</td>';
251 print "</tr>\n";
252 
253 $substitutionarray = pdf_getSubstitutionArray($langs, null, null, 2);
254 $substitutionarray['__(AnyTranslationKey)__'] = $langs->trans("Translation");
255 $htmltext = '<i>'.$langs->trans("AvailableVariables").':<br>';
256 foreach ($substitutionarray as $key => $val) {
257  $htmltext .= $key.'<br>';
258 }
259 $htmltext .= '</i>';
260 
261 print '<tr class="oddeven"><td colspan="2">';
262 print $form->textwithpicto($langs->trans("FreeLegalTextOnChequeReceipts"), $langs->trans("AddCRIfTooLong").'<br><br>'.$htmltext, 1, 'help', '', 0, 2, 'freetexttooltip').'<br>';
263 $variablename = 'BANK_CHEQUERECEIPT_FREE_TEXT';
264 if (empty($conf->global->PDF_ALLOW_HTML_FOR_FREE_TEXT)) {
265  print '<textarea name="'.$variablename.'" class="flat" cols="120">'.getDolGlobalString($variablename).'</textarea>';
266 } else {
267  include_once DOL_DOCUMENT_ROOT.'/core/class/doleditor.class.php';
268  $doleditor = new DolEditor($variablename, getDolGlobalString($variablename), '', 80, 'dolibarr_notes');
269  print $doleditor->Create();
270 }
271 print '</td><td class="right">';
272 print '<input type="submit" class="button button-edit" value="'.$langs->trans("Modify").'">';
273 print "</td></tr>\n";
274 print '</table>';
275 print "<br>";
276 
277 print '</table>'."\n";
278 
279 print dol_get_fiche_end();
280 
281 print '</form>';
282 
283 // End of page
284 llxFooter();
285 $db->close();
llxFooter
llxFooter()
Empty footer.
Definition: wrapper.php:70
bank_admin_prepare_head
bank_admin_prepare_head($object)
Prepare array with list of tabs.
Definition: bank.lib.php:132
load_fiche_titre
load_fiche_titre($titre, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
Definition: functions.lib.php:5360
GETPOST
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
Definition: functions.lib.php:520
dol_buildpath
dol_buildpath($path, $type=0, $returnemptyifnotfound=0)
Return path of url or filesystem.
Definition: functions.lib.php:1061
$form
if($cancel &&! $id) if($action=='add' &&! $cancel) if($action=='delete') if($id) $form
Actions.
Definition: card.php:143
img_picto
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=false, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
Definition: functions.lib.php:4024
llxHeader
if(!defined('NOREQUIRESOC')) if(!defined('NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined('NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined('NOREQUIREAJAX')) llxHeader()
Empty header.
Definition: wrapper.php:56
dol_get_fiche_head
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='')
Show tabs of a record.
Definition: functions.lib.php:1858
getDolGlobalString
if(!function_exists('utf8_encode')) if(!function_exists('utf8_decode')) getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
Definition: functions.lib.php:82
dol_strlen
dol_strlen($string, $stringencoding='UTF-8')
Make a strlen call.
Definition: functions.lib.php:3887
newToken
newToken()
Return the value of token currently saved into session with name 'newtoken'.
Definition: functions.lib.php:11290
dol_get_fiche_end
dol_get_fiche_end($notab=0)
Return tab footer of a card.
Definition: functions.lib.php:2054
dol_htmloutput_mesg
dol_htmloutput_mesg($mesgstring='', $mesgarray=array(), $style='ok', $keepembedded=0)
Print formated messages to output (Used to show messages on html output).
Definition: functions.lib.php:8627
dolibarr_set_const
dolibarr_set_const($db, $name, $value, $type='chaine', $visible=0, $note='', $entity=1)
Insert a parameter (key,value) into database (delete old key then insert it again).
Definition: admin.lib.php:632
RemiseCheque
Class to manage cheque delivery receipts.
Definition: remisecheque.class.php:34
Form
Class to manage generation of HTML components Only common components must be here.
Definition: html.form.class.php:53
pdf_getSubstitutionArray
pdf_getSubstitutionArray($outputlangs, $exclude=null, $object=null, $onlykey=0)
Return array of possible substitutions for PDF content (without external module substitutions).
Definition: pdf.lib.php:744
setEventMessages
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='')
Set event messages in dol_events session object.
Definition: functions.lib.php:8465
accessforbidden
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.
Definition: security.lib.php:1117
DolEditor
Class to manage a WYSIWYG editor.
Definition: doleditor.class.php:30