card.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2003-2006  Rodolphe Quiedeville  <rodolphe@quiedeville.org>
 * Copyright (C) 2004-2011  Laurent Destailleur   <eldy@users.sourceforge.net>
 * Copyright (C) 2005   Simon Tosser      <simon@kornog-computing.com>
 * Copyright (C) 2005-2014  Regis Houssin     <regis.houssin@inodbox.com>
 * Copyright (C) 2016     Francis Appels        <francis.appels@yahoo.com>
 * Copyright (C) 2021   Noé Cendrier      <noe.cendrier@altairis.fr>
 * Copyright (C) 2021-2024  Frédéric France     <frederic.france@free.fr>
 * Copyright (C) 2022-2023  Charlene Benke      <charlene@patas-monkey.com>
 * Copyright (C) 2023       Christian Foellmann     <christian@foellmann.de>
 * Copyright (C) 2024-2025  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/class/html.formfile.class.php';
require_once DOL_DOCUMENT_ROOT.'/product/stock/class/entrepot.class.php';
require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/stock.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/product.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php';
require_once DOL_DOCUMENT_ROOT.'/product/class/html.formproduct.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/extrafields.class.php';
require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';
if (isModEnabled('project')) {
  require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php';
  require_once DOL_DOCUMENT_ROOT.'/core/class/html.formprojet.class.php';
}
 
// Load translation files required by the page
$langs->loadLangs(array('products', 'stocks', 'companies', 'categories'));
 
$action = GETPOST('action', 'aZ09');
$cancel = GETPOST('cancel', 'alpha');
$confirm = GETPOST('confirm');
$backtopage = GETPOST('backtopage', 'alpha');
$backtopageforcancel = GETPOST('backtopageforcancel', 'alpha');
 
$projectid = GETPOSTINT('projectid');
 
$id = GETPOSTINT('id');
$socid = GETPOSTINT('socid');
$ref = GETPOST('ref', 'alpha');
 
// Load variable for pagination
$limit = GETPOSTINT('limit') ? GETPOSTINT('limit') : $conf->liste_limit;
$sortfield = GETPOST('sortfield', 'aZ09comma');
$sortorder = GETPOST('sortorder', 'aZ09comma');
if (!$sortfield) {
  $sortfield = "p.ref";
}
if (!$sortorder) {
  $sortorder = "DESC";
}
 
// Initialize a technical object to manage hooks of page. Note that conf->hooks_modules contains an array of hook context
$hookmanager->initHooks(array('warehousecard', 'stocklist', 'globalcard'));
 
// Security check
$result=restrictedArea($user, 'stock', $id, 'entrepot&stock');
 
$object = new Entrepot($db);
$extrafields = new ExtraFields($db);
 
// fetch optionals attributes and labels
$extrafields->fetch_name_optionals_label($object->table_element);
 
// Load object
if ($id > 0 || !empty($ref)) {
  $ret = $object->fetch($id, $ref);
  if ($ret <= 0) {
    setEventMessages($object->error, $object->errors, 'errors');
    $action = '';
  }
}
 
$usercanread = $user->hasRight('stock', 'lire');
$usercancreate = $user->hasRight('stock', 'creer');
$usercandelete = $user->hasRight('stock', 'supprimer');
$permissiontoeditextra = $usercancreate;
if (GETPOST('attribute', 'aZ09') && isset($extrafields->attributes[$object->table_element]['perms'][GETPOST('attribute', 'aZ09')])) {
  // For action 'update_extras', is there a specific permission set for the attribute to update
  $permissiontoeditextra = dol_eval((string) $extrafields->attributes[$object->table_element]['perms'][GETPOST('attribute', 'aZ09')]);
}
 
 
/*
 * Actions
 */
 
$error = 0;
 
