25require
'../../main.inc.php';
26require_once DOL_DOCUMENT_ROOT.
'/core/lib/product.lib.php';
27require_once DOL_DOCUMENT_ROOT.
'/compta/facture/class/facture.class.php';
28require_once DOL_DOCUMENT_ROOT.
'/product/class/product.class.php';
30$langs->loadLangs(array(
"companies",
"bills",
"products",
"margins"));
34$action =
GETPOST(
'action',
'aZ09');
35$confirm =
GETPOST(
'confirm',
'alpha');
38$fieldvalue = (!empty($id) ?
$id : (!empty($ref) ? $ref :
''));
39$fieldtype = (!empty($ref) ?
'ref' :
'rowid');
40if (!empty($user->socid)) {
41 $socid = $user->socid;
47$sortfield =
GETPOST(
'sortfield',
'aZ09comma');
48$sortorder =
GETPOST(
'sortorder',
'aZ09comma');
50if (empty($page) || $page < 0 ||
GETPOST(
'button_search',
'alpha') ||
GETPOST(
'button_removefilter',
'alpha')) {
54$offset = $limit * $page;
61 $sortfield =
"f.datef";
64$hookmanager->initHooks(array(
'tabproductmarginlist'));
66$result =
restrictedArea($user,
'produit|service', $fieldvalue,
'product&product',
'',
'', $fieldtype);
68if (!$user->hasRight(
'margins',
'liretous')) {
72$search_invoice_date_start =
'';
73$search_invoice_date_end =
'';
74if (
GETPOSTINT(
'search_invoice_date_start_month')) {
77if (
GETPOSTINT(
'search_invoice_date_end_month')) {
82if (
GETPOST(
'button_removefilter_x',
'alpha') ||
GETPOST(
'button_removefilter.x',
'alpha') ||
GETPOST(
'button_removefilter',
'alpha')) {
83 $search_invoice_date_start =
'';
84 $search_invoice_date_end =
'';
88if (empty($search_invoice_date_start) && empty($search_invoice_date_end) && !GETPOSTISSET(
'restore_lastsearch_values')) {
89 $query =
"SELECT date_start, date_end";
90 $query .=
" FROM ".MAIN_DB_PREFIX.
"accounting_fiscalyear";
91 $query .=
" WHERE date_start < '".$db->idate(
dol_now()).
"' and date_end > '".$db->idate(
dol_now()).
"' limit 1";
92 $res = $db->query($query);
94 if ($res && $db->num_rows($res) > 0) {
95 $fiscalYear = $db->fetch_object($res);
96 $search_invoice_date_start = strtotime($fiscalYear->date_start);
97 $search_invoice_date_end = strtotime($fiscalYear->date_end);
104 $year_end = $year_start + 1;
105 $month_end = $month_start - 1;
106 if ($month_end < 1) {
110 $search_invoice_date_start =
dol_mktime(0, 0, 0, $month_start, 1, $year_start);
120$invoicestatic =
new Facture($db);
122$form =
new Form($db);
126if ($id > 0 || !empty($ref)) {
127 $result =
$object->fetch($id, $ref);
129 $title = $langs->trans(
'ProductServiceCard');
133 $title = $langs->trans(
'Product').
" ".$shortlabel.
" - ".$langs->trans(
'Card');
134 $help_url =
'EN:Module_Products|FR:Module_Produits|ES:Módulo_Productos';
137 $title = $langs->trans(
'Service').
" ".$shortlabel.
" - ".$langs->trans(
'Card');
138 $help_url =
'EN:Module_Services_En|FR:Module_Services|ES:Módulo_Servicios';
141 llxHeader(
'', $title, $help_url,
'', 0, 0,
'',
'',
'',
'mod-margin page-tabs_productmargins');
143 $param =
"&id=".$object->id;
144 if ($limit > 0 && $limit != $conf->liste_limit) {
145 $param .=
'&limit='.((int) $limit);
147 if ($search_invoice_date_start) {
148 $param .=
'&search_invoice_date_start_day='.dol_print_date($search_invoice_date_start,
'%d').
'&search_invoice_date_start_month='.
dol_print_date($search_invoice_date_start,
'%m').
'&search_invoice_date_start_year='.
dol_print_date($search_invoice_date_start,
'%Y');
150 if ($search_invoice_date_end) {
151 $param .=
'&search_invoice_date_end_day='.dol_print_date($search_invoice_date_end,
'%d').
'&search_invoice_date_end_month='.
dol_print_date($search_invoice_date_end,
'%m').
'&search_invoice_date_end_year='.
dol_print_date($search_invoice_date_end,
'%Y');
157 $titre = $langs->trans(
"CardProduct".
$object->type);
161 $linkback =
'<a href="'.DOL_URL_ROOT.
'/product/list.php?restore_lastsearch_values=1">'.$langs->trans(
"BackToList").
'</a>';
163 dol_banner_tab($object,
'ref', $linkback, ($user->socid ? 0 : 1),
'ref');
166 print
'<div class="fichecenter">';
168 print
'<div class="underbanner clearboth"></div>';
169 print
'<table class="border tableforfield centpercent">';
172 print
'<tr><td class="titlefield">'.$langs->trans(
"TotalMargin").
'</td><td>';
173 print
'<span id="totalMargin" class="amount"></span>';
178 print
'<tr><td>'.$langs->trans(
"MarginRate").
'</td><td>';
179 print
'<span id="marginRate"></span>';
185 print
'<tr><td>'.$langs->trans(
"MarkRate").
'</td><td>';
186 print
'<span id="markRate"></span>';
193 print
'<div class="clearboth"></div>';
198 if ($user->hasRight(
"facture",
"read")) {
199 $sql =
"SELECT s.nom as name, s.rowid as socid, s.code_client,";
200 $sql .=
" f.rowid as facid, f.ref, f.total_ht,";
201 $sql .=
" f.datef, f.paye, f.fk_statut as statut, f.type,";
202 if (!$user->hasRight(
'societe',
'client',
'voir')) {
203 $sql .=
" sc.fk_soc, sc.fk_user,";
205 $sql .=
" sum(d.total_ht) as selling_price,";
206 $sql .=
" ".$db->ifsql(
'f.type = 2', -1, 1).
" * sum(d.qty) as qty,";
207 $sql .=
" ".$db->ifsql(
'f.type = 2', -1, 1).
" * sum(d.qty * d.buy_price_ht * (d.situation_percent / 100)) as buying_price,";
208 $sql .=
" ".$db->ifsql(
'f.type = 2', -1, 1).
" * sum(abs(d.total_ht) - (d.buy_price_ht * d.qty * (d.situation_percent / 100))) as marge";
209 $sql .=
" FROM ".MAIN_DB_PREFIX.
"societe as s";
210 $sql .=
", ".MAIN_DB_PREFIX.
"facture as f";
211 $sql .=
", ".MAIN_DB_PREFIX.
"facturedet as d";
212 if (!$user->hasRight(
'societe',
'client',
'voir')) {
213 $sql .=
", ".MAIN_DB_PREFIX.
"societe_commerciaux as sc";
215 $sql .=
" WHERE f.fk_soc = s.rowid";
216 $sql .=
" AND f.fk_statut > 0";
217 $sql .=
" AND f.entity IN (".getEntity(
'invoice').
")";
218 $sql .=
" AND d.fk_facture = f.rowid";
219 $sql .=
" AND d.fk_product = ".((int)
$object->id);
220 if (!$user->hasRight(
'societe',
'client',
'voir')) {
221 $sql .=
" AND s.rowid = sc.fk_soc AND sc.fk_user = ".((int) $user->id);
223 if (!empty($socid)) {
224 $sql .=
" AND f.fk_soc = ".((int) $socid);
226 $sql .=
" AND d.buy_price_ht IS NOT NULL";
230 $sql .=
" AND d.buy_price_ht <> 0";
232 if (!empty($search_invoice_date_start)) {
233 $sql .=
" AND f.datef >= '".$db->idate($search_invoice_date_start).
"'";
235 if (!empty($search_invoice_date_end)) {
236 $sql .=
" AND f.datef <= '".$db->idate($search_invoice_date_end).
"'";
238 $sql .=
" GROUP BY s.nom, s.rowid, s.code_client, f.rowid, f.ref, f.total_ht, f.datef, f.paye, f.fk_statut, f.type";
239 if (!$user->hasRight(
'societe',
'client',
'voir')) {
240 $sql .=
", sc.fk_soc, sc.fk_user";
245 $sql .= $db->order($sortfield, $sortorder);
247 $sql .= $db->plimit($limit + 1, $offset);
249 dol_syslog(
'margin:tabs:productMargins.php', LOG_DEBUG);
250 $result = $db->query($sql);
252 $num = $db->num_rows($result);
254 print
'<form method="post" action="'.$_SERVER [
'PHP_SELF'].
'?id='.
$id.
'" name="search_form">'.
"\n";
255 print
'<input type="hidden" name="token" value="'.newToken().
'">';
256 if (!empty($sortfield)) {
257 print
'<input type="hidden" name="sortfield" value="'.$sortfield.
'"/>';
259 if (!empty($sortorder)) {
260 print
'<input type="hidden" name="sortorder" value="'.$sortorder.
'"/>';
263 print_barre_liste($langs->trans(
"MarginDetails"), $page, $_SERVER[
"PHP_SELF"], $param, $sortfield, $sortorder,
'', $num,
'',
'');
267 $parameters = array();
268 $reshook = $hookmanager->executeHooks(
'printFieldPreListTitle', $parameters, $object, $action);
269 if (empty($reshook)) {
270 $moreforfilter .= $hookmanager->resPrint;
272 $moreforfilter = $hookmanager->resPrint;
275 if (!empty($moreforfilter)) {
276 print
'<div class="liste_titre liste_titre_bydiv centpercent">';
277 print $moreforfilter;
281 $selectedfields =
'';
285 print
'<div class="div-table-responsive">';
286 print
'<table class="noborder centpercent">';
290 print
'<tr class="liste_titre_filter">';
293 print
'<td class="liste_titre center maxwidthsearch">';
294 $searchpicto = $form->showFilterButtons(
'left');
300 print
'<td class="liste_titre">';
304 print
'<td class="liste_titre">';
308 print
'<td class="liste_titre">';
312 print
'<td class="liste_titre center">';
313 print
'<div class="nowrapfordate">';
314 print $form->selectDate($search_invoice_date_start ?: -1,
'search_invoice_date_start_', 0, 0, 1,
'', 1, 0, 0,
'',
'',
'',
'', 1,
'', $langs->trans(
'From'));
316 print
'<div class="nowrapfordate">';
317 print $form->selectDate($search_invoice_date_end ?: -1,
'search_invoice_date_end_', 0, 0, 1,
'', 1, 0, 0,
'',
'',
'',
'', 1,
'', $langs->trans(
'to'));
322 print
'<td class="liste_titre">';
326 print
'<td class="liste_titre">';
330 print
'<td class="liste_titre">';
334 print
'<td class="liste_titre">';
339 print
'<td class="liste_titre">';
345 print
'<td class="liste_titre">';
350 print
'<td class="liste_titre">';
355 print
'<td class="liste_titre center maxwidthsearch">';
356 $searchpicto = $form->showFilterButtons();
363 print
'<tr class="liste_titre">';
366 print_liste_field_titre($selectedfields, $_SERVER[
"PHP_SELF"],
"",
'', $param,
'', $sortfield, $sortorder,
'maxwidthsearch center ');
370 print_liste_field_titre(
"CustomerCode", $_SERVER[
"PHP_SELF"],
"s.code_client",
"", $param,
'', $sortfield, $sortorder);
371 print_liste_field_titre(
"DateInvoice", $_SERVER[
"PHP_SELF"],
"f.datef",
"", $param,
'', $sortfield, $sortorder,
'center ');
372 print_liste_field_titre(
"SellingPrice", $_SERVER[
"PHP_SELF"],
"selling_price",
"", $param,
'', $sortfield, $sortorder,
'right ');
373 print_liste_field_titre(
"BuyingPrice", $_SERVER[
"PHP_SELF"],
"buying_price",
"", $param,
'', $sortfield, $sortorder,
'right ');
375 print_liste_field_titre(
"Margin", $_SERVER[
"PHP_SELF"],
"marge",
"", $param,
'', $sortfield, $sortorder,
'right ');
377 print_liste_field_titre(
"MarginRate", $_SERVER[
"PHP_SELF"],
"",
"", $param,
'', $sortfield, $sortorder,
'right ');
380 print_liste_field_titre(
"MarkRate", $_SERVER[
"PHP_SELF"],
"",
"", $param,
'', $sortfield, $sortorder,
'right ');
382 print_liste_field_titre(
"Status", $_SERVER[
"PHP_SELF"],
"f.paye,f.fk_statut",
"", $param,
'', $sortfield, $sortorder,
'right ');
385 print_liste_field_titre($selectedfields, $_SERVER[
"PHP_SELF"],
"",
'', $param,
'', $sortfield, $sortorder,
'maxwidthsearch center ');
394 $imaxinloop = ($limit ? min($num, $limit) : $num);
395 while ($i < $imaxinloop) {
396 $objp = $db->fetch_object($result);
398 $marginRate = ($objp->buying_price != 0) ? (100 * $objp->marge / $objp->buying_price) :
'';
399 $markRate = ($objp->selling_price != 0) ? (100 * $objp->marge / $objp->selling_price) :
'';
401 print
'<tr class="oddeven">';
404 print
'<td class="nowrap center">';
409 $invoicestatic->id = $objp->facid;
410 $invoicestatic->ref = $objp->ref;
411 print $invoicestatic->getNomUrl(1);
413 print
'<td><a href="'.DOL_URL_ROOT.
'/comm/card.php?socid='.$objp->socid.
'">'.
img_object($langs->trans(
"ShowCompany"),
"company").
' '.
dol_trunc($objp->name, 44).
'</a></td>';
414 print
"<td>".$objp->code_client.
"</td>\n";
415 print
'<td class="center">';
417 print
'<td class="right amount">'.price(
price2num($objp->selling_price,
'MT')).
"</td>\n";
418 print
'<td class="right amount">'.price(
price2num($objp->buying_price,
'MT')).
"</td>\n";
419 print
'<td class="right">'.price(
price2num($objp->qty,
'MT')).
"</td>\n";
420 print
'<td class="right amount">'.price(
price2num($objp->marge,
'MT')).
"</td>\n";
422 print
"<td class=\"right\">".(($marginRate ===
'') ?
'n/a' :
price(
price2num($marginRate,
'MT')).
"%").
"</td>\n";
425 print
"<td class=\"right\">".(($markRate ===
'') ?
'n/a' :
price(
price2num($markRate,
'MT')).
"%").
"</td>\n";
427 print
'<td class="right">'.$invoicestatic->LibStatut($objp->paye, $objp->statut, 5).
'</td>';
431 print
'<td class="nowrap center">';
436 $cumul_achat += $objp->buying_price;
437 $cumul_vente += $objp->selling_price;
438 $cumul_qty += $objp->qty;
444 $totalMargin = $cumul_vente - $cumul_achat;
445 if ($totalMargin < 0) {
446 $marginRate = ($cumul_achat != 0) ? -1 * (100 * $totalMargin / $cumul_achat) :
'';
447 $markRate = ($cumul_vente != 0) ? -1 * (100 * $totalMargin / $cumul_vente) :
'';
449 $marginRate = ($cumul_achat != 0) ? (100 * $totalMargin / $cumul_achat) :
'';
450 $markRate = ($cumul_vente != 0) ? (100 * $totalMargin / $cumul_vente) :
'';
452 print
'<tr class="liste_total">';
457 print
'<td colspan="'.$colspan.
'">'.$langs->trans(
'TotalMargin').
"</td>";
458 print
'<td class="right amount">'.price(
price2num($cumul_vente,
'MT')).
"</td>\n";
459 print
'<td class="right amount">'.price(
price2num($cumul_achat,
'MT')).
"</td>\n";
460 print
'<td class="right">'.price(
price2num($cumul_qty,
'MT')).
"</td>\n";
461 print
'<td class="right amount">'.price(
price2num($totalMargin,
'MT')).
"</td>\n";
463 print
'<td class="right">'.(($marginRate ===
'') ?
'n/a' :
price(
price2num($marginRate,
'MT')).
"%").
"</td>\n";
466 print
'<td class="right">'.(($markRate ===
'') ?
'n/a' :
price(
price2num($markRate,
'MT')).
"%").
"</td>\n";
468 print
'<td class="right"> </td>';
471 print
'<td class="center">';
489 <script type="text/javascript">
490 $(document).ready(function() {
491 $("#totalMargin").html("'.
price(
price2num($totalMargin,
'MT'), 1, $langs, 1, -1, -1, $conf->currency).
'");
492 $("#marginRate").html("'.(($marginRate ===
'') ?
'n/a' :
price(
price2num($marginRate,
'MT')).
"%").
'");
493 $("#markRate").html("'.(($markRate ===
'') ?
'n/a' :
price(
price2num($markRate,
'MT')).
"%").
'");
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
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.
Class to manage invoices.
Class to manage products or services.
const TYPE_PRODUCT
Regular product.
const TYPE_SERVICE
Service.
dol_get_last_day($year, $month=12, $gm=false)
Return GMT time for last day of a month or year.
dol_mktime($hour, $minute, $second, $month, $day, $year, $gm='auto', $check=1)
Return a timestamp date built from detailed information (by default a local PHP server timestamp) Rep...
img_object($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0)
Show a picto called object_picto (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.
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
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.
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).
print_liste_field_titre($name, $file="", $field="", $begin="", $moreparam="", $moreattrib="", $sortfield="", $sortorder="", $prefix="", $tooltip="", $forcenowrapcolumntitle=0)
Show title line of an array.
print_barre_liste($title, $page, $file, $options='', $sortfield='', $sortorder='', $morehtmlcenter='', $num=-1, $totalnboflines='', $picto='generic', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limit=-1, $hideselectlimit=0, $hidenavigation=0, $pagenavastextinput=0, $morehtmlrightbeforearrow='')
Print a title with navigation controls for pagination.
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...
dol_trunc($string, $size=40, $trunc='right', $stringencoding='UTF-8', $nodot=0, $display=0)
Truncate a string to a particular length adding '…' if string larger than length.
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
product_prepare_head($object)
Prepare array with list of tabs.
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.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.