dolibarr 19.0.3
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 *
5 * This program is free software; you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License as published by
7 * the Free Software Foundation; either version 3 of the License, or
8 * (at your option) any later version.
9 *
10 * This program is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 * GNU General Public License for more details.
14 *
15 * You should have received a copy of the GNU General Public License
16 * along with this program. If not, see <https://www.gnu.org/licenses/>.
17 */
18
25// Load Dolibarr environment
26require '../../main.inc.php';
27require_once DOL_DOCUMENT_ROOT.'/don/class/don.class.php';
28require_once DOL_DOCUMENT_ROOT.'/don/class/paymentdonation.class.php';
29require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
30require_once DOL_DOCUMENT_ROOT.'/core/modules/facture/modules_facture.php';
31if (isModEnabled("banque")) {
32 require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
33}
34
35// Load translation files required by the page
36$langs->loadLangs(array("bills", "banks", "companies", "donations"));
37
38// Security check
39$id = GETPOST('rowid') ? GETPOST('rowid', 'int') : GETPOST('id', 'int');
40$action = GETPOST('action', 'aZ09');
41$confirm = GETPOST('confirm', 'alpha');
42if ($user->socid) {
43 $socid = $user->socid;
44}
45// TODO Add rule to restrict access payment
46//$result = restrictedArea($user, 'facture', $id,'');
47
48$object = new PaymentDonation($db);
49if ($id > 0) {
50 $result = $object->fetch($id);
51 if (!$result) {
52 dol_print_error($db, 'Failed to get payment id '.$id);
53 }
54}
55
56
57/*
58 * Actions
59 */
60
61// Delete payment
62if ($action == 'confirm_delete' && $confirm == 'yes' && $user->hasRight('don', 'supprimer')) {
63 $db->begin();
64
65 $result = $object->delete($user);
66 if ($result > 0) {
67 $db->commit();
68 header("Location: ".DOL_URL_ROOT."/don/index.php");
69 exit;
70 } else {
71 setEventMessages($object->error, $object->errors, 'errors');
72 $db->rollback();
73 }
74}
75
76
77
78/*
79 * View
80 */
81
82llxHeader();
83
84$don = new Don($db);
85$form = new Form($db);
86
87$h = 0;
88
89$head = array();
90$head[$h][0] = DOL_URL_ROOT.'/don/payment/card.php?id='.$id;
91$head[$h][1] = $langs->trans("DonationPayment");
92$hselected = $h;
93$h++;
94
95print dol_get_fiche_head($head, $hselected, $langs->trans("DonationPayment"), -1, 'payment');
96
97/*
98 * Confirm deleting of the payment
99 */
100if ($action == 'delete') {
101 print $form->formconfirm('card.php?id='.$object->id, $langs->trans("DeletePayment"), $langs->trans("ConfirmDeletePayment"), 'confirm_delete', '', 0, 2);
102}
103
104
105dol_banner_tab($object, 'id', '', 1, 'rowid', 'id');
106
107print '<div class="fichecenter">';
108print '<div class="underbanner clearboth"></div>';
109
110print '<table class="border centpercent">';
111
112// Date
113print '<tr><td class="titlefield">'.$langs->trans('Date').'</td><td>'.dol_print_date($object->datep, 'day').'</td></tr>';
114
115// Mode
116print '<tr><td>'.$langs->trans('Mode').'</td><td>'.$langs->trans("PaymentType".$object->type_code).'</td></tr>';
117
118// Number
119print '<tr><td>'.$langs->trans('Numero').'</td><td>'.dol_escape_htmltag($object->num_payment).'</td></tr>';
120
121// Amount
122print '<tr><td>'.$langs->trans('Amount').'</td><td>'.price($object->amount, 0, $outputlangs, 1, -1, -1, $conf->currency).'</td></tr>';
123
124// Note public
125print '<tr><td>'.$langs->trans('Note').'</td><td class="valeur sensiblehtmlcontent">'.dol_string_onlythesehtmltags(dol_htmlcleanlastbr($object->note_public)).'</td></tr>';
126
127// Bank account
128if (isModEnabled("banque")) {
129 if ($object->bank_account) {
130 $bankline = new AccountLine($db);
131 $bankline->fetch($object->bank_line);
132
133 print '<tr>';
134 print '<td>'.$langs->trans('BankTransactionLine').'</td>';
135 print '<td>';
136 print $bankline->getNomUrl(1, 0, 'showall');
137 print '</td>';
138 print '</tr>';
139 }
140}
141
142print '</table>';
143
144
145/*
146 * List of donations paid
147 */
148
149$disable_delete = 0;
150$sql = 'SELECT d.rowid as did, d.paid, d.amount as d_amount, pd.amount';
151$sql .= ' FROM '.MAIN_DB_PREFIX.'payment_donation as pd,'.MAIN_DB_PREFIX.'don as d';
152$sql .= ' WHERE pd.fk_donation = d.rowid';
153$sql .= ' AND d.entity = '.$conf->entity;
154$sql .= ' AND pd.rowid = '.((int) $id);
155
156dol_syslog("don/payment/card.php", LOG_DEBUG);
157$resql = $db->query($sql);
158if ($resql) {
159 $num = $db->num_rows($resql);
160
161 $i = 0;
162 $total = 0;
163 print '<br><table class="noborder centpercent">';
164 print '<tr class="liste_titre">';
165 print '<td>'.$langs->trans('Donation').'</td>';
166 print '<td class="right">'.$langs->trans('ExpectedToPay').'</td>';
167 print '<td class="center">'.$langs->trans('Status').'</td>';
168 print '<td class="right">'.$langs->trans('PayedByThisPayment').'</td>';
169 print "</tr>\n";
170
171 if ($num > 0) {
172 while ($i < $num) {
173 $objp = $db->fetch_object($resql);
174
175 print '<tr class="oddeven">';
176 // Ref
177 print '<td>';
178 $don->fetch($objp->did);
179 print $don->getNomUrl(1);
180 print "</td>\n";
181 // Expected to pay
182 print '<td class="right">'.price($objp->d_amount).'</td>';
183 // Status
184 print '<td class="center">'.$don->getLibStatut(4).'</td>';
185 // Amount paid
186 print '<td class="right">'.price($objp->amount).'</td>';
187 print "</tr>\n";
188 if ($objp->paid == 1) {
189 // If at least one invoice is paid, disable delete
190 $disable_delete = 1;
191 }
192 $total = $total + $objp->amount;
193 $i++;
194 }
195 }
196
197
198 print "</table>\n";
199 $db->free($resql);
200} else {
201 dol_print_error($db);
202}
203
204print '</div>';
205
206print dol_get_fiche_end();
207
208
209/*
210 * Actions buttons
211 */
212print '<div class="tabsAction">';
213
214if (empty($action)) {
215 if ($user->hasRight('don', 'supprimer')) {
216 if (!$disable_delete) {
217 print dolGetButtonAction($langs->trans('Delete'), '', 'delete', $_SERVER["PHP_SELF"].'?id='.$object->id.'&action=delete&token='.newToken(), '', 1);
218 } else {
219 print dolGetButtonAction($langs->trans("CantRemovePaymentWithOneInvoicePaid"), $langs->trans('Delete'), '', $_SERVER["PHP_SELF"].'?id='.$object->id.'#', '', 1, [ 'attr' => ['classOverride' => 'butActionRefused']]);
220 }
221 }
222}
223
224print '</div>';
225
226
227
228llxFooter();
229
230$db->close();
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader()
Empty header.
Definition wrapper.php:55
llxFooter()
Empty footer.
Definition wrapper.php:69
Class to manage bank transaction lines.
Class to manage donations.
Definition don.class.php:40
Class to manage generation of HTML components Only common components must be here.
Class to manage payments of donations.
dol_banner_tab($object, $paramid, $morehtml='', $shownav=1, $fieldid='rowid', $fieldref='ref', $morehtmlref='', $moreparam='', $nodbprefix=0, $morehtmlleft='', $morehtmlstatus='', $onlybanner=0, $morehtmlright='')
Show tab footer of a card.
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_print_error($db='', $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
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='', $encodetooutput=false)
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)
Clean a string to keep only desirable HTML tags.
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_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...