$parameters = array('context' => 'warehousecard', 'id' => $id, 'ref' => $ref);
$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');
}
if (empty($reshook)) {
  $backurlforlist = DOL_URL_ROOT.'/product/stock/list.php';
 
  if (empty($backtopage) || ($cancel && empty($id))) {
    if (empty($backtopage) || ($cancel && strpos($backtopage, '__ID__'))) {
      if (empty($id) && (($action != 'add' && $action != 'create') || $cancel)) {
        $backtopage = $backurlforlist;
      } else {
        $backtopage = DOL_URL_ROOT.'/product/stock/card.php?id='.((!empty($id) && $id > 0) ? $id : '__ID__');
      }
    }
  }
 
  if ($cancel) {
    if (!empty($backtopageforcancel)) {
      header("Location: ".$backtopageforcancel);
      exit;
    } elseif (!empty($backtopage)) {
      header("Location: ".$backtopage);
      exit;
    }
    $action = '';
  }
 
  // Ajout entrepot
  if ($action == 'add' && $user->hasRight('stock', 'creer')) {
    $object->ref          = (string) GETPOST("ref", "alpha");
    $object->fk_parent    = GETPOSTINT("fk_parent");
    $object->fk_project   = GETPOSTINT('projectid');
    $object->label        = (string) GETPOST("libelle", "alpha");
    $object->description  = (string) GETPOST("desc", "alpha");
    $object->statut       = GETPOSTINT("statut");
    $object->lieu         = (string) GETPOST("lieu", "alpha");
    $object->address      = (string) GETPOST("address", "alpha");
    $object->zip          = (string) GETPOST("zipcode", "alpha");
    $object->town         = (string) GETPOST("town", "alpha");
    $object->country_id   = GETPOSTINT("country_id");
    $object->phone        = (string) GETPOST("phone", "alpha");
    $object->fax          = (string) GETPOST("fax", "alpha");
 
    if (!empty($object->label)) {
      // Fill array 'array_options' with data from add form
      $ret = $extrafields->setOptionalsFromPost(null, $object);
      if ($ret < 0) {
        $error++;
        $action = 'create';
      }
 
      if (!$error) {
        $id = $object->create($user);
        if ($id > 0) {
          setEventMessages($langs->trans("RecordSaved"), null, 'mesgs');
 
          $categories = GETPOST('categories', 'array');
          $object->setCategories($categories);
          if (!empty($backtopage)) {
            $backtopage = str_replace("__ID__", (string) $id, $backtopage);
            header("Location: ".$backtopage);
            exit;
          } else {
            header("Location: card.php?id=".urlencode((string) ($id)));
            exit;
          }
        } else {
          $action = 'create';
          setEventMessages($object->error, $object->errors, 'errors');
        }
      }
    } else {
      setEventMessages($langs->trans("ErrorWarehouseRefRequired"), null, 'errors');
      $action = "create"; // Force retour sur page creation
    }
  }
 
  // Delete warehouse
  if ($action == 'confirm_delete' && $confirm == 'yes' && $user->hasRight('stock', 'supprimer')) {
    $object->fetch(GETPOSTINT('id'));
    $result = $object->delete($user);
    if ($result > 0) {
      setEventMessages($langs->trans("RecordDeleted"), null, 'mesgs');
      header("Location: ".DOL_URL_ROOT.'/product/stock/list.php?restore_lastsearch_values=1');
      exit;
    } else {
      setEventMessages($object->error, $object->errors, 'errors');
      $action = '';
    }
  }
 
  // Update warehouse
  if ($action == 'update' && !$cancel && $user->hasRight('stock', 'creer')) {
    if ($object->fetch($id)) {
      $object->label = GETPOST("libelle");
      $object->fk_parent   = GETPOST("fk_parent");
      $object->fk_project = GETPOSTINT('projectid');
      $object->description = GETPOST("desc", 'restricthtml');
      $object->statut      = GETPOST("statut");
      $object->lieu        = GETPOST("lieu");
      $object->address     = GETPOST("address");
      $object->zip         = GETPOST("zipcode");
      $object->town        = GETPOST("town");
      $object->country_id  = GETPOSTINT("country_id");
      $object->phone = GETPOST("phone");
      $object->fax = GETPOST("fax");
 
      // Fill array 'array_options' with data from add form
      $ret = $extrafields->setOptionalsFromPost(null, $object, '@GETPOSTISSET');
      if ($ret < 0) {
        $error++;
      }
 
      if (!$error) {
        $ret = $object->update($id, $user);
        if ($ret < 0) {
          $error++;
        }
      }
 
      if ($error) {
        $action = 'edit';
        setEventMessages($object->error, $object->errors, 'errors');
      } else {
        $categories = GETPOST('categories', 'array');
        $object->setCategories($categories);
        $action = '';
      }
    } else {
      $action = 'edit';
      setEventMessages($object->error, $object->errors, 'errors');
    }
  } elseif ($action == 'update_extras' && $permissiontoeditextra) {
    $object->oldcopy = dol_clone($object, 2);  // @phan-suppress-current-line PhanTypeMismatchProperty
 
    $attribute_name = GETPOST('attribute', 'aZ09');
 
    // Fill array 'array_options' with data from update form
    $ret = $extrafields->setOptionalsFromPost(null, $object, $attribute_name);
    if ($ret < 0) {
      $error++;
    }
 
    if (!$error) {
      $result = $object->updateExtraField($attribute_name, 'PRODUCT_MODIFY');
      if ($result < 0) {
        setEventMessages($object->error, $object->errors, 'errors');
        $error++;
      }
    }
 
    if ($error) {
      $action = 'edit_extras';
    }
  } elseif ($action == 'classin' && $usercancreate) {
    // Link to a project
    $object->setProject(GETPOSTINT('projectid'));
  }
 
  if ($cancel == $langs->trans("Cancel")) {
    $action = '';
  }
 
 
  // Actions to build doc
  $upload_dir = $conf->stock->dir_output;
  $permissiontoadd = $user->hasRight('stock', 'creer');
  include DOL_DOCUMENT_ROOT.'/core/actions_builddoc.inc.php';
}
 
 
/*
 * View
 */
 
$productstatic = new Product($db);
$form = new Form($db);
$formproduct = new FormProduct($db);
$formcompany = new FormCompany($db);
$formfile = new FormFile($db);
$formproject = null;
if (isModEnabled('project')) {
  $formproject = new FormProjets($db);
}
 
$title = $langs->trans("WarehouseCard");
if ($action == 'create') {
  $title = $langs->trans("NewWarehouse");
}
 
