dolibarr 24.0.0-beta
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-2025 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/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 $result = $object->delete($user);
80 if ($result > 0) {
81 $db->commit();
82 header("Location: ".DOL_URL_ROOT."/compta/sociales/payments.php");
83 exit;
84 } else {
85 setEventMessages($object->error, $object->errors, 'errors');
86 $db->rollback();
87 }
88}
89
90/*if ($action == 'setdatep' && GETPOST('datepday') && $user->hasRight('tax', 'charges', 'creer')) {
91 $datepaye = dol_mktime(GETPOSTINT('datephour'), GETPOSTINT('datepmin'), GETPOSTINT('datepsec'), GETPOSTINT('datepmonth'), GETPOSTINT('datepday'), GETPOSTINT('datepyear'));
92 $res = $object->update_date($datepaye);
93 if ($res === 0) {
94 setEventMessages($langs->trans('PaymentDateUpdateSucceeded'), null, 'mesgs');
95 } else {
96 setEventMessages($langs->trans('PaymentDateUpdateFailed'), null, 'errors');
97 }
98}*/
99
100
101/*
102 * View
103 */
104
105llxHeader();
106
107$socialcontrib = new ChargeSociales($db);
108
109$form = new Form($db);
110
111$h = 0;
112
113$head = array();
114$head[$h][0] = DOL_URL_ROOT.'/compta/payment_sc/card.php?id='.$id;
115$head[$h][1] = $langs->trans("PaymentSocialContribution");
116$hselected = (string) $h;
117$h++;
118
119
120print dol_get_fiche_head($head, $hselected, $langs->trans("PaymentSocialContribution"), -1, 'payment');
121
122/*
123 * Deletion confirmation of payment
124 */
125if ($action == 'delete') {
126 print $form->formconfirm('card.php?id='.$object->id, $langs->trans("DeletePayment"), $langs->trans("ConfirmDeletePayment"), 'confirm_delete', '', 0, 2);
127}
128
129$linkback = '<a href="'.DOL_URL_ROOT.'/compta/sociales/payments.php">'.$langs->trans("BackToList").'</a>';
130
131dol_banner_tab($object, 'id', $linkback, 1, 'rowid', 'id', '');
132
133
134print '<div class="fichecenter">';
135print '<div class="underbanner clearboth"></div>';
136
137print '<table class="border centpercent">';
138
139// Date
140print '<tr><td>'.$langs->trans('Date').'</td><td>'.dol_print_date($object->datep, 'day').'</td></tr>';
141
142// Mode
143print '<tr><td>'.$langs->trans('Mode').'</td><td>'.$langs->trans("PaymentType".$object->type_code).'</td></tr>';
144
145// Numero
146print '<tr><td>'.$langs->trans('Numero').'</td><td>'.dol_escape_htmltag($object->num_payment).'</td></tr>';
147
148// Amount
149print '<tr><td>'.$langs->trans('Amount').'</td><td>'.price($object->amount, 0, $langs, 1, -1, -1, $conf->currency).'</td></tr>';
150
151// Note
152print '<tr><td>'.$langs->trans('Note').'</td><td class="wordbreak sensiblehtmlcontent">'.dol_string_onlythesehtmltags(dol_htmlcleanlastbr($object->note_private)).'</td></tr>';
153
154// Bank account
155if (isModEnabled("bank")) {
156 if ($object->bank_account) {
157 $bankline = new AccountLine($db);
158 $bankline->fetch($object->bank_line);
159
160 print '<tr>';
161 print '<td>'.$langs->trans('BankTransactionLine').'</td>';
162 print '<td>';
163 print $bankline->getNomUrl(1, 0, 'showall');
164 print '</td>';
165 print '</tr>';
166 }
167}
168
169print '</table>';
170
171print '</div>';
172
173print dol_get_fiche_end();
174
175
176/*
177 * List of social contributions paid
178 */
179
180$disable_delete = 0;
181$sql = 'SELECT f.rowid as scid, f.libelle as label, f.paye, f.amount as sc_amount, pf.amount, pc.libelle as sc_type';
182$sql .= ' FROM '.MAIN_DB_PREFIX.'paiementcharge as pf,'.MAIN_DB_PREFIX.'chargesociales as f, '.MAIN_DB_PREFIX.'c_chargesociales as pc';
183$sql .= ' WHERE pf.fk_charge = f.rowid AND f.fk_type = pc.id';
184$sql .= ' AND f.entity = '.$conf->entity;
185$sql .= ' AND pf.rowid = '.((int) $object->id);
186
187dol_syslog("compta/payment_sc/card.php", LOG_DEBUG);
188$resql = $db->query($sql);
189if ($resql) {
190 $num = $db->num_rows($resql);
191
192 $i = 0;
193 $total = 0;
194 print '<br><table class="noborder centpercent">';
195 print '<tr class="liste_titre">';
196 print '<td>'.$langs->trans('SocialContribution').'</td>';
197 print '<td>'.$langs->trans('Type').'</td>';
198 print '<td>'.$langs->trans('Label').'</td>';
199 print '<td class="right">'.$langs->trans('ExpectedToPay').'</td>';
200 print '<td class="center">'.$langs->trans('Status').'</td>';
201 print '<td class="right">'.$langs->trans('PayedByThisPayment').'</td>';
202 print "</tr>\n";
203
204 if ($num > 0) {
205 while ($i < $num) {
206 $objp = $db->fetch_object($resql);
207
208 print '<tr class="oddeven">';
209 // Ref
210 print '<td>';
211 $socialcontrib->fetch($objp->scid);
212 print $socialcontrib->getNomUrl(1);
213 print "</td>\n";
214 // Type
215 print '<td>';
216 print $socialcontrib->type_label;
217 /*print $socialcontrib->type;*/
218 print "</td>\n";
219 // Label
220 print '<td>'.$objp->label.'</td>';
221 // Expected to pay
222 print '<td class="right"><span class="amount">'.price($objp->sc_amount).'</span></td>';
223 // Status
224 print '<td class="center">'.$socialcontrib->getLibStatut(4, $objp->amount).'</td>';
225 // Amount paid
226 print '<td class="right"><span class="amount">'.price($objp->amount).'</span></td>';
227 print "</tr>\n";
228 if ($objp->paye == 1) { // If at least one invoice is paid, disable delete
229 $disable_delete = 1;
230 }
231 $total += $objp->amount;
232 $i++;
233 }
234 }
235
236
237 print "</table>\n";
238 $db->free($resql);
239} else {
241}
242
243
244
245/*
246 * Actions Buttons
247 */
248print '<div class="tabsAction">';
249
250/*
251if (getDolGlobalString('BILL_ADD_PAYMENT_VALIDATION')) {
252 if ($user->socid == 0 && $object->statut == 0 && $action == '')
253 {
254 if ($user->hasRight('facture', 'paiement')){
255 print '<a class="butAction" href="card.php?id='.GETPOSTINT('id').'&amp;facid='.$objp->facid.'&amp;action=valide">'.$langs->trans('Valid').'</a>';
256 }
257 }
258}
259*/
260
261if ($action == '') {
262 if ($user->hasRight('tax', 'charges', 'supprimer')) {
263 if (!$disable_delete) {
264 print dolGetButtonAction($langs->trans("Delete"), '', 'delete', $_SERVER["PHP_SELF"].'?id='.$object->id.'&action=delete&token='.newToken(), 'delete', 1);
265 } else {
266 print dolGetButtonAction($langs->trans("CantRemovePaymentWithOneInvoicePaid"), $langs->trans("Delete"), 'delete', $_SERVER["PHP_SELF"].'?id='.$object->id.'&action=delete&token='.newToken(), 'delete', 0);
267 }
268 }
269}
270
271print '</div>';
272
273// End of page
274llxFooter();
275$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:
if(!isModEnabled('ai')||!getDolGlobalString('AI_ASSISTANT_ENABLED')) global $db
API class for accounts.
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, $morecssdiv='')
Show tabs of a record.
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_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_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_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
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_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...
print $langs trans("Show") . '< td style="' . $timeColor . '" align="center"> s</td > badge status0 badge status4 badge status3 Error badge status8< td align="center">< span class="badge ' . $badge . '"></span ></td >< td align="center">< a href="#" class="button button-small" onclick="openLogModal(this)" data-req="' . dol_escape_htmltag($reqSafe) . '" data-res="' . dol_escape_htmltag($resSafe) . '" data-err="' . dol_escape_htmltag($errSafe) . '">< span class="fa fa-search-plus"></span ></a ></td ></tr >< tr >< td colspan="' . $colspan . '" class="opacitymedium"></td ></tr ></table ></div ></form > logModal none logModal none s a JSON string
buildzip.php
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.