Go to the documentation of this file.
24 require
'../../main.inc.php';
25 require_once DOL_DOCUMENT_ROOT.
'/core/lib/company.lib.php';
26 require_once DOL_DOCUMENT_ROOT.
'/compta/facture/class/facture.class.php';
27 require_once DOL_DOCUMENT_ROOT.
'/product/class/product.class.php';
29 $langs->loadLangs(array(
"companies",
"bills",
"products",
"margins"));
32 $socid =
GETPOST(
'socid',
'int');
33 if (!empty($user->socid)) {
34 $socid = $user->socid;
37 $limit =
GETPOST(
'limit',
'int') ?
GETPOST(
'limit',
'int') : $conf->liste_limit;
38 $sortfield =
GETPOST(
'sortfield',
'aZ09comma');
39 $sortorder =
GETPOST(
'sortorder',
'aZ09comma');
41 if (empty($page) || $page == -1) {
44 $offset = $limit * $page;
45 $pageprev = $page - 1;
46 $pagenext = $page + 1;
51 $sortfield =
"f.datef";
56 $object->fetch($socid);
60 $hookmanager->initHooks(array(
'thirdpartymargins',
'globalcard'));
64 if (empty($user->rights->margins->liretous)) {
73 $parameters = array(
'id'=>$socid);
74 $reshook = $hookmanager->executeHooks(
'doActions', $parameters, $object, $action);
85 $invoicestatic =
new Facture($db);
88 $title = $langs->trans(
"ThirdParty").
' - '.$langs->trans(
"Margins");
89 if (!empty($conf->global->MAIN_HTML_TITLE) && preg_match(
'/thirdpartynameonly/', $conf->global->MAIN_HTML_TITLE) && $object->name) {
90 $title = $object->name.
' - '.$langs->trans(
"Files");
92 $help_url =
'EN:Module_Third_Parties|FR:Module_Tiers|ES:Empresas';
97 $object->fetch($socid);
105 print
dol_get_fiche_head($head,
'margin', $langs->trans(
"ThirdParty"), -1,
'company');
107 $linkback =
'<a href="'.DOL_URL_ROOT.
'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans(
"BackToList").
'</a>';
109 dol_banner_tab($object,
'socid', $linkback, ($user->socid ? 0 : 1),
'rowid',
'nom');
111 print
'<div class="fichecenter">';
113 print
'<div class="underbanner clearboth"></div>';
114 print
'<table class="border tableforfield" width="100%">';
117 print
'<tr><td class="titlefield">'.$langs->trans(
'NatureOfThirdParty').
'</td><td>';
118 print $object->getTypeUrl(1);
121 if ($object->client) {
122 print
'<tr><td class="titlefield">';
123 print $langs->trans(
'CustomerCode').
'</td><td colspan="3">';
125 $tmpcheck = $object->check_codeclient();
126 if ($tmpcheck != 0 && $tmpcheck != -5) {
127 print
' <span class="error">('.$langs->trans(
"WrongCustomerCode").
')</span>';
132 if (((!empty($conf->fournisseur->enabled) && !empty($user->rights->fournisseur->lire) && empty($conf->global->MAIN_USE_NEW_SUPPLIERMOD)) || (!empty($conf->supplier_order->enabled) && !empty($user->rights->supplier_order->lire)) || (!empty($conf->supplier_invoice->enabled) && !empty($user->rights->supplier_invoice->lire))) && $object->fournisseur) {
133 print
'<tr><td class="titlefield">';
134 print $langs->trans(
'SupplierCode').
'</td><td colspan="3">';
136 $tmpcheck = $object->check_codefournisseur();
137 if ($tmpcheck != 0 && $tmpcheck != -5) {
138 print
' <span class="error">('.$langs->trans(
"WrongSupplierCode").
')</span>';
144 print
'<tr><td class="titlefield">'.$langs->trans(
"TotalMargin").
'</td><td colspan="3">';
145 print
'<span id="totalMargin" class="amount"></span>';
149 if (!empty($conf->global->DISPLAY_MARGIN_RATES)) {
150 print
'<tr><td>'.$langs->trans(
"MarginRate").
'</td><td colspan="3">';
151 print
'<span id="marginRate"></span>';
156 if (!empty($conf->global->DISPLAY_MARK_RATES)) {
157 print
'<tr><td>'.$langs->trans(
"MarkRate").
'</td><td colspan="3">';
158 print
'<span id="markRate"></span>';
165 print
'<div style="clear:both"></div>';
171 $sql =
"SELECT distinct s.nom, s.rowid as socid, s.code_client,";
172 $sql .=
" f.rowid as facid, f.ref, f.total_ht,";
173 $sql .=
" f.datef, f.paye, f.fk_statut as statut, f.type,";
174 $sql .=
" sum(d.total_ht) as selling_price,";
175 $sql .=
" sum(d.qty * d.buy_price_ht * (d.situation_percent / 100)) as buying_price,";
176 $sql .=
" sum(abs(d.total_ht) - (d.buy_price_ht * d.qty * (d.situation_percent / 100))) as marge";
177 $sql .=
" FROM ".MAIN_DB_PREFIX.
"societe as s";
178 $sql .=
", ".MAIN_DB_PREFIX.
"facture as f";
179 $sql .=
", ".MAIN_DB_PREFIX.
"facturedet as d";
180 $sql .=
" WHERE f.fk_soc = s.rowid";
181 $sql .=
" AND f.fk_statut > 0";
182 $sql .=
" AND f.entity IN (".getEntity(
'invoice').
")";
183 $sql .=
" AND d.fk_facture = f.rowid";
184 $sql .=
" AND f.fk_soc = $socid";
185 $sql .=
" AND d.buy_price_ht IS NOT NULL";
188 if (isset($conf->global->ForceBuyingPriceIfNull) && $conf->global->ForceBuyingPriceIfNull == 2) {
189 $sql .=
" AND d.buy_price_ht <> 0";
191 $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";
192 $sql .= $db->order($sortfield, $sortorder);
196 dol_syslog(
'margin:tabs:thirdpartyMargins.php', LOG_DEBUG);
197 $result = $db->query($sql);
199 $num = $db->num_rows($result);
201 print_barre_liste($langs->trans(
"MarginDetails"), $page, $_SERVER[
"PHP_SELF"],
"&socid=".$object->id, $sortfield, $sortorder,
'', $num, $num,
'');
204 print
'<div class="div-table-responsive">';
205 print
"<table class=\"noborder\" width=\"100%\">";
207 print
'<tr class="liste_titre">';
208 print_liste_field_titre(
"Invoice", $_SERVER[
"PHP_SELF"],
"f.ref",
"",
"&socid=".$_REQUEST[
"socid"],
'', $sortfield, $sortorder);
209 print_liste_field_titre(
"DateInvoice", $_SERVER[
"PHP_SELF"],
"f.datef",
"",
"&socid=".$_REQUEST[
"socid"],
'', $sortfield, $sortorder,
'center ');
210 print_liste_field_titre(
"SoldAmount", $_SERVER[
"PHP_SELF"],
"selling_price",
"",
"&socid=".$_REQUEST[
"socid"],
'', $sortfield, $sortorder,
'right ');
211 print_liste_field_titre(
"PurchasedAmount", $_SERVER[
"PHP_SELF"],
"buying_price",
"",
"&socid=".$_REQUEST[
"socid"],
'', $sortfield, $sortorder,
'right ');
212 print_liste_field_titre(
"Margin", $_SERVER[
"PHP_SELF"],
"marge",
"",
"&socid=".$_REQUEST[
"socid"],
'', $sortfield, $sortorder,
'right ');
213 if (!empty($conf->global->DISPLAY_MARGIN_RATES)) {
214 print_liste_field_titre(
"MarginRate", $_SERVER[
"PHP_SELF"],
"",
"",
"&socid=".$_REQUEST[
"socid"],
'', $sortfield, $sortorder,
'right ');
216 if (!empty($conf->global->DISPLAY_MARK_RATES)) {
217 print_liste_field_titre(
"MarkRate", $_SERVER[
"PHP_SELF"],
"",
"",
"&socid=".$_REQUEST[
"socid"],
'', $sortfield, $sortorder,
'right ');
219 print_liste_field_titre(
"Status", $_SERVER[
"PHP_SELF"],
"f.paye,f.fk_statut",
"",
"&socid=".$_REQUEST[
"socid"],
'', $sortfield, $sortorder,
'right ');
227 $objp = $db->fetch_object($result);
229 $marginRate = ($objp->buying_price != 0) ? (100 * $objp->marge / $objp->buying_price) :
'';
230 $markRate = ($objp->selling_price != 0) ? (100 * $objp->marge / $objp->selling_price) :
'';
237 print
'<tr class="oddeven">';
239 $invoicestatic->id = $objp->facid;
240 $invoicestatic->ref = $objp->ref;
241 print $invoicestatic->getNomUrl(1);
243 print
"<td class=\"center\">";
245 print
"<td class=\"right amount\">".price(
price2num($objp->selling_price,
'MT')).
"</td>\n";
246 print
"<td class=\"right amount\">".price(
price2num(($objp->type == 2 ? -1 : 1) * $objp->buying_price,
'MT')).
"</td>\n";
247 print
"<td class=\"right amount\">".$sign.price(
price2num($objp->marge,
'MT')).
"</td>\n";
248 if (!empty($conf->global->DISPLAY_MARGIN_RATES)) {
249 print
"<td class=\"right\">".(($marginRate ===
'') ?
'n/a' : $sign.price(
price2num($marginRate,
'MT')).
"%").
"</td>\n";
251 if (!empty($conf->global->DISPLAY_MARK_RATES)) {
252 print
"<td class=\"right\">".(($markRate ===
'') ?
'n/a' :
price(
price2num($markRate,
'MT')).
"%").
"</td>\n";
254 print
'<td class="right">'.$invoicestatic->LibStatut($objp->paye, $objp->statut, 5).
'</td>';
257 $cumul_vente += $objp->selling_price;
258 $cumul_achat += ($objp->type == 2 ? -1 : 1) * $objp->buying_price;
264 $totalMargin = $cumul_vente - $cumul_achat;
265 if ($totalMargin < 0) {
266 $marginRate = ($cumul_achat != 0) ?-1 * (100 * $totalMargin / $cumul_achat) :
'';
267 $markRate = ($cumul_vente != 0) ?-1 * (100 * $totalMargin / $cumul_vente) :
'';
269 $marginRate = ($cumul_achat != 0) ? (100 * $totalMargin / $cumul_achat) :
'';
270 $markRate = ($cumul_vente != 0) ? (100 * $totalMargin / $cumul_vente) :
'';
274 print
'<tr class="liste_total">';
275 print
'<td colspan=2>'.$langs->trans(
'TotalMargin').
"</td>";
276 print
"<td class=\"right\">".price(
price2num($cumul_vente,
'MT')).
"</td>\n";
277 print
"<td class=\"right\">".price(
price2num($cumul_achat,
'MT')).
"</td>\n";
278 print
"<td class=\"right\">".price(
price2num($totalMargin,
'MT')).
"</td>\n";
279 if (!empty($conf->global->DISPLAY_MARGIN_RATES)) {
280 print
"<td class=\"right\">".(($marginRate ===
'') ?
'n/a' :
price(
price2num($marginRate,
'MT')).
"%").
"</td>\n";
282 if (!empty($conf->global->DISPLAY_MARK_RATES)) {
283 print
"<td class=\"right\">".(($markRate ===
'') ?
'n/a' :
price(
price2num($markRate,
'MT')).
"%").
"</td>\n";
285 print
'<td class="right"> </td>';
301 <script type="text/javascript">
302 $(document).ready(function() {
303 $("#totalMargin").html("'.
price(
price2num($totalMargin,
'MT')).
'");
304 $("#marginRate").html("'.(($marginRate ===
'') ?
'n/a' :
price(
price2num($marginRate,
'MT')).
"%").
'");
305 $("#markRate").html("'.(($markRate ===
'') ?
'n/a' :
price(
price2num($markRate,
'MT')).
"%").
'");
Class to manage third parties objects (customers, suppliers, prospects...)
dol_escape_htmltag($stringtoescape, $keepb=0, $keepn=0, $noescapetags='', $escapeonlyhtmltags=0)
Returns text escaped for inclusion in HTML alt or title tags, or into values of HTML input fields.
restrictedArea($user, $features, $objectid=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.
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='', $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
if($cancel &&! $id) if($action=='add' &&! $cancel) if($action=='delete') if($id) $form
Actions.
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.
if(GETPOST('button_removefilter_x', 'alpha')||GETPOST('button_removefilter.x', 'alpha')||GETPOST('button_removefilter', 'alpha')) if(GETPOST('button_search_x', 'alpha')||GETPOST('button_search.x', 'alpha')||GETPOST('button_search', 'alpha')) if($action=="save" &&empty($cancel)) $help_url
View.
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs='', $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
showValueWithClipboardCPButton($valuetocopy, $showonlyonhover=1, $texttoshow='')
Create a button to copy $valuetocopy in the clipboard (for copy and paste feature).
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
print_barre_liste($titre, $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.
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='')
Show tabs of a record.
societe_prepare_head(Societe $object)
Return array of tabs to used on pages for third parties cards.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
const TYPE_CREDIT_NOTE
Credit note invoice.
GETPOSTISSET($paramname)
Return true if we are in a context of submitting the parameter $paramname from a POST of a form.
print_liste_field_titre($name, $file="", $field="", $begin="", $moreparam="", $moreattrib="", $sortfield="", $sortorder="", $prefix="", $tooltip="", $forcenowrapcolumntitle=0)
Show title line of an array.
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.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='')
Set event messages in dol_events session object.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program Calling this function terminate execution ...
if(!defined('NOREQUIRESOC')) if(!defined('NOREQUIRETRAN')) if(!defined('NOCSRFCHECK')) if(!defined('NOTOKENRENEWAL')) if(!defined('NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined('NOREQUIREAJAX')) llxHeader()
Empty header.