dolibarr 23.0.3
contact.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2005 Patrick Rouillon <patrick@rouillon.net>
3 * Copyright (C) 2005-2015 Laurent Destailleur <eldy@users.sourceforge.net>
4 * Copyright (C) 2005-2012 Regis Houssin <regis.houssin@inodbox.com>
5 * Copyright (C) 2017 Ferran Marcet <fmarcet@2byte.es>
6 * Copyright (C) 2021-2025 Frédéric France <frederic.france@free.fr>
7 * Copyright (C) 2023 Christian Foellmann <christian@foellmann.de>
8 * Copyright (C) 2025 MDW <mdeweerd@users.noreply.github.com>
9 * Copyright (C) 2026 Serhii Bondarenko <serhiilabs@gmail.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
31// Load Dolibarr environment
32require '../../main.inc.php';
33require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.class.php';
34require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.facture.class.php';
35require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
36require_once DOL_DOCUMENT_ROOT.'/core/lib/fourn.lib.php';
37require_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php';
38if (isModEnabled('project')) {
39 require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
40}
41
50$langs->loadLangs(array("bills", "other", "companies"));
51
52$id = (GETPOSTINT('id') ? GETPOSTINT('id') : GETPOSTINT('facid'));
53$ref = GETPOST('ref', 'alpha');
54$action = GETPOST('action', 'aZ09');
55$socid = GETPOSTINT('socid');
56
57// Security check
58if ($user->socid) {
59 $socid = $user->socid;
60}
61$hookmanager->initHooks(array('invoicesuppliercardcontact','invoicesuppliercontactcard', 'globalcard'));
62$result = restrictedArea($user, 'fournisseur', $id, 'facture_fourn', 'facture');
63
65
66$usercancreate = ($user->hasRight("fournisseur", "facture", "creer") || $user->hasRight("supplier_invoice", "creer"));
67$permissiontoadd = $usercancreate;
68
69/*
70 * Actions
71 */
72
73$parameters = array('id' => $id);
74$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action);
75if ($reshook < 0) {
76 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
77}
78
79/*
80 * Add a new contact
81 */
82
83if (empty($reshook)) {
84 if ($action == 'addcontact' && ($user->hasRight("fournisseur", "facture", "creer") || $user->hasRight("supplier_invoice", "creer"))) {
85 $result = $object->fetch($id, $ref);
86
87 if ($result > 0 && $id > 0) {
88 $contactid = (GETPOST('userid') ? GETPOSTINT('userid') : GETPOSTINT('contactid'));
89 $typeid = (GETPOST('typecontact') ? GETPOSTINT('typecontact') : GETPOSTINT('type'));
90 $result = $object->add_contact($contactid, $typeid, GETPOST("source", 'aZ09'));
91 }
92
93 if ($result >= 0) {
94 header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
95 exit;
96 } else {
97 if ($object->error == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
98 $langs->load("errors");
99 setEventMessages($langs->trans("ErrorThisContactIsAlreadyDefinedAsThisType"), null, 'errors');
100 } else {
101 setEventMessages($object->error, $object->errors, 'errors');
102 }
103 }
104 } elseif ($action == 'swapstatut' && ($user->hasRight("fournisseur", "facture", "creer") || $user->hasRight("supplier_invoice", "creer"))) {
105 // bascule du statut d'un contact
106 if ($object->fetch($id)) {
107 $result = $object->swapContactStatus(GETPOSTINT('ligne'));
108 } else {
109 dol_print_error($db);
110 }
111 } elseif ($action == 'deletecontact' && ($user->hasRight("fournisseur", "facture", "creer") || $user->hasRight("supplier_invoice", "creer"))) {
112 // Efface un contact
113 $object->fetch($id);
114 $result = $object->delete_contact(GETPOSTINT("lineid"));
115
116 if ($result >= 0) {
117 header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
118 exit;
119 } else {
120 dol_print_error($db);
121 }
122 }
123}
124
125
126/*
127 * View
128 */
129$form = new Form($db);
130$formcompany = new FormCompany($db);
131$contactstatic = new Contact($db);
132$userstatic = new User($db);
133
134
135/* *************************************************************************** */
136/* */
137/* Card view and edit mode */
138/* */
139/* *************************************************************************** */
140
141if ($id > 0 || !empty($ref)) {
142 if ($object->fetch($id, $ref) > 0) {
143 $object->fetch_thirdparty();
144
145 $alreadypaid = $object->getSommePaiement();
146
147 $title = $object->ref." - ".$langs->trans('ContactsAddresses');
148 $helpurl = "EN:Module_Suppliers_Invoices|FR:Module_Fournisseurs_Factures|ES:Módulo_Facturas_de_proveedores";
149 llxHeader('', $title, $helpurl, '', 0, 0, '', '', '', 'mod-fourn-facture page-card_contact');
150
151 $head = facturefourn_prepare_head($object);
152
153 print dol_get_fiche_head($head, 'contact', $langs->trans('SupplierInvoice'), -1, $object->picto);
154
155 $linkback = '<a href="'.DOL_URL_ROOT.'/fourn/facture/list.php?restore_lastsearch_values=1'.(!empty($socid) ? '&socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';
156
157 $morehtmlref = '<div class="refidno">';
158 // Ref supplier
159 $morehtmlref .= $form->editfieldkey("RefSupplierBill", 'ref_supplier', $object->ref_supplier, $object, 0, 'string', '', 0, 1);
160 $morehtmlref .= $form->editfieldval("RefSupplierBill", 'ref_supplier', $object->ref_supplier, $object, 0, 'string', '', null, null, '', 1);
161 // Thirdparty
162 $morehtmlref .= '<br>'.$object->thirdparty->getNomUrl(1);
163 if (!getDolGlobalString('MAIN_DISABLE_OTHER_LINK') && $object->thirdparty->id > 0) {
164 $morehtmlref .= ' <div class="inline-block valignmiddle">(<a class="valignmiddle" href="'.DOL_URL_ROOT.'/fourn/facture/list.php?socid='.$object->thirdparty->id.'&search_company='.urlencode($object->thirdparty->name).'">'.$langs->trans("OtherBills").'</a>)</div>';
165 }
166 // Project
167 if (isModEnabled('project')) {
168 $langs->load("projects");
169 $morehtmlref .= '<br>';
170 if (0) { // @phpstan-ignore-line
171 $morehtmlref .= img_picto($langs->trans("Project"), 'project', 'class="pictofixedwidth"');
172 if ($action != 'classify') {
173 $morehtmlref .= '<a class="editfielda" href="'.dolBuildUrl($_SERVER['PHP_SELF'], ['action' => 'classify', 'id' => $object->id], true).'">'.img_edit($langs->transnoentitiesnoconv('SetProject')).'</a> ';
174 }
175 $morehtmlref .= $form->form_project($_SERVER['PHP_SELF'].'?id='.$object->id, (!getDolGlobalString('PROJECT_CAN_ALWAYS_LINK_TO_ALL_SUPPLIERS') ? $object->socid : -1), (string) $object->fk_project, ($action == 'classify' ? 'projectid' : 'none'), 0, 0, 0, 1, '', 'maxwidth300');
176 } else {
177 if (!empty($object->fk_project)) {
178 $proj = new Project($db);
179 $proj->fetch($object->fk_project);
180 $morehtmlref .= $proj->getNomUrl(1);
181 if ($proj->title) {
182 $morehtmlref .= '<span class="opacitymedium"> - '.dol_escape_htmltag($proj->title).'</span>';
183 }
184 }
185 }
186 }
187 $morehtmlref .= '</div>';
188
189 $object->totalpaid = $alreadypaid; // To give a chance to dol_banner_tab to use already paid amount to show correct status
190
191 dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref', $morehtmlref);
192
193 /*
194 print '<div class="fichecenter">';
195 print '<div class="fichehalfleft">';
196 print '<div class="underbanner clearboth"></div>';
197
198 print '<table class="border centpercent tableforfield">';
199
200 // Type
201 print '<tr><td class="titlefield">'.$langs->trans('Type').'</td><td colspan="4">';
202 print '<span class="badgeneutral">';
203 print $object->getLibType();
204 print '</span>';
205 if ($object->type == FactureFournisseur::TYPE_REPLACEMENT) {
206 $facreplaced = new FactureFournisseur($db);
207 $facreplaced->fetch($object->fk_facture_source);
208 print ' '.$langs->transnoentities("ReplaceInvoice", $facreplaced->getNomUrl(1));
209 }
210 if ($object->type == FactureFournisseur::TYPE_CREDIT_NOTE) {
211 $facusing = new FactureFournisseur($db);
212 $facusing->fetch($object->fk_facture_source);
213 print ' '.$langs->transnoentities("CorrectInvoice", $facusing->getNomUrl(1));
214 }
215
216 // Retrieve credit note ids
217 $object->getListIdAvoirFromInvoice();
218
219 if (!empty($object->creditnote_ids)) {
220 $invoicecredits = array();
221 foreach ($object->creditnote_ids as $invoiceid) {
222 $creditnote = new FactureFournisseur($db);
223 $creditnote->fetch($invoiceid);
224 $invoicecredits[] = $creditnote->getNomUrl(1);
225 }
226 print ' '.$langs->transnoentities("InvoiceHasAvoir") . (count($invoicecredits) ? ' ' : '') . implode(',', $invoicecredits);
227 }
228 //if ($facidnext > 0) {
229 // $facthatreplace = new FactureFournisseur($db);
230 // $facthatreplace->fetch($facidnext);
231 // print ' '.$langs->transnoentities("ReplacedByInvoice", $facthatreplace->getNomUrl(1));
232 //}
233 print '</td></tr>';
234
235 // Label
236 print '<tr><td>'.$form->editfieldkey("Label", 'label', $object->label, $object, 0).'</td><td>';
237 print $form->editfieldval("Label", 'label', $object->label, $object, 0);
238 print '</td></tr>';
239
240 print '</table>';
241
242 print '</div><div class="fichehalfright">';
243 print '<div class="underbanner clearboth"></div>';
244
245 print '<table class="border centpercent tableforfield">';
246
247 // Amount
248 print '<tr><td>'.$langs->trans('AmountHT').'</td><td>'.price($object->total_ht, 1, $langs, 0, -1, -1, $conf->currency).'</td></tr>';
249 print '<tr><td>'.$langs->trans('AmountVAT').'</td><td>'.price($object->total_tva, 1, $langs, 0, -1, -1, $conf->currency).'</td></tr>';
250
251 // Amount Local Taxes
252 //TODO: Place into a function to control showing by country or study better option
253 if ($mysoc->localtax1_assuj == "1" || $object->total_localtax1 != 0) { //Localtax1
254 print '<tr><td>'.$langs->transcountry("AmountLT1", $mysoc->country_code).'</td>';
255 print '<td>'.price($object->total_localtax1, 1, $langs, 0, -1, -1, $conf->currency).'</td>';
256 print '</tr>';
257 }
258 if ($mysoc->localtax2_assuj == "1" || $object->total_localtax2 != 0) { //Localtax2
259 print '<tr><td>'.$langs->transcountry("AmountLT2", $mysoc->country_code).'</td>';
260 print '<td>'.price($object->total_localtax2, 1, $langs, 0, -1, -1, $conf->currency).'</td>';
261 print '</tr>';
262 }
263 print '<tr><td>'.$langs->trans('AmountTTC').'</td><td>'.price($object->total_ttc, 1, $langs, 0, -1, -1, $conf->currency).'</td></tr>';
264
265 print "</table>";
266 print '</div>';
267
268 print '</div>';
269 */
270
271 print dol_get_fiche_end();
272
273 //print '<div class="clearboth"></div>';
274 //print '<br>';
275
276 // Contacts lines (modules that overwrite templates must declare this into descriptor)
277 $dirtpls = array_merge($conf->modules_parts['tpl'], array('/core/tpl'));
278 foreach ($dirtpls as $reldir) {
279 $res = @include dol_buildpath($reldir.'/contacts.tpl.php');
280 if ($res) {
281 break;
282 }
283 }
284 } else {
285 recordNotFound('', 0);
286 }
287}
288
289// End of page
290llxFooter();
291$db->close();
$id
Support class for third parties, contacts, members, users or resources.
Definition account.php:47
if(! $sortfield) if(! $sortorder) $object
Definition account.php:100
llxFooter($comment='', $zone='private', $disabledoutputofmessages=0)
Empty footer.
Definition wrapper.php:91
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:73
Class to manage contact/addresses.
Class to manage suppliers invoices.
Class to build HTML component for third parties management Only common components are here.
Class to manage generation of HTML components Only common components must be here.
Class to manage projects.
Class to manage Dolibarr users.
facturefourn_prepare_head(FactureFournisseur $object)
Prepare array with list of tabs.
Definition fourn.lib.php:37
recordNotFound($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Displays an error page when a record is not found.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0, $attop=0)
Set event messages in dol_events session object.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2, $allowothertags=array())
Show picto whatever it's its name (generic function)
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, $morecssdiv='')
Show tabs of a record.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_buildpath($path, $type=0, $returnemptyifnotfound=0)
Return path of url or filesystem.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
isModEnabled($module)
Is Dolibarr module enabled.
img_edit($titlealt='default', $float=0, $other='')
Show logo edit/modify fiche.
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.