productlot_card.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2007-2018 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2018      All-3kcis           <contact@all-3kcis.fr>
 *
 * 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/>.
 */

require '../../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formfile.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formcompany.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/product.lib.php';
require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/extrafields.class.php';
require_once DOL_DOCUMENT_ROOT.'/product/stock/class/productlot.class.php';

// Load translation files required by the page
$langs->loadLangs(array('stocks', 'other', 'productbatch'));

// Get parameters
$id = GETPOST('id', 'int');
$action   = GETPOST('action', 'alpha');
$backtopage = GETPOST('backtopage', 'alpha');
$batch    = GETPOST('batch', 'alpha');
$productid  = GETPOST('productid', 'int');
$ref        = GETPOST('ref', 'alpha'); // ref is productid_batch

$search_entity = GETPOST('search_entity', 'int');
$search_fk_product = GETPOST('search_fk_product', 'int');
$search_batch = GETPOST('search_batch', 'alpha');
$search_fk_user_creat = GETPOST('search_fk_user_creat', 'int');
$search_fk_user_modif = GETPOST('search_fk_user_modif', 'int');
$search_import_key = GETPOST('search_import_key', 'int');

if (empty($action) && empty($id) && empty($ref)) $action = 'list';


// Protection if external user
if ($user->socid > 0)
{
  //accessforbidden();
}
//$result = restrictedArea($user, 'mymodule', $id);


$object = new ProductLot($db);
$extrafields = new ExtraFields($db);
$formfile = new FormFile($db);

// fetch optionals attributes and labels
$extrafields->fetch_name_optionals_label($object->table_element);

// Load object
//include DOL_DOCUMENT_ROOT.'/core/actions_fetchobject.inc.php';  // Must be include, not include_once. Include fetch and fetch_thirdparty but not fetch_optionals
if ($id || $ref)
{
  if ($ref)
  {
    $tmp = explode('_', $ref);
    $productid = $tmp[0];
    $batch = $tmp[1];
  }
  $object->fetch($id, $productid, $batch);
  $object->ref = $object->batch; // For document management ( it use $object->ref)
}

// Initialize technical object to manage hooks of modules. Note that conf->hooks_modules contains array array
$hookmanager->initHooks(array('productlotcard', 'globalcard'));


$permissionnote = $user->rights->stock->creer; // Used by the include of actions_setnotes.inc.php
$permissiondellink = $user->rights->stock->creer; // Used by the include of actions_dellink.inc.php
$permissiontoadd = $user->rights->stock->creer; // Used by the include of actions_addupdatedelete.inc.php and actions_lineupdown.inc.php

$usercanread = $user->rights->produit->lire;
$usercancreate = $user->rights->produit->creer;
$usercandelete = $user->rights->produit->supprimer;

/*
 * Actions
 */

