dolibarr 21.0.0-beta
contact.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2001-2007 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3 * Copyright (C) 2003 Brian Fraval <brian@fraval.org>
4 * Copyright (C) 2004-2015 Laurent Destailleur <eldy@users.sourceforge.net>
5 * Copyright (C) 2005 Eric Seigne <eric.seigne@ryxeo.com>
6 * Copyright (C) 2005-2012 Regis Houssin <regis.houssin@inodbox.com>
7 * Copyright (C) 2008 Patrick Raguin <patrick.raguin@auguria.net>
8 * Copyright (C) 2010-2016 Juanjo Menent <jmenent@2byte.es>
9 * Copyright (C) 2011-2013 Alexandre Spangaro <aspangaro@open-dsi.fr>
10 * Copyright (C) 2015 Jean-François Ferry <jfefe@aternatik.fr>
11 * Copyright (C) 2015 Marcos García <marcosgdf@gmail.com>
12 * Copyright (C) 2015 Raphaël Doursenaud <rdoursenaud@gpcsolutions.fr>
13 * Copyright (C) 2024 Frédéric France <frederic.france@free.fr>
14 *
15 * This program is free software; you can redistribute it and/or modify
16 * it under the terms of the GNU General Public License as published by
17 * the Free Software Foundation; either version 3 of the License, or
18 * (at your option) any later version.
19 *
20 * This program is distributed in the hope that it will be useful,
21 * but WITHOUT ANY WARRANTY; without even the implied warranty of
22 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23 * GNU General Public License for more details.
24 *
25 * You should have received a copy of the GNU General Public License
26 * along with this program. If not, see <https://www.gnu.org/licenses/>.
27 */
28
35// Load Dolibarr environment
36require '../main.inc.php';
37require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
38require_once DOL_DOCUMENT_ROOT.'/core/lib/images.lib.php';
39require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
40require_once DOL_DOCUMENT_ROOT.'/core/lib/functions.lib.php';
41require_once DOL_DOCUMENT_ROOT.'/core/class/html.formadmin.class.php';
42require_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php';
43require_once DOL_DOCUMENT_ROOT.'/core/class/html.formfile.class.php';
44require_once DOL_DOCUMENT_ROOT.'/core/class/extrafields.class.php';
45require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
46require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';
47if (isModEnabled('member')) {
48 require_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent.class.php';
49}
50
59// Load translation files required by the page
60$langs->loadLangs(array("companies", "commercial", "bills", "banks", "users"));
61
62if (isModEnabled('category')) {
63 $langs->load("categories");
64}
65if (isModEnabled('incoterm')) {
66 $langs->load("incoterm");
67}
68if (isModEnabled('notification')) {
69 $langs->load("mails");
70}
71
72$error = 0;
73$errors = array();
74
75
76// Get parameters
77$action = (GETPOST('action', 'aZ09') ? GETPOST('action', 'aZ09') : 'view');
78$cancel = GETPOST('cancel', 'alpha');
79$backtopage = GETPOST('backtopage', 'alpha');
80$confirm = GETPOST('confirm');
81$socid = GETPOSTINT('socid') ? GETPOSTINT('socid') : GETPOSTINT('id');
82$selectedfields = GETPOST('selectedfields', 'alpha');
83
84if ($user->socid) {
85 $socid = $user->socid;
86}
87
88if (empty($socid) && $action == 'view') {
89 $action = 'create';
90}
91
92// Initialize objects
93$object = new Societe($db);
94$extrafields = new ExtraFields($db);
95
96// fetch optionals attributes and labels
97$extrafields->fetch_name_optionals_label($object->table_element);
98
99// Initialize a technical object to manage hooks of page. Note that conf->hooks_modules contains an array of hook context
100$hookmanager->initHooks(array('thirdpartycontact', 'globalcard'));
101
102if ($object->fetch($socid) <= 0 && $action == 'view') {
103 $langs->load("errors");
104 print($langs->trans('ErrorRecordNotFound'));
105 exit;
106}
107
108// Get object canvas (By default, this is not defined, so standard usage of dolibarr)
109$canvas = $object->canvas ? $object->canvas : GETPOST("canvas");
110$objcanvas = null;
111if (!empty($canvas)) {
112 require_once DOL_DOCUMENT_ROOT.'/core/class/canvas.class.php';
113 $objcanvas = new Canvas($db, $action);
114 $objcanvas->getCanvas('thirdparty', 'card', $canvas);
115}
116
117// Security check
118$result = restrictedArea($user, 'societe', $socid, '&societe', '', 'fk_soc', 'rowid', 0);
119if (!$user->hasRight('societe', 'contact', 'lire')) {
121}
122
123
124/*
125 * Actions
126 */
127
128$parameters = array('id'=>$socid, 'objcanvas'=>$objcanvas);
129$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
130if ($reshook < 0) {
131 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
132}
133
134if (empty($reshook)) {
135 if ($cancel) {
136 $action = '';
137 if (!empty($backtopage)) {
138 header("Location: ".$backtopage);
139 exit;
140 }
141 }
142
143 // Selection of new fields
144 include DOL_DOCUMENT_ROOT.'/core/actions_changeselectedfields.inc.php';
145}
146
147if ($action == 'confirm_delete' && $user->hasRight('societe', 'contact', 'delete')) {
148 $id = GETPOST('id', 'int');
149 if (!empty($id) && $socid > 0) {
150 $contact = new Contact($db);
151 $ret = $contact->fetch($id);
152 if ($ret > 0) {
153 if ($contact->priv == 0 || ($contact->user_modification_id == ((int) $user->id) && $contact->priv == 1)) {
154 $contact->oldcopy = clone $contact; // @phan-suppress-current-line PhanTypeMismatchProperty
155 $result = $contact->delete($user);
156 if ($result > 0) {
157 setEventMessages('RecordDeleted', null, 'mesgs');
158 header("Location: ".$_SERVER['PHP_SELF']."?id=".$socid);
159 exit();
160 } else {
161 setEventMessages($contact->error, $contact->errors, 'errors');
162 }
163 }
164 } else {
165 setEventMessages($contact->error, $contact->errors, 'errors');
166 }
167 }
168}
169
170/*
171 * View
172 */
173
174$form = new Form($db);
175$formfile = new FormFile($db);
176$formadmin = new FormAdmin($db);
177$formcompany = new FormCompany($db);
178
179if ($socid > 0 && empty($object->id)) {
180 $result = $object->fetch($socid);
181 if ($result <= 0) {
182 dol_print_error(null, $object->error);
183 }
184}
185
186$title = $langs->trans("ThirdParty");
187if (getDolGlobalString('MAIN_HTML_TITLE') && preg_match('/thirdpartynameonly/', getDolGlobalString('MAIN_HTML_TITLE')) && $object->name) {
188 $title = $object->name." - ".$langs->trans('ContactsAddresses');
189}
190$help_url = 'EN:Module_Third_Parties|FR:Module_Tiers|ES:Empresas';
191llxHeader('', $title, $help_url);
192
193$countrynotdefined = $langs->trans("ErrorSetACountryFirst").' ('.$langs->trans("SeeAbove").')';
194
195
196if (!empty($object->id)) {
197 $res = $object->fetch_optionals();
198}
199//if ($res < 0) { dol_print_error($db); exit; }
200
201
202$head = societe_prepare_head($object);
203
204print dol_get_fiche_head($head, 'contact', $langs->trans("ThirdParty"), 0, 'company');
205
206$linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
207
208dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom', '', '', 0, '', '', 1);
209
210print dol_get_fiche_end();
211
212print '<br>';
213
214if ($action != 'presend') {
215 // Contacts list
216 if (!getDolGlobalString('SOCIETE_DISABLE_CONTACTS')) {
217 $showuserlogin = in_array('u.user', explode(',', $selectedfields)) ? 1 : 0;
218 $result = show_contacts($conf, $langs, $db, $object, $_SERVER["PHP_SELF"].'?socid='.$object->id, $showuserlogin);
219 }
220}
221if ($action == 'delete') {
222 $formconfirm = $form->formconfirm(
223 $_SERVER["PHP_SELF"].'?id='.GETPOST('id').'&socid='.$object->id,
224 $langs->trans('Delete'),
225 $langs->trans('ConfirmDeleteContact', GETPOST('id', 'alpha')),
226 'confirm_delete',
227 '',
228 0,
229 1
230 );
231 print $formconfirm;
232}
233
234// End of page
235llxFooter();
236$db->close();
$id
Definition account.php:48
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
Definition card.php:66
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 canvas.
Class to manage contact/addresses.
Class to manage standard extra fields.
Class to generate html code for admin pages.
Class to build HTML component for third parties management Only common components are here.
Class to offer components to list and upload files.
Class to manage generation of HTML components Only common components must be here.
Class to manage third parties objects (customers, suppliers, prospects...)
show_contacts($conf, $langs, $db, $object, $backtopage='', $showuserlogin=0)
Show html area for list of contacts.
societe_prepare_head(Societe $object)
Return array of tabs to used on pages for third parties cards.
llxFooter()
Footer empty.
Definition document.php:107
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0, $attop=0)
Set event messages in dol_events session object.
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.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
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.
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.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.