consumption.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2012-2013 Philippe Berthet     <berthet@systune.be>
 * Copyright (C) 2004-2016 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2013-2015 Juanjo Menent    <jmenent@2byte.es>
 * Copyright (C) 2015      Marcos García        <marcosgdf@gmail.com>
 * Copyright (C) 2015-2017 Ferran Marcet    <fmarcet@2byte.es>
 * Copyright (C) 2021-2022 Frédéric France    <frederic.france@netlogic.fr>
 * Copyright (C) 2024   MDW             <mdeweerd@users.noreply.github.com>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */
 
// Load Dolibarr environment
require "../main.inc.php";
require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formother.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.class.php';
 
 
// Load translation files required by the page
$langs->loadLangs(array("companies", "bills", "orders", "suppliers", "propal", "interventions", "contracts", "products"));
 
 
$contextpage = GETPOST('contextpage', 'aZ') ? GETPOST('contextpage', 'aZ') : 'thirdpartylist';
 
// Security check
$socid = GETPOSTINT('socid');
if ($user->socid) {
  $socid = $user->socid;
}
$result = restrictedArea($user, 'societe', $socid, '&societe');
$object = new Societe($db);
if ($socid > 0) {
  $object->fetch($socid);
}
 
// Sort & Order fields
$limit    = GETPOSTINT('limit') ? GETPOSTINT('limit') : $conf->liste_limit;
$sortfield  = GETPOST('sortfield', 'aZ09comma');
$sortorder  = GETPOST('sortorder', 'aZ09comma');
$page     = GETPOSTISSET('pageplusone') ? (GETPOST('pageplusone') - 1) : GETPOSTINT("page");
$optioncss  = GETPOST('optioncss', 'alpha');
 
if (empty($page) || $page == -1) {
  $page = 0;
}     // If $page is not defined, or '' or -1
$offset = $limit * $page;
$pageprev = $page - 1;
$pagenext = $page + 1;
if (!$sortorder) {
  $sortorder = 'DESC';
}
if (!$sortfield) {
  $sortfield = 'dateprint';
}
 
// Search fields
$sref = GETPOST("sref");
$sprod_fulldescr = GETPOST("sprod_fulldescr");
$month = GETPOSTINT('month');
$year = GETPOSTINT('year');
 
// Clean up on purge search criteria ?
if (GETPOST('button_removefilter_x', 'alpha') || GETPOST('button_removefilter.x', 'alpha') || GETPOST('button_removefilter', 'alpha')) { // Both test are required to be compatible with all browsers
  $sref = '';
  $sprod_fulldescr = '';
  $year = '';
  $month = '';
}
 
// Customer or supplier selected in drop box
$thirdTypeSelect = GETPOST("third_select_id", 'aZ09');
$type_element = GETPOST('type_element') ? GETPOST('type_element') : '';
 
 
// Initialize technical object to manage hooks of page. Note that conf->hooks_modules contains array of hook context
$hookmanager->initHooks(array('consumptionthirdparty', 'globalcard'));
 
 
/*
 * Actions
 */
 
$parameters = array('id' => $socid);
$reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
if ($reshook < 0) {
  setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
}
 
 
 
/*
 * View
 */
 
$form = new Form($db);
$formother = new FormOther($db);
$productstatic = new Product($db);
 
$title = $langs->trans("Referers", $object->name);
if (getDolGlobalString('MAIN_HTML_TITLE') && preg_match('/thirdpartynameonly/', getDolGlobalString('MAIN_HTML_TITLE')) && $object->name) {
  $title = $object->name." - ".$title;
}
$help_url = 'EN:Module_Third_Parties|FR:Module_Tiers|ES:Empresas';
llxHeader('', $title, $help_url);
 
if (empty($socid)) {
  dol_print_error($db);
  exit;
}
 
$head = societe_prepare_head($object);
print dol_get_fiche_head($head, 'consumption', $langs->trans("ThirdParty"), -1, 'company');
 
$linkback = '<a href="'.DOL_URL_ROOT.'/societe/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
 
dol_banner_tab($object, 'socid', $linkback, ($user->socid ? 0 : 1), 'rowid', 'nom');
 
print '<div class="fichecenter">';
 
print '<div class="underbanner clearboth"></div>';
print '<table class="border centpercent tableforfield">';
 
// Type Prospect/Customer/Supplier
print '<tr><td class="titlefield">'.$langs->trans('NatureOfThirdParty').'</td><td>';
print $object->getTypeUrl(1);
print '</td></tr>';
 
if (getDolGlobalString('SOCIETE_USEPREFIX')) {  // Old not used prefix field
  print '<tr><td class="titlefield">'.$langs->trans('Prefix').'</td><td colspan="3">'.$object->prefix_comm.'</td></tr>';
}
 
//if (isModEnabled('agenda') && $user->hasRight('agenda', 'myactions', 'read')) $elementTypeArray['action']=$langs->transnoentitiesnoconv('Events');
$elementTypeArray = array();
 
