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