27require
'../../main.inc.php';
35require_once DOL_DOCUMENT_ROOT.
'/core/lib/company.lib.php';
36require_once DOL_DOCUMENT_ROOT.
'/compta/facture/class/facture.class.php';
37require_once DOL_DOCUMENT_ROOT.
'/product/class/product.class.php';
39$langs->loadLangs(array(
"companies",
"bills",
"products",
"margins"));
42$dol_openinpopup =
GETPOST(
'dol_openinpopup',
'aZ09');
46if (!empty($user->socid)) {
47 $socid = $user->socid;
51$sortfield =
GETPOST(
'sortfield',
'aZ09comma');
52$sortorder =
GETPOST(
'sortorder',
'aZ09comma');
54if (empty($page) || $page < 0 ||
GETPOST(
'button_search',
'alpha') ||
GETPOST(
'button_removefilter',
'alpha')) {
58$offset = $limit * $page;
65 $sortfield =
"f.datef";
74$hookmanager->initHooks(array(
'thirdpartymargins',
'globalcard'));
78if (!$user->hasRight(
'margins',
'liretous')) {
87$parameters = array(
'id' => $socid);
88$reshook = $hookmanager->executeHooks(
'doActions', $parameters, $object, $action);
93$search_invoice_date_start =
'';
94$search_invoice_date_end =
'';
95if (
GETPOSTINT(
'search_invoice_date_start_month')) {
98if (
GETPOSTINT(
'search_invoice_date_end_month')) {
103if (
GETPOST(
'button_removefilter_x',
'alpha') ||
GETPOST(
'button_removefilter.x',
'alpha') ||
GETPOST(
'button_removefilter',
'alpha')) {
104 $search_invoice_date_start =
'';
105 $search_invoice_date_end =
'';
109if (empty($search_invoice_date_start) && empty($search_invoice_date_end) && !
GETPOSTISSET(
'restore_lastsearch_values')) {
110 $query =
"SELECT date_start, date_end";
111 $query .=
" FROM ".MAIN_DB_PREFIX.
"accounting_fiscalyear";
112 $query .=
" WHERE date_start < '".$db->idate(
dol_now()).
"' and date_end > '".
$db->idate(
dol_now()).
"' limit 1";
113 $res =
$db->query($query);
115 if ($res &&
$db->num_rows($res) > 0) {
116 $fiscalYear =
$db->fetch_object($res);
117 $search_invoice_date_start = strtotime($fiscalYear->date_start);
118 $search_invoice_date_end = strtotime($fiscalYear->date_end);
125 $year_end = $year_start + 1;
126 $month_end = $month_start - 1;
127 if ($month_end < 1) {
131 $search_invoice_date_start =
dol_mktime(0, 0, 0, $month_start, 1, $year_start);
144$title = $langs->trans(
"ThirdParty").
' - '.$langs->trans(
"Margins");
146 $title =
$object->name.
' - '.$langs->trans(
"Files");
148$help_url =
'EN:Module_Third_Parties|FR:Module_Tiers|ES:Empresas';
149llxHeader(
'', $title, $help_url,
'', 0, 0,
'',
'',
'',
'mod-margin page-tabs_thirdpartymargins');
151$param =
"&socid=".$socid;
152if ($limit > 0 && $limit !=
$conf->liste_limit) {
153 $param .=
'&limit='.((int) $limit);
155if ($dol_openinpopup) {
156 $param .=
'&dol_openinpopup='.urlencode($dol_openinpopup);
158if ($search_invoice_date_start) {
159 $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');
161if ($search_invoice_date_end) {
162 $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');
173 if (empty($dol_openinpopup)) {
178 print
dol_get_fiche_head($head,
'customer', $langs->trans(
"ThirdParty"), -1,
'company');
180 $linkback =
'<a href="'.DOL_URL_ROOT.
'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans(
"BackToList").
'</a>';
182 dol_banner_tab($object,
'socid', $linkback, ($user->socid ? 0 : 1),
'rowid',
'nom');
184 print
'<div class="fichecenter">';
186 print
'<div class="underbanner clearboth"></div>';
187 print
'<table class="border tableforfield centpercent">';
190 print
'<tr><td class="titlefield">'.$langs->trans(
'NatureOfThirdParty').
'</td><td>';
195 print
'<tr><td class="titlefield">';
196 print $langs->trans(
'CustomerCode').
'</td><td colspan="3">';
198 $tmpcheck =
$object->check_codeclient();
199 if ($tmpcheck != 0 && $tmpcheck != -5) {
200 print
' <span class="error">('.$langs->trans(
"WrongCustomerCode").
')</span>';
205 if (((
isModEnabled(
"fournisseur") && $user->hasRight(
'fournisseur',
'lire') && !
getDolGlobalString(
'MAIN_USE_NEW_SUPPLIERMOD')) || (
isModEnabled(
"supplier_order") && $user->hasRight(
'supplier_order',
'lire')) || (
isModEnabled(
"supplier_invoice") && $user->hasRight(
'supplier_invoice',
'lire'))) &&
$object->fournisseur) {
206 print
'<tr><td class="titlefield">';
207 print $langs->trans(
'SupplierCode').
'</td><td colspan="3">';
209 $tmpcheck =
$object->check_codefournisseur();
210 if ($tmpcheck != 0 && $tmpcheck != -5) {
211 print
' <span class="error">('.$langs->trans(
"WrongSupplierCode").
')</span>';
217 print
'<tr><td class="titlefield">'.$langs->trans(
"TotalMargin").
'</td><td colspan="3">';
218 print
'<span id="totalMargin" class="amount"></span>';
223 print
'<tr><td>'.$langs->trans(
"MarginRate").
'</td><td colspan="3">';
224 print
'<span id="marginRate"></span>';
230 print
'<tr><td>'.$langs->trans(
"MarkRate").
'</td><td colspan="3">';
231 print
'<span id="markRate"></span>';
238 print
'<div class="clearboth"></div>';
245 $sql =
"SELECT s.nom, s.rowid as socid, s.code_client,";
246 $sql .=
" f.rowid as facid, f.ref, f.total_ht,";
247 $sql .=
" f.datef, f.paye, f.fk_statut as statut, f.type,";
250 $sql .=
" sum(CASE WHEN f.type = ".Facture::TYPE_SITUATION.
" AND d.situation_percent > 0 THEN d.total_ht * ((d.situation_percent - COALESCE(prev_d.situation_percent, 0)) / d.situation_percent) ELSE d.total_ht END) as selling_price,";
251 $sql .=
" sum(CASE WHEN f.type = ".Facture::TYPE_SITUATION.
" AND d.situation_percent > 0 THEN d.qty * d.buy_price_ht * ((d.situation_percent - COALESCE(prev_d.situation_percent, 0)) / 100) ELSE d.qty * d.buy_price_ht * (d.situation_percent / 100) END) as buying_price,";
252 $sql .=
" sum(CASE WHEN f.type = ".Facture::TYPE_SITUATION.
" AND d.situation_percent > 0 THEN (d.total_ht * ((d.situation_percent - COALESCE(prev_d.situation_percent, 0)) / d.situation_percent)) - (d.buy_price_ht * d.qty * ((d.situation_percent - COALESCE(prev_d.situation_percent, 0)) / 100)) ELSE abs(d.total_ht) - (d.buy_price_ht * d.qty * (d.situation_percent / 100)) END) as marge";
254 $sql .=
" sum(d.total_ht) as selling_price,";
255 $sql .=
" sum(d.qty * d.buy_price_ht * (d.situation_percent / 100)) as buying_price,";
256 $sql .=
" sum(abs(d.total_ht) - (d.buy_price_ht * d.qty * (d.situation_percent / 100))) as marge";
258 $sql .=
" FROM ".MAIN_DB_PREFIX.
"societe as s";
259 $sql .=
", ".MAIN_DB_PREFIX.
"facture as f";
260 $sql .=
", ".MAIN_DB_PREFIX.
"facturedet as d";
262 $sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"facturedet AS prev_d ON prev_d.rowid = d.fk_prev_id";
264 $sql .=
" WHERE f.fk_soc = s.rowid";
265 $sql .=
" AND f.fk_statut > 0";
266 $sql .=
" AND f.entity IN (".getEntity(
'invoice').
")";
267 $sql .=
" AND d.fk_facture = f.rowid";
268 $sql .=
" AND f.fk_soc = ".((int) $socid);
269 $sql .=
" AND d.buy_price_ht IS NOT NULL";
273 $sql .=
" AND d.buy_price_ht <> 0";
275 if (!empty($search_invoice_date_start)) {
276 $sql .=
" AND f.datef >= '".$db->idate($search_invoice_date_start).
"'";
278 if (!empty($search_invoice_date_end)) {
279 $sql .=
" AND f.datef <= '".$db->idate($search_invoice_date_end).
"'";
281 $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";
286 $sql .=
$db->order($sortfield, $sortorder);
288 $sql .=
$db->plimit($limit + 1, $offset);
291 dol_syslog(
'margin:tabs:thirdpartyMargins.php', LOG_DEBUG);
292 $result =
$db->query($sql);
294 $num =
$db->num_rows($result);
296 print
'<form method="post" action="'.$_SERVER [
'PHP_SELF'].
'?socid='.$socid.
'" name="search_form">'.
"\n";
297 print
'<input type="hidden" name="token" value="'.newToken().
'">';
298 print
'<input type="hidden" name="dol_openinpopup" value="'.$dol_openinpopup.
'">';
299 if (!empty($sortfield)) {
300 print
'<input type="hidden" name="sortfield" value="'.$sortfield.
'"/>';
302 if (!empty($sortorder)) {
303 print
'<input type="hidden" name="sortorder" value="'.$sortorder.
'"/>';
307 print_barre_liste($langs->trans(
"MarginDetails"), $page, $_SERVER[
"PHP_SELF"], $param, $sortfield, $sortorder,
'', $num,
'',
'margin');
311 $parameters = array();
312 $reshook = $hookmanager->executeHooks(
'printFieldPreListTitle', $parameters, $object, $action);
313 if (empty($reshook)) {
314 $moreforfilter .= $hookmanager->resPrint;
316 $moreforfilter = $hookmanager->resPrint;
319 if (!empty($moreforfilter)) {
320 print
'<div class="liste_titre liste_titre_bydiv centpercent">';
321 print $moreforfilter;
325 $selectedfields =
'';
328 print
'<div class="div-table-responsive">';
329 print
'<table class="noborder centpercent">';
333 print
'<tr class="liste_titre liste_titre_filter">';
335 if (
$conf->main_checkbox_left_column) {
336 print
'<th class="liste_titre center maxwidthsearch">';
337 $searchpicto = $form->showFilterButtons(
'left');
343 print
'<th class="liste_titre">';
347 print
'<th class="liste_titre center">';
348 print
'<div class="nowrapfordate">';
349 print $form->selectDate($search_invoice_date_start ?: -1,
'search_invoice_date_start_', 0, 0, 1,
'', 1, 0, 0,
'',
'',
'',
'', 1,
'', $langs->trans(
'From'));
351 print
'<div class="nowrapfordate">';
352 print $form->selectDate($search_invoice_date_end ?: -1,
'search_invoice_date_end_', 0, 0, 1,
'', 1, 0, 0,
'',
'',
'',
'', 1,
'', $langs->trans(
'to'));
357 print
'<th class="liste_titre">';
361 print
'<th class="liste_titre">';
365 print
'<th class="liste_titre">';
370 print
'<th class="liste_titre">';
376 print
'<th class="liste_titre">';
381 print
'<th class="liste_titre">';
385 if (!
$conf->main_checkbox_left_column) {
386 print
'<th class="liste_titre center maxwidthsearch">';
387 $searchpicto = $form->showFilterButtons();
394 print
'<tr class="liste_titre">';
396 if (
$conf->main_checkbox_left_column) {
397 print_liste_field_titre($selectedfields, $_SERVER[
"PHP_SELF"],
"",
'', $param,
'', $sortfield, $sortorder,
'maxwidthsearch center ');
400 print_liste_field_titre(
"DateInvoice", $_SERVER[
"PHP_SELF"],
"f.datef",
"", $param,
'', $sortfield, $sortorder,
'center ');
401 print_liste_field_titre(
"SoldAmount", $_SERVER[
"PHP_SELF"],
"selling_price",
"", $param,
'', $sortfield, $sortorder,
'right ');
402 print_liste_field_titre(
"PurchasedAmount", $_SERVER[
"PHP_SELF"],
"buying_price",
"", $param,
'', $sortfield, $sortorder,
'right ');
403 print_liste_field_titre(
"Margin", $_SERVER[
"PHP_SELF"],
"marge",
"", $param,
'', $sortfield, $sortorder,
'right ');
405 print_liste_field_titre(
"MarginRate", $_SERVER[
"PHP_SELF"],
"",
"", $param,
'', $sortfield, $sortorder,
'right ');
408 print_liste_field_titre(
"MarkRate", $_SERVER[
"PHP_SELF"],
"",
"", $param,
'', $sortfield, $sortorder,
'right ');
410 print_liste_field_titre(
"Status", $_SERVER[
"PHP_SELF"],
"f.paye,f.fk_statut",
"", $param,
'', $sortfield, $sortorder,
'right ');
412 if (!
$conf->main_checkbox_left_column) {
413 print_liste_field_titre($selectedfields, $_SERVER[
"PHP_SELF"],
"",
'', $param,
'', $sortfield, $sortorder,
'maxwidthsearch center ');
421 $imaxinloop = ($limit ? min($num, $limit) : $num);
422 while ($i < $imaxinloop) {
423 $objp =
$db->fetch_object($result);
425 $marginRate = ($objp->buying_price != 0) ? (100 * $objp->marge / $objp->buying_price) :
'';
426 $markRate = ($objp->selling_price != 0) ? (100 * $objp->marge / $objp->selling_price) :
'';
433 print
'<tr class="oddeven">';
435 if (
$conf->main_checkbox_left_column) {
436 print
'<td class="nowrap center">';
441 $invoicestatic->id = $objp->facid;
442 $invoicestatic->ref = $objp->ref;
443 $invoicestatic->type = $objp->type;
444 print $invoicestatic->getNomUrl(1);
446 print
"<td class=\"center\">";
448 print
"<td class=\"right amount\">".price(
price2num($objp->selling_price,
'MT')).
"</td>\n";
449 print
"<td class=\"right amount\">".price(
price2num(($objp->type == 2 ? -1 : 1) * $objp->buying_price,
'MT')).
"</td>\n";
450 print
"<td class=\"right amount\">".$sign.price(
price2num($objp->marge,
'MT')).
"</td>\n";
452 print
"<td class=\"right\">".(($marginRate ===
'') ?
'<span class="opacitymedium">'.$langs->trans(
"NA").
'</span>' : $sign.price(
price2num($marginRate,
'MT')).
"%").
"</td>\n";
455 print
"<td class=\"right\">".(($markRate ===
'') ?
'<span class="opacitymedium">'.$langs->trans(
"NA").
'</span>' :
price(
price2num($markRate,
'MT')).
"%").
"</td>\n";
457 print
'<td class="right">'.$invoicestatic->LibStatut($objp->paye, $objp->statut, 5).
'</td>';
460 if (!
$conf->main_checkbox_left_column) {
461 print
'<td class="nowrap center">';
466 $cumul_vente += $objp->selling_price;
467 $cumul_achat += ($objp->type == 2 ? -1 : 1) * $objp->buying_price;
473 $totalMargin = $cumul_vente - $cumul_achat;
474 if ($totalMargin < 0) {
475 $marginRate = ($cumul_achat != 0) ? -1 * (100 * $totalMargin / $cumul_achat) :
'';
476 $markRate = ($cumul_vente != 0) ? -1 * (100 * $totalMargin / $cumul_vente) :
'';
478 $marginRate = ($cumul_achat != 0) ? (100 * $totalMargin / $cumul_achat) :
'';
479 $markRate = ($cumul_vente != 0) ? (100 * $totalMargin / $cumul_vente) :
'';
483 print
'<tr class="liste_total">';
485 if (
$conf->main_checkbox_left_column) {
488 print
'<td colspan="'.$colspan.
'">'.$langs->trans(
'TotalMargin').
"</td>";
489 print
"<td class=\"right\">".price(
price2num($cumul_vente,
'MT')).
"</td>\n";
490 print
"<td class=\"right\">".price(
price2num($cumul_achat,
'MT')).
"</td>\n";
491 print
"<td class=\"right\">".price(
price2num($totalMargin,
'MT')).
"</td>\n";
493 print
"<td class=\"right\">".(($marginRate ===
'') ?
'<span class="opacitymedium">'.$langs->trans(
"NA").
'</span>' :
price(
price2num($marginRate,
'MT')).
"%").
"</td>\n";
496 print
"<td class=\"right\">".(($markRate ===
'') ?
'<span class="opacitymedium">'.$langs->trans(
"NA").
'</span>' :
price(
price2num($markRate,
'MT')).
"%").
"</td>\n";
498 print
'<td class="right"> </td>';
499 if (!
$conf->main_checkbox_left_column) {
519 <script type="text/javascript">
520 $(document).ready(function() {
521 $("#totalMargin").html(\''.
price(
price2num($totalMargin,
'MT')).
'\');
522 $(
"#marginRate").html(\
''.(($marginRate ===
'') ?
'<span class="opacitymedium">'.$langs->trans(
"NA").
'</span>' :
price(
price2num($marginRate,
'MT')).
"%").
'\');
523 $("#markRate").html(\''.(($markRate ===
'') ?
'<span class="opacitymedium">'.$langs->trans(
"NA").
'</span>' :
price(
price2num($markRate,
'MT')).
"%").
'\');
if(! $sortfield) if(! $sortorder) $object
llxFooter($comment='', $zone='private', $disabledoutputofmessages=0)
Empty footer.
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 TYPE_CREDIT_NOTE
Credit note invoice.
Class to manage third parties objects (customers, suppliers, prospects...)
societe_prepare_head(Societe $object, $subtabs='')
Return array of tabs to used on pages for third parties cards.
dol_get_last_day($year, $month=12, $gm=false)
Return GMT time for last day of a month or year.
dol_now($mode='gmt')
Return date for now.
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...
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0, $attop=0)
Set event messages in dol_events session object.
print_liste_field_titre($name, $file="", $field="", $begin="", $param="", $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, $selectlimitsuffix=0, $hidenavigation=0, $pagenavastextinput=0, $morehtmlrightbeforearrow='')
Print a title with navigation controls for pagination.
showValueWithClipboardCPButton($valuetocopy, $showonlyonhover=1, $texttoshow='')
Create a button to copy $valuetocopy in the clipboard (for copy and paste feature).
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0, $morecssdiv='')
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.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0, $nodefault=0)
Return value of a param into GET or POST supervariable.
GETPOSTINT($paramname, $method=0, $nodefault=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs=null, $encodetooutput=false, $decorate=0)
Output date in a string format according to outputlangs (or langs if not defined).
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
GETPOSTISSET($paramname)
Return true if we are in a context of submitting the parameter $paramname from a POST of a form.
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
isModEnabled($module)
Is Dolibarr module enabled.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
dol_escape_htmltag($stringtoescape, $keepb=0, $keepn=0, $noescapetags='', $escapeonlyhtmltags=0, $cleanalsojavascript=0)
Returns text escaped for inclusion in HTML alt or title or value tags, or into values of HTML input f...
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.