if ($object->client) {
  print '<tr><td class="titlefield">';
  print $langs->trans('CustomerCode').'</td><td colspan="3">';
  print showValueWithClipboardCPButton(dol_escape_htmltag($object->code_client));
  $tmpcheck = $object->check_codeclient();
  if ($tmpcheck != 0 && $tmpcheck != -5) {
    print ' <span class="error">('.$langs->trans("WrongCustomerCode").')</span>';
  }
  print '</td></tr>';
  $sql = "SELECT count(*) as nb from ".MAIN_DB_PREFIX."facture where fk_soc = ".((int) $socid);
  $resql = $db->query($sql);
  if (!$resql) {
    dol_print_error($db);
  }
 
  $obj = $db->fetch_object($resql);
  $nbFactsClient = $obj->nb;
  $thirdTypeArray = array();
  $thirdTypeArray['customer'] = $langs->trans("customer");
  if (isModEnabled("propal") && $user->hasRight('propal', 'lire')) {
    $elementTypeArray['propal'] = $langs->transnoentitiesnoconv('Proposals');
  }
  if (isModEnabled('order') && $user->hasRight('commande', 'lire')) {
    $elementTypeArray['order'] = $langs->transnoentitiesnoconv('Orders');
  }
  if (isModEnabled('invoice') && $user->hasRight('facture', 'lire')) {
    $elementTypeArray['invoice'] = $langs->transnoentitiesnoconv('Invoices');
  }
  if (isModEnabled('shipping') && $user->hasRight('expedition', 'lire')) {
    $elementTypeArray['shipment'] = $langs->transnoentitiesnoconv('Shipments');
  }
  if (isModEnabled('contract') && $user->hasRight('contrat', 'lire')) {
    $elementTypeArray['contract'] = $langs->transnoentitiesnoconv('Contracts');
  }
}
 
if (isModEnabled('intervention') && $user->hasRight('ficheinter', 'lire')) {
  $elementTypeArray['fichinter'] = $langs->transnoentitiesnoconv('Interventions');
}
 
if ($object->fournisseur) {
  $langs->load("supplier_proposal");
  print '<tr><td class="titlefield">';
  print $langs->trans('SupplierCode').'</td><td colspan="3">';
  print showValueWithClipboardCPButton(dol_escape_htmltag($object->code_fournisseur));
  $tmpcheck = $object->check_codefournisseur();
  if ($tmpcheck != 0 && $tmpcheck != -5) {
    print ' <span class="error">('.$langs->trans("WrongSupplierCode").')</span>';
  }
  print '</td></tr>';
  $sql = "SELECT count(*) as nb from ".MAIN_DB_PREFIX."commande_fournisseur where fk_soc = ".((int) $socid);
  $resql = $db->query($sql);
  if (!$resql) {
    dol_print_error($db);
  }
 
  $obj = $db->fetch_object($resql);
  $nbCmdsFourn = $obj->nb;
  $thirdTypeArray['supplier'] = $langs->trans("supplier");
  if ((isModEnabled('fournisseur') && $user->hasRight('fournisseur', 'facture', 'lire') && !getDolGlobalString('MAIN_USE_NEW_SUPPLIERMOD')) || (isModEnabled("supplier_invoice") && $user->hasRight('supplier_invoice', 'lire'))) {
    $elementTypeArray['supplier_invoice'] = $langs->transnoentitiesnoconv('SuppliersInvoices');
  }
  if ((isModEnabled('fournisseur') && $user->hasRight('fournisseur', 'commande', 'lire') && !getDolGlobalString('MAIN_USE_NEW_SUPPLIERMOD')) || (isModEnabled("supplier_order") && $user->hasRight('supplier_order', 'lire'))) {
    $elementTypeArray['supplier_order'] = $langs->transnoentitiesnoconv('SuppliersOrders');
  }
  if (isModEnabled('reception') && $user->hasRight('reception', 'lire')) {
    $langs->load('receptions');
    $elementTypeArray['reception'] = $langs->transnoentitiesnoconv('Receptions');
  }
  if (isModEnabled('supplier_proposal') && $user->hasRight('supplier_proposal', 'lire')) {
    $elementTypeArray['supplier_proposal'] = $langs->transnoentitiesnoconv('SupplierProposals');
  }
}
print '</table>';
 
print '</div>';
 
print dol_get_fiche_end();
print '<br>';
 
 
print '<form method="POST" action="'.$_SERVER['PHP_SELF'].'?socid='.$socid.'">';
print '<input type="hidden" name="token" value="'.newToken().'">';
 