$parameters = array();
$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))
{
  if ($action == 'seteatby' && $user->rights->stock->creer) {
    $newvalue = dol_mktime(12, 0, 0, GETPOST('eatbymonth', 'int'), GETPOST('eatbyday', 'int'), GETPOST('eatbyyear', 'int'));
    $result = $object->setValueFrom('eatby', $newvalue, '', null, 'date', '', $user, 'PRODUCTLOT_MODIFY');
    if ($result < 0) {
      setEventMessages($object->error, null, 'errors');
      $action == 'editeatby';
    } else {
      $action = 'view';
    }
  }

  if ($action == 'setsellby' && $user->rights->stock->creer) {
    $newvalue = dol_mktime(12, 0, 0, GETPOST('sellbymonth', 'int'), GETPOST('sellbyday', 'int'), GETPOST('sellbyyear', 'int'));
    $result = $object->setValueFrom('sellby', $newvalue, '', null, 'date', '', $user, 'PRODUCTLOT_MODIFY');
    if ($result < 0) {
      setEventMessages($object->error, null, 'errors');
      $action == 'editsellby';
    } else {
      $action = 'view';
    }
  }

  if ($action == 'update_extras')
  {
    $object->oldcopy = dol_clone($object);

    // Fill array 'array_options' with data from update form
    $ret = $extrafields->setOptionalsFromPost(null, $object, GETPOST('attribute', 'restricthtml'));
    if ($ret < 0) $error++;

    if (!$error)
    {
      // Actions on extra fields
      $result = $object->insertExtraFields('PRODUCT_LOT_MODIFY');
      if ($result < 0)
      {
        setEventMessages($object->error, $object->errors, 'errors');
        $error++;
      }
    }

    if ($error) {
      $action = 'edit_extras';
    }
  }

  // Action to add record
  if ($action == 'add')
  {
    if (GETPOST('cancel', 'alpha'))
    {
      $urltogo = $backtopage ? $backtopage : dol_buildpath('/stock/list.php', 1);
      header("Location: ".$urltogo);
      exit;
    }

    $error = 0;

    /* object_prop_getpost_prop */

    $object->entity = GETPOST('entity', 'int');
    $object->fk_product = GETPOST('fk_product', 'int');
    $object->batch = GETPOST('batch', 'alpha');
    $object->fk_user_creat = GETPOST('fk_user_creat', 'int');
    $object->fk_user_modif = GETPOST('fk_user_modif', 'int');
    $object->import_key = GETPOST('import_key', 'int');

    if (empty($object->ref))
    {
      $error++;
      setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Ref")), null, 'errors');
    }

    if (!$error)
    {
      $result = $object->create($user);
      if ($result > 0)
      {
        // Creation OK
        $urltogo = $backtopage ? $backtopage : dol_buildpath('/stock/list.php', 1);
        header("Location: ".$urltogo);
        exit;
      }
      {
        // Creation KO
        if (!empty($object->errors)) setEventMessages(null, $object->errors, 'errors');
      else setEventMessages($object->error, null, 'errors');
        $action = 'create';
      }
    } else {
      $action = 'create';
    }
  }

  // Cancel
  if ($action == 'update' && GETPOST('cancel', 'alpha')) $action = 'view';

  // Action to update record
  if ($action == 'update' && !GETPOST('cancel', 'alpha'))
  {
    $error = 0;

    $object->entity = GETPOST('entity', 'int');
    $object->fk_product = GETPOST('fk_product', 'int');
    $object->batch = GETPOST('batch', 'alpha');
    $object->fk_user_creat = GETPOST('fk_user_creat', 'int');
    $object->fk_user_modif = GETPOST('fk_user_modif', 'int');
    $object->import_key = GETPOST('import_key', 'int');

    if (empty($object->ref))
    {
      $error++;
      setEventMessages($langs->transnoentitiesnoconv("ErrorFieldRequired", $langs->transnoentitiesnoconv("Ref")), null, 'errors');
    }

    if (!$error)
    {
      $result = $object->update($user);
      if ($result > 0)
      {
        $action = 'view';
      } else {
        // Creation KO
        if (!empty($object->errors)) setEventMessages(null, $object->errors, 'errors');
        else setEventMessages($object->error, null, 'errors');
        $action = 'edit';
      }
    } else {
      $action = 'edit';
    }
  }

  // Action to delete
  if ($action == 'confirm_delete')
  {
    $result = $object->delete($user);
    if ($result > 0)
    {
      // Delete OK
      setEventMessages("RecordDeleted", null, 'mesgs');
      header("Location: ".dol_buildpath('/stock/list.php', 1));
      exit;
    } else {
      if (!empty($object->errors)) setEventMessages(null, $object->errors, 'errors');
      else setEventMessages($object->error, null, 'errors');
    }
  }

  // Actions to build doc
  $upload_dir = $conf->productbatch->multidir_output[$conf->entity];
  $permissiontoadd = $usercancreate;
  include DOL_DOCUMENT_ROOT.'/core/actions_builddoc.inc.php';
}




/*
 * View
 */

llxHeader('', 'ProductLot', '');

$form = new Form($db);


// Part to create
if ($action == 'create')
{
  print load_fiche_titre($langs->trans("Batch"));

  print '<form method="POST" action="'.$_SERVER["PHP_SELF"].'">';
  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">'."\n";
  // print '<tr><td class="fieldrequired">'.$langs->trans("Label").'</td><td><input class="flat" type="text" size="36" name="label" value="'.$label.'"></td></tr>';
  //
  print '<tr><td class="fieldrequired">'.$langs->trans("Fieldfk_product").'</td><td><input class="flat" type="text" name="fk_product" value="'.GETPOST('fk_product').'"></td></tr>';
  print '<tr><td class="fieldrequired">'.$langs->trans("Fieldbatch").'</td><td><input class="flat" type="text" name="batch" value="'.GETPOST('batch').'"></td></tr>';
  print '<tr><td class="fieldrequired">'.$langs->trans("Fieldfk_user_creat").'</td><td><input class="flat" type="text" name="fk_user_creat" value="'.GETPOST('fk_user_creat').'"></td></tr>';
  print '<tr><td class="fieldrequired">'.$langs->trans("Fieldfk_user_modif").'</td><td><input class="flat" type="text" name="fk_user_modif" value="'.GETPOST('fk_user_modif').'"></td></tr>';
  print '<tr><td class="fieldrequired">'.$langs->trans("Fieldimport_key").'</td><td><input class="flat" type="text" name="import_key" value="'.GETPOST('import_key').'"></td></tr>';

  print '</table>'."\n";

  print dol_get_fiche_end();

  print '<div class="center"><input type="submit" class="button" name="add" value="'.$langs->trans("Create").'"> &nbsp; <input type="submit" class="button button-cancel" name="cancel" value="'.$langs->trans("Cancel").'"></div>';

  print '</form>';
}


