dolibarr  17.0.4
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
26 require '../../main.inc.php';
27 require_once DOL_DOCUMENT_ROOT.'/don/class/don.class.php';
28 require_once DOL_DOCUMENT_ROOT.'/don/class/paymentdonation.class.php';
29 require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
30 require_once DOL_DOCUMENT_ROOT.'/core/modules/facture/modules_facture.php';
31 if (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');
42 if ($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);
49 if ($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
62 if ($action == 'confirm_delete' && $confirm == 'yes' && $user->rights->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 
82 llxHeader();
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 
95 print dol_get_fiche_head($head, $hselected, $langs->trans("DonationPayment"), -1, 'payment');
96 
97 /*
98  * Confirm deleting of the payment
99  */
100 if ($action == 'delete') {
101  print $form->formconfirm('card.php?id='.$object->id, $langs->trans("DeletePayment"), $langs->trans("ConfirmDeletePayment"), 'confirm_delete', '', 0, 2);
102 }
103 
104 
105 dol_banner_tab($object, 'id', '', 1, 'rowid', 'id');
106 
107 print '<div class="fichecenter">';
108 print '<div class="underbanner clearboth"></div>';
109 
110 print '<table class="border centpercent">';
111 
112 // Date
113 print '<tr><td class="titlefield">'.$langs->trans('Date').'</td><td>'.dol_print_date($object->datep, 'day').'</td></tr>';
114 
115 // Mode
116 print '<tr><td>'.$langs->trans('Mode').'</td><td>'.$langs->trans("PaymentType".$object->type_code).'</td></tr>';
117 
118 // Number
119 print '<tr><td>'.$langs->trans('Numero').'</td><td>'.$object->num_payment.'</td></tr>';
120 
121 // Amount
122 print '<tr><td>'.$langs->trans('Amount').'</td><td>'.price($object->amount, 0, $outputlangs, 1, -1, -1, $conf->currency).'</td></tr>';
123 
124 // Note public
125 print '<tr><td>'.$langs->trans('Note').'</td><td>'.nl2br($object->note_public).'</td></tr>';
126 
127 // Bank account
128 if (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 
142 print '</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 
156 dol_syslog("don/payment/card.php", LOG_DEBUG);
157 $resql = $db->query($sql);
158 if ($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 
204 print '</div>';
205 
206 print dol_get_fiche_end();
207 
208 
209 /*
210  * Actions buttons
211  */
212 print '<div class="tabsAction">';
213 
214 if (empty($action)) {
215  if ($user->rights->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'), 'delete', $_SERVER["PHP_SELF"].'?id='.$object->id.'&action=delete&token='.newToken(), '', 1);
220  }
221  }
222 }
223 
224 print '</div>';
225 
226 
227 
228 llxFooter();
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:56
llxFooter()
Empty footer.
Definition: wrapper.php:70
Class to manage bank transaction lines.
Class to manage donations.
Definition: don.class.php:39
Class to manage generation of HTML components Only common components must be here.
Class to manage payments of donations.
if(isModEnabled('facture') &&!empty($user->rights->facture->lire)) if((isModEnabled('fournisseur') &&empty($conf->global->MAIN_USE_NEW_SUPPLIERMOD) && $user->hasRight("fournisseur", "facture", "lire"))||(isModEnabled('supplier_invoice') && $user->hasRight("supplier_invoice", "lire"))) if(isModEnabled('don') &&!empty($user->rights->don->lire)) if(isModEnabled('tax') &&!empty($user->rights->tax->charges->lire)) if(isModEnabled('facture') &&isModEnabled('commande') && $user->hasRight("commande", "lire") &&empty($conf->global->WORKFLOW_DISABLE_CREATE_INVOICE_FROM_ORDER)) $resql
Social contributions to pay.
Definition: index.php:745
if($cancel &&! $id) if($action=='add' &&! $cancel) if($action=='delete') if($id) $form
Actions.
Definition: card.php:143
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='')
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.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='')
Set event messages in dol_events session object.
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).
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.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
isModEnabled($module)
Is Dolibarr module enabled.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.