$sql_select = '';
$documentstaticline = '';
/*if ($type_element == 'action')
{   // Customer : show products from invoices
  require_once DOL_DOCUMENT_ROOT.'/comm/action/class/actioncomm.class.php';
  $documentstatic=new ActionComm($db);
  $sql_select = 'SELECT f.id as doc_id, f.id as doc_number, \'1\' as doc_type, f.datep as dateprint, ';
  $tables_from = MAIN_DB_PREFIX."actioncomm as f";
  $where = " WHERE rbl.parentid = f.id AND f.entity = ".$conf->entity;
  $dateprint = 'f.datep';
  $doc_number='f.id';
}*/
if ($type_element == 'fichinter') {   // Customer : show products from invoices
  require_once DOL_DOCUMENT_ROOT.'/fichinter/class/fichinter.class.php';
  $documentstatic = new Fichinter($db);
  $sql_select = 'SELECT f.rowid as doc_id, f.ref as doc_number, \'1\' as doc_type, f.datec as dateprint, f.fk_statut as status, NULL as paid, ';
  $sql_select .= 'NULL as fk_product, NULL as info_bits, NULL as date_start, NULL as date_end, NULL as prod_qty, NULL as total_ht, ';
  $tables_from = MAIN_DB_PREFIX."fichinter as f LEFT JOIN ".MAIN_DB_PREFIX."fichinterdet as d ON d.fk_fichinter = f.rowid"; // Must use left join to work also with option that disable usage of lines.
  $where = " WHERE f.fk_soc = s.rowid AND s.rowid = ".((int) $socid);
  $where .= " AND f.entity = ".$conf->entity;
  $dateprint = 'f.datec';
  $doc_number = 'f.ref';
}
if ($type_element == 'invoice') {   // Customer : show products from invoices
  require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
  $documentstatic = new Facture($db);
  $sql_select = 'SELECT f.rowid as doc_id, f.ref as doc_number, f.type as doc_type, f.datef as dateprint, f.fk_statut as status, f.paye as paid, d.fk_remise_except, ';
  $tables_from = MAIN_DB_PREFIX."facture as f,".MAIN_DB_PREFIX."facturedet as d";
  $where = " WHERE f.fk_soc = s.rowid AND s.rowid = ".((int) $socid);
  $where .= " AND d.fk_facture = f.rowid";
  $where .= " AND f.entity IN (".getEntity('invoice').")";
  $dateprint = 'f.datef';
  $doc_number = 'f.ref';
  $thirdTypeSelect = 'customer';
}
if ($type_element == 'propal') {
  require_once DOL_DOCUMENT_ROOT.'/comm/propal/class/propal.class.php';
  $documentstatic = new Propal($db);
  $sql_select = 'SELECT c.rowid as doc_id, c.ref as doc_number, \'1\' as doc_type, c.datep as dateprint, c.fk_statut as status, NULL as paid,';
  $tables_from = MAIN_DB_PREFIX."propal as c,".MAIN_DB_PREFIX."propaldet as d";
  $where = " WHERE c.fk_soc = s.rowid AND s.rowid = ".((int) $socid);
  $where .= " AND d.fk_propal = c.rowid";
  $where .= " AND c.entity = ".$conf->entity;
  $dateprint = 'c.datep';
  $doc_number = 'c.ref';
  $thirdTypeSelect = 'customer';
}
if ($type_element == 'order') {
  require_once DOL_DOCUMENT_ROOT.'/commande/class/commande.class.php';
  $langs->load('sendings'); // delivery planned date
  $documentstatic = new Commande($db);
  $sql_select = 'SELECT c.rowid as doc_id, c.ref as doc_number, \'1\' as doc_type, c.date_commande as dateprint, c.fk_statut as status, NULL as paid, c.date_livraison as delivery_planned_date,';
  $tables_from = MAIN_DB_PREFIX."commande as c,".MAIN_DB_PREFIX."commandedet as d";
  $where = " WHERE c.fk_soc = s.rowid AND s.rowid = ".((int) $socid);
  $where .= " AND d.fk_commande = c.rowid";
  $where .= " AND c.entity = ".$conf->entity;
  $dateprint = 'c.date_commande';
  $doc_number = 'c.ref';
  $thirdTypeSelect = 'customer';
}
if ($type_element == 'shipment') {
  require_once DOL_DOCUMENT_ROOT.'/expedition/class/expedition.class.php';
  $langs->load('sendings');
  $documentstatic = new Expedition($db);
  $sql_select = 'SELECT e.rowid as doc_id, e.ref as doc_number, \'1\' as doc_type, e.date_creation as dateprint, e.fk_statut as status, NULL as paid, e.date_delivery as delivery_planned_date,';
  $tables_from = MAIN_DB_PREFIX."expedition as e,".MAIN_DB_PREFIX."expeditiondet as ed,".MAIN_DB_PREFIX."commandedet as d";
  $where = " WHERE e.fk_soc = s.rowid AND s.rowid = ".((int) $socid);
  $where .= " AND ed.fk_expedition = e.rowid";
  $where .= " AND ed.element_type = 'commande' AND ed.fk_elementdet = d.rowid";
  $where .= " AND e.entity = ".$conf->entity;
  $dateprint = 'e.date_creation';
  $doc_number = 'e.ref';
  $thirdTypeSelect = 'customer';
}
if ($type_element == 'supplier_invoice') {  // Supplier : Show products from invoices.
  require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.facture.class.php';
  $documentstatic = new FactureFournisseur($db);
  $sql_select = 'SELECT f.rowid as doc_id, f.ref as doc_number, \'1\' as doc_type, f.datef as dateprint, f.fk_statut as status, f.paye as paid, ';
  $tables_from = MAIN_DB_PREFIX."facture_fourn as f,".MAIN_DB_PREFIX."facture_fourn_det as d";
  $where = " WHERE f.fk_soc = s.rowid AND s.rowid = ".((int) $socid);
  $where .= " AND d.fk_facture_fourn = f.rowid";
  $where .= " AND f.entity = ".$conf->entity;
  $dateprint = 'f.datef';
  $doc_number = 'f.ref';
  $thirdTypeSelect = 'supplier';
}
if ($type_element == 'supplier_proposal') {
  require_once DOL_DOCUMENT_ROOT.'/supplier_proposal/class/supplier_proposal.class.php';
  $documentstatic = new SupplierProposal($db);
  $sql_select = 'SELECT c.rowid as doc_id, c.ref as doc_number, \'1\' as doc_type, c.date_valid as dateprint, c.fk_statut as status, NULL as paid, ';
  $tables_from = MAIN_DB_PREFIX."supplier_proposal as c,".MAIN_DB_PREFIX."supplier_proposaldet as d";
  $where = " WHERE c.fk_soc = s.rowid AND s.rowid = ".((int) $socid);
  $where .= " AND d.fk_supplier_proposal = c.rowid";
  $where .= " AND c.entity = ".$conf->entity;
  $dateprint = 'c.date_valid';
  $doc_number = 'c.ref';
  $thirdTypeSelect = 'supplier';
}
if ($type_element == 'supplier_order') {  // Supplier : Show products from orders.
  require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.commande.class.php';
  $langs->load('sendings'); // delivery planned date
  $documentstatic = new CommandeFournisseur($db);
  $sql_select = 'SELECT c.rowid as doc_id, c.ref as doc_number, \'1\' as doc_type, c.date_valid as dateprint, c.fk_statut as status, NULL as paid, c.date_livraison as delivery_planned_date, ';
  $tables_from = MAIN_DB_PREFIX."commande_fournisseur as c,".MAIN_DB_PREFIX."commande_fournisseurdet as d";
  $where = " WHERE c.fk_soc = s.rowid AND s.rowid = ".((int) $socid);
  $where .= " AND d.fk_commande = c.rowid";
  $where .= " AND c.entity = ".$conf->entity;
  $dateprint = 'c.date_valid';
  $doc_number = 'c.ref';
  $thirdTypeSelect = 'supplier';
}
if ($type_element == 'reception') {   // Supplier : Show products from orders.
  require_once DOL_DOCUMENT_ROOT.'/reception/class/reception.class.php';
  $langs->loadLangs(['sendings', 'receptions']); // delivery planned date
  $documentstatic = new Reception($db);
  $sql_select = 'SELECT r.rowid as doc_id, r.ref as doc_number, \'1\' as doc_type, r.date_creation as dateprint, r.fk_statut as status, NULL as paid, r.date_delivery as delivery_planned_date, ';
  $tables_from = MAIN_DB_PREFIX."reception as r,".MAIN_DB_PREFIX."receptiondet_batch as rd,".MAIN_DB_PREFIX."commande_fournisseurdet as d";
  $where = " WHERE r.fk_soc = s.rowid AND s.rowid = ".((int) $socid);
  $where .= " AND rd.fk_reception = r.rowid";
  $where .= " AND rd.fk_elementdet = d.rowid AND rd.element_type = 'supplier_order'";
  $where .= " AND r.entity = ".$conf->entity;
  $dateprint = 'r.date_creation';
  $doc_number = 'r.ref';
  $thirdTypeSelect = 'supplier';
}
if ($type_element == 'contract') {  // Order
  require_once DOL_DOCUMENT_ROOT.'/contrat/class/contrat.class.php';
  $documentstatic = new Contrat($db);
  $documentstaticline = new ContratLigne($db);
  $sql_select = 'SELECT c.rowid as doc_id, c.ref as doc_number, \'1\' as doc_type, c.date_contrat as dateprint, d.statut as status, NULL as paid,';
  $tables_from = MAIN_DB_PREFIX."contrat as c,".MAIN_DB_PREFIX."contratdet as d";
  $where = " WHERE c.fk_soc = s.rowid AND s.rowid = ".((int) $socid);
  $where .= " AND d.fk_contrat = c.rowid";
  $where .= " AND c.entity = ".$conf->entity;
  $dateprint = 'c.date_valid';
  $doc_number = 'c.ref';
  $thirdTypeSelect = 'customer';
}
 
