dolibarr 21.0.0-beta
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 Frédéric France <frederic.france@free.fr>
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.'/core/lib/contract.lib.php';
33require_once DOL_DOCUMENT_ROOT.'/contrat/class/contrat.class.php';
34require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.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('contracts', 'companies'));
50
51$action = GETPOST('action', 'aZ09');
52$confirm = GETPOST('confirm', 'alpha');
53$socid = GETPOSTINT('socid');
54$id = GETPOSTINT('id');
55$ref = GETPOST('ref', 'alpha');
56
57// Security check
58if ($user->socid) {
59 $socid = $user->socid;
60}
61
62$object = new Contrat($db);
63
64// Initialize a technical object to manage hooks of page. Note that conf->hooks_modules contains an array of hook context
65$hookmanager->initHooks(array('contractcontactcard', 'globalcard'));
66
67$permissiontoadd = $user->hasRight('contrat', 'creer'); // Used by the include of actions_addupdatedelete.inc.php and actions_lineupdown.inc.php
68
69$result = restrictedArea($user, 'contrat', $object->id);
70
71
72/*
73 * Actions
74 */
75
76$parameters = array('id'=>$id);
77$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action);
78if ($reshook < 0) {
79 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
80}
81
82if (empty($reshook)) {
83 // Add new contact
84 if ($action == 'addcontact' && $user->hasRight('contrat', 'creer')) {
85 $result = $object->fetch($id);
86
87 if ($result > 0 && $id > 0) {
88 $contactid = (GETPOST('userid') ? GETPOST('userid') : GETPOST('contactid'));
89 $typeid = (GETPOST('typecontact') ? GETPOST('typecontact') : GETPOST('type'));
90 $result = $object->add_contact($contactid, $typeid, GETPOST("source", 'aZ09'));
91 }
92
93 if ($result >= 0) {
94 header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
95 exit;
96 } else {
97 if ($object->error == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
98 $langs->load("errors");
99 $msg = $langs->trans("ErrorThisContactIsAlreadyDefinedAsThisType");
100 } else {
101 $mesg = $object->error;
102 }
103
104 setEventMessages($mesg, null, 'errors');
105 }
106 }
107
108 // Toggle the status of a contact
109 if ($action == 'swapstatut' && $user->hasRight('contrat', 'creer')) {
110 if ($object->fetch($id)) {
111 $result = $object->swapContactStatus(GETPOSTINT('ligne'));
112 } else {
113 dol_print_error($db, $object->error);
114 }
115 }
116
117 // Delete contact
118 if ($action == 'deletecontact' && $user->hasRight('contrat', 'creer')) {
119 $object->fetch($id);
120 $result = $object->delete_contact(GETPOSTINT("lineid"));
121
122 if ($result >= 0) {
123 header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
124 exit;
125 }
126 }
127}
128
129/*
130 * View
131 */
132
133$title = $langs->trans("Contract");
134$help_url = 'EN:Module_Contracts|FR:Module_Contrat|ES:Contratos_de_servicio';
135
136llxHeader('', $title, $help_url, '', 0, 0, '', '', '', 'mod-contrat page-card_contact');
137
138$form = new Form($db);
139$formcompany = new FormCompany($db);
140$contactstatic = new Contact($db);
141$userstatic = new User($db);
142
143/* *************************************************************************** */
144/* */
145/* Card view and edit mode */
146/* */
147/* *************************************************************************** */
148
149if ($id > 0 || !empty($ref)) {
150 if ($object->fetch($id, $ref) > 0) {
151 $object->fetch_thirdparty();
152
153 $head = contract_prepare_head($object);
154
155 $hselected = '1';
156
157 print dol_get_fiche_head($head, $hselected, $langs->trans("Contract"), -1, 'contract');
158
159 // Contract card
160
161 $linkback = '<a href="'.DOL_URL_ROOT.'/contrat/list.php?restore_lastsearch_values=1'.(!empty($socid) ? '&socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';
162
163
164 $morehtmlref = '';
165 //if (!empty($modCodeContract->code_auto)) {
166 $morehtmlref .= $object->ref;
167 /*} else {
168 $morehtmlref.=$form->editfieldkey("",'ref',$object->ref,0,'string','',0,3);
169 $morehtmlref.=$form->editfieldval("",'ref',$object->ref,0,'string','',0,2);
170 }*/
171
172 $morehtmlref .= '<div class="refidno">';
173 // Ref customer
174 $morehtmlref .= $form->editfieldkey("RefCustomer", 'ref_customer', $object->ref_customer, $object, 0, 'string', '', 0, 1);
175 $morehtmlref .= $form->editfieldval("RefCustomer", 'ref_customer', $object->ref_customer, $object, 0, 'string', '', null, null, '', 1, 'getFormatedCustomerRef');
176 // Ref supplier
177 $morehtmlref .= '<br>';
178 $morehtmlref .= $form->editfieldkey("RefSupplier", 'ref_supplier', $object->ref_supplier, $object, 0, 'string', '', 0, 1);
179 $morehtmlref .= $form->editfieldval("RefSupplier", 'ref_supplier', $object->ref_supplier, $object, 0, 'string', '', null, null, '', 1, 'getFormatedSupplierRef');
180 // Thirdparty
181 $morehtmlref .= '<br>'.$object->thirdparty->getNomUrl(1);
182 if (!getDolGlobalString('MAIN_DISABLE_OTHER_LINK') && $object->thirdparty->id > 0) {
183 $morehtmlref .= ' <span class="otherlink">(<a href="'.DOL_URL_ROOT.'/contrat/list.php?socid='.$object->thirdparty->id.'&search_name='.urlencode($object->thirdparty->name).'">'.$langs->trans("OtherContracts").'</a>)</span>';
184 }
185 // Project
186 if (isModEnabled('project')) {
187 $langs->load("projects");
188 $morehtmlref .= '<br>';
189 if (0) {
190 $morehtmlref .= img_picto($langs->trans("Project"), 'project', 'class="pictofixedwidth"');
191 if ($action != 'classify') {
192 $morehtmlref .= '<a class="editfielda" href="'.$_SERVER['PHP_SELF'].'?action=classify&token='.newToken().'&id='.$object->id.'">'.img_edit($langs->transnoentitiesnoconv('SetProject')).'</a> ';
193 }
194 $morehtmlref .= $form->form_project($_SERVER['PHP_SELF'].'?id='.$object->id, $object->socid, $object->fk_project, ($action == 'classify' ? 'projectid' : 'none'), 0, 0, 0, 1, '', 'maxwidth300');
195 } else {
196 if (!empty($object->fk_project)) {
197 $proj = new Project($db);
198 $proj->fetch($object->fk_project);
199 $morehtmlref .= $proj->getNomUrl(1);
200 if ($proj->title) {
201 $morehtmlref .= '<span class="opacitymedium"> - '.dol_escape_htmltag($proj->title).'</span>';
202 }
203 }
204 }
205 }
206 $morehtmlref .= '</div>';
207
208
209 dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'none', $morehtmlref);
210
211
212 print '<div class="fichecenter">';
213 print '<div class="underbanner clearboth"></div>';
214
215 print '<table class="border tableforfield" width="100%">';
216
217
218 // Ligne info remises tiers
219 print '<tr><td class="titlefield">'.$langs->trans('Discount').'</td><td colspan="3">';
220 if ($object->thirdparty->remise_percent) {
221 print $langs->trans("CompanyHasRelativeDiscount", $object->thirdparty->remise_percent);
222 } else {
223 print $langs->trans("CompanyHasNoRelativeDiscount");
224 }
225 $absolute_discount = $object->thirdparty->getAvailableDiscounts();
226 print '. ';
227 if ($absolute_discount) {
228 print $langs->trans("CompanyHasAbsoluteDiscount", price($absolute_discount), $langs->trans("Currency".$conf->currency));
229 } else {
230 print $langs->trans("CompanyHasNoAbsoluteDiscount");
231 }
232 print '.';
233 print '</td></tr>';
234
235 // Date
236 print '<tr>';
237 print '<td class="titlefield">';
238 print $form->editfieldkey("Date", 'date_contrat', $object->date_contrat, $object, 0);
239 print '</td><td>';
240 print $form->editfieldval("Date", 'date_contrat', $object->date_contrat, $object, 0, 'datehourpicker');
241 print '</td>';
242 print '</tr>';
243
244 print "</table>";
245
246 print '</div>';
247
248 print dol_get_fiche_end();
249
250 print '<br>';
251
252 // Contacts lines
253 include DOL_DOCUMENT_ROOT.'/core/tpl/contacts.tpl.php';
254 } else {
255 print "ErrorRecordNotFound";
256 }
257}
258
259
260llxFooter();
261$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 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.
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.
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.
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.