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