$parameters = array();
$reshook = $hookmanager->executeHooks('printFieldListSelect', $parameters); // Note that $action and $object may have been modified by hook
 
if (!empty($sql_select)) {
  $sql = $sql_select;
  $sql .= ' d.description as description,';
  if ($type_element != 'fichinter' && $type_element != 'contract' && $type_element != 'supplier_proposal' && $type_element != 'shipment' && $type_element != 'reception') {
    $sql .= ' d.label, d.fk_product as product_id, d.fk_product as fk_product, d.info_bits, d.date_start, d.date_end, d.qty, d.qty as prod_qty, d.total_ht as total_ht, ';
  }
  if ($type_element == 'supplier_proposal') {
    $sql .= ' d.label, d.fk_product as product_id, d.fk_product as fk_product, d.info_bits, d.qty, d.qty as prod_qty, d.total_ht as total_ht, ';
  }
  if ($type_element == 'contract') {
    $sql .= ' d.label, d.fk_product as product_id, d.fk_product as fk_product, d.info_bits, d.date_ouverture as date_start, d.date_cloture as date_end, d.qty, d.qty as prod_qty, d.total_ht as total_ht, ';
  }
  if ($type_element == 'shipment') {
    $sql .= ' d.label, d.fk_product as product_id, d.fk_product as fk_product, d.info_bits, d.date_start, d.date_end, ed.qty, ed.qty as prod_qty, ed.qty * d.subprice * (100 - d.remise_percent) / 100 as total_ht, ';
  }
  if ($type_element == 'reception') {
    $sql .= ' d.label, d.fk_product as product_id, d.fk_product as fk_product, d.info_bits, d.date_start, d.date_end, rd.qty, rd.qty as prod_qty, rd.qty * d.subprice * (100 - d.remise_percent) / 100 as total_ht, ';
  }
  if ($type_element != 'fichinter') {
    $sql .= ' p.ref as ref, p.rowid as prod_id, p.rowid as fk_product, p.fk_product_type as prod_type, p.fk_product_type as fk_product_type, p.entity as pentity, ';
  }
  $sql .= " s.rowid as socid ";
  if ($type_element != 'fichinter') {
    $sql .= ", p.ref as prod_ref, p.label as product_label";
  }
  $sql .= " FROM ".MAIN_DB_PREFIX."societe as s, ".$tables_from;
  if ($type_element != 'fichinter') {
    $sql .= ' LEFT JOIN '.MAIN_DB_PREFIX.'product as p ON d.fk_product = p.rowid ';
  }
  $sql .= $where;
  $sql .= dolSqlDateFilter($dateprint, 0, $month, $year);
  if ($sref) {
    $sql .= " AND ".$doc_number." LIKE '%".$db->escape($sref)."%'";
  }
  if ($sprod_fulldescr) {
    // We test both case description is correctly saved of was save after dol_escape_htmltag().
    $sql .= " AND (d.description LIKE '%".$db->escape($sprod_fulldescr)."%' OR d.description LIKE '%".$db->escape(dol_escape_htmltag($sprod_fulldescr))."%'";
    if (GETPOST('type_element') != 'fichinter') {
      $sql .= " OR p.ref LIKE '%".$db->escape($sprod_fulldescr)."%'";
    }
    if (GETPOST('type_element') != 'fichinter') {
      $sql .= " OR p.label LIKE '%".$db->escape($sprod_fulldescr)."%'";
    }
    $sql .= ")";
  }
  $sql .= $db->order($sortfield, $sortorder);
 
  $resql = $db->query($sql);
  $totalnboflines = $db->num_rows($resql);
 
  $sql .= $db->plimit($limit + 1, $offset);
  //print $sql;
}
 
