dolibarr 21.0.0-alpha
card.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2015 Alexandre Spangaro <aspangaro@open-dsi.fr>
3 * Copyright (C) 2019 Frédéric France <frederic.france@netlogic.fr>
4 * Copyright (C) 2024 MDW <mdeweerd@users.noreply.github.com>
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.'/don/class/don.class.php';
29require_once DOL_DOCUMENT_ROOT.'/don/class/paymentdonation.class.php';
30require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
31require_once DOL_DOCUMENT_ROOT.'/core/modules/facture/modules_facture.php';
32if (isModEnabled("bank")) {
33 require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
34}
35
36// Load translation files required by the page
37$langs->loadLangs(array("bills", "banks", "companies", "donations"));
38
39// Security check
40$id = GETPOST('rowid') ? GETPOSTINT('rowid') : GETPOSTINT('id');
41$action = GETPOST('action', 'aZ09');
42$confirm = GETPOST('confirm', 'alpha');
43if ($user->socid) {
44 $socid = $user->socid;
45}
46// TODO Add rule to restrict access payment
47//$result = restrictedArea($user, 'facture', $id,'');
48
49$object = new PaymentDonation($db);
50if ($id > 0) {
51 $result = $object->fetch($id);
52 if (!$result) {
53 dol_print_error($db, 'Failed to get payment id '.$id);
54 }
55}
56
57
58/*
59 * Actions
60 */
61
62// Delete payment
63if ($action == 'confirm_delete' && $confirm == 'yes' && $user->hasRight('don', 'supprimer')) {
64 $db->begin();
65
66 $result = $object->delete($user);
67 if ($result > 0) {
68 $db->commit();
69 header("Location: ".DOL_URL_ROOT."/don/index.php");
70 exit;
71 } else {
72 setEventMessages($object->error, $object->errors, 'errors');
73 $db->rollback();
74 }
75}
76
77
78
79/*
80 * View
81 */
82$title = $langs->trans("Payment");
83llxHeader('', $title, '', '', 0, 0, '', '', '', 'mod-donation page-payment_card');
84
85$don = new Don($db);
86$form = new Form($db);
87
88$h = 0;
89
90$head = array();
91$head[$h][0] = DOL_URL_ROOT.'/don/payment/card.php?id='.$id;
92$head[$h][1] = $langs->trans("DonationPayment");
93$hselected = $h;
94$h++;
95
96print dol_get_fiche_head($head, $hselected, $langs->trans("DonationPayment"), -1, 'payment');
97
98/*
99 * Confirm deleting of the payment
100 */
101if ($action == 'delete') {
102 print $form->formconfirm('card.php?id='.$object->id, $langs->trans("DeletePayment"), $langs->trans("ConfirmDeletePayment"), 'confirm_delete', '', 0, 2);
103}
104
105
106dol_banner_tab($object, 'id', '', 1, 'rowid', 'id');
107
108print '<div class="fichecenter">';
109print '<div class="underbanner clearboth"></div>';
110
111print '<table class="border centpercent">';
112
113// Date
114print '<tr><td class="titlefield">'.$langs->trans('Date').'</td><td>'.dol_print_date($object->datep, 'day').'</td></tr>';
115
116// Mode
117print '<tr><td>'.$langs->trans('Mode').'</td><td>'.$langs->trans("PaymentType".$object->type_code).'</td></tr>';
118
119// Number
120print '<tr><td>'.$langs->trans('Numero').'</td><td>'.dol_escape_htmltag($object->num_payment).'</td></tr>';
121
122// Amount
123print '<tr><td>'.$langs->trans('Amount').'</td><td>'.price($object->amount, 0, $outputlangs, 1, -1, -1, $conf->currency).'</td></tr>';
124
125// Note public
126print '<tr><td>'.$langs->trans('Note').'</td><td class="valeur sensiblehtmlcontent">'.dol_string_onlythesehtmltags(dol_htmlcleanlastbr($object->note_public)).'</td></tr>';
127
128// Bank account
129if (isModEnabled("bank")) {
130 if ($object->bank_account) {
131 $bankline = new AccountLine($db);
132 $bankline->fetch($object->bank_line);
133
134 print '<tr>';
135 print '<td>'.$langs->trans('BankTransactionLine').'</td>';
136 print '<td>';
137 print $bankline->getNomUrl(1, 0, 'showall');
138 print '</td>';
139 print '</tr>';
140 }
141}
142
143print '</table>';
144
145
146/*
147 * List of donations paid
148 */
149
150$disable_delete = 0;
151$sql = 'SELECT d.rowid as did, d.paid, d.amount as d_amount, pd.amount';
152$sql .= ' FROM '.MAIN_DB_PREFIX.'payment_donation as pd,'.MAIN_DB_PREFIX.'don as d';
153$sql .= ' WHERE pd.fk_donation = d.rowid';
154$sql .= ' AND d.entity = '.$conf->entity;
155$sql .= ' AND pd.rowid = '.((int) $id);
156
157dol_syslog("don/payment/card.php", LOG_DEBUG);
158$resql = $db->query($sql);
159if ($resql) {
160 $num = $db->num_rows($resql);
161
162 $i = 0;
163 $total = 0;
164 print '<br><table class="noborder centpercent">';
165 print '<tr class="liste_titre">';
166 print '<td>'.$langs->trans('Donation').'</td>';
167 print '<td class="right">'.$langs->trans('ExpectedToPay').'</td>';
168 print '<td class="center">'.$langs->trans('Status').'</td>';
169 print '<td class="right">'.$langs->trans('PayedByThisPayment').'</td>';
170 print "</tr>\n";
171
172 if ($num > 0) {
173 while ($i < $num) {
174 $objp = $db->fetch_object($resql);
175
176 print '<tr class="oddeven">';
177 // Ref
178 print '<td>';
179 $don->fetch($objp->did);
180 print $don->getNomUrl(1);
181 print "</td>\n";
182 // Expected to pay
183 print '<td class="right">'.price($objp->d_amount).'</td>';
184 // Status
185 print '<td class="center">'.$don->getLibStatut(4).'</td>';
186 // Amount paid
187 print '<td class="right">'.price($objp->amount).'</td>';
188 print "</tr>\n";
189 if ($objp->paid == 1) {
190 // If at least one invoice is paid, disable delete
191 $disable_delete = 1;
192 }
193 $total += $objp->amount;
194 $i++;
195 }
196 }
197
198
199 print "</table>\n";
200 $db->free($resql);
201} else {
202 dol_print_error($db);
203}
204
205print '</div>';
206
207print dol_get_fiche_end();
208
209
210/*
211 * Actions buttons
212 */
213print '<div class="tabsAction">';
214
215if (empty($action)) {
216 if ($user->hasRight('don', 'supprimer')) {
217 if (!$disable_delete) {
218 print dolGetButtonAction($langs->trans('Delete'), '', 'delete', $_SERVER["PHP_SELF"].'?id='.$object->id.'&action=delete&token='.newToken(), '', 1);
219 } else {
220 print dolGetButtonAction($langs->trans("CantRemovePaymentWithOneInvoicePaid"), $langs->trans('Delete'), '', $_SERVER["PHP_SELF"].'?id='.$object->id.'#', '', 1, [ 'attr' => ['classOverride' => 'butActionRefused']]);
221 }
222 }
223}
224
225print '</div>';
226
227
228
229llxFooter();
230
231$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 donations.
Definition don.class.php:41
Class to manage generation of HTML components Only common components must be here.
Class to manage payments of donations.
llxFooter()
Footer empty.
Definition document.php:107
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.
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...
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...