dolibarr 20.0.2
index.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2003-2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3 * Copyright (C) 2004-2017 Laurent Destailleur <eldy@users.sourceforge.net>
4 * Copyright (C) 2005-2012 Regis Houssin <regis.houssin@inodbox.com>
5 * Copyright (C) 2019 Nicolas ZABOURI <info@inovea-conseil.com>
6 * Copyright (C) 2020 Tobias Sekan <tobias.sekan@startmail.com>
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// Load Dolibarr environment
29require '../../main.inc.php';
30require_once DOL_DOCUMENT_ROOT.'/core/class/html.formfile.class.php';
31require_once DOL_DOCUMENT_ROOT.'/comm/propal/class/propal.class.php';
32require_once DOL_DOCUMENT_ROOT.'/core/lib/propal.lib.php';
33
34// Initialize technical object to manage hooks. Note that conf->hooks_modules contains array
35$hookmanager = new HookManager($db);
36$hookmanager->initHooks(array('proposalindex'));
37
38// Load translation files required by the page
39$langs->loadLangs(array('propal', 'companies'));
40
41$now = dol_now();
42$max = getDolGlobalInt('MAIN_SIZE_SHORTLIST_LIMIT', 5);
43
44// Security check
45$socid = GETPOSTINT('socid');
46if (isset($user->socid) && $user->socid > 0) {
47 $action = '';
48 $socid = $user->socid;
49}
50
51restrictedArea($user, 'propal');
52
53
54/*
55 * View
56 */
57
58$propalstatic = new Propal($db);
59$companystatic = new Societe($db);
60$form = new Form($db);
61$formfile = new FormFile($db);
62$help_url = "EN:Module_Commercial_Proposals|FR:Module_Propositions_commerciales|ES:Módulo_Presupuestos";
63
64llxHeader("", $langs->trans("ProspectionArea"), $help_url);
65
66print load_fiche_titre($langs->trans("ProspectionArea"), '', 'propal');
67
68print '<div class="fichecenter">';
69print '<div class="fichethirdleft">';
70
71$tmp = getCustomerProposalPieChart($socid);
72if ($tmp) {
73 print $tmp;
74 print '<br>';
75}
76
77/*
78 * Draft proposals
79 */
80if (isModEnabled("propal")) {
81 $sql = "SELECT p.rowid, p.ref, p.ref_client, p.total_ht, p.total_tva, p.total_ttc";
82 $sql .= ", s.rowid as socid, s.nom as name, s.client, s.canvas, s.code_client, s.code_fournisseur, s.email, s.entity, s.code_compta";
83 $sql .= " FROM ".MAIN_DB_PREFIX."propal as p";
84 $sql .= ", ".MAIN_DB_PREFIX."societe as s";
85 $sql .= " WHERE p.entity IN (".getEntity($propalstatic->element).")";
86 $sql .= " AND p.fk_soc = s.rowid";
87 $sql .= " AND p.fk_statut =".Propal::STATUS_DRAFT;
88 // If the internal user must only see his customers, force searching by him
89 $search_sale = 0;
90 if (!$user->hasRight('societe', 'client', 'voir')) {
91 $search_sale = $user->id;
92 }
93 // Search on sale representative
94 if ($search_sale && $search_sale != '-1') {
95 if ($search_sale == -2) {
96 $sql .= " AND NOT EXISTS (SELECT sc.fk_soc FROM ".MAIN_DB_PREFIX."societe_commerciaux as sc WHERE sc.fk_soc = p.fk_soc)";
97 } elseif ($search_sale > 0) {
98 $sql .= " AND EXISTS (SELECT sc.fk_soc FROM ".MAIN_DB_PREFIX."societe_commerciaux as sc WHERE sc.fk_soc = p.fk_soc AND sc.fk_user = ".((int) $search_sale).")";
99 }
100 }
101 // Search on socid
102 if ($socid) {
103 $sql .= " AND p.fk_soc = ".((int) $socid);
104 }
105
106 $resql = $db->query($sql);
107 if ($resql) {
108 $num = $db->num_rows($resql);
109 $nbofloop = min($num, (!getDolGlobalString('MAIN_MAXLIST_OVERLOAD') ? 500 : $conf->global->MAIN_MAXLIST_OVERLOAD));
110 startSimpleTable("DraftPropals", "comm/propal/list.php", "search_status=".Propal::STATUS_DRAFT, 2, $num);
111
112 $total = 0;
113 if ($num) {
114 $i = 0;
115
116 while ($i < $nbofloop) {
117 $obj = $db->fetch_object($resql);
118
119 $propalstatic->id = $obj->rowid;
120 $propalstatic->ref = $obj->ref;
121 $propalstatic->ref_client = $obj->ref_client;
122 $propalstatic->total_ht = $obj->total_ht;
123 $propalstatic->total_tva = $obj->total_tva;
124 $propalstatic->total_ttc = $obj->total_ttc;
125
126 $companystatic->id = $obj->socid;
127 $companystatic->name = $obj->name;
128 $companystatic->client = $obj->client;
129 $companystatic->code_client = $obj->code_client;
130 $companystatic->code_fournisseur = $obj->code_fournisseur;
131 $companystatic->canvas = $obj->canvas;
132 $companystatic->entity = $obj->entity;
133 $companystatic->email = $obj->email;
134 $companystatic->code_compta = $obj->code_compta;
135
136 print '<tr class="oddeven">';
137 print '<td class="nowrap">'.$propalstatic->getNomUrl(1).'</td>';
138 print '<td class="nowrap">'.$companystatic->getNomUrl(1, 'customer', 16).'</td>';
139 print '<td class="nowrap right">'.price(getDolGlobalString('MAIN_DASHBOARD_USE_TOTAL_HT') ? $obj->total_ht : $obj->total_ttc).'</td>';
140 print '</tr>';
141
142 $i++;
143 $total += (getDolGlobalString('MAIN_DASHBOARD_USE_TOTAL_HT') ? $obj->total_ht : $obj->total_ttc);
144 }
145 }
146
147 addSummaryTableLine(3, $num, $nbofloop, $total, "NoProposal");
148 finishSimpleTable(true);
149 $db->free($resql);
150 } else {
151 dol_print_error($db);
152 }
153}
154
155print '</div>';
156
157print '<div class="fichetwothirdright">';
158
159/*
160 * Last modified proposals
161 */
162
163$sql = "SELECT c.rowid, c.entity, c.ref, c.total_ht, c.total_tva, c.total_ttc, c.fk_statut as status, date_cloture as datec, c.tms as datem,";
164$sql .= " s.nom as socname, s.rowid as socid, s.canvas, s.client, s.email, s.code_compta";
165$sql .= " FROM ".MAIN_DB_PREFIX."propal as c,";
166$sql .= " ".MAIN_DB_PREFIX."societe as s";
167$sql .= " WHERE c.entity IN (".getEntity($propalstatic->element).")";
168$sql .= " AND c.fk_soc = s.rowid";
169// If the internal user must only see his customers, force searching by him
170$search_sale = 0;
171if (!$user->hasRight('societe', 'client', 'voir')) {
172 $search_sale = $user->id;
173}
174// Search on sale representative
175if ($search_sale && $search_sale != '-1') {
176 if ($search_sale == -2) {
177 $sql .= " AND NOT EXISTS (SELECT sc.fk_soc FROM ".MAIN_DB_PREFIX."societe_commerciaux as sc WHERE sc.fk_soc = c.fk_soc)";
178 } elseif ($search_sale > 0) {
179 $sql .= " AND EXISTS (SELECT sc.fk_soc FROM ".MAIN_DB_PREFIX."societe_commerciaux as sc WHERE sc.fk_soc = c.fk_soc AND sc.fk_user = ".((int) $search_sale).")";
180 }
181}
182// Search on socid
183if ($socid) {
184 $sql .= " AND c.fk_soc = ".((int) $socid);
185}
186$sql .= " ORDER BY c.tms DESC";
187
188$sql .= $db->plimit($max, 0);
189
190$resql = $db->query($sql);
191if ($resql) {
192 $num = $db->num_rows($resql);
193
194 startSimpleTable($langs->trans("LastModifiedProposals", $max), "comm/propal/list.php", "sortfield=p.tms&sortorder=DESC", 2, -1, 'propal');
195
196 if ($num) {
197 $i = 0;
198 while ($i < $num) {
199 $obj = $db->fetch_object($resql);
200
201 $propalstatic->id = $obj->rowid;
202 $propalstatic->ref = $obj->ref;
203 $propalstatic->total_ht = $obj->total_ht;
204 $propalstatic->total_tva = $obj->total_tva;
205 $propalstatic->total_ttc = $obj->total_ttc;
206
207 $companystatic->id = $obj->socid;
208 $companystatic->name = $obj->socname;
209 $companystatic->client = $obj->client;
210 $companystatic->canvas = $obj->canvas;
211 $companystatic->email = $obj->email;
212 $companystatic->code_compta = $obj->code_compta;
213
214 $filename = dol_sanitizeFileName($obj->ref);
215 $filedir = $conf->propal->multidir_output[$obj->entity].'/'.dol_sanitizeFileName($obj->ref);
216 $urlsource = $_SERVER['PHP_SELF'].'?id='.$obj->rowid;
217
218 print '<tr class="oddeven">';
219
220 print '<td class="nowrap">';
221 print '<table class="nobordernopadding">';
222 print '<tr class="nocellnopadd">';
223 print '<td width="96" class="nobordernopadding nowrap">'.$propalstatic->getNomUrl(1).'</td>';
224 print '<td width="16" class="nobordernopadding nowrap"></td>';
225 print '<td width="16" class="nobordernopadding right">'.$formfile->getDocumentsLink($propalstatic->element, $filename, $filedir).'</td>';
226 print '</tr>';
227 print '</table>';
228 print '</td>';
229
230 print '<td>'.$companystatic->getNomUrl(1, 'customer').'</td>';
231
232 $datem = $db->jdate($obj->datem);
233 print '<td class="center" title="'.dol_escape_htmltag($langs->trans("DateModification").': '.dol_print_date($datem, 'dayhour', 'tzuserrel')).'">';
234 print dol_print_date($datem, 'day', 'tzuserrel');
235 print '</td>';
236
237 print '<td class="right">'.$propalstatic->LibStatut($obj->status, 3).'</td>';
238
239 print '</tr>';
240
241 $i++;
242 }
243 }
244
245 finishSimpleTable(true);
246 $db->free($resql);
247} else {
248 dol_print_error($db);
249}
250
251
252/*
253 * Open (validated) proposals
254 */
255if (isModEnabled("propal") && $user->hasRight('propal', 'lire')) {
256 $sql = "SELECT s.nom as socname, s.rowid as socid, s.canvas, s.client, s.email, s.code_compta";
257 $sql .= ", p.rowid as propalid, p.entity, p.total_ttc, p.total_ht, p.total_tva, p.ref, p.fk_statut, p.datep as dp, p.fin_validite as dfv";
258 $sql .= " FROM ".MAIN_DB_PREFIX."societe as s";
259 $sql .= ", ".MAIN_DB_PREFIX."propal as p";
260 $sql .= " WHERE p.fk_soc = s.rowid";
261 $sql .= " AND p.entity IN (".getEntity($propalstatic->element).")";
262 $sql .= " AND p.fk_statut = ".Propal::STATUS_VALIDATED;
263 // If the internal user must only see his customers, force searching by him
264 $search_sale = 0;
265 if (!$user->hasRight('societe', 'client', 'voir')) {
266 $search_sale = $user->id;
267 }
268 // Search on sale representative
269 if ($search_sale && $search_sale != '-1') {
270 if ($search_sale == -2) {
271 $sql .= " AND NOT EXISTS (SELECT sc.fk_soc FROM ".MAIN_DB_PREFIX."societe_commerciaux as sc WHERE sc.fk_soc = p.fk_soc)";
272 } elseif ($search_sale > 0) {
273 $sql .= " AND EXISTS (SELECT sc.fk_soc FROM ".MAIN_DB_PREFIX."societe_commerciaux as sc WHERE sc.fk_soc = p.fk_soc AND sc.fk_user = ".((int) $search_sale).")";
274 }
275 }
276 // Search on socid
277 if ($socid) {
278 $sql .= " AND p.fk_soc = ".((int) $socid);
279 }
280 $sql .= " ORDER BY p.rowid DESC";
281
282 $resql = $db->query($sql);
283 if ($resql) {
284 $total = 0;
285 $num = $db->num_rows($resql);
286 $nbofloop = min($num, (!getDolGlobalString('MAIN_MAXLIST_OVERLOAD') ? 500 : $conf->global->MAIN_MAXLIST_OVERLOAD));
287 startSimpleTable("ProposalsOpened", "comm/propal/list.php", "search_status=".Propal::STATUS_VALIDATED, 4, $num);
288
289 if ($num > 0) {
290 $i = 0;
291 while ($i < $nbofloop) {
292 $obj = $db->fetch_object($resql);
293
294 $propalstatic->id = $obj->propalid;
295 $propalstatic->ref = $obj->ref;
296 $propalstatic->total_ht = $obj->total_ht;
297 $propalstatic->total_tva = $obj->total_tva;
298 $propalstatic->total_ttc = $obj->total_ttc;
299
300 $companystatic->id = $obj->socid;
301 $companystatic->name = $obj->socname;
302 $companystatic->client = $obj->client;
303 $companystatic->canvas = $obj->canvas;
304 $companystatic->email = $obj->email;
305 $companystatic->code_compta = $obj->code_compta;
306
307 $filename = dol_sanitizeFileName($obj->ref);
308 $filedir = $conf->propal->multidir_output[$obj->entity].'/'.dol_sanitizeFileName($obj->ref);
309 $urlsource = $_SERVER['PHP_SELF'].'?id='.$obj->propalid;
310
311 $warning = ($db->jdate($obj->dfv) < ($now - $conf->propal->cloture->warning_delay)) ? img_warning($langs->trans("Late")) : '';
312
313 print '<tr class="oddeven">';
314
315 // Ref
316 print '<td class="nowrap" width="140">';
317 print '<table class="nobordernopadding">';
318 print '<tr class="nocellnopadd">';
319 print '<td class="nobordernopadding nowrap">'.$propalstatic->getNomUrl(1).'</td>';
320 print '<td width="18" class="nobordernopadding nowrap">'.$warning.'</td>';
321 print '<td width="16" align="center" class="nobordernopadding">'.$formfile->getDocumentsLink($propalstatic->element, $filename, $filedir).'</td>';
322 print '</tr>';
323 print '</table>';
324 print '</td>';
325
326 print '<td class="tdoverflowmax150">'.$companystatic->getNomUrl(1, 'customer', 44).'</td>';
327 print '<td class="right">'.dol_print_date($db->jdate($obj->dp), 'day').'</td>';
328 print '<td class="right">'.price(getDolGlobalString('MAIN_DASHBOARD_USE_TOTAL_HT') ? $obj->total_ht : $obj->total_ttc).'</td>';
329 print '<td align="center" width="14">'.$propalstatic->LibStatut($obj->fk_statut, 3).'</td>';
330
331 print '</tr>';
332
333 $i++;
334 $total += (getDolGlobalString('MAIN_DASHBOARD_USE_TOTAL_HT') ? $obj->total_ht : $obj->total_ttc);
335 }
336 }
337
338 addSummaryTableLine(5, $num, $nbofloop, $total, "None", true);
339 finishSimpleTable(true);
340 $db->free($resql);
341 } else {
342 dol_print_error($db);
343 }
344}
345
346print '</div>';
347print '</div>';
348
349$parameters = array('user' => $user);
350$reshook = $hookmanager->executeHooks('dashboardPropals', $parameters, $object); // Note that $action and $object may have been modified by hook
351
352// End of page
353llxFooter();
354$db->close();
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader()
Empty header.
Definition wrapper.php:55
llxFooter()
Empty footer.
Definition wrapper.php:69
Class to offer components to list and upload files.
Class to manage generation of HTML components Only common components must be here.
Class to manage hooks.
Class to manage proposals.
const STATUS_DRAFT
Draft status.
const STATUS_VALIDATED
Validated status.
Class to manage third parties objects (customers, suppliers, prospects...)
finishSimpleTable($addLineBreak=false)
Add the correct HTML close tags for "startSimpleTable(...)" (use after the last table line)
load_fiche_titre($title, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
img_warning($titlealt='default', $moreatt='', $morecss='pictowarning')
Show warning logo.
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
dol_now($mode='auto')
Return date for now.
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs=null, $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
dol_sanitizeFileName($str, $newstr='_', $unaccent=1)
Clean a string to use it as a file name.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
addSummaryTableLine($tableColumnCount, $num, $nbofloop=0, $total=0, $noneWord="None", $extraRightColumn=false)
Add a summary line to the current open table ("None", "XMoreLines" or "Total xxx")
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
startSimpleTable($header, $link="", $arguments="", $emptyColumns=0, $number=-1, $pictofulllist='')
Start a table with headers and a optional clickable number (don't forget to use "finishSimpleTable()"...
getCustomerProposalPieChart($socid=0)
Return a HTML table that contains a pie chart of customer proposals.
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.