// Part to show record
if ($object->id > 0 && (empty($action) || ($action != 'edit' && $action != 'create')))
{
  $res = $object->fetch_optionals();

  //print load_fiche_titre($langs->trans("Batch"));

  $head = productlot_prepare_head($object);
  print dol_get_fiche_head($head, 'card', $langs->trans("Batch"), -1, 'barcode');


  if ($action == 'delete') {
    $formconfirm = $form->formconfirm($_SERVER["PHP_SELF"].'?id='.$object->id, $langs->trans('DeleteBatch'), $langs->trans('ConfirmDeleteBatch'), 'confirm_delete', '', 0, 1);
    print $formconfirm;
  }


  $linkback = '<a href="'.DOL_URL_ROOT.'/product/stock/productlot_list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';

  $shownav = 1;
  if ($user->socid && !in_array('batch', explode(',', $conf->global->MAIN_MODULES_FOR_EXTERNAL))) $shownav = 0;

  dol_banner_tab($object, 'id', $linkback, $shownav, 'rowid', 'batch');

  print '<div class="fichecenter">';
  print '<div class="underbanner clearboth"></div>';

  print '<table class="border centpercent">'."\n";

  // Product
  print '<tr><td class="titlefield">'.$langs->trans("Product").'</td><td>';
  $producttmp = new Product($db);
  $producttmp->fetch($object->fk_product);
  print $producttmp->getNomUrl(1, 'stock')." - ".$producttmp->label;
  print '</td></tr>';

  // Eat by
  if (empty($conf->global->PRODUCT_DISABLE_EATBY)) {
    print '<tr><td>';
    print $form->editfieldkey($langs->trans('EatByDate'), 'eatby', $object->eatby, $object, $user->rights->stock->creer, 'datepicker');
    print '</td><td>';
    print $form->editfieldval($langs->trans('EatByDate'), 'eatby', $object->eatby, $object, $user->rights->stock->creer, 'datepicker');
    print '</td>';
    print '</tr>';
  }

  // Sell by
  if (empty($conf->global->PRODUCT_DISABLE_SELLBY)) {
    print '<tr><td>';
    print $form->editfieldkey($langs->trans('SellByDate'), 'sellby', $object->sellby, $object, $user->rights->stock->creer, 'datepicker');
    print '</td><td>';
    print $form->editfieldval($langs->trans('SellByDate'), 'sellby', $object->sellby, $object, $user->rights->stock->creer, 'datepicker');
    print '</td>';
    print '</tr>';
  }
  // Other attributes
  include DOL_DOCUMENT_ROOT.'/core/tpl/extrafields_view.tpl.php';

  print '</table>';

  print '</div>';

  print dol_get_fiche_end();


  // Buttons
  print '<div class="tabsAction">'."\n";
  $parameters = array();
  $reshook = $hookmanager->executeHooks('addMoreActionsButtons', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
  if ($reshook < 0) setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');

  if (empty($reshook))
  {
    /*TODO      if ($user->rights->stock->lire)
    {
      print '<div class="inline-block divButAction"><a class="butAction" href="'.$_SERVER["PHP_SELF"].'?id='.$object->id.'&amp;action=edit">'.$langs->trans("Modify").'</a></div>'."\n";
    }

    if ($user->rights->stock->supprimer)
    {
      print '<div class="inline-block divButAction"><a class="butActionDelete" href="'.$_SERVER["PHP_SELF"].'?id='.$object->id.'&amp;action=delete&amp;token='.newToken().'">'.$langs->trans('Delete').'</a></div>'."\n";
    }
    */
  }
  print '</div>'."\n";


  print '<a href="'.DOL_URL_ROOT.'/product/reassortlot.php?sref='.urlencode($producttmp->ref).'&search_batch='.urlencode($object->batch).'">'.$langs->trans("ShowCurrentStockOfLot").'</a><br>';
  print '<br>';
  print '<a href="'.DOL_URL_ROOT.'/product/stock/movement_list.php?search_product_ref='.urlencode($producttmp->ref).'&search_batch='.urlencode($object->batch).'">'.$langs->trans("ShowLogOfMovementIfLot").'</a><br>';

  print '<br>';
}



/*
 * Documents generes
 */

if (empty($action) || $action == 'view')
{
  print '<div class="fichecenter"><div class="fichehalfleft">';
  print '<a name="builddoc"></a>'; // ancre

  // Documents
  $filedir = $conf->productbatch->multidir_output[$object->entity].'/'.get_exdir(0, 0, 0, 0, $object, 'product_batch');
  $urlsource = $_SERVER["PHP_SELF"]."?id=".$object->id;
  $genallowed = $usercanread;
  $delallowed = $usercancreate;

  print $formfile->showdocuments('product_batch', dol_sanitizeFileName($object->ref), $filedir, $urlsource, $genallowed, $delallowed, '', 0, 0, 0, 28, 0, '', 0, '', $object->default_lang, '', $object);
  $somethingshown = $formfile->numoffiles;

  print '</div>';
}

// End of page
llxFooter();
$db->close();