dolibarr 21.0.0-alpha
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
51// Load translation files required by the page
52$langs->loadLangs(array("companies", "commercial", "bills", "banks", "users"));
53
54if (isModEnabled('category')) {
55 $langs->load("categories");
56}
57if (isModEnabled('incoterm')) {
58 $langs->load("incoterm");
59}
60if (isModEnabled('notification')) {
61 $langs->load("mails");
62}
63
64$error = 0;
65$errors = array();
66
67
68// Get parameters
69$action = (GETPOST('action', 'aZ09') ? GETPOST('action', 'aZ09') : 'view');
70$cancel = GETPOST('cancel', 'alpha');
71$backtopage = GETPOST('backtopage', 'alpha');
72$confirm = GETPOST('confirm');
73$socid = GETPOSTINT('socid') ? GETPOSTINT('socid') : GETPOSTINT('id');
74$selectedfields = GETPOST('selectedfields', 'alpha');
75
76if ($user->socid) {
77 $socid = $user->socid;
78}
79
80if (empty($socid) && $action == 'view') {
81 $action = 'create';
82}
83
84// Initialize objects
85$object = new Societe($db);
86$extrafields = new ExtraFields($db);
87
88// fetch optionals attributes and labels
89$extrafields->fetch_name_optionals_label($object->table_element);
90
91// Initialize a technical object to manage hooks of page. Note that conf->hooks_modules contains an array of hook context
92$hookmanager->initHooks(array('thirdpartycontact', 'globalcard'));
93
94if ($object->fetch($socid) <= 0 && $action == 'view') {
95 $langs->load("errors");
96 print($langs->trans('ErrorRecordNotFound'));
97 exit;
98}
99
100// Get object canvas (By default, this is not defined, so standard usage of dolibarr)
101$canvas = $object->canvas ? $object->canvas : GETPOST("canvas");
102$objcanvas = null;
103if (!empty($canvas)) {
104 require_once DOL_DOCUMENT_ROOT.'/core/class/canvas.class.php';
105 $objcanvas = new Canvas($db, $action);
106 $objcanvas->getCanvas('thirdparty', 'card', $canvas);
107}
108
109// Security check
110$result = restrictedArea($user, 'societe', $socid, '&societe', '', 'fk_soc', 'rowid', 0);
111if (!$user->hasRight('societe', 'contact', 'lire')) {
113}
114
115
116/*
117 * Actions
118 */
119
120$parameters = array('id'=>$socid, 'objcanvas'=>$objcanvas);
121$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
122if ($reshook < 0) {
123 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
124}
125
126if (empty($reshook)) {
127 if ($cancel) {
128 $action = '';
129 if (!empty($backtopage)) {
130 header("Location: ".$backtopage);
131 exit;
132 }
133 }
134
135 // Selection of new fields
136 include DOL_DOCUMENT_ROOT.'/core/actions_changeselectedfields.inc.php';
137}
138
139if ($action == 'confirm_delete' && $user->hasRight('societe', 'contact', 'delete')) {
140 $id = GETPOST('id', 'int');
141 if (!empty($id) && $socid > 0) {
142 $contact = new Contact($db);
143 $ret = $contact->fetch($id);
144 if ($ret > 0) {
145 if ($contact->priv == 0 || ($contact->user_modification_id == ((int) $user->id) && $contact->priv == 1)) {
146 $contact->oldcopy = clone $contact; // @phan-suppress-current-line PhanTypeMismatchProperty
147 $result = $contact->delete($user);
148 if ($result > 0) {
149 setEventMessages('RecordDeleted', null, 'mesgs');
150 header("Location: ".$_SERVER['PHP_SELF']."?id=".$socid);
151 exit();
152 } else {
153 setEventMessages($contact->error, $contact->errors, 'errors');
154 }
155 }
156 } else {
157 setEventMessages($contact->error, $contact->errors, 'errors');
158 }
159 }
160}
161
162/*
163 * View
164 */
165
166$form = new Form($db);
167$formfile = new FormFile($db);
168$formadmin = new FormAdmin($db);
169$formcompany = new FormCompany($db);
170
171if ($socid > 0 && empty($object->id)) {
172 $result = $object->fetch($socid);
173 if ($result <= 0) {
174 dol_print_error(null, $object->error);
175 }
176}
177
178$title = $langs->trans("ThirdParty");
179if (getDolGlobalString('MAIN_HTML_TITLE') && preg_match('/thirdpartynameonly/', getDolGlobalString('MAIN_HTML_TITLE')) && $object->name) {
180 $title = $object->name." - ".$langs->trans('ContactsAddresses');
181}
182$help_url = 'EN:Module_Third_Parties|FR:Module_Tiers|ES:Empresas';
183llxHeader('', $title, $help_url);
184
185$countrynotdefined = $langs->trans("ErrorSetACountryFirst").' ('.$langs->trans("SeeAbove").')';
186
187
188if (!empty($object->id)) {
189 $res = $object->fetch_optionals();
190}
191//if ($res < 0) { dol_print_error($db); exit; }
192
193
194$head = societe_prepare_head($object);
195
196print dol_get_fiche_head($head, 'contact', $langs->trans("ThirdParty"), 0, 'company');
197
198$linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
199
200dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom', '', '', 0, '', '', 1);
201
202print dol_get_fiche_end();
203
204print '<br>';
205
206if ($action != 'presend') {
207 // Contacts list
208 if (!getDolGlobalString('SOCIETE_DISABLE_CONTACTS')) {
209 $showuserlogin = in_array('u.user', explode(',', $selectedfields)) ? 1 : 0;
210 $result = show_contacts($conf, $langs, $db, $object, $_SERVER["PHP_SELF"].'?socid='.$object->id, $showuserlogin);
211 }
212}
213if ($action == 'delete') {
214 $formconfirm = $form->formconfirm(
215 $_SERVER["PHP_SELF"].'?id='.GETPOST('id').'&socid='.$object->id,
216 $langs->trans('Delete'),
217 $langs->trans('ConfirmDeleteContact', GETPOST('id', 'alpha')),
218 'confirm_delete',
219 '',
220 0,
221 1
222 );
223 print $formconfirm;
224}
225
226// End of page
227llxFooter();
228$db->close();
$id
Definition account.php:39
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
Definition card.php:58
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:70
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.
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.