dolibarr 21.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 Frédéric France <frederic.france@free.fr>
8 * Copyright (C) 2026 Serhii Bondarenko <serhiilabs@gmail.com>
9 *
10 * This program is free software; you can redistribute it and/or modify
11 * it under the terms of the GNU General Public License as published by
12 * the Free Software Foundation; either version 3 of the License, or
13 * (at your option) any later version.
14 *
15 * This program is distributed in the hope that it will be useful,
16 * but WITHOUT ANY WARRANTY; without even the implied warranty of
17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 * GNU General Public License for more details.
19 *
20 * You should have received a copy of the GNU General Public License
21 * along with this program. If not, see <https://www.gnu.org/licenses/>.
22 */
23
30// Load Dolibarr environment
31require '../../main.inc.php';
32require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.commande.class.php';
33require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
34require_once DOL_DOCUMENT_ROOT.'/core/lib/fourn.lib.php';
35require_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php';
36if (isModEnabled('project')) {
37 require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
38}
39
48// Load translation files required by the page
49$langs->loadLangs(array("facture", "orders", "sendings", "companies"));
50
51$id = GETPOSTINT('id');
52$ref = GETPOST('ref', 'alpha');
53$action = GETPOST('action', 'aZ09');
54
55// Security check
56if ($user->socid) {
57 $socid = $user->socid;
58}
59$hookmanager->initHooks(array('ordersuppliercardcontact', 'ordersuppliercontactcard', 'globalcard'));
60$result = restrictedArea($user, 'fournisseur', $id, 'commande_fournisseur', 'commande');
61
63
64$usercancreate = ($user->hasRight("fournisseur", "commande", "creer") || $user->hasRight("supplier_order", "creer"));
65$permissiontoadd = $usercancreate; // Used by the include of actions_addupdatedelete.inc.php
66
67/*
68 * Actions
69 */
70
71$parameters = array('id'=>$id);
72$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action);
73if ($reshook < 0) {
74 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
75}
76
77/*
78 * Add a new contact
79 */
80
81if (empty($reshook)) {
82 if ($action == 'addcontact' && ($user->hasRight("fournisseur", "commande", "creer") || $user->hasRight("supplier_order", "creer"))) {
83 $result = $object->fetch($id);
84
85 if ($result > 0 && $id > 0) {
86 $contactid = (GETPOST('userid') ? GETPOST('userid') : GETPOST('contactid'));
87 $typeid = (GETPOST('typecontact') ? GETPOST('typecontact') : GETPOST('type'));
88 $result = $object->add_contact($contactid, $typeid, GETPOST("source", 'aZ09'));
89 }
90
91 if ($result >= 0) {
92 header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
93 exit;
94 } else {
95 if ($object->error == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
96 $langs->load("errors");
97 setEventMessages($langs->trans("ErrorThisContactIsAlreadyDefinedAsThisType"), null, 'errors');
98 } else {
99 setEventMessages($object->error, $object->errors, 'errors');
100 }
101 }
102 } elseif ($action == 'swapstatut' && ($user->hasRight("fournisseur", "commande", "creer") || $user->hasRight("supplier_order", "creer"))) {
103 // Toggle the status of a contact
104 if ($object->fetch($id)) {
105 $result = $object->swapContactStatus(GETPOSTINT('ligne'));
106 } else {
107 setEventMessages($object->error, $object->errors, 'errors');
108 }
109 } elseif ($action == 'deletecontact' && ($user->hasRight("fournisseur", "commande", "creer") || $user->hasRight("supplier_order", "creer"))) {
110 // Deleting a contact
111 $object->fetch($id);
112 $result = $object->delete_contact(GETPOSTINT("lineid"));
113
114 if ($result >= 0) {
115 header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
116 exit;
117 } else {
118 setEventMessages($object->error, $object->errors, 'errors');
119 }
120 }
121}
122
123
124/*
125 * View
126 */
127
128$form = new Form($db);
129$formcompany = new FormCompany($db);
130$contactstatic = new Contact($db);
131$userstatic = new User($db);
132
133
134/* *************************************************************************** */
135/* */
136/* Card view and edit mode */
137/* */
138/* *************************************************************************** */
139
140if ($id > 0 || !empty($ref)) {
141 $langs->trans("OrderCard");
142
143 if ($object->fetch($id, $ref) > 0) {
144 $object->fetch_thirdparty();
145
146 $title = $object->ref." - ".$langs->trans('ContactsAddresses');
147 $help_url = 'EN:Module_Suppliers_Orders|FR:CommandeFournisseur|ES:Módulo_Pedidos_a_proveedores';
148 llxHeader('', $title, $help_url, '', 0, 0, '', '', '', 'mod-supplier-order page-card_contact');
149
150 $head = ordersupplier_prepare_head($object);
151 print dol_get_fiche_head($head, 'contact', $langs->trans("SupplierOrder"), -1, 'order');
152
153 // Supplier order card
154
155 $linkback = '<a href="'.DOL_URL_ROOT.'/fourn/commande/list.php'.(!empty($socid) ? '?socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';
156
157 $morehtmlref = '<div class="refidno">';
158 // Ref supplier
159 $morehtmlref .= $form->editfieldkey("RefSupplier", 'ref_supplier', $object->ref_supplier, $object, 0, 'string', '', 0, 1);
160 $morehtmlref .= $form->editfieldval("RefSupplier", 'ref_supplier', $object->ref_supplier, $object, 0, 'string', '', null, null, '', 1);
161 // Thirdparty
162 $morehtmlref .= '<br>'.$object->thirdparty->getNomUrl(1);
163 // Project
164 if (isModEnabled('project')) {
165 $langs->load("projects");
166 $morehtmlref .= '<br>';
167 if (0) {
168 $morehtmlref .= img_picto($langs->trans("Project"), 'project', 'class="pictofixedwidth"');
169 if ($action != 'classify' && $caneditproject) {
170 $morehtmlref .= '<a class="editfielda" href="'.$_SERVER['PHP_SELF'].'?action=classify&token='.newToken().'&id='.$object->id.'">'.img_edit($langs->transnoentitiesnoconv('SetProject')).'</a> ';
171 }
172 $morehtmlref .= $form->form_project($_SERVER['PHP_SELF'].'?id='.$object->id, (!getDolGlobalString('PROJECT_CAN_ALWAYS_LINK_TO_ALL_SUPPLIERS') ? $object->socid : -1), $object->fk_project, ($action == 'classify' ? 'projectid' : 'none'), 0, 0, 0, 1, '', 'maxwidth300');
173 } else {
174 if (!empty($object->fk_project)) {
175 $proj = new Project($db);
176 $proj->fetch($object->fk_project);
177 $morehtmlref .= $proj->getNomUrl(1);
178 if ($proj->title) {
179 $morehtmlref .= '<span class="opacitymedium"> - '.dol_escape_htmltag($proj->title).'</span>';
180 }
181 }
182 }
183 }
184 $morehtmlref .= '</div>';
185
186
187 dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref', $morehtmlref, '', 0, '', '', 1);
188
189 print dol_get_fiche_end();
190
191 // Contacts lines (modules that overwrite templates must declare this into descriptor)
192 $dirtpls = array_merge($conf->modules_parts['tpl'], array('/core/tpl'));
193 foreach ($dirtpls as $reldir) {
194 $res = @include dol_buildpath($reldir.'/contacts.tpl.php');
195 if ($res) {
196 break;
197 }
198 }
199 } else {
200 // Contact not found
201 print "ErrorRecordNotFound";
202 }
203}
204
205// End of page
206llxFooter();
207$db->close();
$id
Definition account.php:48
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
Definition card.php:66
llxFooter($comment='', $zone='private', $disabledoutputofmessages=0)
Empty footer.
Definition wrapper.php:87
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:71
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.
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)
Show tabs of a record.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
newToken()
Return the value of token currently saved into session with name 'newtoken'.
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.
img_edit($titlealt='default', $float=0, $other='')
Show logo edit/modify fiche.
global $conf
The following vars must be defined: $type2label $form $conf, $lang, The following vars may also be de...
Definition member.php:79
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.