dolibarr 25.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) 2022 Alexandre Spangaro <aspangaro@open-dsi.fr>
7 * Copyright (C) 2024-2026 MDW <mdeweerd@users.noreply.github.com>
8 * Copyright (C) 2024-2026 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/sociales/class/chargesociales.class.php';
34require_once DOL_DOCUMENT_ROOT.'/compta/sociales/class/paymentsocialcontribution.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
49// Load translation files required by the page
50$langs->loadLangs(array('bills', 'banks', 'companies'));
51
52// Security check
53$id = GETPOSTINT("id");
54$action = GETPOST('action', 'aZ09');
55$confirm = GETPOST('confirm', 'aZ09');
56if ($user->socid) {
57 $socid = $user->socid;
58}
59
61if ($id > 0) {
62 $result = $object->fetch($id);
63 if (!$result) {
64 dol_print_error($db, 'Failed to get payment id '.$id);
65 }
66}
67
68$result = restrictedArea($user, 'payment_sc', $object, '');
69
70
71/*
72 * Actions
73 */
74
75// Delete payment
76if ($action == 'confirm_delete' && $confirm == 'yes' && $user->hasRight('tax', 'charges', 'supprimer')) {
77 $db->begin();
78
79 $object->oldcopy = dol_clone($object, 2); // @phan-suppress-current-line PhanTypeMismatchProperty
80 $result = $object->delete($user);
81 if ($result > 0) {
82 $db->commit();
83 header("Location: ".DOL_URL_ROOT."/compta/sociales/payments.php");
84 exit;
85 } else {
86 setEventMessages($object->error, $object->errors, 'errors');
87 $db->rollback();
88 }
89}
90
91/*if ($action == 'setdatep' && GETPOST('datepday') && $user->hasRight('tax', 'charges', 'creer')) {
92 $datepaye = dol_mktime(GETPOSTINT('datephour'), GETPOSTINT('datepmin'), GETPOSTINT('datepsec'), GETPOSTINT('datepmonth'), GETPOSTINT('datepday'), GETPOSTINT('datepyear'));
93 $res = $object->update_date($datepaye);
94 if ($res === 0) {
95 setEventMessages($langs->trans('PaymentDateUpdateSucceeded'), null, 'mesgs');
96 } else {
97 setEventMessages($langs->trans('PaymentDateUpdateFailed'), null, 'errors');
98 }
99}*/
100
101
102/*
103 * View
104 */
105
106llxHeader();
107
108$socialcontrib = new ChargeSociales($db);
109
110$form = new Form($db);
111
112$h = 0;
113
114$head = array();
115$head[$h][0] = DOL_URL_ROOT.'/compta/payment_sc/card.php?id='.$id;
116$head[$h][1] = $langs->trans("PaymentSocialContribution");
117$hselected = (string) $h;
118$h++;
119
120
121print dol_get_fiche_head($head, $hselected, $langs->trans("PaymentSocialContribution"), -1, 'payment');
122
123/*
124 * Deletion confirmation of payment
125 */
126if ($action == 'delete') {
127 print $form->formconfirm('card.php?id='.$object->id, $langs->trans("DeletePayment"), $langs->trans("ConfirmDeletePayment"), 'confirm_delete', '', 0, 2);
128}
129
130$linkback = '<a href="'.DOL_URL_ROOT.'/compta/sociales/payments.php">'.$langs->trans("BackToList").'</a>';
131
132dol_banner_tab($object, 'id', $linkback, 1, 'rowid', 'id', '');
133
134
135print '<div class="fichecenter">';
136print '<div class="underbanner clearboth"></div>';
137
138print '<table class="border centpercent">';
139
140// Date
141print '<tr><td>'.$langs->trans('Date').'</td><td>'.dol_print_date($object->datep, 'day').'</td></tr>';
142
143// Mode
144print '<tr><td>'.$langs->trans('Mode').'</td><td>'.$langs->trans("PaymentType".$object->type_code).'</td></tr>';
145
146// Numero
147print '<tr><td>'.$langs->trans('Numero').'</td><td>'.dol_escape_htmltag($object->num_payment).'</td></tr>';
148
149// Amount
150print '<tr><td>'.$langs->trans('Amount').'</td><td>'.price($object->amount, 0, $langs, 1, -1, -1, $conf->currency).'</td></tr>';
151
152// Note
153print '<tr><td>'.$langs->trans('Note').'</td><td class="wordbreak sensiblehtmlcontent">'.dol_string_onlythesehtmltags(dol_htmlcleanlastbr($object->note_private)).'</td></tr>';
154
155// Bank account
156if (isModEnabled("bank")) {
157 if ($object->bank_account) {
158 $bankline = new AccountLine($db);
159 $bankline->fetch($object->bank_line);
160
161 print '<tr>';
162 print '<td>'.$langs->trans('BankTransactionLine').'</td>';
163 print '<td>';
164 print $bankline->getNomUrl(1, 0, 'showall');
165 print '</td>';
166 print '</tr>';
167 }
168}
169
170print '</table>';
171
172print '</div>';
173
174print dol_get_fiche_end();
175
176
177/*
178 * List of social contributions paid
179 */
180
181$disable_delete = 0;
182$sql = 'SELECT f.rowid as scid, f.libelle as label, f.paye, f.amount as sc_amount, pf.amount, pc.libelle as sc_type';
183$sql .= ' FROM '.MAIN_DB_PREFIX.'paiementcharge as pf,'.MAIN_DB_PREFIX.'chargesociales as f, '.MAIN_DB_PREFIX.'c_chargesociales as pc';
184$sql .= ' WHERE pf.fk_charge = f.rowid AND f.fk_type = pc.id';
185$sql .= ' AND f.entity = '.((int) $conf->entity);
186$sql .= ' AND pf.rowid = '.((int) $object->id);
187
188dol_syslog("compta/payment_sc/card.php", LOG_DEBUG);
189$resql = $db->query($sql);
190if ($resql) {
191 $num = $db->num_rows($resql);
192
193 $i = 0;
194 $total = 0;
195 print '<br><table class="noborder centpercent">';
196 print '<tr class="liste_titre">';
197 print '<td>'.$langs->trans('SocialContribution').'</td>';
198 print '<td>'.$langs->trans('Type').'</td>';
199 print '<td>'.$langs->trans('Label').'</td>';
200 print '<td class="right">'.$langs->trans('ExpectedToPay').'</td>';
201 print '<td class="center">'.$langs->trans('Status').'</td>';
202 print '<td class="right">'.$langs->trans('PayedByThisPayment').'</td>';
203 print "</tr>\n";
204
205 if ($num > 0) {
206 while ($i < $num) {
207 $objp = $db->fetch_object($resql);
208
209 print '<tr class="oddeven">';
210 // Ref
211 print '<td>';
212 $socialcontrib->fetch($objp->scid);
213 print $socialcontrib->getNomUrl(1);
214 print "</td>\n";
215 // Type
216 print '<td>';
217 print $socialcontrib->type_label;
218 /*print $socialcontrib->type;*/
219 print "</td>\n";
220 // Label
221 print '<td>'.$objp->label.'</td>';
222 // Expected to pay
223 print '<td class="right"><span class="amount">'.price($objp->sc_amount).'</span></td>';
224 // Status
225 print '<td class="center">'.$socialcontrib->getLibStatut(4, $objp->amount).'</td>';
226 // Amount paid
227 print '<td class="right"><span class="amount">'.price($objp->amount).'</span></td>';
228 print "</tr>\n";
229 if ($objp->paye == 1) { // If at least one invoice is paid, disable delete
230 $disable_delete = 1;
231 }
232 $total += $objp->amount;
233 $i++;
234 }
235 }
236
237
238 print "</table>\n";
239 $db->free($resql);
240} else {
241 dol_print_error($db);
242}
243
244
245
246/*
247 * Actions Buttons
248 */
249print '<div class="tabsAction">';
250
251/*
252if (getDolGlobalString('BILL_ADD_PAYMENT_VALIDATION')) {
253 if ($user->socid == 0 && $object->statut == 0 && $action == '')
254 {
255 if ($user->hasRight('facture', 'paiement')){
256 print '<a class="butAction" href="card.php?id='.GETPOSTINT('id').'&amp;facid='.$objp->facid.'&amp;action=valide&amp;token='.newToken().'">'.$langs->trans('Valid').'</a>';
257 }
258 }
259}
260*/
261
262if ($action == '') {
263 if ($user->hasRight('tax', 'charges', 'supprimer')) {
264 if (!$disable_delete) {
265 print dolGetButtonAction($langs->trans("Delete"), $langs->trans("Delete"), 'delete', $_SERVER["PHP_SELF"].'?id='.$object->id.'&action=delete&token='.newToken(), 'delete', 1, array('attr' => array('class' => 'reposition')))."\n";
266 } else {
267 print dolGetButtonAction($langs->trans("CantRemovePaymentWithOneInvoicePaid"), $langs->trans("Delete"), 'delete', $_SERVER["PHP_SELF"].'?id='.$object->id.'&action=delete&token='.newToken(), 'delete', 0);
268 }
269 }
270}
271
272print '</div>';
273
274// End of page
275llxFooter();
276$db->close();
$id
Support class for third parties, contacts, members, users or resources.
Definition account.php:47
if(! $sortfield) if(! $sortorder) $object
Definition account.php:100
llxFooter($comment='', $zone='private', $disabledoutputofmessages=0)
Empty footer.
Definition wrapper.php:91
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:73
Class to manage bank transaction lines.
Class for managing the social charges.
Class to manage generation of HTML components Only common components must be here.
Class to manage payments of social contributions.
if(!isModEnabled('ai')||!getDolGlobalString('AI_ASSISTANT_ENABLED')) global $conf
The main.inc.php has been included so the following variable are now defined:
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.
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, $nodefault=0)
Return value of a param into GET or POST supervariable.
dol_htmlcleanlastbr($stringtodecode)
This function remove all ending and br at end.
GETPOSTINT($paramname, $method=0, $nodefault=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
dol_clone($srcobject, $native=2)
Create a clone of instance of object (new instance with same value for each properties) With native =...
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs=null, $encodetooutput=false, $decorate=0)
Output date in a string format according to outputlangs (or langs if not defined).
dol_string_onlythesehtmltags($stringtoclean, $cleanalsosomestyles=1, $removeclassattribute=1, $cleanalsojavascript=0, $allowiframe=0, $allowed_tags=array(), $allowlink=0, $allowscript=0, $allowstyle=0, $allowphp=0)
Clean a string to keep only desirable HTML tags.
isModEnabled($module)
Is Dolibarr module enabled.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0, $morecssdiv='')
Show tabs of a record.
Definition html.lib.php:540
dol_get_fiche_end($notab=0)
Return tab footer of a card.
Definition html.lib.php:738
dol_escape_htmltag($stringtoescape, $keepb=0, $keepn=0, $noescapetags='', $escapeonlyhtmltags=0, $cleanalsojavascript=0)
Definition html.lib.php:181
restrictedArea(User $user, $features, $object=0, $tableandshare='', $feature2='', $dbt_keyfield='fk_soc', $dbt_select='rowid', $isdraft=0, $nodie=0, $mode='')
Check permissions of a user to show a page and an object.