$help_url = 'EN:Module_Stocks_En|FR:Module_Stock|ES:M&oacute;dulo_Stocks';
llxHeader("", $title, $help_url, '', 0, 0, '', '', '', 'mod-product page-stock_card');
 
 
if ($action == 'create') {
  print load_fiche_titre($langs->trans("NewWarehouse"), '', 'stock');
 
  dol_set_focus('input[name="libelle"]');
 
  print '<form action="'.$_SERVER["PHP_SELF"].'" method="post">'."\n";
  print '<input type="hidden" name="token" value="'.newToken().'">';
  print '<input type="hidden" name="action" value="add">';
  print '<input type="hidden" name="backtopage" value="'.$backtopage.'">';
 
  print dol_get_fiche_head();
 
  print '<table class="border centpercent">';
 
  // Ref
  print '<tr><td class="titlefieldcreate fieldrequired">'.$langs->trans("Ref").'</td><td><input class="width200" name="libelle" value=""></td></tr>';
 
  print '<tr><td>'.$langs->trans("LocationSummary").'</td><td><input name="lieu" size="40" value="'.(!empty($object->lieu) ? $object->lieu : '').'"></td></tr>';
 
  // Parent entrepot
  print '<tr><td>'.$langs->trans("AddIn").'</td><td>';
  print img_picto('', 'stock').$formproduct->selectWarehouses((GETPOSTISSET('fk_parent') ? GETPOSTINT('fk_parent') : 'ifone'), 'fk_parent', '', 1);
  print '</td></tr>';
 
  // Project
  if (isModEnabled('project') && $formproject !== null) {
    $langs->load('projects');
    print '<tr><td>'.$langs->trans('Project').'</td><td colspan="2">';
    print img_picto('', 'project').$formproject->select_projects(($socid > 0 ? $socid : -1), (string) $projectid, 'projectid', 0, 0, 1, 1, 0, 0, 0, '', 1, 0, 'maxwidth500');
    print ' <a href="'.DOL_URL_ROOT.'/projet/card.php?socid='.$socid.'&action=create&status=1&backtopage='.urlencode($_SERVER["PHP_SELF"].'?action=create&socid='.$socid).'"><span class="fa fa-plus-circle valignmiddle" title="'.$langs->trans("AddProject").'"></span></a>';
    print '</td></tr>';
  }
 
  // Description
  print '<tr><td class="tdtop">'.$langs->trans("Description").'</td><td>';
  // Editeur wysiwyg
  require_once DOL_DOCUMENT_ROOT.'/core/class/doleditor.class.php';
  $doleditor = new DolEditor('desc', (!empty($object->description) ? $object->description : ''), '', 180, 'dolibarr_notes', 'In', false, true, isModEnabled('fckeditor'), ROWS_5, '90%');
  $doleditor->Create();
  print '</td></tr>';
 
  print '<tr><td>'.$langs->trans('Address').'</td><td><textarea name="address" class="quatrevingtpercent" rows="3" wrap="soft">';
  print(!empty($object->address) ? $object->address : '');
  print '</textarea></td></tr>';
 
  // Zip / Town
  print '<tr><td>'.$langs->trans('Zip').'</td><td>';
  print $formcompany->select_ziptown((!empty($object->zip) ? $object->zip : ''), 'zipcode', array('town', 'selectcountry_id', 'state_id'), 6);
  print '</td></tr>';
  print '<tr><td>'.$langs->trans('Town').'</td><td>';
  print $formcompany->select_ziptown((!empty($object->town) ? $object->town : ''), 'town', array('zipcode', 'selectcountry_id', 'state_id'));
  print '</td></tr>';
 
  // Country
  print '<tr><td>'.$langs->trans('Country').'</td><td>';
  print img_picto('', 'globe-americas', 'class="paddingright"');
  print $form->select_country((!empty($object->country_id) ? $object->country_id : $mysoc->country_code), 'country_id');
  if ($user->admin) {
    print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionarySetup"), 1);
  }
  print '</td></tr>';
 
  // Phone / Fax
  print '<tr><td class="titlefieldcreate">'.$form->editfieldkey('Phone', 'phone', '', $object, 0).'</td><td>';
  print img_picto('', 'object_phoning', 'class="paddingright"');
  print '<input name="phone" size="20" value="'.$object->phone.'"></td></tr>';
  print '<tr><td class="titlefieldcreate">'.$form->editfieldkey('Fax', 'fax', '', $object, 0).'</td>';
  print '<td>';
  print img_picto('', 'object_phoning_fax', 'class="paddingright"');
  print '<input name="fax" size="20" value="'.$object->fax.'"></td></tr>';
 
  // Warehouse usage
  if (getDolGlobalInt("MAIN_FEATURES_LEVEL")) {
    // TODO
  }
 
  // Status
  print '<tr><td>'.$langs->trans("Status").'</td><td>';
  print '<select id="warehousestatus" name="statut" class="flat minwidth100">';
  foreach ($object->labelStatus as $key => $value) {
    if ($key == 1) {
      print '<option value="'.$key.'" selected>'.$langs->trans($value).'</option>';
    } else {
      print '<option value="'.$key.'">'.$langs->trans($value).'</option>';
    }
  }
  print '</select>';
  print ajax_combobox('warehousestatus');
  print '</td></tr>';
 
  // Other attributes
  include DOL_DOCUMENT_ROOT.'/core/tpl/extrafields_add.tpl.php';
 
  if (isModEnabled('category')) {
    // Categories
    print '<tr><td>'.$langs->trans("Categories").'</td><td colspan="3">';
    print $form->selectCategories(Categorie::TYPE_WAREHOUSE, 'categories', $object);
    print "</td></tr>";
  }
  print '</table>';
 
  print dol_get_fiche_end();
 
  print $form->buttonsSaveCancel("Create");
 
  print '</form>';
} else {
  $id = GETPOSTINT("id");
  if ($id > 0 || $ref) {
    $object = new Entrepot($db);
    $result = $object->fetch($id, $ref);
    if ($result <= 0) {
      print 'No record found';
      exit;
    }
 
    // View mode
    if ($action != 'edit' && $action != 're-edit') {
      $head = stock_prepare_head($object);
 
      print dol_get_fiche_head($head, 'card', $langs->trans("Warehouse"), -1, 'stock');
 
      $formconfirm = '';
 
      // Confirm delete warehouse
      if ($action == 'delete') {
        $formquestion = array(
          array('type' => 'other', 'name' => 'info', 'label' => img_warning('').$langs->trans("WarningThisWIllAlsoDeleteStock"), 'morecss' => 'warning')
        );
        $formconfirm = $form->formconfirm($_SERVER["PHP_SELF"]."?id=".$object->id, $langs->trans("DeleteAWarehouse"), $langs->trans("ConfirmDeleteWarehouse", $object->label), "confirm_delete", $formquestion, 0, 2);
      }
 
      // Call Hook formConfirm
      $parameters = array('context' => 'warehousecard', 'formConfirm' => $formconfirm);
      $reshook = $hookmanager->executeHooks('formConfirm', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
      if (empty($reshook)) {
        $formconfirm .= $hookmanager->resPrint;
      } elseif ($reshook > 0) {
        $formconfirm = $hookmanager->resPrint;
      }
 
      // Print form confirm
      print $formconfirm;
 
      // Warehouse card
      $linkback = '<a href="'.DOL_URL_ROOT.'/product/stock/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
 
      $morehtmlref = '<div class="refidno">';
      $morehtmlref .= $langs->trans("LocationSummary").' : '.$object->lieu;
 
      // Project
      if (isModEnabled('project') && $formproject !== null) {
        $langs->load("projects");
        $morehtmlref .= '<br>'.img_picto('', 'project').' '.$langs->trans('Project').' ';
        if ($usercancreate) {
          if ($action != 'classify') {
            $morehtmlref .= '<a class="editfielda" href="'.$_SERVER['PHP_SELF'].'?action=classify&token='.newToken().'&id='.$object->id.'">'.img_edit($langs->transnoentitiesnoconv('SetProject')).'</a> : ';
          }
          if ($action == 'classify') {
            $projectid = $object->fk_project;
            $morehtmlref .= '<form method="post" action="'.$_SERVER['PHP_SELF'].'?id='.$object->id.'">';
            $morehtmlref .= '<input type="hidden" name="action" value="classin">';
            $morehtmlref .= '<input type="hidden" name="token" value="'.newToken().'">';
            $morehtmlref .= $formproject->select_projects(($socid > 0 ? $socid : -1), (string) $projectid, 'projectid', 0, 0, 1, 1, 0, 0, 0, '', 1, 0, 'maxwidth500');
            $morehtmlref .= '<input type="submit" class="button valignmiddle" value="'.$langs->trans("Modify").'">';
            $morehtmlref .= '</form>';
          } else {
            $morehtmlref .= $form->form_project($_SERVER['PHP_SELF'].'?id='.$object->id, ($socid > 0 ? $socid : -1), (string) $object->fk_project, 'none', 0, 0, 0, 1, '', 'maxwidth300');
          }
        } else {
          if (!empty($object->fk_project)) {
            $proj = new Project($db);
            $proj->fetch($object->fk_project);
            $morehtmlref .= ' : '.$proj->getNomUrl(1);
            if ($proj->title) {
              $morehtmlref .= ' - '.$proj->title;
            }
          } else {
            $morehtmlref .= '';
          }
        }
      }
      $morehtmlref .= '</div>';
 
      $shownav = 1;
      if ($user->socid && !in_array('stock', explode(',', getDolGlobalString('MAIN_MODULES_FOR_EXTERNAL')))) {
        $shownav = 0;
      }
 
      dol_banner_tab($object, 'ref', $linkback, $shownav, 'ref', 'ref', $morehtmlref);
 
      print '<div class="fichecenter">';
      print '<div class="fichehalfleft">';
      print '<div class="underbanner clearboth"></div>';
 
      print '<table class="border centpercent tableforfield">';
 
      // Parent entrepot
      $parentwarehouse = new Entrepot($db);
      if (!empty($object->fk_parent) && $parentwarehouse->fetch($object->fk_parent) > 0) {
        print '<tr><td>'.$langs->trans("ParentWarehouse").'</td><td>';
        print $parentwarehouse->getNomUrl(3);
        print '</td></tr>';
      }
 
      print '<tr>';
 
      // Description
      print '<td class="titlefield tdtop">'.$langs->trans("Description").'</td><td>'.dol_htmlentitiesbr($object->description).'</td></tr>';
 
      // Warehouse usage
      if (getDolGlobalInt("STOCK_USE_WAREHOUSE_USAGE")) {
        $labelusagestring = $object->fields['warehouse_usage']['arrayofkeyval'][empty($object->warehouse_usage) ? 1 : $object->warehouse_usage];
        $labelusage = $labelusagestring ? $langs->trans($labelusagestring) : 'Unknown';
        print '<td class="titlefield tdtop">'.$langs->trans("WarehouseUsage").'</td><td>'.dol_htmlentitiesbr($labelusage).'</td></tr>';
      }
 
      $calcproductsunique = $object->nb_different_products();
      $calcproducts = $object->nb_products();
 
      // Total nb of different products
      print '<tr><td>'.$langs->trans("NumberOfDifferentProducts").'</td><td>';
      print empty($calcproductsunique['nb']) ? '0' : $calcproductsunique['nb'];
      print "</td></tr>";
 
      // Nb of products
      print '<tr><td>'.$langs->trans("NumberOfProducts").'</td><td>';
      $valtoshow = price2num($calcproducts['nb'], 'MS');
      print empty($valtoshow) ? '0' : $valtoshow;
      print "</td></tr>";
 
      print '</table>';
 
      print '</div>';
      print '<div class="fichehalfright">';
      print '<div class="underbanner clearboth"></div>';
 
      print '<table class="border centpercent tableforfield">';
 
      // Value
      print '<tr><td class="titlefield">'.$langs->trans("EstimatedStockValueShort").'</td><td>';
      print price((empty($calcproducts['value']) ? '0' : price2num($calcproducts['value'], 'MT')), 0, $langs, 0, -1, -1, $conf->currency);
      print "</td></tr>";
 
      // Last movement
      if ($user->hasRight('stock', 'mouvement', 'lire')) {
        $sql = "SELECT max(m.datem) as datem";
        $sql .= " FROM ".MAIN_DB_PREFIX."stock_mouvement as m";
        $sql .= " WHERE m.fk_entrepot = ".((int) $object->id);
        $lastmovementdate = 0;
        $resqlbis = $db->query($sql);
        if ($resqlbis) {
          $obj = $db->fetch_object($resqlbis);
          $lastmovementdate = $db->jdate($obj->datem);
        } else {
          dol_print_error($db);
        }
        print '<tr><td>'.$langs->trans("LastMovement").'</td><td>';
        if ($lastmovementdate) {
          print dol_print_date($lastmovementdate, 'dayhour');
          print ' &nbsp; &nbsp; ';
          print img_picto($langs->trans('LastMovement'), 'movement', 'class="pictofixedwidth"');
          print '<a href="'.DOL_URL_ROOT.'/product/stock/movement_list.php?id='.$object->id.'">'.$langs->trans("FullList").'</a>';
        } else {
          print $langs->trans("None");
        }
        print "</td></tr>";
      }
 
      // Other attributes
      include DOL_DOCUMENT_ROOT.'/core/tpl/extrafields_view.tpl.php';
 
      // Categories
      if (isModEnabled('category')) {
        print '<tr><td valign="middle">'.$langs->trans("Categories").'</td><td colspan="3">';
        print $form->showCategories($object->id, Categorie::TYPE_WAREHOUSE, 1);
        print "</td></tr>";
      }
 
      print "</table>";
 
      print '</div>';
      print '</div>';
 
      print '<div class="clearboth"></div>';
 
      print dol_get_fiche_end();
 
 
      /*
       * Action bar
       */
      print "<div class=\"tabsAction\">\n";
 
      $parameters = array('context' => 'warehousecard');
      $reshook = $hookmanager->executeHooks('addMoreActionsButtons', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
      if (empty($reshook)) {
        if (empty($action) || $action == 'classin') {
          if ($user->hasRight('stock', 'creer')) {
            print '<a class="butAction" href="card.php?action=edit&token='.newToken().'&id='.$object->id.'">'.$langs->trans("Modify").'</a>';
          } else {
            print '<a class="butActionRefused classfortooltip" href="#">'.$langs->trans("Modify").'</a>';
          }
 
          if ($user->hasRight('stock', 'supprimer')) {
            print '<a class="butActionDelete" href="card.php?action=delete&token='.newToken().'&id='.$object->id.'">'.$langs->trans("Delete").'</a>';
          } else {
            print '<a class="butActionRefused classfortooltip" href="#">'.$langs->trans("Delete").'</a>';
          }
        }
      }
 
      print "</div>";
 
      // Show list of products into warehouse
 
      $totalarray = array();
      $totalarray['val'] = array();
      $totalarray['pos'] = array();
      $totalarray['type'] = array();
      $totalarray['nbfield'] = 0;
 
      // TODO Create $arrayfields with all fields to show
 
      print load_fiche_titre($langs->trans("Stock"), '', 'stock');
 
      print '<div class="div-table-responsive">';
      print '<table class="noborder centpercent liste">';
      print '<tr class="liste_titre">';
      $parameters = array('context' => 'warehousecard', 'totalarray' => &$totalarray);
      $reshook = $hookmanager->executeHooks('printFieldPreListTitle', $parameters); // Note that $action and $object may have been modified by hook
      print $hookmanager->resPrint;
 
      print_liste_field_titre("Products", "", "p.ref", "&amp;id=".$id, "", "", $sortfield, $sortorder);
      print_liste_field_titre("Label", "", "p.label", "&amp;id=".$id, "", "", $sortfield, $sortorder);
      print_liste_field_titre("NumberOfUnit", "", "ps.reel", "&amp;id=".$id, "", '', $sortfield, $sortorder, 'right ');
      $totalarray['nbfield'] += 3;
      $totalarray['pos'][$totalarray['nbfield']] = 'totalunit';
      $totalarray['type'][$totalarray['nbfield']] = 'stock';
 
      if (getDolGlobalString('PRODUCT_USE_UNITS')) {
        print_liste_field_titre("Unit", "", "p.fk_unit", "&amp;id=".$id, "", 'align="left"', $sortfield, $sortorder);
        $totalarray['nbfield']++;
        $totalarray['pos'][$totalarray['nbfield']] = 'units';
        $totalarray['type'][$totalarray['nbfield']] = 'string';
      }
 
      print_liste_field_titre($form->textwithpicto($langs->trans("AverageUnitPricePMPShort"), $langs->trans("AverageUnitPricePMPDesc")), "", "p.pmp", "&amp;id=".$id, "", '', $sortfield, $sortorder, 'right ');
      $totalarray['nbfield']++;
 
      print_liste_field_titre("EstimatedStockValueShort", "", "svalue", "&amp;id=".$id, "", '', $sortfield, $sortorder, 'right ');
      $totalarray['nbfield']++;
      $totalarray['pos'][$totalarray['nbfield']] = 'totalvalue';
      $totalarray['type'][$totalarray['nbfield']] = '';
 
 
      if (!getDolGlobalString('PRODUIT_MULTIPRICES')) {
        print_liste_field_titre("SellPriceMin", "", "p.price", "&amp;id=".$id, "", '', $sortfield, $sortorder, 'right ');
        $totalarray['nbfield']++;
      }
      if (!getDolGlobalString('PRODUIT_MULTIPRICES')) {
        print_liste_field_titre("EstimatedStockValueSellShort", "", "", "&amp;id=".$id, "", '', $sortfield, $sortorder, 'right ');
        $totalarray['nbfield']++;
        $totalarray['pos'][$totalarray['nbfield']] = 'totalvaluesell';
        $totalarray['type'][$totalarray['nbfield']] = '';
      }
      if ($user->hasRight('stock', 'mouvement', 'creer')) {
        print_liste_field_titre('');
        $totalarray['nbfield']++;
      }
      if ($user->hasRight('stock', 'creer')) {
        print_liste_field_titre('');
        $totalarray['nbfield']++;
      }
      // Hook fields
      $parameters = array('context' => 'warehousecard', 'sortfield' => $sortfield, 'sortorder' => $sortorder, 'totalarray' => &$totalarray);
      $reshook = $hookmanager->executeHooks('printFieldListTitle', $parameters); // Note that $action and $object may have been modified by hook
      print $hookmanager->resPrint;
      print "</tr>\n";
 
      $totalunit = 0;
      $totalvalue = $totalvaluesell = 0;
 
      //For MultiCompany PMP per entity
      $separatedPMP = false;
      if (getDolGlobalString('MULTICOMPANY_PRODUCT_SHARING_ENABLED') && getDolGlobalString('MULTICOMPANY_PMP_PER_ENTITY_ENABLED')) {
        $separatedPMP = true;
      }
 
      $sql = "SELECT p.rowid as rowid, p.ref, p.label as produit, p.tobatch, p.fk_product_type as type, p.price, p.price_ttc, p.entity,";
      $sql .= "p.tosell, p.tobuy,";
      $sql .= "p.accountancy_code_sell,";
      $sql .= "p.accountancy_code_sell_intra,";
      $sql .= "p.accountancy_code_sell_export,";
      $sql .= "p.accountancy_code_buy,";
      $sql .= "p.accountancy_code_buy_intra,";
      $sql .= "p.accountancy_code_buy_export,";
      $sql .= 'p.barcode,';
      if ($separatedPMP) {
        $sql .= " pa.pmp as ppmp,";
      } else {
        $sql .= " p.pmp as ppmp,";
      }
      $sql .= " ps.reel as value";
      if (getDolGlobalString('PRODUCT_USE_UNITS')) {
        $sql .= ",fk_unit";
      }
      $sql .= ", (ps.reel * p.pmp) as svalue";
      // Add fields from hooks
      $parameters = array('context' => 'warehousecard');
      $reshook = $hookmanager->executeHooks('printFieldListSelect', $parameters); // Note that $action and $object may have been modified by hook
      if ($reshook > 0) {     //Note that $sql is replaced if reshook > 0
        $sql = "";
      }
      $sql .= $hookmanager->resPrint;
      $sql .= " FROM ".MAIN_DB_PREFIX."product_stock as ps, ".MAIN_DB_PREFIX."product as p";
 
      if ($separatedPMP) {
        $sql .= ", ".MAIN_DB_PREFIX."product_perentity as pa";
      }
      $parameters = array('context' => 'warehousecard');
      $reshook = $hookmanager->executeHooks('printFieldListFrom', $parameters); // Note that $action and $object may have been modified by hook
      if ($reshook > 0) {     //Note that $sql is replaced if reshook > 0
        $sql = "";
      }
      $sql .= $hookmanager->resPrint;
 
      $sql .= " WHERE ps.fk_product = p.rowid";
      $sql .= " AND ps.reel <> 0"; // We do not show if stock is 0 (no product in this warehouse)
      $sql .= " AND ps.fk_entrepot = ".((int) $object->id);
 
      if ($separatedPMP) {
        $sql .= " AND pa.fk_product = p.rowid AND pa.entity = ".(int) $conf->entity;
      }
      $parameters = array('context' => 'warehousecard');
      $reshook = $hookmanager->executeHooks('printFieldListWhere', $parameters); // Note that $action and $object may have been modified by hook
      if ($reshook > 0) {     //Note that $sql is replaced if reshook > 0
        $sql = "";
      }
      $sql .= $hookmanager->resPrint;
 
      $sql .= $db->order($sortfield, $sortorder);
 
      dol_syslog('List products', LOG_DEBUG);
      $resql = $db->query($sql);
      if ($resql) {
        $num = $db->num_rows($resql);
        $i = 0;
        $units = 0;
        $sameunits = true;
 
        while ($i < $num) {
          $objp = $db->fetch_object($resql);
 
          // Multilangs
          if (getDolGlobalInt('MAIN_MULTILANGS')) { // si l'option est active
            $sql = "SELECT label";
            $sql .= " FROM ".MAIN_DB_PREFIX."product_lang";
            $sql .= " WHERE fk_product = ".((int) $objp->rowid);
            $sql .= " AND lang = '".$db->escape($langs->getDefaultLang())."'";
            $sql .= " LIMIT 1";
 
            $result = $db->query($sql);
            if ($result) {
              $objtp = $db->fetch_object($result);
              if (isset($objtp->label) && $objtp->label != '') {
                $objp->produit = $objtp->label;
              }
            }
          }
 
          //print '<td>'.dol_print_date($objp->datem).'</td>';
          print '<tr class="oddeven">';
 
          $productstatic->id = $objp->rowid;
          $productstatic->ref = $objp->ref;
          $productstatic->label = $objp->produit;
          $productstatic->type = $objp->type;
          $productstatic->entity = $objp->entity;
          $productstatic->status_batch = $objp->tobatch;
          if (getDolGlobalString('PRODUCT_USE_UNITS')) {
            $productstatic->fk_unit = $objp->fk_unit;
          }
          $productstatic->status = $objp->tosell;
          $productstatic->status_buy = $objp->tobuy;
          $productstatic->barcode = $objp->barcode;
          $productstatic->accountancy_code_sell = $objp->accountancy_code_sell;
          $productstatic->accountancy_code_sell_intra = $objp->accountancy_code_sell_intra;
          $productstatic->accountancy_code_sell_export = $objp->accountancy_code_sell_export;
          $productstatic->accountancy_code_buy = $objp->accountancy_code_buy;
          $productstatic->accountancy_code_buy_intra = $objp->accountancy_code_buy_intra;
          $productstatic->accountancy_code_buy_export = $objp->accountancy_code_buy_export;
 
          // Ref
          print "<td>";
          print $productstatic->getNomUrl(1, 'stock', 16);
          print '</td>';
 
          // Label
          print '<td class="tdoverflowmax200" title="'.dol_escape_htmltag($objp->produit).'">'.dol_escape_htmltag($objp->produit).'</td>';
 
          // Value
          print '<td class="right">';
          $valtoshow = price(price2num($objp->value, 'MS'), 0, '', 0, 0); // TODO replace with a qty() function
          print empty($valtoshow) ? '0' : $valtoshow;
          print '</td>';
          $totalunit += $objp->value;
 
          if (getDolGlobalString('PRODUCT_USE_UNITS')) {
            // Units
            print '<td align="left">';
            if (is_null($productstatic->fk_unit)) {
              $productstatic->fk_unit = 1;
            }
            print $productstatic->getLabelOfUnit('long', $langs);
            print '</td>';
          }
 
          // Price buy PMP
          print '<td class="right nowraponall">'.price(price2num($objp->ppmp, 'MU')).'</td>';
 
          // Total PMP
          print '<td class="right amount nowraponall">'.price(price2num($objp->ppmp * $objp->value, 'MT')).'</td>';
          $totalvalue += price2num($objp->ppmp * $objp->value, 'MT');
 
          $pricemin = 0;
          // Price sell min
          if (!getDolGlobalString('PRODUIT_MULTIPRICES')) {
            $pricemin = $objp->price;
            print '<td class="right">';
            print price(price2num($pricemin, 'MU'), 1);
            print '</td>';
            // Total sell min
            print '<td class="right">';
            print price(price2num($pricemin * $objp->value, 'MT'), 1);
            print '</td>';
          }
          $totalvaluesell += price2num($pricemin * $objp->value, 'MT');
 
          // Link to transfer
          if ($user->hasRight('stock', 'mouvement', 'creer')) {
            print '<td class="center"><a href="'.DOL_URL_ROOT.'/product/stock/product.php?dwid='.$object->id.'&id='.$objp->rowid.'&action=transfert&token='.newToken().'&backtopage='.urlencode($_SERVER["PHP_SELF"].'?id='.$id).'">';
            print img_picto($langs->trans("TransferStock"), 'add', 'class="hideonsmartphone pictofixedwidth" style="color: #a69944"');
            print $langs->trans("TransferStock");
            print "</a></td>";
          }
 
          // Link to stock
          if ($user->hasRight('stock', 'creer')) {
            print '<td class="center"><a href="'.DOL_URL_ROOT.'/product/stock/product.php?dwid='.$object->id.'&id='.$objp->rowid.'&action=correction&token='.newToken().'&backtopage='.urlencode($_SERVER["PHP_SELF"].'?id='.$id).'">';
            print img_picto($langs->trans("CorrectStock"), 'add', 'class="hideonsmartphone pictofixedwidth" style="color: #a69944"');
            print $langs->trans("CorrectStock");
            print "</a></td>";
          }
 
          $parameters = array('context' => 'warehousecard', 'obj' => $objp, 'totalarray' => &$totalarray);
          $reshook = $hookmanager->executeHooks('printFieldListValue', $parameters); // Note that $action and $object may have been modified by hook
          print $hookmanager->resPrint;
 
          print "</tr>";
 
          // Define $unit and $sameunits
          if (getDolGlobalString('PRODUCT_USE_UNITS')) {
            if ($i == 0) {
              $units = $productstatic->fk_unit;
            } elseif ($productstatic->fk_unit != $units) {
              $sameunits = false;
            }
          }
 
          $i++;
        }
        $db->free($resql);
 
        $totalarray['val']['totalunit'] = $totalunit;
        $totalarray['val']['totalvalue'] = price2num($totalvalue, 'MT');
        $totalarray['val']['totalvaluesell'] = price2num($totalvaluesell, 'MT');
        $totalarray['val']['units'] = $productstatic->getLabelOfUnit('long', $langs);
 
        $parameters = array('context' => 'warehousecard', 'totalarray' => &$totalarray);
        // Note that $action and $object may have been modified by hook
        $reshook = $hookmanager->executeHooks('printFieldListTotal', $parameters, $object);
        if ($reshook < 0) {
          setEventMessages($hookmanager->error, $hookmanager->errors);
        }
 
        // Show total line
        include DOL_DOCUMENT_ROOT.'/core/tpl/list_print_total.tpl.php';
      } else {
        dol_print_error($db);
      }
      print "</table>";
      print '</div>';
    }
 
 
    // Edit mode
    if ($action == 'edit' || $action == 're-edit') {
      $langs->trans("WarehouseEdit");
 
      print '<form action="card.php" method="POST">';
      print '<input type="hidden" name="token" value="'.newToken().'">';
      print '<input type="hidden" name="action" value="update">';
      print '<input type="hidden" name="id" value="'.$object->id.'">';
 
      $head = stock_prepare_head($object);
 
      print dol_get_fiche_head($head, 'card', $langs->trans("Warehouse"), 0, 'stock');
 
      print '<table class="border centpercent">';
 
      // Ref
      print '<tr><td class="titlefieldcreate fieldrequired">'.$langs->trans("Ref").'</td><td><input name="libelle" size="20" value="'.$object->label.'"></td></tr>';
 
      print '<tr><td>'.$langs->trans("LocationSummary").'</td><td><input name="lieu" class="minwidth300" value="'.$object->lieu.'"></td></tr>';
 
      // Parent entrepot
      print '<tr><td>'.$langs->trans("AddIn").'</td><td>';
      print $formproduct->selectWarehouses($object->fk_parent, 'fk_parent', '', 1);
      print '</td></tr>';
 
      // Project
      if (isModEnabled('project') && $formproject !== null) {
        $projectid = $object->fk_project;
        $langs->load('projects');
        print '<tr><td>'.$langs->trans('Project').'</td><td colspan="2">';
        print img_picto('', 'project').$formproject->select_projects(($socid > 0 ? $socid : -1), (string) $projectid, 'projectid', 0, 0, 1, 1, 0, 0, 0, '', 1, 0, 'maxwidth500');
        print ' <a href="'.DOL_URL_ROOT.'/projet/card.php?socid='.($socid > 0 ? $socid : "").'&action=create&status=1&backtopage='.urlencode($_SERVER["PHP_SELF"].'?action=create'.($socid > 0 ? '&socid='.$socid : "")).'"><span class="fa fa-plus-circle valignmiddle" title="'.$langs->trans("AddProject").'"></span></a>';
        print '</td></tr>';
      }
 
      // Description
      print '<tr><td class="tdtop">'.$langs->trans("Description").'</td><td>';
      // Editeur wysiwyg
      require_once DOL_DOCUMENT_ROOT.'/core/class/doleditor.class.php';
      $doleditor = new DolEditor('desc', $object->description, '', 180, 'dolibarr_notes', 'In', false, true, isModEnabled('fckeditor'), ROWS_5, '90%');
      $doleditor->Create();
      print '</td></tr>';
 
      print '<tr><td>'.$langs->trans('Address').'</td><td><textarea name="address" class="quatrevingtpercent" rows="3" wrap="soft">';
      print $object->address;
      print '</textarea></td></tr>';
 
      // Zip / Town
      print '<tr><td>'.$langs->trans('Zip').'</td><td>';
      print $formcompany->select_ziptown($object->zip, 'zipcode', array('town', 'selectcountry_id', 'state_id'), 6);
      print '</td></tr>';
      print '<tr><td>'.$langs->trans('Town').'</td><td>';
      print $formcompany->select_ziptown($object->town, 'town', array('zipcode', 'selectcountry_id', 'state_id'));
      print '</td></tr>';
 
      // Country
      print '<tr><td>'.$langs->trans('Country').'</td><td>';
      print img_picto('', 'globe-americas', 'class="paddingright"');
      print $form->select_country($object->country_id ? $object->country_id : $mysoc->country_code, 'country_id');
      if ($user->admin) {
        print info_admin($langs->trans("YouCanChangeValuesForThisListFromDictionarySetup"), 1);
      }
      print '</td></tr>';
 
      // Phone / Fax
      print '<tr><td class="titlefieldcreate">'.$form->editfieldkey('Phone', 'phone', '', $object, 0).'</td><td>';
      print img_picto('', 'object_phoning', 'class="paddingright"');
      print '<input name="phone" size="20" value="'.$object->phone.'"></td></tr>';
      print '<tr><td class="titlefieldcreate">'.$form->editfieldkey('Fax', 'fax', '', $object, 0).'</td><td>';
      print img_picto('', 'object_phoning_fax', 'class="paddingright"');
      print '<input name="fax" size="20" value="'.$object->fax.'"></td></tr>';
 
      // Status
      print '<tr><td>'.$langs->trans("Status").'</td><td>';
      print '<select id="warehousestatus" name="statut" class="flat">';
      foreach ($object->labelStatus as $key => $value) {
        if ($key == $object->statut) {
          print '<option value="'.$key.'" selected>'.$langs->trans($value).'</option>';
        } else {
          print '<option value="'.$key.'">'.$langs->trans($value).'</option>';
        }
      }
      print '</select>';
      print ajax_combobox('warehousestatus');
 
      print '</td></tr>';
 
      // Other attributes
      $parameters = array('context' => 'warehousecard', 'colspan' => ' colspan="3"', 'cols' => '3');
      $reshook = $hookmanager->executeHooks('formObjectOptions', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
      print $hookmanager->resPrint;
      if (empty($reshook)) {
        print $object->showOptionals($extrafields, 'edit', $parameters);
      }
 
      // Tags-Categories
      if (isModEnabled('category')) {
        print '<tr><td class="tdtop">'.$langs->trans("Categories").'</td><td colspan="3">';
        print $form->selectCategories(Categorie::TYPE_WAREHOUSE, 'categories', $object);
        print "</td></tr>";
      }
 
      print '</table>';
 
      print dol_get_fiche_end();
 
      print $form->buttonsSaveCancel();
 
      print '</form>';
    }
  }
}
 
/*
 * Documents generated
 */
 
$modulepart = 'stock';
 
if ($action != 'create' && $action != 'edit' && $action != 'delete') {
  print '<br>';
  print '<div class="fichecenter"><div class="fichehalfleft">';
  print '<a name="builddoc"></a>'; // ancre
 
  // Documents
  $objectref = dol_sanitizeFileName($object->ref);
  $relativepath = $object->ref.'/'.$objectref.'.pdf';
  $filedir = $conf->stock->dir_output.'/'.$objectref;
  $urlsource = $_SERVER["PHP_SELF"]."?id=".$object->id;
  $genallowed = $usercanread;
  $delallowed = $usercancreate;
  $modulepart = 'stock';
 
  print $formfile->showdocuments($modulepart, $objectref, $filedir, $urlsource, $genallowed, $delallowed, $object->model_pdf, 0, 0, 0, 28, 0, '', '', '', '', '', $object);
  $somethingshown = $formfile->numoffiles;
 
  print '</div><div class="fichehalfright">';
 
  $MAXEVENT = 10;
 
  $morehtmlcenter = '';
  //$morehtmlcenter = dolGetButtonTitle($langs->trans('SeeAll'), '', 'fa fa-bars imgforviewmode', DOL_URL_ROOT.'/product/stock/agenda.php?id='.$object->id);
 
  // List of actions on element
  include_once DOL_DOCUMENT_ROOT.'/core/class/html.formactions.class.php';
  $formactions = new FormActions($db);
  $somethingshown = $formactions->showactions($object, 'stock', 0, 1, '', $MAXEVENT, '', $morehtmlcenter); // Show all action for product
 
  print '</div></div>';
}
 
// End of page
llxFooter();
$db->close();