dolibarr 20.0.0
card.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2011-2014 Juanjo Menent <jmenent@2byte.es>
3 * Copyright (C) 2015 Marcos García <marcosgdf@gmail.com>
4 * Copyright (C) 2018-2024 Frédéric France <frederic.france@free.fr>
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 */
19
26// Load Dolibarr environment
27require '../../main.inc.php';
28require_once DOL_DOCUMENT_ROOT.'/compta/localtax/class/localtax.class.php';
29require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
30require_once DOL_DOCUMENT_ROOT.'/core/lib/vat.lib.php';
31
32// Load translation files required by the page
33$langs->loadLangs(array('compta', 'banks', 'bills'));
34
35$id = GETPOSTINT("id");
36$action = GETPOST("action", "aZ09");
37$cancel = GETPOST('cancel', 'aZ09');
38
39$refund = GETPOSTINT("refund");
40if (empty($refund)) {
41 $refund = 0;
42}
43
44$lttype = GETPOSTINT('localTaxType');
45
46// Security check
47$socid = GETPOSTINT('socid');
48if ($user->socid) {
49 $socid = $user->socid;
50}
51$result = restrictedArea($user, 'tax', '', '', 'charges');
52
53$object = new Localtax($db);
54
55// Initialize technical object to manage hooks of page. Note that conf->hooks_modules contains array of hook context
56$hookmanager->initHooks(array('localtaxvatcard', 'globalcard'));
57
58
63if ($cancel && !$id) {
64 header("Location: list.php?localTaxType=".$lttype);
65 exit;
66}
67
68if ($action == 'add' && !$cancel) {
69 $db->begin();
70
71 $datev = dol_mktime(12, 0, 0, GETPOST("datevmonth"), GETPOST("datevday"), GETPOST("datevyear"));
72 $datep = dol_mktime(12, 0, 0, GETPOST("datepmonth"), GETPOST("datepday"), GETPOST("datepyear"));
73
74 $object->accountid = GETPOSTINT("accountid");
75 $object->paymenttype = GETPOST("paiementtype");
76 $object->datev = $datev;
77 $object->datep = $datep;
78 $object->amount = price2num(GETPOST("amount"));
79 $object->label = GETPOST("label");
80 $object->ltt = $lttype;
81
82 $ret = $object->addPayment($user);
83 if ($ret > 0) {
84 $db->commit();
85 header("Location: list.php?localTaxType=".$lttype);
86 exit;
87 } else {
88 $db->rollback();
89 setEventMessages($object->error, $object->errors, 'errors');
90 $action = "create";
91 }
92}
93
94//delete payment of localtax
95if ($action == 'delete') {
96 $result = $object->fetch($id);
97
98 if ($object->rappro == 0) {
99 $db->begin();
100
101 $ret = $object->delete($user);
102 if ($ret > 0) {
103 if ($object->fk_bank) {
104 $accountline = new AccountLine($db);
105 $result = $accountline->fetch($object->fk_bank);
106 if ($result > 0) {
107 $result = $accountline->delete($user); // $result may be 0 if not found (when bank entry was deleted manually and fk_bank point to nothing)
108 }
109 }
110
111 if ($result >= 0) {
112 $db->commit();
113 header("Location: ".DOL_URL_ROOT.'/compta/localtax/list.php?localTaxType='.$object->ltt);
114 exit;
115 } else {
116 $object->error = $accountline->error;
117 $db->rollback();
118 setEventMessages($object->error, $object->errors, 'errors');
119 }
120 } else {
121 $db->rollback();
122 setEventMessages($object->error, $object->errors, 'errors');
123 }
124 } else {
125 $mesg = 'Error try do delete a line linked to a conciliated bank transaction';
126 setEventMessages($mesg, null, 'errors');
127 }
128}
129
130
131/*
132 * View
133 */
134
135if ($id) {
136 $result = $object->fetch($id);
137 if ($result <= 0) {
138 dol_print_error($db);
139 exit;
140 }
141}
142
143$form = new Form($db);
144
145$title = $langs->trans("LT".$object->ltt)." - ".$langs->trans("Card");
146$help_url = '';
147llxHeader('', $title, $help_url);
148
149if ($action == 'create') {
150 $datev = dol_mktime(12, 0, 0, GETPOST("datevmonth"), GETPOST("datevday"), GETPOST("datevyear"));
151 $datep = dol_mktime(12, 0, 0, GETPOST("datepmonth"), GETPOST("datepday"), GETPOST("datepyear"));
152
153 print load_fiche_titre($langs->transcountry($lttype == 2 ? "newLT2Payment" : "newLT1Payment", $mysoc->country_code));
154
155 print '<form name="add" action="'.$_SERVER["PHP_SELF"].'" name="formlocaltax" method="post">'."\n";
156 print '<input type="hidden" name="token" value="'.newToken().'">';
157 print '<input type="hidden" name="localTaxType" value="'.$lttype.'">';
158 print '<input type="hidden" name="action" value="add">';
159
160 print dol_get_fiche_head();
161
162 print '<table class="border centpercent">';
163
164 // Date of payment
165 print "<tr>";
166 print '<td class="titlefieldcreate fieldrequired">'.$langs->trans("DatePayment").'</td><td>';
167 print $form->selectDate($datep, "datep", 0, 0, 0, 'add', 1, 1);
168 print '</td></tr>';
169
170 // End date of period
171 print '<tr><td class="fieldrequired">'.$form->textwithpicto($langs->trans("PeriodEndDate"), $langs->trans("LastDayTaxIsRelatedTo")).'</td><td>';
172 print $form->selectDate($datev, "datev", 0, 0, 0, 'add', 1, 1);
173 print '</td></tr>';
174
175 // Label
176 print '<tr><td class="fieldrequired">'.$langs->trans("Label").'</td><td><input name="label" class="minwidth200" value="'.(GETPOSTISSET("label") ? GETPOST("label", '', 2) : $langs->transcountry(($lttype == 2 ? "LT2Payment" : "LT1Payment"), $mysoc->country_code)).'"></td></tr>';
177
178 // Amount
179 print '<tr><td class="fieldrequired">'.$langs->trans("Amount").'</td><td><input name="amount" size="10" value="'.GETPOST("amount").'"></td></tr>';
180
181 if (isModEnabled("bank")) {
182 // Type payment
183 print '<tr><td class="fieldrequired">'.$langs->trans("PaymentMode").'</td><td>';
184 print $form->select_types_paiements(GETPOST("paiementtype"), "paiementtype", '', 0, 1, 0, 0, 1, 'maxwidth500 widthcentpercentminusx', 1);
185 print "</td>\n";
186 print "</tr>";
187
188 // Bank account
189 print '<tr><td class="fieldrequired" id="label_fk_account">'.$langs->trans("BankAccount").'</td><td>';
190 print img_picto('', 'bank_account', 'class="pictofixedwidth"');
191 $form->select_comptes(GETPOSTINT("accountid"), "accountid", 0, "courant=1", 2, '', 0, 'maxwidth500 widthcentpercentminusx'); // Affiche liste des comptes courant
192 print '</td></tr>';
193
194 // Number
195 print '<tr><td>'.$langs->trans('Numero');
196 print ' <em>('.$langs->trans("ChequeOrTransferNumber").')</em>';
197 print '<td><input name="num_payment" type="text" value="'.GETPOST("num_payment").'"></td></tr>'."\n";
198 }
199
200 // Other attributes
201 $parameters = array();
202 $reshook = $hookmanager->executeHooks('formObjectOptions', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
203 print $hookmanager->resPrint;
204
205 print '</table>';
206
207 print dol_get_fiche_end();
208
209 print $form->buttonsSaveCancel();
210
211 print '</form>';
212}
213
214
215// View mode
216if ($id) {
217 $h = 0;
218 $head = array();
219 $head[$h][0] = DOL_URL_ROOT.'/compta/localtax/card.php?id='.$object->id;
220 $head[$h][1] = $langs->trans('Card');
221 $head[$h][2] = 'card';
222 $h++;
223
224 print dol_get_fiche_head($head, 'card', $langs->transcountry("LT".$object->ltt, $mysoc->country_code), -1, 'payment');
225
226 $linkback = '<a href="'.DOL_URL_ROOT.'/compta/localtax/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
227
228 dol_banner_tab($object, 'id', $linkback, 1, 'rowid', 'ref', $morehtmlref, '', 0, '', '');
229
230 print '<div class="fichecenter">';
231 print '<div class="underbanner clearboth"></div>';
232
233 print '<table class="border centpercent">';
234
235 print "<tr>";
236 print '<td class="titlefield">'.$langs->trans("Ref").'</td><td>';
237 print $object->ref;
238 print '</td></tr>';
239
240 print "<tr>";
241 print '<td>'.$langs->trans("DatePayment").'</td><td>';
242 print dol_print_date($object->datep, 'day');
243 print '</td></tr>';
244
245 print '<tr><td>'.$form->textwithpicto($langs->trans("PeriodEndDate"), $langs->trans("LastDayTaxIsRelatedTo")).'</td><td>';
246 print dol_print_date($object->datev, 'day');
247 print '</td></tr>';
248
249 print '<tr><td>'.$langs->trans("Amount").'</td><td>'.price($object->amount).'</td></tr>';
250
251 if (isModEnabled("bank")) {
252 if ($object->fk_account > 0) {
253 $bankline = new AccountLine($db);
254 $bankline->fetch($object->fk_bank);
255
256 print '<tr>';
257 print '<td>'.$langs->trans('BankTransactionLine').'</td>';
258 print '<td>';
259 print $bankline->getNomUrl(1, 0, 'showall');
260 print '</td>';
261 print '</tr>';
262 }
263 }
264
265 // Other attributes
266 $parameters = array();
267 $reshook = $hookmanager->executeHooks('formObjectOptions', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
268 print $hookmanager->resPrint;
269
270 print '</table>';
271
272 print '</div>';
273
274 print dol_get_fiche_end();
275
276
277 /*
278 * Action bar
279 */
280 print "<div class=\"tabsAction\">\n";
281 if ($object->rappro == 0) {
282 print '<a class="butActionDelete" href="card.php?id='.$object->id.'&action=delete&token='.newToken().'">'.$langs->trans("Delete").'</a>';
283 } else {
284 print '<a class="butActionRefused classfortooltip" href="#" title="'.$langs->trans("LinkedToAConcialitedTransaction").'">'.$langs->trans("Delete").'</a>';
285 }
286 print "</div>";
287}
288
289// End of page
290llxFooter();
291$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:55
llxFooter()
Empty footer.
Definition wrapper.php:69
Class to manage bank transaction lines.
Class to manage generation of HTML components Only common components must be here.
Class to manage local tax.
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($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
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_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...
restrictedArea(User $user, $features, $object=0, $tableandshare='', $feature2='', $dbt_keyfield='fk_soc', $dbt_select='rowid', $isdraft=0, $mode=0)
Check permissions of a user to show a page and an object.