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