dolibarr 20.0.0
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 *
8 * This program is free software; you can redistribute it and/or modify
9 * it under the terms of the GNU General Public License as published by
10 * the Free Software Foundation; either version 3 of the License, or
11 * (at your option) any later version.
12 *
13 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details.
17 *
18 * You should have received a copy of the GNU General Public License
19 * along with this program. If not, see <https://www.gnu.org/licenses/>.
20 */
21
28// Load Dolibarr environment
29require '../../main.inc.php';
30require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.commande.class.php';
31require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
32require_once DOL_DOCUMENT_ROOT.'/core/lib/fourn.lib.php';
33require_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php';
34if (isModEnabled('project')) {
35 require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
36}
37
38// Load translation files required by the page
39$langs->loadLangs(array("facture", "orders", "sendings", "companies"));
40
41$id = GETPOSTINT('id');
42$ref = GETPOST('ref', 'alpha');
43$action = GETPOST('action', 'aZ09');
44
45// Security check
46if ($user->socid) {
47 $socid = $user->socid;
48}
49$result = restrictedArea($user, 'fournisseur', $id, 'commande_fournisseur', 'commande');
50$hookmanager->initHooks(array('ordersuppliercardcontact', 'ordersuppliercontactcard', 'globalcard'));
51
53
54$usercancreate = ($user->hasRight("fournisseur", "commande", "creer") || $user->hasRight("supplier_order", "creer"));
55$permissiontoadd = $usercancreate; // Used by the include of actions_addupdatedelete.inc.php
56
57/*
58 * Actions
59 */
60
61$parameters = array('id'=>$id);
62$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action);
63if ($reshook < 0) {
64 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
65}
66
67/*
68 * Add a new contact
69 */
70
71if (empty($reshook)) {
72 if ($action == 'addcontact' && ($user->hasRight("fournisseur", "commande", "creer") || $user->hasRight("supplier_order", "creer"))) {
73 $result = $object->fetch($id);
74
75 if ($result > 0 && $id > 0) {
76 $contactid = (GETPOST('userid') ? GETPOST('userid') : GETPOST('contactid'));
77 $typeid = (GETPOST('typecontact') ? GETPOST('typecontact') : GETPOST('type'));
78 $result = $object->add_contact($contactid, $typeid, GETPOST("source", 'aZ09'));
79 }
80
81 if ($result >= 0) {
82 header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
83 exit;
84 } else {
85 if ($object->error == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
86 $langs->load("errors");
87 setEventMessages($langs->trans("ErrorThisContactIsAlreadyDefinedAsThisType"), null, 'errors');
88 } else {
89 setEventMessages($object->error, $object->errors, 'errors');
90 }
91 }
92 } elseif ($action == 'swapstatut' && ($user->hasRight("fournisseur", "commande", "creer") || $user->hasRight("supplier_order", "creer"))) {
93 // Toggle the status of a contact
94 if ($object->fetch($id)) {
95 $result = $object->swapContactStatus(GETPOSTINT('ligne'));
96 } else {
97 setEventMessages($object->error, $object->errors, 'errors');
98 }
99 } elseif ($action == 'deletecontact' && ($user->hasRight("fournisseur", "commande", "creer") || $user->hasRight("supplier_order", "creer"))) {
100 // Deleting a contact
101 $object->fetch($id);
102 $result = $object->delete_contact(GETPOSTINT("lineid"));
103
104 if ($result >= 0) {
105 header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
106 exit;
107 } else {
108 setEventMessages($object->error, $object->errors, 'errors');
109 }
110 }
111}
112
113
114/*
115 * View
116 */
117
118$form = new Form($db);
119$formcompany = new FormCompany($db);
120$contactstatic = new Contact($db);
121$userstatic = new User($db);
122
123
124/* *************************************************************************** */
125/* */
126/* Card view and edit mode */
127/* */
128/* *************************************************************************** */
129
130if ($id > 0 || !empty($ref)) {
131 $langs->trans("OrderCard");
132
133 if ($object->fetch($id, $ref) > 0) {
134 $object->fetch_thirdparty();
135
136 $title = $object->ref." - ".$langs->trans('ContactsAddresses');
137 $help_url = 'EN:Module_Suppliers_Orders|FR:CommandeFournisseur|ES:Módulo_Pedidos_a_proveedores';
138 llxHeader('', $title, $help_url, '', 0, 0, '', '', '', 'mod-supplier-order page-card_contact');
139
140 $head = ordersupplier_prepare_head($object);
141 print dol_get_fiche_head($head, 'contact', $langs->trans("SupplierOrder"), -1, 'order');
142
143 // Supplier order card
144
145 $linkback = '<a href="'.DOL_URL_ROOT.'/fourn/commande/list.php'.(!empty($socid) ? '?socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';
146
147 $morehtmlref = '<div class="refidno">';
148 // Ref supplier
149 $morehtmlref .= $form->editfieldkey("RefSupplier", 'ref_supplier', $object->ref_supplier, $object, 0, 'string', '', 0, 1);
150 $morehtmlref .= $form->editfieldval("RefSupplier", 'ref_supplier', $object->ref_supplier, $object, 0, 'string', '', null, null, '', 1);
151 // Thirdparty
152 $morehtmlref .= '<br>'.$object->thirdparty->getNomUrl(1);
153 // Project
154 if (isModEnabled('project')) {
155 $langs->load("projects");
156 $morehtmlref .= '<br>';
157 if (0) {
158 $morehtmlref .= img_picto($langs->trans("Project"), 'project', 'class="pictofixedwidth"');
159 if ($action != 'classify' && $caneditproject) {
160 $morehtmlref .= '<a class="editfielda" href="'.$_SERVER['PHP_SELF'].'?action=classify&token='.newToken().'&id='.$object->id.'">'.img_edit($langs->transnoentitiesnoconv('SetProject')).'</a> ';
161 }
162 $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');
163 } else {
164 if (!empty($object->fk_project)) {
165 $proj = new Project($db);
166 $proj->fetch($object->fk_project);
167 $morehtmlref .= $proj->getNomUrl(1);
168 if ($proj->title) {
169 $morehtmlref .= '<span class="opacitymedium"> - '.dol_escape_htmltag($proj->title).'</span>';
170 }
171 }
172 }
173 }
174 $morehtmlref .= '</div>';
175
176
177 dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref', $morehtmlref, '', 0, '', '', 1);
178
179 print dol_get_fiche_end();
180
181 // Contacts lines
182 include DOL_DOCUMENT_ROOT.'/core/tpl/contacts.tpl.php';
183 } else {
184 // Contact not found
185 print "ErrorRecordNotFound";
186 }
187}
188
189// End of page
190llxFooter();
191$db->close();
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()
Empty header.
Definition wrapper.php:55
llxFooter()
Empty footer.
Definition wrapper.php:69
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.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
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.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0)
Set event messages in dol_events session object.
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
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.