dolibarr 20.0.0
document.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2003-2007 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3 * Copyright (C) 2004-2016 Laurent Destailleur <eldy@users.sourceforge.net>
4 * Copyright (C) 2005 Marc Barilley / Ocebo <marc@ocebo.com>
5 * Copyright (C) 2005-2012 Regis Houssin <regis.houssin@inodbox.com>
6 * Copyright (C) 2012 Marcos García <marcosgdf@gmail.com>
7 * Copyright (C) 2013 Cédric Salvador <csalvador@gpcsolutions.fr>
8 * Copyright (C) 2017 Ferran Marcet <fmarcet@2byte.es>
9 * Copyright (C) 2021 Jesus Jerez <jesusballesteros@protonmail.com>
10 *
11 * This program is free software; you can redistribute it and/or modify
12 * it under the terms of the GNU General Public License as published by
13 * the Free Software Foundation; either version 3 of the License, or
14 * (at your option) any later version.
15 *
16 * This program is distributed in the hope that it will be useful,
17 * but WITHOUT ANY WARRANTY; without even the implied warranty of
18 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 * GNU General Public License for more details.
20 *
21 * You should have received a copy of the GNU General Public License
22 * along with this program. If not, see <https://www.gnu.org/licenses/>.
23 */
24
31require '../../main.inc.php';
32require_once DOL_DOCUMENT_ROOT.'/core/class/html.formfile.class.php';
33require_once DOL_DOCUMENT_ROOT.'/compta/paiement/class/paiement.class.php';
34require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
35require_once DOL_DOCUMENT_ROOT.'/core/lib/payments.lib.php';
36require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
37require_once DOL_DOCUMENT_ROOT.'/core/lib/images.lib.php';
38if (!empty($conf->project->enabled)) {
39 require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
40}
41
42// Load translation files required by the page
43$langs->loadLangs(array('bills', 'banks', 'companies', 'suppliers', 'other'));
44
45$id = GETPOST('id', 'int');
46$ref = GETPOST('ref', 'alpha');
47$action = GETPOST('action', 'aZ09');
48$confirm = GETPOST('confirm', 'alpha');
49
50// Security check
51if ($user->socid) {
52 $socid = $user->socid;
53}
54if ($object !== null) {
55 $result = restrictedArea($user, $object->element, $object->id, 'payment', '');
56}
57// Get parameters
58$limit = GETPOST('limit', 'int') ? GETPOST('limit', 'int') : $conf->liste_limit;
59$sortfield = GETPOST('sortfield', 'aZ09comma');
60$sortorder = GETPOST('sortorder', 'aZ09comma');
61$page = GETPOSTISSET('pageplusone') ? (GETPOSTINT('pageplusone') - 1) : GETPOSTINT('page');
62if (empty($page) || $page == -1) {
63 $page = 0;
64} // If $page is not defined, or '' or -1
65$offset = $limit * $page;
66$pageprev = $page - 1;
67$pagenext = $page + 1;
68if (!$sortorder) {
69 $sortorder = "ASC";
70}
71if (!$sortfield) {
72 $sortfield = "name";
73}
74
75// Load object
76$object = new Paiement($db);
77if ($object->fetch($id, $ref)) {
78 $object->fetch_thirdparty();
79 $ref = dol_sanitizeFileName($object->ref);
80 $upload_dir = $conf->compta->payment->dir_output.'/'.dol_sanitizeFileName($object->ref);
81} else {
82 $upload_dir = '';
83}
84
85
86$permissiontoadd = ($user->hasRight('facture', 'creer')); // Used by the include of actions_setnotes.inc.php
87
88/*
89 * Actions
90 */
91
92include DOL_DOCUMENT_ROOT.'/core/actions_linkedfiles.inc.php';
93
94
95/*
96 * View
97 */
98
99$form = new Form($db);
100
101$title = $langs->trans('Payment')." - ".$langs->trans('Documents');
102llxHeader('', $title);
103
104if ($object->id > 0) {
105 $head = payment_prepare_head($object);
106 print dol_get_fiche_head($head, 'documents', $langs->trans("Payment"), -1, 'payment');
107
108 // Supplier order card
109 $linkback = '<a href="'.DOL_URL_ROOT.'/compta/paiement/list.php'.(!empty($socid) ? '?socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';
110
111 $morehtmlref = '<div class="refidno">';
112
113 // Date of payment
114 $morehtmlref .= $form->editfieldkey("Date", 'datep', $object->date, $object, $object->statut == 0 && ($user->hasRight('facture', 'creer')), 'datehourpicker', '', 0, 3).': ';
115 $morehtmlref .= $form->editfieldval("Date", 'datep', $object->date, $object, $object->statut == 0 && ($user->hasRight('facture', 'creer')), 'datehourpicker', '', null, $langs->trans('PaymentDateUpdateSucceeded'));
116
117 // Payment mode
118 $morehtmlref .= '<br>'.$langs->trans('PaymentMode').' : ';
119 $morehtmlref .= $langs->trans("PaymentType".$object->type_code) != ("PaymentType".$object->type_code) ? $langs->trans("PaymentType".$object->type_code) : $object->type_label;
120 $morehtmlref .= $object->num_payment ? ' - '.$object->num_payment : '';
121
122 // Thirdparty
123 $morehtmlref .= '<br>'.$langs->trans('ThirdParty').' : '.$object->thirdparty->getNomUrl(1);
124
125 // Amount
126 $morehtmlref .= '<br>'.$langs->trans('Amount').' : '. price($object->amount, 0, $langs, 0, 0, -1, $conf->currency);
127
128 $allow_delete = 1;
129 // Bank account
130 if (!empty($conf->banque->enabled)) {
131 if ($object->fk_account) {
132 $bankline = new AccountLine($db);
133 $bankline->fetch($object->bank_line);
134 if ($bankline->rappro) {
135 $allow_delete = 0;
136 $title_button = dol_escape_htmltag($langs->transnoentitiesnoconv("CantRemoveConciliatedPayment"));
137 }
138
139 $morehtmlref .= '<br>'.$langs->trans('BankAccount').' : ';
140 $accountstatic = new Account($db);
141 $accountstatic->fetch($bankline->fk_account);
142 $morehtmlref .= $accountstatic->getNomUrl(1);
143
144 $morehtmlref .= '<br>'.$langs->trans('BankTransactionLine').' : ';
145 $morehtmlref .= $bankline->getNomUrl(1, 0, 'showconciliated');
146 }
147 }
148
149 dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref', $morehtmlref);
150
151 // Build file list
152 $filearray = dol_dir_list($upload_dir, "files", 0, '', '(\.meta|_preview.*\.png)$', $sortfield, (strtolower($sortorder) == 'desc' ?SORT_DESC:SORT_ASC), 1);
153 $totalsize = 0;
154 foreach ($filearray as $key => $file) {
155 $totalsize += $file['size'];
156 }
157
158 print '<div class="fichecenter">';
159 print '<div class="underbanner clearboth"></div>';
160
161 print '<table class="border tableforfield centpercent">';
162 print '<tr><td class="titlefield">'.$langs->trans("NbOfAttachedFiles").'</td><td colspan="3">'.count($filearray).'</td></tr>';
163 print '<tr><td>'.$langs->trans("TotalSizeOfAttachedFiles").'</td><td colspan="3">'.dol_print_size($totalsize, 1, 1).'</td></tr>';
164 print "</table>\n";
165
166 print "</div>\n";
167
168 print dol_get_fiche_end();
169
170 $modulepart = 'payment';
171 // TODO: get the appropriate permission
172 $permissiontoadd = true;
173 $permtoedit = true;
174 $param = '&id='.$object->id;
175 include DOL_DOCUMENT_ROOT.'/core/tpl/document_actions_post_headers.tpl.php';
176} else {
177 header('Location: index.php');
178 exit;
179}
180
181// End of page
182llxFooter();
183$db->close();
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()
Empty header.
Definition wrapper.php:55
llxFooter()
Empty footer.
Definition wrapper.php:69
Class to manage bank accounts.
Class to manage bank transaction lines.
Class to manage generation of HTML components Only common components must be here.
Class to manage payments of customer invoices.
dol_dir_list($utf8_path, $types="all", $recursive=0, $filter="", $excludefilter=null, $sortcriteria="name", $sortorder=SORT_ASC, $mode=0, $nohook=0, $relativename="", $donotfollowsymlinks=0, $nbsecondsold=0)
Scan a directory and return a list of files/directories.
Definition files.lib.php:63
dol_print_size($size, $shortvalue=0, $shortunit=0)
Return string with formatted size.
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_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.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_sanitizeFileName($str, $newstr='_', $unaccent=1)
Clean a string to use it as a file name.
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...
restrictedArea(User $user, $features, $object=0, $tableandshare='', $feature2='', $dbt_keyfield='fk_soc', $dbt_select='rowid', $isdraft=0, $mode=0)
Check permissions of a user to show a page and an object.