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) 2011-2015 Philippe Grand <philippe.grand@atoo-net.com>
6 * Copyright (C) 2017 Ferran Marcet <fmarcet@2byte.es>
7 * Copyright (C) 2023 Christian Foellmann <christian@foellmann.de>
8 * Copyright (C) 2024 Frédéric France <frederic.france@free.fr>
9 * Copyright (C) 2024 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.'/compta/facture/class/facture.class.php';
34require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
35require_once DOL_DOCUMENT_ROOT.'/core/class/discount.class.php';
36require_once DOL_DOCUMENT_ROOT.'/core/lib/invoice.lib.php';
37require_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php';
38if (isModEnabled('project')) {
39 require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
40}
41
50// Load translation files required by the page
51$langs->loadLangs(array('bills', 'companies'));
52
53$id = (GETPOST('id') ? GETPOSTINT('id') : GETPOSTINT('facid')); // For backward compatibility
54$ref = GETPOST('ref', 'alpha');
55$lineid = GETPOSTINT('lineid');
56$socid = GETPOSTINT('socid');
57$action = GETPOST('action', 'aZ09');
58
59// Security check
60if ($user->socid) {
61 $socid = $user->socid;
62}
63
64$object = new Facture($db);
65// Load object
66if ($id > 0 || !empty($ref)) {
67 $ret = $object->fetch($id, $ref, '', 0, getDolGlobalInt('INVOICE_USE_SITUATION'));
68}
69// Initialize a technical object to manage hooks of page. Note that conf->hooks_modules contains an array of hook context
70$hookmanager->initHooks(array('invoicecontactcard', 'globalcard'));
71
72$result = restrictedArea($user, 'facture', $object->id);
73
74$usercancreate = $user->hasRight("facture", "creer");
75
76
77/*
78 * Actions
79 */
80
81$parameters = array('id' => $id);
82$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action);
83if ($reshook < 0) {
84 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
85}
86
87if (empty($reshook)) {
88 // Add new contact
89 if ($action == 'addcontact' && $user->hasRight('facture', 'creer')) {
90 if ($result > 0 && $id > 0) {
91 $contactid = (GETPOST('userid') ? GETPOSTINT('userid') : GETPOSTINT('contactid'));
92 $typeid = (GETPOST('typecontact') ? GETPOST('typecontact') : GETPOST('type'));
93 $result = $object->add_contact($contactid, $typeid, GETPOST("source", 'aZ09'));
94 }
95
96 if ($result >= 0) {
97 header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
98 exit;
99 } else {
100 if ($object->error == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
101 $langs->load("errors");
102 setEventMessages($langs->trans("ErrorThisContactIsAlreadyDefinedAsThisType"), null, 'errors');
103 } else {
104 setEventMessages($object->error, $object->errors, 'errors');
105 }
106 }
107 } elseif ($action == 'swapstatut' && $user->hasRight('facture', 'creer')) {
108 // Toggle the status of a contact
109 $result = $object->swapContactStatus(GETPOSTINT('ligne'));
110 } elseif ($action == 'deletecontact' && $user->hasRight('facture', 'creer')) {
111 // Delete contact
112 $result = $object->delete_contact($lineid);
113
114 if ($result >= 0) {
115 header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
116 exit;
117 } else {
118 dol_print_error($db);
119 }
120 }
121}
122
123/*
124 * View
125 */
126
127$title = $object->ref." - ".$langs->trans('ContactsAddresses');
128$helpurl = "EN:Customers_Invoices|FR:Factures_Clients|ES:Facturas_a_clientes";
129llxHeader('', $title, $helpurl);
130
131$form = new Form($db);
132$formcompany = new FormCompany($db);
133$contactstatic = new Contact($db);
134$userstatic = new User($db);
135
136
137/* *************************************************************************** */
138/* */
139/* View and edit mode */
140/* */
141/* *************************************************************************** */
142
143if ($id > 0 || !empty($ref)) {
144 if ($object->fetch($id, $ref) > 0) {
145 $object->fetch_thirdparty();
146
147 $head = facture_prepare_head($object);
148
149 $totalpaid = $object->getSommePaiement();
150
151 print dol_get_fiche_head($head, 'contact', $langs->trans('InvoiceCustomer'), -1, 'bill');
152
153 // Invoice content
154
155 $linkback = '<a href="'.DOL_URL_ROOT.'/compta/facture/list.php?restore_lastsearch_values=1'.(!empty($socid) ? '&socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';
156
157 $morehtmlref = '<div class="refidno">';
158 // Ref customer
159 $morehtmlref .= $form->editfieldkey("RefCustomer", 'ref_client', $object->ref_customer, $object, 0, 'string', '', 0, 1);
160 $morehtmlref .= $form->editfieldval("RefCustomer", 'ref_client', $object->ref_customer, $object, 0, 'string', '', null, null, '', 1);
161 // Thirdparty
162 $morehtmlref .= '<br>'.$object->thirdparty->getNomUrl(1, 'customer');
163 // Project
164 if (isModEnabled('project')) {
165 $langs->load("projects");
166 $morehtmlref .= '<br>';
167 if (0) {
168 $morehtmlref .= img_picto($langs->trans("Project"), 'project', 'class="pictofixedwidth"');
169 if ($action != 'classify') {
170 $morehtmlref .= '<a class="editfielda" href="'.$_SERVER['PHP_SELF'].'?action=classify&token='.newToken().'&id='.$object->id.'">'.img_edit($langs->transnoentitiesnoconv('SetProject')).'</a> ';
171 }
172 $morehtmlref .= $form->form_project($_SERVER['PHP_SELF'].'?id='.$object->id, $object->socid, $object->fk_project, ($action == 'classify' ? 'projectid' : 'none'), 0, 0, 0, 1, '', 'maxwidth300');
173 } else {
174 if (!empty($object->fk_project)) {
175 $proj = new Project($db);
176 $proj->fetch($object->fk_project);
177 $morehtmlref .= $proj->getNomUrl(1);
178 if ($proj->title) {
179 $morehtmlref .= '<span class="opacitymedium"> - '.dol_escape_htmltag($proj->title).'</span>';
180 }
181 }
182 }
183 }
184 $morehtmlref .= '</div>';
185
186 $object->totalpaid = $totalpaid; // To give a chance to dol_banner_tab to use already paid amount to show correct status
187
188 dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref', $morehtmlref, '', 0, '', '', 1);
189
190 print dol_get_fiche_end();
191
192 //print '<br>';
193
194 // Contacts lines (modules that overwrite templates must declare this into descriptor)
195 $dirtpls = array_merge($conf->modules_parts['tpl'], array('/core/tpl'));
196 foreach ($dirtpls as $reldir) {
197 $res = @include dol_buildpath($reldir.'/contacts.tpl.php');
198 if ($res) {
199 break;
200 }
201 }
202 } else {
203 // Record not found
204 print "ErrorRecordNotFound";
205 }
206}
207
208// End of page
209llxFooter();
210$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 manage invoices.
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.
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.
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
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_buildpath($path, $type=0, $returnemptyifnotfound=0)
Return path of url or filesystem.
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.
facture_prepare_head($object)
Initialize the array of tabs for customer invoice.
global $conf
The following vars must be defined: $type2label $form $conf, $lang, The following vars may also be de...
Definition member.php:79
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.