$disabled = 0;
$showempty = 2;
if (empty($elementTypeArray) && !$object->client && !$object->fournisseur) {
  $showempty = $langs->trans("ThirdpartyNotCustomerNotSupplierSoNoRef");
  $disabled = 1;
}
 
// Define type of elements
$typeElementString = $form->selectarray("type_element", $elementTypeArray, GETPOST('type_element'), $showempty, 0, 0, '', 0, 0, $disabled, '', 'maxwidth150onsmartphone');
$button = '<input type="submit" class="button buttonform small" name="button_third" value="'.dol_escape_htmltag($langs->trans("Search")).'" title="'.dol_escape_htmltag($langs->trans("Search")).'">';
 
$total_qty = 0;
$param = '';
 
if ($sql_select) {
  $resql = $db->query($sql);
  if (!$resql) {
    dol_print_error($db);
  }
 
  $num = $db->num_rows($resql);
 
  $param = "&socid=".urlencode((string) ($socid))."&type_element=".urlencode((string) ($type_element));
  if (!empty($contextpage) && $contextpage != $_SERVER["PHP_SELF"]) {
    $param .= '&contextpage='.urlencode($contextpage);
  }
  if ($limit > 0 && $limit != $conf->liste_limit) {
    $param .= '&limit='.((int) $limit);
  }
  if ($sprod_fulldescr) {
    $param .= "&sprod_fulldescr=".urlencode($sprod_fulldescr);
  }
  if ($sref) {
    $param .= "&sref=".urlencode($sref);
  }
  if ($month) {
    $param .= "&month=".urlencode((string) ($month));
  }
  if ($year) {
    $param .= "&year=".urlencode((string) ($year));
  }
  if ($optioncss) {
    $param .= '&optioncss='.urlencode($optioncss);
  }
 
  print_barre_liste($langs->trans('ProductsIntoElements').' '.$typeElementString.' '.$button, $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, '', $num, $totalnboflines, '', 0, '', '', $limit);
 
  print '<div class="div-table-responsive-no-min">';
  print '<table class="liste centpercent">'."\n";
 
  // Filters
  print '<tr class="liste_titre">';
  print '<td class="liste_titre left">';
  print '<input class="flat" type="text" name="sref" size="8" value="'.$sref.'">';
  print '</td>';
  print '<td class="liste_titre nowrap center valignmiddle">'; // date
  print $formother->select_month($month ? $month : -1, 'month', 1, 0, 'valignmiddle');
  print $formother->selectyear($year ? $year : -1, 'year', 1, 20, 1, 0, 0, '', 'valignmiddle maxwidth75imp marginleftonly');
  print '</td>';
  // delivery planned date
  if ($type_element == 'order' || $type_element == 'supplier_order' || $type_element == 'shipment') {
    print '<td class="liste_titre center"></td>';
  }
  print '<td class="liste_titre center">';
  print '</td>';
  print '<td class="liste_titre left">';
  print '<input class="flat" type="text" name="sprod_fulldescr" size="15" value="'.dol_escape_htmltag($sprod_fulldescr).'">';
  print '</td>';
  print '<td class="liste_titre center">';
  print '</td>';
  print '<td class="liste_titre center">';
  print '</td>';
  print '<td class="liste_titre maxwidthsearch">';
  $searchpicto = $form->showFilterAndCheckAddButtons(0);
  print $searchpicto;
  print '</td>';
  print '</tr>';
 
  // Titles with sort buttons
  print '<tr class="liste_titre">';
  print_liste_field_titre('Ref', $_SERVER['PHP_SELF'], 'doc_number', '', $param, '', $sortfield, $sortorder, 'left ');
  print_liste_field_titre('Date', $_SERVER['PHP_SELF'], 'dateprint', '', $param, '', $sortfield, $sortorder, 'center ');
  // delivery planned date
  if ($type_element == 'order' || $type_element == 'supplier_order' || $type_element == 'shipment') {
    print_liste_field_titre('DateDeliveryPlanned', $_SERVER['PHP_SELF'], 'delivery_planned_date', '', $param, '', $sortfield, $sortorder, 'center ');
  }
  print_liste_field_titre('Status', $_SERVER['PHP_SELF'], 'fk_statut', '', $param, '', $sortfield, $sortorder, 'center ');
  print_liste_field_titre('Product', $_SERVER['PHP_SELF'], '', '', $param, '', $sortfield, $sortorder, 'left ');
  print_liste_field_titre('Quantity', $_SERVER['PHP_SELF'], 'prod_qty', '', $param, '', $sortfield, $sortorder, 'right ');
  print_liste_field_titre('TotalHT', $_SERVER['PHP_SELF'], 'total_ht', '', $param, '', $sortfield, $sortorder, 'right ');
  print_liste_field_titre('UnitPrice', $_SERVER['PHP_SELF'], '', '', $param, '', $sortfield, $sortorder, 'right ');
  print "</tr>\n";
 
 
  $i = 0;
  while (($objp = $db->fetch_object($resql)) && $i < min($num, $limit)) {
    $documentstatic->id = $objp->doc_id;
    $documentstatic->ref = $objp->doc_number;
    $documentstatic->type = $objp->doc_type;
    $documentstatic->fk_statut = $objp->status;
    $documentstatic->fk_status = $objp->status;
    $documentstatic->statut = $objp->status;
    $documentstatic->status = $objp->status;
    $documentstatic->paye = $objp->paid;
    $documentstatic->alreadypaid = $objp->paid;
 
    if (is_object($documentstaticline)) {
      $documentstaticline->statut = $objp->status;
    }
 
    print '<tr class="oddeven">';
    print '<td class="nobordernopadding nowrap" width="100">';
    print $documentstatic->getNomUrl(1);
    print '</td>';
    print '<td class="center" width="80">'.dol_print_date($db->jdate($objp->dateprint), 'day').'</td>';
    // delivery planned date
    if ($type_element == 'order' || $type_element == 'supplier_order' || $type_element == 'shipment') {
      print '<td class="center">'.dol_print_date($db->jdate($objp->delivery_planned_date), 'day').'</td>';
    }
 
    // Status
    print '<td class="center">';
    if ($type_element == 'contract') {
      print $documentstaticline->getLibStatut(5);
    } elseif ($type_element == 'invoice') {
      // @phan-suppress-next-line PhanParamTooMany
      print $documentstatic->getLibStatut(5, $objp->paid);
    } elseif ($type_element == 'supplier_invoice') {
      // @phan-suppress-next-line PhanParamTooMany
      print $documentstatic->getLibStatut(5, $objp->paid);
    } else {
      print $documentstatic->getLibStatut(5);
    }
    print '</td>';
 
    // Label
    print '<td class="tdoverflowmax300">';
 
    // Define text, description and type
    $text = '';
    $description = '';
    $type = 0;
 
    // Code to show product duplicated from commonobject->printObjectLine
    if ($objp->fk_product > 0) {
      $product_static = new Product($db);
 
      $product_static->type = $objp->fk_product_type;
      $product_static->id = $objp->fk_product;
      $product_static->ref = $objp->ref;
      $product_static->entity = $objp->pentity;
      $text = $product_static->getNomUrl(1);
    }
 
    // Product
    if ($objp->fk_product > 0) {
      // Define output language
      if (getDolGlobalInt('MAIN_MULTILANGS') && getDolGlobalString('PRODUIT_TEXTS_IN_THIRDPARTY_LANGUAGE')) {
        $prod = new Product($db);
        $prod->fetch($objp->fk_product);
 
        $outputlangs = $langs;
        $newlang = '';
        if (empty($newlang) && GETPOST('lang_id', 'aZ09')) {
          $newlang = GETPOST('lang_id', 'aZ09');
        }
        if (empty($newlang)) {
          $newlang = $object->default_lang;
        }
        if (!empty($newlang)) {
          $outputlangs = new Translate("", $conf);
          $outputlangs->setDefaultLang($newlang);
        }
 
        $label = (!empty($prod->multilangs[$outputlangs->defaultlang]["label"])) ? $prod->multilangs[$outputlangs->defaultlang]["label"] : $objp->product_label;
      } else {
        $label = $objp->product_label;
      }
 
      $text .= ' - '.(!empty($objp->label) ? $objp->label : $label);
      $description = (getDolGlobalInt('PRODUIT_DESC_IN_FORM_ACCORDING_TO_DEVICE') ? '' : dol_htmlentitiesbr($objp->description));
    }
 
    if (($objp->info_bits & 2) == 2) { ?>
      <a href="<?php echo DOL_URL_ROOT.'/comm/remx.php?id='.$object->id; ?>">
      <?php
      $txt = '';
      print img_object($langs->trans("ShowReduc"), 'reduc').' ';
      if ($objp->description == '(DEPOSIT)') {
        $txt = $langs->trans("Deposit");
      } elseif ($objp->description == '(EXCESS RECEIVED)') {
        $txt = $langs->trans("ExcessReceived");
      } elseif ($objp->description == '(EXCESS PAID)') {
        $txt = $langs->trans("ExcessPaid");
      }
      //else $txt=$langs->trans("Discount");
      print $txt;
      ?>
      </a>
      <?php
      if ($objp->description) {
        require_once DOL_DOCUMENT_ROOT.'/core/class/discount.class.php';
        if ($objp->description == '(CREDIT_NOTE)' && $objp->fk_remise_except > 0) {
          $discount = new DiscountAbsolute($db);
          $discount->fetch($objp->fk_remise_except);
          echo($txt ? ' - ' : '').$langs->transnoentities("DiscountFromCreditNote", $discount->getNomUrl(0));
        }
        if ($objp->description == '(EXCESS RECEIVED)' && $objp->fk_remise_except > 0) {
          $discount = new DiscountAbsolute($db);
          $discount->fetch($objp->fk_remise_except);
          echo($txt ? ' - ' : '').$langs->transnoentities("DiscountFromExcessReceived", $discount->getNomUrl(0));
        } elseif ($objp->description == '(EXCESS PAID)' && $objp->fk_remise_except > 0) {
          $discount = new DiscountAbsolute($db);
          $discount->fetch($objp->fk_remise_except);
          echo($txt ? ' - ' : '').$langs->transnoentities("DiscountFromExcessPaid", $discount->getNomUrl(0));
        } elseif ($objp->description == '(DEPOSIT)' && $objp->fk_remise_except > 0) {
          $discount = new DiscountAbsolute($db);
          $discount->fetch($objp->fk_remise_except);
          echo($txt ? ' - ' : '').$langs->transnoentities("DiscountFromDeposit", $discount->getNomUrl(0));
          // Add date of deposit
          if (getDolGlobalString('INVOICE_ADD_DEPOSIT_DATE')) {
            echo ' ('.dol_print_date($discount->datec).')';
          }
        } else {
          echo($txt ? ' - ' : '').dol_htmlentitiesbr($objp->description);
        }
      }
    } else {
      if ($objp->fk_product > 0) {
        echo $form->textwithtooltip($text, $description, 3, '', '', $i, 0, '');
 
        // Show range
        echo get_date_range($objp->date_start, $objp->date_end);
 
        // Add description in form
        if (getDolGlobalInt('PRODUIT_DESC_IN_FORM_ACCORDING_TO_DEVICE')) {
          print (!empty($objp->description) && $objp->description != $objp->product_label) ? '<br>'.dol_htmlentitiesbr($objp->description) : '';
        }
      } else {
        if (!empty($objp->label) || !empty($objp->description)) {
          if ($type == 1) {
            $text = img_object($langs->trans('Service'), 'service');
          } else {
            $text = img_object($langs->trans('Product'), 'product');
          }
 
          if (!empty($objp->label)) {
            $text .= ' <strong>'.$objp->label.'</strong>';
            echo $form->textwithtooltip($text, dol_htmlentitiesbr($objp->description), 3, '', '', $i, 0, '');
          } else {
            echo $text.' '.dol_htmlentitiesbr($objp->description);
          }
        }
 
        // Show range
        echo get_date_range($objp->date_start, $objp->date_end);
      }
    }
 
    /*
    $prodreftxt='';
    if ($objp->prod_id > 0)
    {
      $productstatic->id = $objp->prod_id;
      $productstatic->ref = $objp->prod_ref;
      $productstatic->status = $objp->prod_type;
      $prodreftxt = $productstatic->getNomUrl(0);
      if(!empty($objp->product_label)) $prodreftxt .= ' - '.$objp->product_label;
    }
    // Show range
    $prodreftxt .= get_date_range($objp->date_start, $objp->date_end);
    // Add description in form
    if (getDolGlobalInt('PRODUIT_DESC_IN_FORM_ACCORDING_TO_DEVICE'))
    {
      $prodreftxt .= (!empty($objp->description) && $objp->description!=$objp->product_label)?'<br>'.dol_htmlentitiesbr($objp->description):'';
    }
    */
    print '</td>';
 
    //print '<td class="left">'.$prodreftxt.'</td>';
    if ($type_element == 'invoice' && $objp->doc_type == Facture::TYPE_CREDIT_NOTE) {
      $objp->prod_qty = -($objp->prod_qty);
    }
    print '<td class="right"><span class="amount">'.$objp->prod_qty.'</span></td>';
    $total_qty += $objp->prod_qty;
 
    print '<td class="right"><span class="amount">'.price($objp->total_ht).'</span></td>';
    if (empty($total_ht)) {
      $total_ht = 0;
    }
    $total_ht += (float) $objp->total_ht;
 
    print '<td class="right">'.price($objp->total_ht / (empty($objp->prod_qty) ? 1 : $objp->prod_qty)).'</td>';
 
    print "</tr>\n";
    $i++;
  }
 
  print '<tr class="liste_total">';
  print '<td>'.$langs->trans('Total').'</td>';
  print '<td colspan="3"></td>';
  // delivery planned date
  if ($type_element == 'order' || $type_element == 'supplier_order' || $type_element == 'shipment') {
    print '<td></td>';
  }
  print '<td class="right">'.$total_qty.'</td>';
  print '<td class="right">'.price($total_ht).'</td>';
  print '<td class="right">'.price(price2num($total_ht / (empty($total_qty) ? 1 : $total_qty), 'MU')).'</td>';
  print "</table>";
  print '</div>';
 
  if ($num > $limit) {
    print_barre_liste('', $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, '', $num);
  }
  $db->free($resql);
} elseif (empty($type_element) || $type_element == -1) {
  print_barre_liste($langs->trans('ProductsIntoElements').' '.$typeElementString.' '.$button, $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, '', (!empty($num) ? $num : 0), '', '');
 
  print '<table class="liste centpercent">'."\n";
  // Titles with sort buttons
  print '<tr class="liste_titre">';
  print_liste_field_titre('Ref', $_SERVER['PHP_SELF'], 'doc_number', '', $param, '', $sortfield, $sortorder, 'left ');
  print_liste_field_titre('Date', $_SERVER['PHP_SELF'], 'dateprint', '', $param, 'width="150"', $sortfield, $sortorder, 'center ');
  print_liste_field_titre('Status', $_SERVER['PHP_SELF'], 'fk_status', '', $param, '', $sortfield, $sortorder, 'center ');
  print_liste_field_titre('Product', $_SERVER['PHP_SELF'], '', '', $param, '', $sortfield, $sortorder, 'left ');
  print_liste_field_titre('Quantity', $_SERVER['PHP_SELF'], 'prod_qty', '', $param, '', $sortfield, $sortorder, 'right ');
  print "</tr>\n";
 
  print '<tr class="oddeven"><td colspan="5"><span class="opacitymedium">'.$langs->trans("SelectElementAndClick", $langs->transnoentitiesnoconv("Search")).'</span></td></tr>';
 
  print "</table>";
} else {
  print_barre_liste($langs->trans('ProductsIntoElements').' '.$typeElementString.' '.$button, $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, '', $num, '', '');
 
  print '<table class="liste centpercent">'."\n";
 
  print '<tr class="oddeven"><td colspan="5"><span class="opacitymedium">'.$langs->trans("FeatureNotYetAvailable").'</span></td></tr>';
 
  print "</table>";
}
 
print "</form>";
 
// End of page
llxFooter();
$db->close();