dolibarr  13.0.2
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 require '../../main.inc.php';
26 require_once DOL_DOCUMENT_ROOT.'/don/class/don.class.php';
27 require_once DOL_DOCUMENT_ROOT.'/don/class/paymentdonation.class.php';
28 require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
29 require_once DOL_DOCUMENT_ROOT.'/core/modules/facture/modules_facture.php';
30 if (!empty($conf->banque->enabled)) require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
31 
32 // Load translation files required by the page
33 $langs->loadLangs(array("bills", "banks", "companies", "donations"));
34 
35 // Security check
36 $id = GETPOST('rowid') ? GETPOST('rowid', 'int') : GETPOST('id', 'int');
37 $action = GETPOST('action', 'aZ09');
38 $confirm = GETPOST('confirm', 'alpha');
39 if ($user->socid) $socid = $user->socid;
40 // TODO Add rule to restrict access payment
41 //$result = restrictedArea($user, 'facture', $id,'');
42 
43 $object = new PaymentDonation($db);
44 if ($id > 0)
45 {
46  $result = $object->fetch($id);
47  if (!$result) dol_print_error($db, 'Failed to get payment id '.$id);
48 }
49 
50 
51 /*
52  * Actions
53  */
54 
55 // Delete payment
56 if ($action == 'confirm_delete' && $confirm == 'yes' && $user->rights->don->supprimer)
57 {
58  $db->begin();
59 
60  $result = $object->delete($user);
61  if ($result > 0)
62  {
63  $db->commit();
64  header("Location: ".DOL_URL_ROOT."/don/index.php");
65  exit;
66  } else {
67  setEventMessages($object->error, $object->errors, 'errors');
68  $db->rollback();
69  }
70 }
71 
72 
73 
74 /*
75  * View
76  */
77 
78 llxHeader();
79 
80 $don = new Don($db);
81 $form = new Form($db);
82 
83 $h = 0;
84 
85 $head = array();
86 $head[$h][0] = DOL_URL_ROOT.'/don/payment/card.php?id='.$id;
87 $head[$h][1] = $langs->trans("DonationPayment");
88 $hselected = $h;
89 $h++;
90 
91 print dol_get_fiche_head($head, $hselected, $langs->trans("DonationPayment"), -1, 'payment');
92 
93 /*
94  * Confirm deleting of the payment
95  */
96 if ($action == 'delete')
97 {
98  print $form->formconfirm('card.php?id='.$object->id, $langs->trans("DeletePayment"), $langs->trans("ConfirmDeletePayment"), 'confirm_delete', '', 0, 2);
99 }
100 
101 
102 dol_banner_tab($object, 'id', '', 1, 'rowid', 'id');
103 
104 print '<div class="fichecenter">';
105 print '<div class="underbanner clearboth"></div>';
106 
107 print '<table class="border centpercent">';
108 
109 // Date
110 print '<tr><td class="titlefield">'.$langs->trans('Date').'</td><td>'.dol_print_date($object->datep, 'day').'</td></tr>';
111 
112 // Mode
113 print '<tr><td>'.$langs->trans('Mode').'</td><td>'.$langs->trans("PaymentType".$object->type_code).'</td></tr>';
114 
115 // Number
116 print '<tr><td>'.$langs->trans('Numero').'</td><td>'.$object->num_payment.'</td></tr>';
117 
118 // Amount
119 print '<tr><td>'.$langs->trans('Amount').'</td><td>'.price($object->amount, 0, $outputlangs, 1, -1, -1, $conf->currency).'</td></tr>';
120 
121 // Note public
122 print '<tr><td>'.$langs->trans('Note').'</td><td>'.nl2br($object->note_public).'</td></tr>';
123 
124 // Bank account
125 if (!empty($conf->banque->enabled))
126 {
127  if ($object->bank_account)
128  {
129  $bankline = new AccountLine($db);
130  $bankline->fetch($object->bank_line);
131 
132  print '<tr>';
133  print '<td>'.$langs->trans('BankTransactionLine').'</td>';
134  print '<td>';
135  print $bankline->getNomUrl(1, 0, 'showall');
136  print '</td>';
137  print '</tr>';
138  }
139 }
140 
141 print '</table>';
142 
143 
144 /*
145  * List of donations paid
146  */
147 
148 $disable_delete = 0;
149 $sql = 'SELECT d.rowid as did, d.paid, d.amount as d_amount, pd.amount';
150 $sql .= ' FROM '.MAIN_DB_PREFIX.'payment_donation as pd,'.MAIN_DB_PREFIX.'don as d';
151 $sql .= ' WHERE pd.fk_donation = d.rowid';
152 $sql .= ' AND d.entity = '.$conf->entity;
153 $sql .= ' AND pd.rowid = '.$id;
154 
155 dol_syslog("don/payment/card.php", LOG_DEBUG);
156 $resql = $db->query($sql);
157 if ($resql)
158 {
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  {
173  while ($i < $num)
174  {
175  $objp = $db->fetch_object($resql);
176 
177  print '<tr class="oddeven">';
178  // Ref
179  print '<td>';
180  $don->fetch($objp->did);
181  print $don->getNomUrl(1);
182  print "</td>\n";
183  // Expected to pay
184  print '<td class="right">'.price($objp->d_amount).'</td>';
185  // Status
186  print '<td class="center">'.$don->getLibStatut(4, $objp->amount).'</td>';
187  // Amount paid
188  print '<td class="right">'.price($objp->amount).'</td>';
189  print "</tr>\n";
190  if ($objp->paid == 1) {
191  // If at least one invoice is paid, disable delete
192  $disable_delete = 1;
193  }
194  $total = $total + $objp->amount;
195  $i++;
196  }
197  }
198 
199 
200  print "</table>\n";
201  $db->free($resql);
202 } else {
203  dol_print_error($db);
204 }
205 
206 print '</div>';
207 
209 
210 
211 /*
212  * Actions buttons
213  */
214 print '<div class="tabsAction">';
215 
216 if (empty($action))
217 {
218  if ($user->rights->don->supprimer)
219  {
220  if (!$disable_delete)
221  {
222  print '<a class="butActionDelete" href="card.php?id='.$object->id.'&amp;action=delete&amp;token='.newToken().'">'.$langs->trans('Delete').'</a>';
223  } else {
224  print '<a class="butActionRefused classfortooltip" href="#" title="'.dol_escape_htmltag($langs->trans("CantRemovePaymentWithOneInvoicePaid")).'">'.$langs->trans('Delete').'</a>';
225  }
226  }
227 }
228 
229 print '</div>';
230 
231 
232 
233 llxFooter();
234 
235 $db->close();
GETPOST($paramname, $check= 'alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
Class to manage bank transaction lines.
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...
llxHeader()
Empty header.
Definition: wrapper.php:45
setEventMessages($mesg, $mesgs, $style= 'mesgs', $messagekey= '')
Set event messages in dol_events session object.
Class to manage generation of HTML components Only common components must be here.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename= '', $restricttologhandler= '', $logcontext=null)
Write log message into outputs.
Class to manage payments of donations.
dol_get_fiche_head($links=array(), $active= '', $title= '', $notab=0, $picto= '', $pictoisfullpath=0, $morehtmlright= '', $morecss= '', $limittoshow=0, $moretabssuffix= '')
Show tabs of a record.
print
Draft customers invoices.
Definition: index.php:89
Class to manage donations.
Definition: don.class.php:37
dol_print_date($time, $format= '', $tzoutput= 'auto', $outputlangs= '', $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
if(!empty($conf->facture->enabled)&&$user->rights->facture->lire) if((!empty($conf->fournisseur->enabled)&&empty($conf->global->MAIN_USE_NEW_SUPPLIERMOD)||!empty($conf->supplier_invoice->enabled))&&$user->rights->fournisseur->facture->lire) if(!empty($conf->don->enabled)&&$user->rights->don->lire) if(!empty($conf->tax->enabled)&&$user->rights->tax->charges->lire) if(!empty($conf->facture->enabled)&&!empty($conf->commande->enabled)&&$user->rights->commande->lire &&empty($conf->global->WORKFLOW_DISABLE_CREATE_INVOICE_FROM_ORDER)) if(!empty($conf->facture->enabled)&&$user->rights->facture->lire) if((!empty($conf->fournisseur->enabled)&&empty($conf->global->MAIN_USE_NEW_SUPPLIERMOD)||!empty($conf->supplier_invoice->enabled))&&$user->rights->fournisseur->facture->lire) $resql
Social contributions to pay.
Definition: index.php:1232
dol_print_error($db= '', $error= '', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
newToken()
Return the value of token currently saved into session with name &#39;newtoken&#39;.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
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.
llxFooter()
Empty footer.
Definition: wrapper.php:59