dolibarr 24.0.0-beta
contact.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2005 Patrick Rouillon <patrick@rouillon.net>
3 * Copyright (C) 2005-2011 Laurent Destailleur <eldy@users.sourceforge.net>
4 * Copyright (C) 2005-2012 Regis Houssin <regis.houssin@inodbox.com>
5 * Copyright (C) 2023 Christian Foellmann <christian@foellmann.de>
6 * Copyright (C) 2024-2026 Frédéric France <frederic.france@free.fr>
7 * Copyright (C) 2025-2026 MDW <mdeweerd@users.noreply.github.com>
8 *
9 * This program is free software; you can redistribute it and/or modify
10 * it under the terms of the GNU General Public License as published by
11 * the Free Software Foundation; either version 3 of the License, or
12 * (at your option) any later version.
13 *
14 * This program is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 * GNU General Public License for more details.
18 *
19 * You should have received a copy of the GNU General Public License
20 * along with this program. If not, see <https://www.gnu.org/licenses/>.
21 */
22
29// Load Dolibarr environment
30require '../main.inc.php';
38require_once DOL_DOCUMENT_ROOT.'/expedition/class/expedition.class.php';
39require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
40require_once DOL_DOCUMENT_ROOT.'/core/lib/sendings.lib.php';
41require_once DOL_DOCUMENT_ROOT.'/core/class/html.formother.class.php';
42require_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php';
43if (isModEnabled('project')) {
44 require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
45 require_once DOL_DOCUMENT_ROOT.'/core/class/html.formprojet.class.php';
46}
47
48
49// Load translation files required by the page
50$langs->loadLangs(array('orders', 'sendings', 'companies'));
51
52$id = GETPOSTINT('id');
53$ref = GETPOST('ref', 'alpha');
54$action = GETPOST('action', 'aZ09');
55
56$typeobject = null;
57$objectsrc = null;
59if ($id > 0 || !empty($ref)) {
60 $object->fetch($id, $ref);
61 $object->fetch_thirdparty();
62 $objectsrc = clone $object;
63
64 if (!empty($object->origin)) {
65 $typeobject = $object->origin;
66 $origin = $object->origin;
67 $object->fetch_origin();
68 }
69
70 // Linked documents
71 if (!getDolGlobalInt('SHIPPING_USE_ITS_OWN_CONTACTS') && $typeobject == 'commande' && $object->origin_object->id && isModEnabled('order')) {
72 $objectsrc = new Commande($db);
73 $objectsrc->fetch($object->origin_object->id);
74 }
75 if (!getDolGlobalInt('SHIPPING_USE_ITS_OWN_CONTACTS') && $typeobject == 'propal' && $object->origin_object->id && isModEnabled("propal")) {
76 $objectsrc = new Propal($db);
77 $objectsrc->fetch($object->origin_object->id);
78 }
79}
80
81// Security check
82if ($user->socid) {
83 $socid = $user->socid;
84}
85$hookmanager->initHooks(array('shipmentcontactcard', 'globalcard'));
86$result = restrictedArea($user, 'expedition', $object->id, '');
87
88/*
89 * Actions
90 */
91
92$parameters = array('id' => $id);
93$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action);
94if ($reshook < 0) {
95 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
96}
97
98if (empty($reshook) && $objectsrc !== null) {
99 if ($action == 'addcontact' && $user->hasRight('expedition', 'creer')) {
100 if ($result > 0 && $id > 0) {
101 $contactid = (GETPOSTINT('userid') ? GETPOSTINT('userid') : GETPOSTINT('contactid'));
102 $typeid = (GETPOST('typecontact') ? GETPOST('typecontact') : GETPOST('type'));
103 $result = $objectsrc->add_contact($contactid, $typeid, GETPOST("source", 'aZ09'));
104 }
105
106 if ($result >= 0) {
107 header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
108 exit;
109 } else {
110 $mesgs = null;
111 if ($objectsrc->error == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
112 $langs->load("errors");
113 $mesg = $langs->trans("ErrorThisContactIsAlreadyDefinedAsThisType");
114 } else {
115 $mesg = $objectsrc->error;
116 $mesgs = $objectsrc->errors;
117 }
118 setEventMessages($mesg, $mesgs, 'errors');
119 }
120 } elseif ($action == 'swapstatut' && $user->hasRight('expedition', 'creer')) {
121 // bascule du statut d'un contact
122 $result = $objectsrc->swapContactStatus(GETPOSTINT('ligne'));
123 } elseif ($action == 'deletecontact' && $user->hasRight('expedition', 'creer')) {
124 // Efface un contact
125 $result = $objectsrc->delete_contact(GETPOSTINT("lineid"));
126
127 if ($result >= 0) {
128 header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
129 exit;
130 } else {
132 }
133 }
134}
135
136/*
137 * View
138 */
139
140
141$help_url = 'EN:Module_Shipments|FR:Module_Expéditions|ES:M&oacute;dulo_Expediciones|DE:Modul_Lieferungen';
142
143llxHeader('', $langs->trans('Shipment'), $help_url, '', 0, 0, '', '', '', 'mod-expedition page-card_contact');
144
145$form = new Form($db);
146$formcompany = new FormCompany($db);
147$formother = new FormOther($db);
148$contactstatic = new Contact($db);
149$userstatic = new User($db);
150
151
152/* *************************************************************************** */
153/* */
154/* Card view and edit mode */
155/* */
156/* *************************************************************************** */
157
158if ($id > 0 || !empty($ref)) {
159 $head = shipping_prepare_head($object);
160 print dol_get_fiche_head($head, 'contact', $langs->trans("Shipment"), -1, $object->picto);
161
162 // Shipment card
163 $linkback = '<a href="'.DOL_URL_ROOT.'/expedition/list.php?restore_lastsearch_values=1'.(!empty($socid) ? '&socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';
164
165 $morehtmlref = '<div class="refidno">';
166 // Ref customer shipment
167 $morehtmlref .= $form->editfieldkey("RefCustomer", '', $object->ref_customer, $object, $user->hasRight('expedition', 'creer'), 'string', '', 0, 1);
168 $morehtmlref .= $form->editfieldval("RefCustomer", '', $object->ref_customer, $object, $user->hasRight('expedition', 'creer'), 'string', '', null, null, '', 1);
169 // Thirdparty
170 $morehtmlref .= '<br>'.$object->thirdparty->getNomUrl(1);
171 // Project
172 if (isModEnabled('project')) {
173 $langs->load("projects");
174 $morehtmlref .= '<br>';
175 if (0) { // @phpstan-ignore-line Do not change on shipment
176 $morehtmlref .= img_picto($langs->trans("Project"), 'project', 'class="pictofixedwidth"');
177 if ($action != 'classify') {
178 $morehtmlref .= '<a class="editfielda" href="'.dolBuildUrl($_SERVER['PHP_SELF'], ['action' => 'classify', 'id' => $object->id], true).'">'.img_edit($langs->transnoentitiesnoconv('SetProject')).'</a> ';
179 }
180 $morehtmlref .= $form->form_project($_SERVER['PHP_SELF'].'?id='.$object->id, $objectsrc->socid, (string) $objectsrc->fk_project, ($action == 'classify' ? 'projectid' : 'none'), 0, 0, 0, 1, '', 'maxwidth300');
181 } else {
182 if (!empty($objectsrc) && !empty($objectsrc->fk_project)) {
183 $proj = new Project($db);
184 $proj->fetch($objectsrc->fk_project);
185 $morehtmlref .= $proj->getNomUrl(1);
186 if ($proj->title) {
187 $morehtmlref .= '<span class="opacitymedium"> - '.dol_escape_htmltag($proj->title).'</span>';
188 }
189 }
190 }
191 }
192 $morehtmlref .= '</div>';
193
194
195 dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref', $morehtmlref);
196
197
198 print '<div class="fichecenter">';
199 //print '<div class="fichehalfleft">';
200 print '<div class="underbanner clearboth"></div>';
201
202 print '<table class="border centpercent tableforfield">';
203
204 // Linked documents
205 if ($typeobject == 'commande' && $object->origin_object->id && isModEnabled('order')) {
206 print '<tr><td class="titlefield">';
207 $objectsrc = new Commande($db);
208 $objectsrc->fetch($object->origin_object->id);
209 print $langs->trans("RefOrder").'</td>';
210 print '<td colspan="3">';
211 print $objectsrc->getNomUrl(1, 'commande');
212 print "</td>\n";
213 print '</tr>';
214 }
215 if ($typeobject == 'propal' && $object->origin_object->id && isModEnabled("propal")) {
216 print '<tr><td class="titlefield">';
217 $objectsrc = new Propal($db);
218 $objectsrc->fetch($object->origin_object->id);
219 print $langs->trans("RefProposal").'</td>';
220 print '<td colspan="3">';
221 print $objectsrc->getNomUrl(1, 'expedition');
222 print "</td>\n";
223 print '</tr>';
224 }
225
226 print "</table>";
227
228
229 //print '</div>';
230 //print '<div class="fichehalfright">';
231 //print '<div class="underbanner clearboth"></div>';
232
233
234 //print '</div>';
235 print '</div>';
236
237 print '<div class="clearboth"></div>';
238
239
240 print dol_get_fiche_end();
241
242 // Lines of contacts
243 echo '<br>';
244
245 // Contacts lines (modules that overwrite templates must declare this into descriptor)
246 $dirtpls = array_merge($conf->modules_parts['tpl'], array('/core/tpl'));
247 $preselectedtypeofcontact = dol_getIdFromCode($db, 'SHIPPING', 'c_type_contact', 'code', 'rowid');
248 foreach ($dirtpls as $reldir) {
249 $file = dol_buildpath($reldir.'/contacts.tpl.php');
250 if (file_exists($file)) {
251 $res = @include $file;
252 if ($res) {
253 break;
254 }
255 }
256 }
257}
258
259// End of page
260llxFooter();
261$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 customers orders.
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 help generate other html components Only common components are here.
Class to manage projects.
Class to manage proposals.
Class to manage Dolibarr users.
if(!isModEnabled('ai')||!getDolGlobalString('AI_ASSISTANT_ENABLED')) global $conf
The main.inc.php has been included so the following variable are now defined:
if(!isModEnabled('ai')||!getDolGlobalString('AI_ASSISTANT_ENABLED')) global $db
API class for accounts.
dol_getIdFromCode($db, $key, $tablename, $fieldkey='code', $fieldid='id', $entityfilter=0, $filters='', $useCache=true)
Return an id or code from a code or id.
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.
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
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...
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.
shipping_prepare_head($object)
Prepare array with list of tabs.