27require
'../main.inc.php';
28require_once DOL_DOCUMENT_ROOT.
'/core/lib/company.lib.php';
29require_once DOL_DOCUMENT_ROOT.
'/compta/facture/class/facture.class.php';
30require_once DOL_DOCUMENT_ROOT.
'/product/class/product.class.php';
31require_once DOL_DOCUMENT_ROOT.
'/margin/lib/margins.lib.php';
34$langs->loadLangs(array(
'companies',
'bills',
'products',
'margins'));
38$action =
GETPOST(
'action',
'aZ09');
39$confirm =
GETPOST(
'confirm',
'alpha');
40$TSelectedCats =
GETPOST(
'categories',
'array');
47$sortfield =
GETPOST(
'sortfield',
'aZ09comma');
48$sortorder =
GETPOST(
'sortorder',
'aZ09comma');
50if (empty($page) || $page == -1) {
53$offset = $limit * $page;
58 $sortfield =
"f.datef";
66$startdate = $enddate =
'';
76$hookmanager->initHooks(array(
'marginproductlist'));
79$fieldvalue = (!empty($id) ?
$id : (!empty($ref) ? $ref :
''));
80$fieldtype = (!empty($ref) ?
'ref' :
'rowid');
81if (!empty($user->socid)) {
82 $socid = $user->socid;
84$result =
restrictedArea($user,
'produit|service', $fieldvalue,
'product&product',
'',
'', $fieldtype);
85if (!$user->hasRight(
'margins',
'liretous')) {
94$product_static =
new Product($db);
95$invoicestatic =
new Facture($db);
99llxHeader(
'', $langs->trans(
"Margins").
' - '.$langs->trans(
"Products"),
'',
'', 0, 0,
'',
'',
'',
'mod-margin page-productmargins');
101$text = $langs->trans(
"Margins");
107$titre = $langs->trans(
"Margins");
110print
'<form method="post" name="sel" action="'.$_SERVER[
'PHP_SELF'].
'">';
111print
'<input type="hidden" name="token" value="'.newToken().
'">';
115print
'<table class="border centpercent">';
118print
'<tr><td class="titlefield">'.$langs->trans(
'ProductOrService').
'</td>';
119print
'<td class="maxwidthonsmartphone" colspan="4">';
120print
img_picto(
'',
'product').$form->select_produits(($id > 0 ? $id :
''),
'id',
'', 20, 0, 1, 2,
'', 1, array(), 0,
'All', 0,
'', 0,
'', null, 1);
124$TCats = $form->select_all_categories(
'product', array(),
'', 64, 0, 3);
127print
'<td class="titlefield">'.$langs->trans(
'Category').
'</td>';
128print
'<td class="maxwidthonsmartphone" colspan="4">';
129print
img_picto(
'',
'category',
'class="pictofixedwidth"').$form->multiselectarray(
'categories', $TCats, $TSelectedCats, 0, 0,
'quatrevingtpercent widthcentpercentminusx');
135print
'<td class="titlefield">'.$langs->trans(
'DateStart').
' ('.$langs->trans(
"DateValidation").
')</td>';
137print $form->selectDate($startdate,
'startdate', 0, 0, 1,
"sel", 1, 1);
139print
'<td>'.$langs->trans(
'DateEnd').
' ('.$langs->trans(
"DateValidation").
')</td>';
141print $form->selectDate($enddate,
'enddate', 0, 0, 1,
"sel", 1, 1);
143print
'<td style="text-align: center;">';
144print
'<input type="submit" class="button" value="'.dol_escape_htmltag($langs->trans(
'Refresh')).
'" />';
151print
'<table class="border centpercent">';
154print
'<tr><td class="titlefield">'.$langs->trans(
"TotalMargin").
'</td><td colspan="4">';
155print
'<span id="totalMargin" class="amount"></span> <span class="amount">'.$langs->getCurrencySymbol($conf->currency).
'</span>';
160 print
'<tr><td>'.$langs->trans(
"MarginRate").
'</td><td colspan="4">';
161 print
'<span id="marginRate"></span>';
167 print
'<tr><td>'.$langs->trans(
"MarkRate").
'</td><td colspan="4">';
168 print
'<span id="markRate"></span>';
180$sql =
"SELECT p.label, p.rowid, p.fk_product_type, p.ref, p.entity as pentity,";
182 $sql .=
" d.fk_product,";
185 $sql .=
" f.rowid as facid, f.ref, f.total_ht, f.datef, f.paye, f.fk_statut as statut,";
187$sql .=
" SUM(d.total_ht) as selling_price,";
188$sql .=
" SUM(d.qty) as product_qty,";
191$sql .=
" SUM(".$db->ifsql(
'(d.total_ht < 0 OR (d.total_ht = 0 AND f.type = 2))',
'-1 * d.qty * d.buy_price_ht * (d.situation_percent / 100)',
'd.qty * d.buy_price_ht * (d.situation_percent / 100)').
") as buying_price,";
192$sql .=
" SUM(".$db->ifsql(
'(d.total_ht < 0 OR (d.total_ht = 0 AND f.type = 2))',
'-1 * (abs(d.total_ht) - (d.buy_price_ht * d.qty * (d.situation_percent / 100)))',
'd.total_ht - (d.buy_price_ht * d.qty * (d.situation_percent / 100))').
") as marge";
194$sql .=
" FROM ".MAIN_DB_PREFIX.
"societe as s";
195$sql .=
", ".MAIN_DB_PREFIX.
"facture as f";
196$sql .=
", ".MAIN_DB_PREFIX.
"facturedet as d";
197$sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"product as p ON p.rowid = d.fk_product";
198if (!empty($TSelectedCats)) {
199 $sql .=
' LEFT JOIN '.MAIN_DB_PREFIX.
'categorie_product as cp ON cp.fk_product=p.rowid';
201$sql .=
" WHERE f.fk_soc = s.rowid";
202$sql .=
' AND f.entity IN ('.getEntity(
'invoice').
')';
203$sql .=
" AND f.fk_statut NOT IN (".$db->sanitize(implode(
', ', $invoice_status_except_list)).
")";
204$sql .=
" AND d.fk_facture = f.rowid";
206 $sql .=
" AND d.fk_product =".((int) $id);
208if (!empty($TSelectedCats)) {
209 $sql .=
' AND cp.fk_categorie IN ('.$db->sanitize(implode(
',', $TSelectedCats)).
')';
211if (!empty($startdate)) {
212 $sql .=
" AND f.datef >= '".$db->idate($startdate).
"'";
214if (!empty($enddate)) {
215 $sql .=
" AND f.datef <= '".$db->idate($enddate).
"'";
217$sql .=
" AND d.buy_price_ht IS NOT NULL";
221 $sql .=
" AND d.buy_price_ht <> 0";
224 $sql .=
" GROUP BY p.label, p.rowid, p.fk_product_type, p.ref, p.entity, d.fk_product, f.rowid, f.ref, f.total_ht, f.datef, f.paye, f.fk_statut";
226 $sql .=
" GROUP BY p.label, p.rowid, p.fk_product_type, p.ref, p.entity";
228$sql .= $db->order($sortfield, $sortorder);
232$param =
'&id='.((int) $id);
234 $param .=
'&startdateyear='.GETPOSTINT(
'startdateyear');
235 $param .=
'&startdatemonth='.GETPOSTINT(
'startdatemonth');
236 $param .=
'&startdateday='.GETPOSTINT(
'startdateday');
239 $param .=
'&enddateyear='.GETPOSTINT(
'enddateyear');
240 $param .=
'&enddatemonth='.GETPOSTINT(
'enddatemonth');
241 $param .=
'&enddateday='.GETPOSTINT(
'enddateday');
243$listofcateg =
GETPOST(
'categories',
'array:int');
244if (is_array($listofcateg)) {
245 foreach ($listofcateg as $val) {
246 $param .=
'&categories[]='.$val;
253dol_syslog(
'margin::productMargins.php', LOG_DEBUG);
254$result = $db->query($sql);
256 $num = $db->num_rows($result);
260 print_barre_liste($langs->trans(
"MarginDetails"), $page, $_SERVER[
"PHP_SELF"], $param, $sortfield, $sortorder,
'', $num, $num,
'', 0,
'',
'', 0, 1);
264 $labelcostprice =
'BuyingPrice';
266 $labelcostprice =
'CostPrice';
272 print
'<div class="div-table-responsive">';
273 print
'<table class="tagtable liste'.($moreforfilter ?
" listwithfilterbefore" :
"").
'">'.
"\n";
275 print
'<tr class="liste_titre">';
278 print_liste_field_titre(
"DateInvoice", $_SERVER[
"PHP_SELF"],
"f.datef",
"", $param,
'', $sortfield, $sortorder,
'center ');
280 print_liste_field_titre(
"ProductService", $_SERVER[
"PHP_SELF"],
"p.ref",
"", $param,
'', $sortfield, $sortorder);
282 print_liste_field_titre(
"Qty", $_SERVER[
"PHP_SELF"],
"product_qty",
"", $param,
'', $sortfield, $sortorder,
'center ');
283 print_liste_field_titre(
"SellingPrice", $_SERVER[
"PHP_SELF"],
"selling_price",
"", $param,
'', $sortfield, $sortorder,
'right ');
284 print_liste_field_titre($labelcostprice, $_SERVER[
"PHP_SELF"],
"buying_price",
"", $param,
'', $sortfield, $sortorder,
'right ');
285 print_liste_field_titre(
"Margin", $_SERVER[
"PHP_SELF"],
"marge",
"", $param,
'', $sortfield, $sortorder,
'right ');
287 print_liste_field_titre(
"MarginRate", $_SERVER[
"PHP_SELF"],
"",
"", $param,
'', $sortfield, $sortorder,
'right ');
290 print_liste_field_titre(
"MarkRate", $_SERVER[
"PHP_SELF"],
"",
"", $param,
'', $sortfield, $sortorder,
'right ');
300 $objp = $db->fetch_object($result);
301 $qty = $objp->product_qty;
302 $pa = $objp->buying_price;
303 $pv = $objp->selling_price;
304 $marge = $objp->marge;
307 $marginRate = (100 * $marge / $pa);
310 $marginRate = -$marginRate;
317 $markRate = (100 * $marge / $pv);
320 $markRate = -$markRate;
326 print
'<tr class="oddeven">';
329 $invoicestatic->id = $objp->facid;
330 $invoicestatic->ref = $objp->ref;
331 print $invoicestatic->getNomUrl(1);
333 print
"<td class=\"center\">";
337 if ($objp->rowid > 0) {
338 $product_static->type = $objp->fk_product_type;
339 $product_static->id = $objp->rowid;
340 $product_static->ref = $objp->ref;
341 $product_static->label = $objp->label;
342 $product_static->entity = $objp->pentity;
343 $text = $product_static->getNomUrl(1);
344 print $text .=
' - '.$objp->label;
346 print
img_object(
'',
'product').
' '.$langs->trans(
"NotPredefinedProducts");
351 print
'<td class="center">'.$qty.
'</td>';
352 print
'<td class="nowrap right"><span class="amount">'.price(
price2num($pv,
'MT')).
'</span></td>';
353 print
'<td class="nowrap right"><span class="amount">'.price(
price2num($pa,
'MT')).
'</span></td>';
354 print
'<td class="nowrap right"><span class="amount">'.price(
price2num($marge,
'MT')).
'</span></td>';
356 print
'<td class="nowrap right">'.(($marginRate ===
'') ?
'n/a' :
price(
price2num($marginRate,
'MT')).
"%").
'</td>';
359 print
'<td class="nowrap right">'.(($markRate ===
'') ?
'n/a' :
price(
price2num($markRate,
'MT')).
"%").
'</td>';
364 $cumul_achat += $objp->buying_price;
365 $cumul_vente += $objp->selling_price;
366 $cumul_qty += $objp->product_qty;
372 $totalMargin = $cumul_vente - $cumul_achat;
374 $marginRate = ($cumul_achat != 0) ? (100 * $totalMargin / $cumul_achat) :
'';
375 $markRate = ($cumul_vente != 0) ? (100 * $totalMargin / $cumul_vente) :
'';
377 print
'<tr class="liste_total">';
379 print
'<td colspan=2>';
383 print $langs->trans(
'TotalMargin').
'</td>';
384 print
'<td class="center">'.$cumul_qty.
'</td>';
385 print
'<td class="nowrap right">'.price(
price2num($cumul_vente,
'MT')).
'</td>';
386 print
'<td class="nowrap right">'.price(
price2num($cumul_achat,
'MT')).
'</td>';
387 print
'<td class="nowrap right">'.price(
price2num($totalMargin,
'MT')).
'</td>';
389 print
'<td class="nowrap right">'.(($marginRate ===
'') ?
'n/a' :
price(
price2num($marginRate,
'MT')).
"%").
'</td>';
392 print
'<td class="nowrap right">'.(($markRate ===
'') ?
'n/a' :
price(
price2num($markRate,
'MT')).
"%").
'</td>';
405<script type="text/javascript">
406$(document).ready(function() {
407 console.log("Init some values");
408 $("#totalMargin").html("'.price(
price2num($totalMargin,
'MT')).
'");
409 $("#marginRate").html("'.(($marginRate ===
'') ?
'n/a' :
price(
price2num($marginRate,
'MT')).
"%").
'");
410 $("#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.
const STATUS_DRAFT
Draft status.
const STATUS_ABANDONED
Classified abandoned and no payment done.
Class to manage products or services.
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)
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.
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.
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...
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.
marges_prepare_head()
Return array of tabs to used on pages for third parties cards.
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.