dolibarr 23.0.4
contact.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2005 Patrick Rouillon <patrick@rouillon.net>
3 * Copyright (C) 2005-2009 Destailleur Laurent <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) 2023 Christian Foellmann <christian@foellmann.de>
7 * Copyright (C) 2024-2025 Frédéric France <frederic.france@free.fr>
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.commande.class.php';
34require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
35require_once DOL_DOCUMENT_ROOT.'/core/lib/fourn.lib.php';
36require_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php';
37if (isModEnabled('project')) {
38 require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
39}
40
49// Load translation files required by the page
50$langs->loadLangs(array("facture", "orders", "sendings", "companies"));
51
52$id = GETPOSTINT('id');
53$ref = GETPOST('ref', 'alpha');
54$action = GETPOST('action', 'aZ09');
55
57$object->fetch($id, $ref);
58if ($object->id > 0) {
59 $id = $object->id; // The page may be called with the ref only: the security check must be done on the object found
60}
61
62// Security check
63if ($user->socid) {
64 $socid = $user->socid;
65}
66$hookmanager->initHooks(array('ordersuppliercardcontact', 'ordersuppliercontactcard', 'globalcard'));
67$result = restrictedArea($user, 'fournisseur', $id, 'commande_fournisseur', 'commande');
68
69$usercancreate = ($user->hasRight("fournisseur", "commande", "creer") || $user->hasRight("supplier_order", "creer"));
70$permissiontoadd = $usercancreate; // Used by the include of actions_addupdatedelete.inc.php
71$caneditproject = false;
72
73/*
74 * Actions
75 */
76
77$parameters = array('id' => $id);
78$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action);
79if ($reshook < 0) {
80 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
81}
82
83/*
84 * Add a new contact
85 */
86
87if (empty($reshook)) {
88 if ($action == 'addcontact' && ($user->hasRight("fournisseur", "commande", "creer") || $user->hasRight("supplier_order", "creer"))) {
89 $result = $object->fetch($id);
90
91 if ($result > 0 && $id > 0) {
92 $contactid = (GETPOST('userid') ? GETPOSTINT('userid') : GETPOSTINT('contactid'));
93 $typeid = (GETPOST('typecontact') ? GETPOSTINT('typecontact') : GETPOSTINT('type'));
94 $result = $object->add_contact($contactid, $typeid, GETPOST("source", 'aZ09'));
95 }
96
97 if ($result >= 0) {
98 header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
99 exit;
100 } else {
101 if ($object->error == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
102 $langs->load("errors");
103 setEventMessages($langs->trans("ErrorThisContactIsAlreadyDefinedAsThisType"), null, 'errors');
104 } else {
105 setEventMessages($object->error, $object->errors, 'errors');
106 }
107 }
108 } elseif ($action == 'swapstatut' && ($user->hasRight("fournisseur", "commande", "creer") || $user->hasRight("supplier_order", "creer"))) {
109 // Toggle the status of a contact
110 if ($object->fetch($id)) {
111 $result = $object->swapContactStatus(GETPOSTINT('ligne'));
112 } else {
113 setEventMessages($object->error, $object->errors, 'errors');
114 }
115 } elseif ($action == 'deletecontact' && ($user->hasRight("fournisseur", "commande", "creer") || $user->hasRight("supplier_order", "creer"))) {
116 // Deleting a contact
117 $object->fetch($id);
118 $result = $object->delete_contact(GETPOSTINT("lineid"));
119
120 if ($result >= 0) {
121 header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
122 exit;
123 } else {
124 setEventMessages($object->error, $object->errors, 'errors');
125 }
126 }
127}
128
129
130/*
131 * View
132 */
133
134$form = new Form($db);
135$formcompany = new FormCompany($db);
136$contactstatic = new Contact($db);
137$userstatic = new User($db);
138
139
140/* *************************************************************************** */
141/* */
142/* Card view and edit mode */
143/* */
144/* *************************************************************************** */
145
146if ($id > 0 || !empty($ref)) {
147 $langs->trans("OrderCard");
148
149 if ($object->fetch($id, $ref) > 0) {
150 $object->fetch_thirdparty();
151
152 $title = $object->ref." - ".$langs->trans('ContactsAddresses');
153 $help_url = 'EN:Module_Suppliers_Orders|FR:CommandeFournisseur|ES:Módulo_Pedidos_a_proveedores';
154 llxHeader('', $title, $help_url, '', 0, 0, '', '', '', 'mod-supplier-order page-card_contact');
155
156 $head = ordersupplier_prepare_head($object);
157 print dol_get_fiche_head($head, 'contact', $langs->trans("SupplierOrder"), -1, 'order');
158
159 // Supplier order card
160
161 $linkback = '<a href="'.DOL_URL_ROOT.'/fourn/commande/list.php'.(!empty($socid) ? '?socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';
162
163 $morehtmlref = '<div class="refidno">';
164 // Ref supplier
165 $morehtmlref .= $form->editfieldkey("RefSupplier", 'ref_supplier', $object->ref_supplier, $object, 0, 'string', '', 0, 1);
166 $morehtmlref .= $form->editfieldval("RefSupplier", 'ref_supplier', $object->ref_supplier, $object, 0, 'string', '', null, null, '', 1);
167 // Thirdparty
168 $morehtmlref .= '<br>'.$object->thirdparty->getNomUrl(1);
169 // Project
170 if (isModEnabled('project')) {
171 $langs->load("projects");
172 $morehtmlref .= '<br>';
173 if (0) { // @phpstan-ignore-line
174 $morehtmlref .= img_picto($langs->trans("Project"), 'project', 'class="pictofixedwidth"');
175 if ($action != 'classify' && $caneditproject) { // Always false @phpstan-ignore-line
176 $morehtmlref .= '<a class="editfielda" href="'.dolBuildUrl($_SERVER['PHP_SELF'], ['action' => 'classify', 'id' => $object->id], true).'">'.img_edit($langs->transnoentitiesnoconv('SetProject')).'</a> ';
177 }
178 $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');
179 } else {
180 if (!empty($object->fk_project)) {
181 $proj = new Project($db);
182 $proj->fetch($object->fk_project);
183 $morehtmlref .= $proj->getNomUrl(1);
184 if ($proj->title) {
185 $morehtmlref .= '<span class="opacitymedium"> - '.dol_escape_htmltag($proj->title).'</span>';
186 }
187 }
188 }
189 }
190 $morehtmlref .= '</div>';
191
192
193 dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref', $morehtmlref, '', 0, '', '', 1);
194
195 print dol_get_fiche_end();
196
197 // Contacts lines (modules that overwrite templates must declare this into descriptor)
198 $dirtpls = array_merge($conf->modules_parts['tpl'], array('/core/tpl'));
199 foreach ($dirtpls as $reldir) {
200 $res = @include dol_buildpath($reldir.'/contacts.tpl.php');
201 if ($res) {
202 break;
203 }
204 }
205 } else {
206 // Contact not found
207 recordNotFound('', 0);
208 }
209}
210
211// End of page
212llxFooter();
213$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 predefined suppliers products.
Class to manage contact/addresses.
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.
ordersupplier_prepare_head(CommandeFournisseur $object)
Prepare array with list of tabs.
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.
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.