dolibarr 22.0.5
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 Alexandre Spangaro <alexandre@inovea-conseil.com>
8 * Copyright (C) 2024-2025 Frédéric France <frederic.france@free.fr>
9 * Copyright (C) 2025 MDW <mdeweerd@users.noreply.github.com>
10 *
11 * This program is free software; you can redistribute it and/or modify
12 * it under the terms of the GNU General Public License as published by
13 * the Free Software Foundation; either version 3 of the License, or
14 * (at your option) any later version.
15 *
16 * This program is distributed in the hope that it will be useful,
17 * but WITHOUT ANY WARRANTY; without even the implied warranty of
18 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 * GNU General Public License for more details.
20 *
21 * You should have received a copy of the GNU General Public License
22 * along with this program. If not, see <https://www.gnu.org/licenses/>.
23 */
24
31// Load Dolibarr environment
32require '../main.inc.php';
33require_once DOL_DOCUMENT_ROOT.'/core/lib/contract.lib.php';
34require_once DOL_DOCUMENT_ROOT.'/contrat/class/contrat.class.php';
35require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
36require_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php';
37if (isModEnabled('project')) {
38 require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
39}
40
49// Load translation files required by the page
50$langs->loadLangs(array('contracts', 'companies'));
51
52$action = GETPOST('action', 'aZ09');
53$confirm = GETPOST('confirm', 'alpha');
54$socid = GETPOSTINT('socid');
55$id = GETPOSTINT('id');
56$ref = GETPOST('ref', 'alpha');
57
58// Security check
59if ($user->socid) {
60 $socid = $user->socid;
61}
62
63$object = new Contrat($db);
64
65// Initialize a technical object to manage hooks of page. Note that conf->hooks_modules contains an array of hook context
66$hookmanager->initHooks(array('contractcontactcard', 'globalcard'));
67
68$permissiontoadd = $user->hasRight('contrat', 'creer'); // Used by the include of actions_addupdatedelete.inc.php and actions_lineupdown.inc.php
69
70$result = restrictedArea($user, 'contrat', $object->id);
71
72
73/*
74 * Actions
75 */
76
77$parameters = array('id' => $id);
78$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action);
79if ($reshook < 0) {
80 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
81}
82
83if (empty($reshook)) {
84 // Add new contact
85 if ($action == 'addcontact' && $user->hasRight('contrat', 'creer')) {
86 $result = $object->fetch($id);
87
88 if ($result > 0 && $id > 0) {
89 $contactid = (GETPOST('userid') ? GETPOSTINT('userid') : GETPOSTINT('contactid'));
90 $typeid = (GETPOST('typecontact') ? GETPOST('typecontact') : GETPOST('type'));
91 $result = $object->add_contact($contactid, $typeid, GETPOST("source", 'aZ09'));
92 }
93
94 if ($result >= 0) {
95 header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
96 exit;
97 } else {
98 if ($object->error == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
99 $langs->load("errors");
100 $msg = $langs->trans("ErrorThisContactIsAlreadyDefinedAsThisType");
101 } else {
102 $mesg = $object->error;
103 }
104
105 setEventMessages($mesg, null, 'errors');
106 }
107 }
108
109 // Toggle the status of a contact
110 if ($action == 'swapstatut' && $user->hasRight('contrat', 'creer')) {
111 if ($object->fetch($id)) {
112 $result = $object->swapContactStatus(GETPOSTINT('ligne'));
113 } else {
114 dol_print_error($db, $object->error);
115 }
116 }
117
118 // Delete contact
119 if ($action == 'deletecontact' && $user->hasRight('contrat', 'creer')) {
120 $object->fetch($id);
121 $result = $object->delete_contact(GETPOSTINT("lineid"));
122
123 if ($result >= 0) {
124 header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
125 exit;
126 }
127 }
128}
129
130/*
131 * View
132 */
133
134$title = $langs->trans("Contract");
135$help_url = 'EN:Module_Contracts|FR:Module_Contrat|ES:Contratos_de_servicio';
136
137llxHeader('', $title, $help_url, '', 0, 0, '', '', '', 'mod-contrat page-card_contact');
138
139$form = new Form($db);
140$formcompany = new FormCompany($db);
141$contactstatic = new Contact($db);
142$userstatic = new User($db);
143
144/* *************************************************************************** */
145/* */
146/* Card view and edit mode */
147/* */
148/* *************************************************************************** */
149
150if ($id > 0 || !empty($ref)) {
151 if ($object->fetch($id, $ref) > 0) {
152 $object->fetch_thirdparty();
153
154 $head = contract_prepare_head($object);
155
156 $hselected = '1';
157
158 print dol_get_fiche_head($head, $hselected, $langs->trans("Contract"), -1, 'contract');
159
160 // Contract card
161
162 $linkback = '<a href="'.DOL_URL_ROOT.'/contrat/list.php?restore_lastsearch_values=1'.(!empty($socid) ? '&socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';
163
164
165 $morehtmlref = '';
166 //if (!empty($modCodeContract->code_auto)) {
167 $morehtmlref .= $object->ref;
168 /*} else {
169 $morehtmlref.=$form->editfieldkey("",'ref',$object->ref,0,'string','',0,3);
170 $morehtmlref.=$form->editfieldval("",'ref',$object->ref,0,'string','',0,2);
171 }*/
172
173 $morehtmlref .= '<div class="refidno">';
174 // Ref customer
175 $morehtmlref .= $form->editfieldkey("RefCustomer", 'ref_customer', $object->ref_customer, $object, 0, 'string', '', 0, 1);
176 $morehtmlref .= $form->editfieldval("RefCustomer", 'ref_customer', $object->ref_customer, $object, 0, 'string', '', null, null, '', 1, 'getFormatedCustomerRef');
177 // Ref supplier
178 $morehtmlref .= '<br>';
179 $morehtmlref .= $form->editfieldkey("RefSupplier", 'ref_supplier', $object->ref_supplier, $object, 0, 'string', '', 0, 1);
180 $morehtmlref .= $form->editfieldval("RefSupplier", 'ref_supplier', $object->ref_supplier, $object, 0, 'string', '', null, null, '', 1, 'getFormatedSupplierRef');
181 // Thirdparty
182 $morehtmlref .= '<br>'.$object->thirdparty->getNomUrl(1);
183 if (!getDolGlobalString('MAIN_DISABLE_OTHER_LINK') && $object->thirdparty->id > 0) {
184 $morehtmlref .= ' <span class="otherlink valignmiddle">(<a href="'.DOL_URL_ROOT.'/contrat/list.php?socid='.$object->thirdparty->id.'&search_name='.urlencode($object->thirdparty->name).'">'.$langs->trans("OtherContracts").'</a>)</span>';
185 }
186 // Project
187 if (isModEnabled('project')) {
188 $langs->load("projects");
189 $morehtmlref .= '<br>';
190 if (0) {
191 $morehtmlref .= img_picto($langs->trans("Project"), 'project', 'class="pictofixedwidth"');
192 if ($action != 'classify') {
193 $morehtmlref .= '<a class="editfielda" href="'.$_SERVER['PHP_SELF'].'?action=classify&token='.newToken().'&id='.$object->id.'">'.img_edit($langs->transnoentitiesnoconv('SetProject')).'</a> ';
194 }
195 $morehtmlref .= $form->form_project($_SERVER['PHP_SELF'].'?id='.$object->id, $object->socid, (string) $object->fk_project, ($action == 'classify' ? 'projectid' : 'none'), 0, 0, 0, 1, '', 'maxwidth300');
196 } else {
197 if (!empty($object->fk_project)) {
198 $proj = new Project($db);
199 $proj->fetch($object->fk_project);
200 $morehtmlref .= $proj->getNomUrl(1);
201 if ($proj->title) {
202 $morehtmlref .= '<span class="opacitymedium"> - '.dol_escape_htmltag($proj->title).'</span>';
203 }
204 }
205 }
206 }
207 $morehtmlref .= '</div>';
208
209
210 dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'none', $morehtmlref);
211
212
213 print '<div class="fichecenter">';
214 print '<div class="underbanner clearboth"></div>';
215
216 print '<table class="border tableforfield" width="100%">';
217
218
219 // Ligne info remises tiers
220 print '<tr><td class="titlefield">'.$langs->trans('Discount').'</td><td colspan="3">';
221 if ($object->thirdparty->remise_percent) {
222 print $langs->trans("CompanyHasRelativeDiscount", $object->thirdparty->remise_percent);
223 } else {
224 print $langs->trans("CompanyHasNoRelativeDiscount");
225 }
226 $absolute_discount = $object->thirdparty->getAvailableDiscounts();
227 print '. ';
228 if ($absolute_discount) {
229 print $langs->trans("CompanyHasAbsoluteDiscount", price($absolute_discount), $langs->trans("Currency".$conf->currency));
230 } else {
231 print $langs->trans("CompanyHasNoAbsoluteDiscount");
232 }
233 print '.';
234 print '</td></tr>';
235
236 // Date
237 print '<tr>';
238 print '<td class="titlefield">';
239 print $form->editfieldkey("Date", 'date_contrat', $object->date_contrat, $object, 0);
240 print '</td><td>';
241 print $form->editfieldval("Date", 'date_contrat', $object->date_contrat, $object, 0, 'datehourpicker');
242 print '</td>';
243 print '</tr>';
244
245 print "</table>";
246
247 print '</div>';
248
249 print dol_get_fiche_end();
250
251 print '<br>';
252
253 // Contacts lines
254 include DOL_DOCUMENT_ROOT.'/core/tpl/contacts.tpl.php';
255 } else {
256 recordNotFound('', 0);
257 }
258}
259
260
261llxFooter();
262$db->close();
$id
Support class for third parties, contacts, members, users or resources.
Definition account.php:48
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
Definition card.php:67
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 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.
contract_prepare_head(Contrat $object)
Prepare array with list of tabs.
recordNotFound($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Displays an error page when a record is not found.
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.
price($amount, $form=0, $outlangs='', $trunc=1, $rounding=-1, $forcerounding=-1, $currency_code='')
Function to format a value into an amount for visual output Function used into PDF and HTML pages.
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_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.
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.