dolibarr  13.0.2
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  *
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 require '../../main.inc.php';
29 require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
30 require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
31 require_once DOL_DOCUMENT_ROOT.'/core/class/discount.class.php';
32 require_once DOL_DOCUMENT_ROOT.'/core/lib/invoice.lib.php';
33 require_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php';
34 if (!empty($conf->projet->enabled)) {
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('bills', 'companies'));
40 
41 $id = (GETPOST('id') ?GETPOST('id', 'int') : GETPOST('facid', 'int')); // For backward compatibility
42 $ref = GETPOST('ref', 'alpha');
43 $lineid = GETPOST('lineid', 'int');
44 $socid = GETPOST('socid', 'int');
45 $action = GETPOST('action', 'aZ09');
46 
47 // Security check
48 if ($user->socid) $socid = $user->socid;
49 $result = restrictedArea($user, 'facture', $id);
50 
51 $object = new Facture($db);
52 
53 
54 /*
55  * Add a new contact
56  */
57 
58 if ($action == 'addcontact' && $user->rights->facture->creer)
59 {
60  $result = $object->fetch($id);
61 
62  if ($result > 0 && $id > 0)
63  {
64  $contactid = (GETPOST('userid') ? GETPOST('userid', 'int') : GETPOST('contactid', 'int'));
65  $typeid = (GETPOST('typecontact') ? GETPOST('typecontact') : GETPOST('type'));
66  $result = $object->add_contact($contactid, $typeid, GETPOST("source", 'aZ09'));
67  }
68 
69  if ($result >= 0)
70  {
71  header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
72  exit;
73  } else {
74  if ($object->error == 'DB_ERROR_RECORD_ALREADY_EXISTS')
75  {
76  $langs->load("errors");
77  setEventMessages($langs->trans("ErrorThisContactIsAlreadyDefinedAsThisType"), null, 'errors');
78  } else {
79  setEventMessages($object->error, $object->errors, 'errors');
80  }
81  }
82 } // Toggle the status of a contact
83 elseif ($action == 'swapstatut' && $user->rights->facture->creer)
84 {
85  if ($object->fetch($id))
86  {
87  $result = $object->swapContactStatus(GETPOST('ligne'));
88  } else {
89  dol_print_error($db);
90  }
91 } // Deletes a contact
92 elseif ($action == 'deletecontact' && $user->rights->facture->creer)
93 {
94  $object->fetch($id);
95  $result = $object->delete_contact($lineid);
96 
97  if ($result >= 0)
98  {
99  header("Location: ".$_SERVER['PHP_SELF']."?id=".$object->id);
100  exit;
101  } else {
102  dol_print_error($db);
103  }
104 }
105 
106 
107 /*
108  * View
109  */
110 
111 $title = $langs->trans('InvoiceCustomer')." - ".$langs->trans('ContactsAddresses');
112 $helpurl = "EN:Customers_Invoices|FR:Factures_Clients|ES:Facturas_a_clientes";
113 llxHeader('', $title, $helpurl);
114 
115 $form = new Form($db);
116 $formcompany = new FormCompany($db);
117 $contactstatic = new Contact($db);
118 $userstatic = new User($db);
119 
120 
121 /* *************************************************************************** */
122 /* */
123 /* View and edit mode */
124 /* */
125 /* *************************************************************************** */
126 
127 if ($id > 0 || !empty($ref))
128 {
129  if ($object->fetch($id, $ref) > 0)
130  {
131  $object->fetch_thirdparty();
132 
133  $head = facture_prepare_head($object);
134 
135  $totalpaye = $object->getSommePaiement();
136 
137  print dol_get_fiche_head($head, 'contact', $langs->trans('InvoiceCustomer'), -1, 'bill');
138 
139  // Invoice content
140 
141  $linkback = '<a href="'.DOL_URL_ROOT.'/compta/facture/list.php?restore_lastsearch_values=1'.(!empty($socid) ? '&socid='.$socid : '').'">'.$langs->trans("BackToList").'</a>';
142 
143  $morehtmlref = '<div class="refidno">';
144  // Ref customer
145  $morehtmlref .= $form->editfieldkey("RefCustomer", 'ref_client', $object->ref_client, $object, 0, 'string', '', 0, 1);
146  $morehtmlref .= $form->editfieldval("RefCustomer", 'ref_client', $object->ref_client, $object, 0, 'string', '', null, null, '', 1);
147  // Thirdparty
148  $morehtmlref .= '<br>'.$langs->trans('ThirdParty').' : '.$object->thirdparty->getNomUrl(1, 'customer');
149  // Project
150  if (!empty($conf->projet->enabled))
151  {
152  $langs->load("projects");
153  $morehtmlref .= '<br>'.$langs->trans('Project').' ';
154  if ($user->rights->facture->creer)
155  {
156  if ($action != 'classify') {
157  //$morehtmlref.='<a class="editfielda" href="' . $_SERVER['PHP_SELF'] . '?action=classify&amp;id=' . $object->id . '">' . img_edit($langs->transnoentitiesnoconv('SetProject')) . '</a> : ';
158  $morehtmlref .= ' : ';
159  }
160  if ($action == 'classify') {
161  //$morehtmlref.=$form->form_project($_SERVER['PHP_SELF'] . '?id=' . $object->id, $object->socid, $object->fk_project, 'projectid', 0, 0, 1, 1);
162  $morehtmlref .= '<form method="post" action="'.$_SERVER['PHP_SELF'].'?id='.$object->id.'">';
163  $morehtmlref .= '<input type="hidden" name="action" value="classin">';
164  $morehtmlref .= '<input type="hidden" name="token" value="'.newToken().'">';
165  $morehtmlref .= $formproject->select_projects($object->socid, $object->fk_project, 'projectid', $maxlength, 0, 1, 0, 1, 0, 0, '', 1);
166  $morehtmlref .= '<input type="submit" class="button valignmiddle" value="'.$langs->trans("Modify").'">';
167  $morehtmlref .= '</form>';
168  } else {
169  $morehtmlref .= $form->form_project($_SERVER['PHP_SELF'].'?id='.$object->id, $object->socid, $object->fk_project, 'none', 0, 0, 0, 1);
170  }
171  } else {
172  if (!empty($object->fk_project)) {
173  $proj = new Project($db);
174  $proj->fetch($object->fk_project);
175  $morehtmlref .= '<a href="'.DOL_URL_ROOT.'/projet/card.php?id='.$object->fk_project.'" title="'.$langs->trans('ShowProject').'">';
176  $morehtmlref .= $proj->ref;
177  $morehtmlref .= '</a>';
178  } else {
179  $morehtmlref .= '';
180  }
181  }
182  }
183  $morehtmlref .= '</div>';
184 
185  $object->totalpaye = $totalpaye; // To give a chance to dol_banner_tab to use already paid amount to show correct status
186 
187  dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref', $morehtmlref, '', 0, '', '', 1);
188 
190 
191  print '<br>';
192 
193  // Contacts lines (modules that overwrite templates must declare this into descriptor)
194  $dirtpls = array_merge($conf->modules_parts['tpl'], array('/core/tpl'));
195  foreach ($dirtpls as $reldir)
196  {
197  $res = @include dol_buildpath($reldir.'/contacts.tpl.php');
198  if ($res) break;
199  }
200  } else {
201  // Record not found
202  print "ErrorRecordNotFound";
203  }
204 }
205 
206 // End of page
207 llxFooter();
208 $db->close();
GETPOST($paramname, $check= 'alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
Class to manage contact/addresses.
Class to manage Dolibarr users.
Definition: user.class.php:44
dol_buildpath($path, $type=0, $returnemptyifnotfound=0)
Return path of url or filesystem.
llxHeader()
Empty header.
Definition: wrapper.php:45
Class to build HTML component for third parties management Only common components are here...
setEventMessages($mesg, $mesgs, $style= 'mesgs', $messagekey= '')
Set event messages in dol_events session object.
Class to manage generation of HTML components Only common components must be here.
Class to manage projects.
restrictedArea($user, $features, $objectid=0, $tableandshare= '', $feature2= '', $dbt_keyfield= 'fk_soc', $dbt_select= 'rowid', $isdraft=0)
Check permissions of a user to show a page and an object.
print $_SERVER["PHP_SELF"]
Edit parameters.
dol_get_fiche_head($links=array(), $active= '', $title= '', $notab=0, $picto= '', $pictoisfullpath=0, $morehtmlright= '', $morecss= '', $limittoshow=0, $moretabssuffix= '')
Show tabs of a record.
print
Draft customers invoices.
Definition: index.php:89
dol_print_error($db= '', $error= '', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
dol_get_fiche_end($notab=0)
Return tab footer of a card.
Class to manage invoices.
dol_banner_tab($object, $paramid, $morehtml= '', $shownav=1, $fieldid= 'rowid', $fieldref= 'ref', $morehtmlref= '', $moreparam= '', $nodbprefix=0, $morehtmlleft= '', $morehtmlstatus= '', $onlybanner=0, $morehtmlright= '')
Show tab footer of a card.
llxFooter()
Empty footer.
Definition: wrapper.php:59
facture_prepare_head($object)
Initialize the array of tabs for customer invoice.
Definition: invoice.lib.php:36