dolibarr  20.0.0-alpha
expensereport_rules.php
Go to the documentation of this file.
1 <?php
2 /* Copyright (C) 2012 Mikael Carlavan <contact@mika-carl.fr>
3  * Copyright (C) 2017 ATM Consulting <contact@atm-consulting.fr>
4  * Copyright (C) 2017 Pierre-Henry Favre <phf@atm-consulting.fr>
5  * Copyright (C) 2018-2019 Frédéric France <frederic.france@netlogic.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/expensereport.lib.php';
32 require_once DOL_DOCUMENT_ROOT.'/expensereport/class/expensereport.class.php';
33 require_once DOL_DOCUMENT_ROOT.'/expensereport/class/expensereport_rule.class.php';
34 
35 // Load translation files required by the page
36 $langs->loadLangs(array("admin", "other", "trips", "errors", "dict"));
37 
38 // Initialize technical object to manage hooks of page. Note that conf->hooks_modules contains array of hook context
39 $hookmanager->initHooks(array('admin', 'dictionaryadmin','expensereport_rules'));
40 
41 $object = new ExpenseReportRule($db);
42 
43 if (!$user->admin) {
45 }
46 
47 
48 /*
49  * Action
50  */
51 
52 $parameters = array();
53 $reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
54 if ($reshook < 0) {
55  setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
56 }
57 
58 if (empty($reshook)) {
59  //Init error
60  $error = false;
61 
62  $action = GETPOST('action', 'aZ09');
63  $id = GETPOSTINT('id');
64 
65  $apply_to = GETPOST('apply_to');
66  $fk_user = GETPOSTINT('fk_user');
67  $fk_usergroup = GETPOSTINT('fk_usergroup');
68  $restrictive = GETPOSTINT('restrictive');
69  $fk_c_type_fees = GETPOSTINT('fk_c_type_fees');
70  $code_expense_rules_type = GETPOST('code_expense_rules_type');
71  $dates = dol_mktime(12, 0, 0, GETPOST('startmonth'), GETPOST('startday'), GETPOST('startyear'));
72  $datee = dol_mktime(12, 0, 0, GETPOST('endmonth'), GETPOST('endday'), GETPOST('endyear'));
73  $amount = (float) price2num(GETPOST('amount'), 'MT', 2);
74 
75  if (!empty($id)) {
76  $result = $object->fetch($id);
77  if ($result < 0) {
78  dol_print_error(null, $object->error, $object->errors);
79  }
80  }
81 
82  if ($action == 'save') {
83  $error = 0;
84 
85  // check parameters
86  if (empty($apply_to)) {
87  $error++;
88  setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("ExpenseReportApplyTo")), null, 'errors');
89  }
90  if (empty($fk_c_type_fees)) {
91  $error++;
92  setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("ExpenseReportDomain")), null, 'errors');
93  }
94  if (empty($code_expense_rules_type)) {
95  $error++;
96  setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("ExpenseReportLimitOn")), null, 'errors');
97  }
98  if (empty($dates)) {
99  $error++;
100  setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("ExpenseReportDateStart")), null, 'errors');
101  }
102  if (empty($datee)) {
103  $error++;
104  setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("ExpenseReportDateEnd")), null, 'errors');
105  }
106  if (empty($amount)) {
107  $error++;
108  setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("ExpenseReportLimitAmount")), null, 'errors');
109  }
110 
111  if (empty($error)) {
112  if ($apply_to == 'U') {
113  $object->fk_user = (int) $fk_user;
114  $object->fk_usergroup = 0;
115  $object->is_for_all = 0;
116  } elseif ($apply_to == 'G') {
117  $object->fk_usergroup = (int) $fk_usergroup;
118  $object->fk_user = 0;
119  $object->is_for_all = 0;
120  } elseif ($apply_to == 'A') {
121  $object->is_for_all = 1;
122  $object->fk_user = 0;
123  $object->fk_usergroup = 0;
124  }
125 
126  $object->dates = $dates;
127  $object->datee = $datee;
128  $object->restrictive = $restrictive;
129  $object->fk_c_type_fees = $fk_c_type_fees;
130  $object->code_expense_rules_type = $code_expense_rules_type;
131  $object->amount = $amount;
132  $object->entity = $conf->entity;
133 
134  if ($object->id > 0) {
135  $res = $object->update($user);
136  } else {
137  $res = $object->create($user);
138  }
139  if ($res > 0) {
140  setEventMessages($langs->trans('ExpenseReportRuleSave'), null);
141  } else {
143  $error++;
144  }
145 
146  if (!$error) {
147  header('Location: ' . $_SERVER['PHP_SELF']);
148  exit;
149  } else {
150  $action = '';
151  }
152  }
153  } elseif ($action == 'delete') {
154  // TODO add confirm
155  $res = $object->delete($user);
156 
157  if ($res < 0) {
159  }
160 
161  header('Location: ' . $_SERVER['PHP_SELF']);
162  exit;
163  }
164 
165  $rules = $object->getAllRule();
166 
167  $tab_apply = array(
168  'A' => $langs->trans('All'),
169  'G' => $langs->trans('UserGroup'),
170  'U' => $langs->trans('User')
171  );
172  $tab_rules_type = array(
173  'EX_DAY' => $langs->trans('Day'),
174  'EX_MON' => $langs->trans('Month'),
175  'EX_YEA' => $langs->trans('Year'),
176  'EX_EXP' => $langs->trans('OnExpense')
177  );
178 }
179 
180 
181 /*
182  * View
183  */
184 
185 llxHeader('', $langs->trans("ExpenseReportsSetup"));
186 
187 $form = new Form($db);
188 
189 $linkback = '<a href="' . DOL_URL_ROOT . '/admin/modules.php?restore_lastsearch_values=1">' . $langs->trans("BackToModuleList") . '</a>';
190 print load_fiche_titre($langs->trans("ExpenseReportsSetup"), $linkback, 'title_setup');
191 
193 print dol_get_fiche_head($head, 'expenserules', $langs->trans("ExpenseReportsRules"), -1, 'trip');
194 
195 echo '<span class="opacitymedium">' . $langs->trans('ExpenseReportRulesDesc') . '</span>';
196 print '<br><br>';
197 
198 if ($action != 'edit') {
199  echo '<form action="' . $_SERVER['PHP_SELF'] . '" method="post">';
200  echo '<input type="hidden" name="token" value="' . newToken() . '" />';
201  echo '<input type="hidden" name="action" value="save" />';
202 
203  echo '<table class="noborder centpercent">';
204 
205  echo '<tr class="liste_titre headerexpensereportrules">';
206  echo '<th class="linecolapplyto">' . $langs->trans('ExpenseReportApplyTo') . '</th>';
207  echo '<th class="linecoltype">' . $langs->trans('Type') . '</th>';
208  echo '<th class="linecollimiton">' . $langs->trans('ExpenseReportLimitOn') . '</th>';
209  echo '<th class="linecoldatestart">' . $langs->trans('ExpenseReportDateStart') . '</th>';
210  echo '<th class="linecoldateend">' . $langs->trans('ExpenseReportDateEnd') . '</th>';
211  echo '<th class="linecollimitamount">' . $langs->trans('ExpenseReportLimitAmount') . '</th>';
212  echo '<th class="linecolrestrictive">' . $langs->trans('ExpenseReportRestrictive') . '</th>';
213  echo '<th>&nbsp;</th>';
214  echo '</tr>';
215 
216  echo '<tr class="oddeven">';
217  echo '<td>';
218  echo '<div class="float linecolapplyto">' . $form->selectarray('apply_to', $tab_apply, '', 0) . '</div>';
219  echo '<div id="user" class="float linecoluser">' . $form->select_dolusers('', 'fk_user') . '</div>';
220  echo '<div id="group" class="float linecolgroup">' . $form->select_dolgroups('', 'fk_usergroup') . '</div>';
221  echo '</td>';
222 
223  echo '<td class="linecoltype">' . $form->selectExpense('', 'fk_c_type_fees', 0, 1, 1) . '</td>';
224  echo '<td class="linecoltyperule">' . $form->selectarray('code_expense_rules_type', $tab_rules_type, '', 0) . '</td>';
225  echo '<td class="linecoldatestart">' . $form->selectDate(strtotime(date('Y-m-01', dol_now())), 'start', 0, 0, 0, '', 1, 0) . '</td>';
226  echo '<td class="linecoldateend">' . $form->selectDate(strtotime(date('Y-m-t', dol_now())), 'end', 0, 0, 0, '', 1, 0) . '</td>';
227  echo '<td class="linecolamount"><input type="text" value="" class="maxwidth100" name="amount" class="amount right" /></td>';
228  echo '<td class="linecolrestrictive">' . $form->selectyesno('restrictive', 0, 1) . '</td>';
229  echo '<td class="right linecolbutton"><input type="submit" class="button button-add" value="' . $langs->trans('Add') . '" /></td>';
230  echo '</tr>';
231 
232  echo '</table>';
233  echo '</form>';
234 }
235 
236 
237 echo '<form action="' . $_SERVER['PHP_SELF'] . '" method="post">';
238 echo '<input type="hidden" name="token" value="' . newToken() . '" />';
239 
240 if ($action == 'edit') {
241  echo '<input type="hidden" name="id" value="' . $object->id . '" />';
242  echo '<input type="hidden" name="action" value="save" />';
243 }
244 
245 print dol_get_fiche_end();
246 
247 
248 echo '<table class="noborder centpercent">';
249 
250 echo '<tr class="liste_titre expensereportrules">';
251 echo '<th class="linecolapplyto">' . $langs->trans('ExpenseReportApplyTo') . '</th>';
252 echo '<th class="linecoltype">' . $langs->trans('Type') . '</th>';
253 echo '<th class="linecollimiton">' . $langs->trans('ExpenseReportLimitOn') . '</th>';
254 echo '<th class="linecoldatestart">' . $langs->trans('ExpenseReportDateStart') . '</th>';
255 echo '<th class="linecoldateend">' . $langs->trans('ExpenseReportDateEnd') . '</th>';
256 echo '<th class="linecollimitamount">' . $langs->trans('ExpenseReportLimitAmount') . '</th>';
257 echo '<th class="linecolrestrictive">' . $langs->trans('ExpenseReportRestrictive') . '</th>';
258 echo '<th>&nbsp;</th>';
259 echo '</tr>';
260 
261 foreach ($rules as $rule) {
262  echo '<tr class="oddeven linetrdata" id="'.$rule->id.'">';
263 
264  echo '<td class="linecolusergroup">';
265  if ($action == 'edit' && $object->id == $rule->id) {
266  $selected = ($object->is_for_all > 0) ? 'A' : ($object->fk_usergroup > 0 ? 'G' : 'U');
267  echo '<div class="float">' . $form->selectarray('apply_to', $tab_apply, $selected, 0) . '</div>';
268  echo '<div id="user" class="float">' . $form->select_dolusers($object->fk_user, 'fk_user') . '</div>';
269  echo '<div id="group" class="float">' . $form->select_dolgroups($object->fk_usergroup, 'fk_usergroup') . '</div>';
270  } else {
271  if ($rule->is_for_all > 0) {
272  echo $tab_apply['A'];
273  } elseif ($rule->fk_usergroup > 0) {
274  echo $tab_apply['G'] . ' (' . $rule->getGroupLabel() . ')';
275  } elseif ($rule->fk_user > 0) {
276  echo $tab_apply['U'] . ' (' . $rule->getUserName() . ')';
277  }
278  }
279  echo '</td>';
280 
281  echo '<td class="linecoltype">';
282  if ($action == 'edit' && $object->id == $rule->id) {
283  echo $form->selectExpense($object->fk_c_type_fees, 'fk_c_type_fees', 0, 1, 1);
284  } else {
285  if ($rule->fk_c_type_fees == -1) {
286  echo $langs->trans('AllExpenseReport');
287  } else {
288  $key = getDictionaryValue('c_type_fees', 'code', $rule->fk_c_type_fees, false, 'id');
289  if ($key && $key != $langs->trans($key)) {
290  echo $langs->trans($key);
291  } else {
292  $value = getDictionaryValue('c_type_fees', 'label', $rule->fk_c_type_fees, false, 'id');
293  echo $langs->trans($value ? $value : 'Undefined'); // TODO check to return trans of 'code'
294  }
295  }
296  }
297  echo '</td>';
298 
299 
300  echo '<td class="linecoltyperule">';
301  if ($action == 'edit' && $object->id == $rule->id) {
302  echo $form->selectarray('code_expense_rules_type', $tab_rules_type, $object->code_expense_rules_type, 0);
303  } else {
304  echo $tab_rules_type[$rule->code_expense_rules_type];
305  }
306  echo '</td>';
307 
308 
309  echo '<td class="linecoldatestart">';
310  if ($action == 'edit' && $object->id == $rule->id) {
311  print $form->selectDate(strtotime(date('Y-m-d', $object->dates)), 'start', 0, 0, 0, '', 1, 0);
312  } else {
313  echo dol_print_date($rule->dates, 'day');
314  }
315  echo '</td>';
316 
317 
318  echo '<td class="linecoldateend">';
319  if ($action == 'edit' && $object->id == $rule->id) {
320  print $form->selectDate(strtotime(date('Y-m-d', $object->datee)), 'end', 0, 0, 0, '', 1, 0);
321  } else {
322  echo dol_print_date($rule->datee, 'day');
323  }
324  echo '</td>';
325 
326  // Amount
327  echo '<td class="linecolamount">';
328  if ($action == 'edit' && $object->id == $rule->id) {
329  echo '<input type="text" value="' . price2num($object->amount) . '" name="amount" class="amount width50 right" />';
330  } else {
331  echo price($rule->amount, 0, $langs, 1, -1, -1, $conf->currency);
332  }
333  echo '</td>';
334 
335 
336  echo '<td class="linecolrestrictive">';
337  if ($action == 'edit' && $object->id == $rule->id) {
338  echo $form->selectyesno('restrictive', $object->restrictive, 1);
339  } else {
340  echo yn($rule->restrictive, 1, 1);
341  }
342  echo '</td>';
343 
344 
345  echo '<td class="center">';
346  if ($object->id != $rule->id) {
347  echo '<a class="editfielda paddingright paddingleft" href="' . $_SERVER['PHP_SELF'] . '?action=edit&token=' . newToken() . '&id=' . $rule->id . '">' . img_edit() . '</a>&nbsp;';
348  echo '<a class="paddingright paddingleft" href="' . $_SERVER['PHP_SELF'] . '?action=delete&token=' . newToken() . '&id=' . $rule->id . '">' . img_delete() . '</a>';
349  } else {
350  echo '<input type="submit" class="button button-edit" value="' . $langs->trans('Update') . '" />&nbsp;';
351  echo '<a href="' . $_SERVER['PHP_SELF'] . '" class="button button-cancel">' . $langs->trans("Cancel") . '</a>';
352  }
353  echo '</td>';
354 
355  echo '</tr>';
356 }
357 
358 if (count($rules) == 0) {
359  print '<tr class="none"><td colspan="8"><span class="opacitymedium">'.$langs->trans("None").'</span></td></tr>';
360 }
361 
362 echo '</table>';
363 echo '</form>';
364 
365 echo '<script type="text/javascript"> $(function() {
366  $("#apply_to").change(function() {
367  var value = $(this).val();
368  if (value == "A") {
369  $("#group").hide(); $("#user").hide();
370  } else if (value == "U") {
371  $("#user").show();
372  $("#group").hide();
373  } else if (value == "G") {
374  $("#group").show();
375  $("#user").hide();
376  }
377  });
378 
379  $("#apply_to").change();
380 
381 }); </script>';
382 
383 
384 print dol_get_fiche_end();
385 
386 // End of page
387 llxFooter();
388 $db->close();
if($user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
Definition: card.php:58
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
llxFooter()
Empty footer.
Definition: wrapper.php:70
Class to manage inventories.
Class to manage generation of HTML components Only common components must be here.
if($cancel &&! $id) if($action=='add' &&! $cancel) if($action=='delete') if($id) $form
Actions.
Definition: card.php:143
expensereport_admin_prepare_head()
Return array head with list of tabs to view object information.
dol_mktime($hour, $minute, $second, $month, $day, $year, $gm='auto', $check=1)
Return a timestamp date built from detailed information (by default a local PHP server timestamp) Rep...
load_fiche_titre($titre, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
img_delete($titlealt='default', $other='class="pictodelete"', $morecss='')
Show delete logo.
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
yn($yesno, $case=1, $color=0)
Return yes or no in current language.
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0)
Show tabs of a record.
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
price($amount, $form=0, $outlangs='', $trunc=1, $rounding=-1, $forcerounding=-1, $currency_code='')
Function to format a value into an amount for visual output Function used into PDF and HTML pages.
dol_now($mode='auto')
Return date for now.
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).
newToken()
Return the value of token currently saved into session with name 'newtoken'.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0)
Set event messages in dol_events session object.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
img_edit($titlealt='default', $float=0, $other='')
Show logo edit/modify fiche.
getDictionaryValue($tablename, $field, $id, $checkentity=false, $rowidfield='rowid')
Return the value of a filed into a dictionary for the record $id.
div float
Buy price without taxes.
Definition: style.css.php:959
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.