dolibarr 21.0.0-alpha
card.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3 * Copyright (C) 2004-2014 Laurent Destailleur <eldy@users.sourceforge.net>
4 * Copyright (C) 2005 Marc Barilley / Ocebo <marc@ocebo.com>
5 * Copyright (C) 2005-2009 Regis Houssin <regis.houssin@inodbox.com>
6 * Copyright (C) 2021 Gauthier VERDOL <gauthier.verdol@atm-consulting.fr>
7 * Copyright (C) 2024 MDW <mdeweerd@users.noreply.github.com>
8 * Copyright (C) 2024 Frédéric France <frederic.france@free.fr>
9 *
10 * This program is free software; you can redistribute it and/or modify
11 * it under the terms of the GNU General Public License as published by
12 * the Free Software Foundation; either version 3 of the License, or
13 * (at your option) any later version.
14 *
15 * This program is distributed in the hope that it will be useful,
16 * but WITHOUT ANY WARRANTY; without even the implied warranty of
17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 * GNU General Public License for more details.
19 *
20 * You should have received a copy of the GNU General Public License
21 * along with this program. If not, see <https://www.gnu.org/licenses/>.
22 */
23
31// Load Dolibarr environment
32require '../../main.inc.php';
33require_once DOL_DOCUMENT_ROOT.'/compta/tva/class/tva.class.php';
34require_once DOL_DOCUMENT_ROOT.'/compta/tva/class/paymentvat.class.php';
35require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
36require_once DOL_DOCUMENT_ROOT.'/core/modules/facture/modules_facture.php';
37if (isModEnabled("bank")) {
38 require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
39}
40
41// Load translation files required by the page
42$langs->loadLangs(array('bills', 'banks', 'companies'));
43
44// Security check
45$id = GETPOSTINT("id");
46$action = GETPOST('action', 'aZ09');
47$confirm = GETPOST('confirm');
48if ($user->socid) {
49 $socid = $user->socid;
50}
51// TODO ajouter regle pour restreindre access paiement
52//$result = restrictedArea($user, 'facture', $id,'');
53
54$object = new PaymentVAT($db);
55if ($id > 0) {
56 $result = $object->fetch($id);
57 if (!$result) {
58 dol_print_error($db, 'Failed to get payment id '.$id);
59 }
60}
61
62
63/*
64 * Actions
65 */
66
67// Delete payment
68if ($action == 'confirm_delete' && $confirm == 'yes' && $user->hasRight('tax', 'charges', 'supprimer')) {
69 $db->begin();
70
71 $result = $object->delete($user);
72 if ($result > 0) {
73 $db->commit();
74 header("Location: ".DOL_URL_ROOT."/compta/tva/payments.php?mode=tvaonly");
75 exit;
76 } else {
77 setEventMessages($object->error, $object->errors, 'errors');
78 $db->rollback();
79 }
80}
81
82// Validate social contribution
83/*
84if ($action == 'confirm_valide' && $confirm == 'yes' && $user->rights->tax->charges->creer)
85{
86 $db->begin();
87
88 $result=$object->valide();
89
90 if ($result > 0)
91 {
92 $db->commit();
93
94 $factures=array(); // TODO Get all id of invoices linked to this payment
95 foreach($factures as $id)
96 {
97 $fac = new Facture($db);
98 $fac->fetch($id);
99
100 $outputlangs = $langs;
101 if (!empty($_REQUEST['lang_id']))
102 {
103 $outputlangs = new Translate("",$conf);
104 $outputlangs->setDefaultLang($_REQUEST['lang_id']);
105 }
106 if (empty($conf->global->MAIN_DISABLE_PDF_AUTOUPDATE)) {
107 $fac->generateDocument($fac->model_pdf, $outputlangs);
108 }
109 }
110
111 header('Location: card.php?id='.$object->id);
112 exit;
113 }
114 else
115 {
116 setEventMessages($object->error, $object->errors, 'errors');
117 $db->rollback();
118 }
119}
120*/
121
122
123/*
124 * View
125 */
126
127llxHeader();
128
129$tva = new Tva($db);
130$form = new Form($db);
131
132$h = 0;
133
134$head = array();
135$head[$h][0] = DOL_URL_ROOT.'/compta/payment_vat/card.php?id='.$id;
136$head[$h][1] = $langs->trans("VATPayment");
137$hselected = (string) $h;
138$h++;
139
140/*$head[$h][0] = DOL_URL_ROOT.'/compta/payment_sc/info.php?id='.$id;
141$head[$h][1] = $langs->trans("Info");
142$h++;
143*/
144
145
146print dol_get_fiche_head($head, $hselected, $langs->trans("VATPayment"), -1, 'payment');
147
148/*
149 * Deletion confirmation of payment
150 */
151if ($action == 'delete') {
152 print $form->formconfirm('card.php?id='.$object->id, $langs->trans("DeletePayment"), $langs->trans("ConfirmDeletePayment"), 'confirm_delete', '', 0, 2);
153}
154
155
156
157$linkback = '<a href="'.DOL_URL_ROOT.'/compta/tva/payments.php">'.$langs->trans("BackToList").'</a>';
158
159dol_banner_tab($object, 'id', $linkback, 1, 'rowid', 'id', '');
160
161
162print '<div class="fichecenter">';
163print '<div class="underbanner clearboth"></div>';
164
165print '<table class="border centpercent">';
166
167// Date
168print '<tr><td>'.$langs->trans('Date').'</td><td>'.dol_print_date($object->datep, 'day').'</td></tr>';
169
170// Mode
171print '<tr><td>'.$langs->trans('Mode').'</td><td>'.$langs->trans("PaymentType".$object->type_code).'</td></tr>';
172
173// Numero
174print '<tr><td>'.$langs->trans('Numero').'</td><td>'.dol_escape_htmltag($object->num_payment).'</td></tr>';
175
176// Montant
177print '<tr><td>'.$langs->trans('Amount').'</td><td>'.price($object->amount, 0, $outputlangs, 1, -1, -1, $conf->currency).'</td></tr>';
178
179// Note
180print '<tr><td>'.$langs->trans('Note').'</td><td class="wordbreak sensiblehtmlcontent">'.dol_string_onlythesehtmltags(dol_htmlcleanlastbr($object->note_private)).'</td></tr>';
181
182// Bank account
183if (isModEnabled("bank")) {
184 if ($object->bank_account) {
185 $bankline = new AccountLine($db);
186 $bankline->fetch($object->bank_line);
187
188 print '<tr>';
189 print '<td>'.$langs->trans('BankTransactionLine').'</td>';
190 print '<td>';
191 print $bankline->getNomUrl(1, 0, 'showall');
192 print '</td>';
193 print '</tr>';
194 }
195}
196
197print '</table>';
198
199print '</div>';
200
201print dol_get_fiche_end();
202
203
204/*
205 * List of social contributions paid
206 */
207
208$disable_delete = 0;
209$sql = 'SELECT f.rowid as scid, f.label as label, f.paye, f.amount as tva_amount, pf.amount';
210$sql .= ' FROM '.MAIN_DB_PREFIX.'payment_vat as pf,'.MAIN_DB_PREFIX.'tva as f';
211$sql .= ' WHERE pf.fk_tva = f.rowid';
212$sql .= ' AND f.entity = '.$conf->entity;
213$sql .= ' AND pf.rowid = '.((int) $object->id);
214
215dol_syslog("compta/payment_vat/card.php", LOG_DEBUG);
216$resql = $db->query($sql);
217if ($resql) {
218 $num = $db->num_rows($resql);
219
220 $i = 0;
221 $total = 0;
222 print '<br><table class="noborder centpercent">';
223 print '<tr class="liste_titre">';
224 print '<td>'.$langs->trans('VATDeclaration').'</td>';
225 //print '<td>'.$langs->trans('Type').'</td>';
226 print '<td>'.$langs->trans('Label').'</td>';
227 print '<td class="right">'.$langs->trans('ExpectedToPay').'</td>';
228 print '<td class="center">'.$langs->trans('Status').'</td>';
229 print '<td class="right">'.$langs->trans('PayedByThisPayment').'</td>';
230 print "</tr>\n";
231
232 if ($num > 0) {
233 while ($i < $num) {
234 $objp = $db->fetch_object($resql);
235
236 print '<tr class="oddeven">';
237 // Ref
238 print '<td>';
239 $tva->fetch($objp->scid);
240 print $tva->getNomUrl(1);
241 print "</td>\n";
242 // Type
243 /* print '<td>';
244 print $tva->type_label;4
245 print "</td>\n";*/
246 // Label
247 print '<td>'.$objp->label.'</td>';
248 // Expected to pay
249 print '<td class="right"><span class="amount">'.price($objp->tva_amount).'</span></td>';
250 // Status
251 print '<td class="center">'.$tva->getLibStatut(4, $objp->amount).'</td>';
252 // Amount paid
253 print '<td class="right"><span class="amount">'.price($objp->amount).'</span></td>';
254 print "</tr>\n";
255 if ($objp->paye == 1) { // If at least one invoice is paid, disable delete
256 $disable_delete = 1;
257 }
258 $total += $objp->amount;
259 $i++;
260 }
261 }
262
263
264 print "</table>\n";
265 $db->free($resql);
266} else {
267 dol_print_error($db);
268}
269
270
271
272/*
273 * Boutons Actions
274 */
275print '<div class="tabsAction">';
276
277if ($action == '') {
278 if ($user->hasRight('tax', 'charges', 'supprimer')) {
279 if (!$disable_delete) {
280 print dolGetButtonAction($langs->trans("Delete"), '', 'delete', $_SERVER["PHP_SELF"].'?id='.$object->id.'&action=delete&token='.newToken(), 'delete', 1);
281 } else {
282 print dolGetButtonAction($langs->trans("CantRemovePaymentVATPaid"), $langs->trans("Delete"), 'delete', $_SERVER["PHP_SELF"].'?id='.$object->id.'&action=delete&token='.newToken(), 'delete', 0);
283 }
284 }
285}
286
287print '</div>';
288
289// End of page
290llxFooter();
291$db->close();
$id
Definition account.php:39
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($head='', $title='', $help_url='', $target='', $disablejs=0, $disablehead=0, $arrayofjs='', $arrayofcss='', $morequerystring='', $morecssonbody='', $replacemainareaby='', $disablenofollow=0, $disablenoindex=0)
Empty header.
Definition wrapper.php:70
Class to manage bank transaction lines.
Class to manage generation of HTML components Only common components must be here.
Class to manage payments of social contributions.
Class to manage VAT - Value-added tax (also known in French as TVA - Taxe sur la valeur ajoutée)
Definition tva.class.php:38
llxFooter()
Footer empty.
Definition document.php:107
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0, $attop=0)
Set event messages in dol_events session object.
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.
dol_string_onlythesehtmltags($stringtoclean, $cleanalsosomestyles=1, $removeclassattribute=1, $cleanalsojavascript=0, $allowiframe=0, $allowed_tags=array(), $allowlink=0, $allowscript=0)
Clean a string to keep only desirable HTML tags.
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'.
dolGetButtonAction($label, $text='', $actionType='default', $url='', $id='', $userRight=1, $params=array())
Function dolGetButtonAction.
dol_htmlcleanlastbr($stringtodecode)
This function remove all ending and br at end.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
dol_escape_htmltag($stringtoescape, $keepb=0, $keepn=0, $noescapetags='', $escapeonlyhtmltags=0, $cleanalsojavascript=0)
Returns text escaped for inclusion in HTML alt or title or value tags, or into values of HTML input f...