<?php
/* Copyright (C) 2013   Cédric Salvador    	<csalvador@gpcsolutions.fr>
 * Copyright (C) 2013   Laurent Destaileur	<ely@users.sourceforge.net>
 *
 * 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 <http://www.gnu.org/licenses/>.
 */

/**
 *  \file       htdocs/product/stock/replenish.php
 *  \ingroup    stock
 *  \brief      Page to list stocks to replenish
 */

require '../../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formother.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.form.class.php';
require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.commande.class.php';
require_once './lib/replenishment.lib.php';

$langs->load("products");
$langs->load("stocks");
$langs->load("orders");

// Security check
if ($user->societe_id) {
    $socid = $user->societe_id;
}
$result=restrictedArea($user,'produit|service');

//checks if a product has been ordered

$action = GETPOST('action','alpha');
$sref = GETPOST('sref', 'alpha');
$snom = GETPOST('snom', 'alpha');
$sall = GETPOST('sall', 'alpha');
$type = GETPOST('type','int');
$tobuy = GETPOST('tobuy', 'int');
$salert = GETPOST('salert', 'alpha');

$sortfield = GETPOST('sortfield','alpha');
$sortorder = GETPOST('sortorder','alpha');
$page = GETPOST('page','int');

if (!$sortfield) {
    $sortfield = 'p.ref';
}

if (!$sortorder) {
    $sortorder = 'ASC';
}
$limit = $conf->liste_limit;
$offset = $limit * $page ;

/*
 * Actions
 */

if (isset($_POST['button_removefilter']) || isset($_POST['valid']))
{
    $sref = '';
    $snom = '';
    $sal = '';
    $salert = '';
}

// Create orders
if ($action == 'order' && isset($_POST['valid']))
{
    $linecount = GETPOST('linecount', 'int');
    $box = 0;
    unset($_POST['linecount']);
    if ($linecount > 0) 
    {
    	$db->begin();
    	
        $suppliers = array();
        for ($i = 0; $i < $linecount; $i++)
        {
            if (GETPOST($i, 'alpha') === 'on' && GETPOST('fourn' . $i, 'int') > 0)
            {
            	//one line
                $box = $i;
                $supplierpriceid = GETPOST('fourn'.$i, 'int');
                //get all the parameters needed to create a line
                $qty = GETPOST('tobuy'.$i, 'int');
                $desc = GETPOST('desc'.$i, 'alpha');
                $sql = 'SELECT fk_product, fk_soc, ref_fourn';
                $sql .= ', tva_tx, unitprice FROM ';
                $sql .= MAIN_DB_PREFIX . 'product_fournisseur_price';
                $sql .= ' WHERE rowid = ' . $supplierpriceid;
                $resql = $db->query($sql);
                if ($resql && $db->num_rows($resql) > 0)
                {
                	if ($qty)
                	{
	                    //might need some value checks
	                    $obj = $db->fetch_object($resql);
	                    $line = new CommandeFournisseurLigne($db);
	                    $line->qty = $qty;
	                    $line->desc = $desc;
	                    $line->fk_product = $obj->fk_product;
	                    $line->tva_tx = $obj->tva_tx;
	                    $line->subprice = $obj->unitprice;
	                    $line->total_ht = $obj->unitprice * $qty;
	                    $tva = $line->tva_tx / 100;
	                    $line->total_tva = $line->total_ht * $tva;
	                    $line->total_ttc = $line->total_ht + $line->total_tva;
	                    $line->ref_fourn = $obj->ref_fourn;
	                    $suppliers[$obj->fk_soc]['lines'][] = $line;
                	}
                }
                else
				{
                    $error=$db->lasterror();
                    dol_print_error($db);
                    dol_syslog('replenish.php: '.$error, LOG_ERR);
                }
                $db->free($resql);
                unset($_POST['fourn' . $i]);
            }
            unset($_POST[$i]);
        }

        //we now know how many orders we need and what lines they have
        $i = 0;
        $orders = array();
        $suppliersid = array_keys($suppliers);
        foreach ($suppliers as $supplier)
        {
            $order = new CommandeFournisseur($db);
            $order->socid = $suppliersid[$i];
            //trick to know which orders have been generated this way
            $order->source = 42;
            foreach ($supplier['lines'] as $line) {
                $order->lines[] = $line;
            }
            $order->cond_reglement_id = 0;
            $order->mode_reglement_id = 0;
            $id = $order->create($user);
            if ($id < 0) {
                $fail++;
                $msg = $langs->trans('OrderFail') . "&nbsp;:&nbsp;";
                $msg .= $order->error;
                setEventMessage($msg, 'errors');
            }
            $i++;
        }
        
        if (! $fail && $id) 
        {
        	$db->commit();
        	
            setEventMessage($langs->trans('OrderCreated'), 'mesgs');
            header('Location: replenishorders.php');
            exit;
        }
        else
        {
        	$db->rollback();	
        }
    }
    if ($box == 0) 
    {
        setEventMessage($langs->trans('SelectProductWithNotNullQty'), 'warnings');
    }
}


/*
 * View
 */

$title = $langs->trans('Status');

$sql = 'SELECT p.rowid, p.ref, p.label, p.price,';
$sql.= ' p.price_ttc, p.price_base_type,p.fk_product_type,';
$sql.= ' p.tms as datem, p.duration, p.tobuy, p.seuil_stock_alerte,';
$sql.= ' p.desiredstock,';
$sql.= ' SUM('.$db->ifsql("s.reel IS NULL", "0", "s.reel").') as stock_physique';
$sql.= ' FROM ' . MAIN_DB_PREFIX . 'product as p';
$sql.= ' LEFT JOIN ' . MAIN_DB_PREFIX . 'product_stock as s';
$sql.= ' ON p.rowid = s.fk_product';
$sql.= ' WHERE p.entity IN (' . getEntity("product", 1) . ')';
if ($sall) {
    $sql .= ' AND (p.ref LIKE "%'.$db->escape($sall).'%" ';
    $sql .= 'OR p.label LIKE "%'.$db->escape($sall).'%" ';
    $sql .= 'OR p.description LIKE "%'.$db->escape($sall).'%" ';
    $sql .= 'OR p.note LIKE "%'.$db->escape($sall).'%")';
}
// if the type is not 1, we show all products (type = 0,2,3)
if (dol_strlen($type)) {
    if ($type == 1) {
        $sql .= ' AND p.fk_product_type = 1';
    } else {
        $sql .= ' AND p.fk_product_type <> 1';
    }
}
if ($sref) {
    //natural search
    $scrit = explode(' ', $sref);
    foreach ($scrit as $crit) {
        $sql .= ' AND p.ref LIKE "%' . $crit . '%"';
    }
}
if ($snom) {
    //natural search
    $scrit = explode(' ', $snom);
    foreach ($scrit as $crit) {
        $sql .= ' AND p.label LIKE "%' . $db->escape($crit) . '%"';
    }
}
$sql.= ' AND p.tobuy = 1';
if (!empty($canvas)) $sql .= ' AND p.canvas = "' . $db->escape($canvas) . '"';
$sql.= ' GROUP BY p.rowid, p.ref, p.label, p.price';
$sql.= ', p.price_ttc, p.price_base_type,p.fk_product_type, p.tms';
$sql.= ', p.duration, p.tobuy, p.seuil_stock_alerte';
$sql.= ', p.desiredstock, s.fk_product';
$sql.= ' HAVING p.desiredstock > SUM('.$db->ifsql("s.reel IS NULL", "0", "s.reel").')';
$sql.= ' AND p.desiredstock > 0';
if ($salert == 'on')	// Option to see when stock is lower than alert
{
    $sql .= ' AND SUM('.$db->ifsql("s.reel IS NULL", "0", "s.reel").') < p.seuil_stock_alerte AND p.seuil_stock_alerte is not NULL';
    $alertchecked = 'checked="checked"';
}
$sql.= $db->order($sortfield,$sortorder);
$sql.= $db->plimit($limit + 1, $offset);

dol_syslog('Execute request sql='.$sql);
$resql = $db->query($sql);
if (empty($resql))
{
    dol_print_error($db);
    exit;
}

$num = $db->num_rows($resql);
$i = 0;

$helpurl = 'EN:Module_Stocks_En|FR:Module_Stock|';
$helpurl .= 'ES:M&oacute;dulo_Stocks';

llxHeader('', $title, $helpurl, '');

$head = array();
$head[0][0] = DOL_URL_ROOT.'/product/stock/replenish.php';
$head[0][1] = $title;
$head[0][2] = 'replenish';
$head[1][0] = DOL_URL_ROOT.'/product/stock/replenishorders.php';
$head[1][1] = $langs->trans("ReplenishmentOrders");
$head[1][2] = 'replenishorders';

dol_fiche_head($head, 'replenish', $langs->trans('Replenishment'), 0, 'stock');

print $langs->trans("ReplenishmentStatusDesc").'<br><br>';

if ($sref || $snom || $sall || $salert || GETPOST('search', 'alpha')) {
	$filters = '&sref=' . $sref . '&snom=' . $snom;
	$filters .= '&sall=' . $sall;
	$filters .= '&salert=' . $salert;
	print_barre_liste(
		$texte,
		$page,
		'replenish.php',
		$filters,
		$sortfield,
		$sortorder,
		'',
		$num
	);
} else {
	$filters = '&sref=' . $sref . '&snom=' . $snom;
	$filters .= '&fourn_id=' . $fourn_id;
	$filters .= (isset($type)?'&type=' . $type:'');
	$filters .=  '&salert=' . $salert;
	print_barre_liste(
		$texte,
		$page,
		'replenish.php',
		$filters,
		$sortfield,
		$sortorder,
		'',
		$num
	);
}

print '<form action="'.$_SERVER["PHP_SELF"].'" method="POST" name="formulaire">'.
	'<input type="hidden" name="token" value="' .$_SESSION['newtoken'] . '">'.
	'<input type="hidden" name="sortfield" value="' . $sortfield . '">'.
	'<input type="hidden" name="sortorder" value="' . $sortorder . '">'.
	'<input type="hidden" name="type" value="' . $type . '">'.
	'<input type="hidden" name="linecount" value="' . $num . '">'.
	'<input type="hidden" name="action" value="order">'.

	'<table class="liste" width="100%">';

$param = (isset($type)? '&type=' . $type : '');
$param .= '&fourn_id=' . $fourn_id . '&snom='. $snom . '&salert=' . $salert;
$param .= '&sref=' . $sref;

// Lignes des titres
print '<tr class="liste_titre">'.
	'<td><input type="checkbox" onClick="toggle(this)" /></td>';
print_liste_field_titre(
	$langs->trans('Ref'),
	$_SERVER["PHP_SELF"],
	'p.ref',
	$param,
	'',
	'',
	$sortfield,
	$sortorder
);
print_liste_field_titre(
	$langs->trans('Label'),
	$_SERVER["PHP_SELF"],
	'p.label',
	$param,
	'',
	'',
	$sortfield,
	$sortorder
);
if (!empty($conf->service->enabled) && $type == 1)
{
	print_liste_field_titre(
		$langs->trans('Duration'),
		$_SERVER["PHP_SELF"],
		'p.duration',
		$param,
		'',
		'align="center"',
		$sortfield,
		$sortorder
	);
}
print_liste_field_titre(
	$langs->trans('DesiredStock'),
	$_SERVER["PHP_SELF"],
	'p.desiredstock',
	$param,
	'',
	'align="right"',
	$sortfield,
	$sortorder
);
if ($conf->global->USE_VIRTUAL_STOCK)
{
	$stocklabel = $langs->trans('VirtualStock');
}
else
{
	$stocklabel = $langs->trans('PhysicalStock');
}
print_liste_field_titre(
	$stocklabel,
	$_SERVER["PHP_SELF"],
	'stock_physique',
	$param,
	'',
	'align="right"',
	$sortfield,
	$sortorder
);
print_liste_field_titre(
	$langs->trans('Ordered'),
	$_SERVER["PHP_SELF"],
	'',
	$param,
	'',
	'align="right"',
	$sortfield,
	$sortorder
);
print_liste_field_titre(
	$langs->trans('StockToBuy'),
	$_SERVER["PHP_SELF"],
	'',
	$param,
	'',
	'align="right"',
	$sortfield,
	$sortorder
);
print_liste_field_titre(
	$langs->trans('Supplier'),
	$_SERVER["PHP_SELF"],
	'',
	$param,
	'',
	'align="right"',
	$sortfield,
	$sortorder
);
print '</tr>';

// Lignes des champs de filtre
print '<tr class="liste_titre">'.
'<td class="liste_titre">&nbsp;</td>'.
'<td class="liste_titre">'.
'<input class="flat" type="text" name="sref" size="8" value="'.dol_escape_htmltag($sref).'">'.
'</td>'.
'<td class="liste_titre">'.
'<input class="flat" type="text" name="snom" size="8" value="'.dol_escape_htmltag($snom).'">'.
'</td>';
if (!empty($conf->service->enabled) && $type == 1)
{
	print '<td class="liste_titre">&nbsp;</td>';
}
print '<td class="liste_titre">&nbsp;</td>'.
	'<td class="liste_titre" align="right">' . $langs->trans('AlertOnly') . '&nbsp;<input type="checkbox" name="salert" ' . $alertchecked . '></td>'.
	'<td class="liste_titre" align="right">&nbsp;</td>'.
	'<td class="liste_titre">&nbsp;</td>'.
	'<td class="liste_titre" align="right">'.
	'<input class="liste_titre" name="button_search" type="image" src="'.img_picto($langs->trans("Search"),'search.png','','',1).'" value="'.dol_escape_htmltag($langs->trans("Search")).'" title="'.dol_escape_htmltag($langs->trans("Search")).'">'.
	'<input type="image" class="liste_titre" src="'.img_picto($langs->trans("Search"),'searchclear.png','','',1).'" name="button_removefilter" value="'.dol_escape_htmltag($langs->trans("RemoveFilter")).'" title="'.dol_escape_htmltag($langs->trans("RemoveFilter")).'">'.
	'</td>'.
	'</tr>';

$prod = new Product($db);

$var = True;
while ($i < min($num, $limit))
{
	$objp = $db->fetch_object($resql);

	if (! empty($conf->global->STOCK_SUPPORTS_SERVICES) || $objp->fk_product_type == 0)
	{
		// Multilangs
		if (! empty($conf->global->MAIN_MULTILANGS))
		{
			$sql = 'SELECT label';
			$sql .= ' FROM ' . MAIN_DB_PREFIX . 'product_lang';
			$sql .= ' WHERE fk_product = ' . $objp->rowid;
			$sql .= ' AND lang = "' . $langs->getDefaultLang() . '"';
			$sql .= ' LIMIT 1';

			$resqlm = $db->query($sql);
			if ($resqlm)
			{
				$objtp = $db->fetch_object($resqlm);
				if (!empty($objtp->label)) $objp->label = $objtp->label;
			}
		}
		$form = new Form($db);
		$var =! $var;
		$prod->ref = $objp->ref;
		$prod->id = $objp->rowid;
		$prod->type = $objp->fk_product_type;
		$ordered = ordered($prod->id);

		if ($conf->global->USE_VIRTUAL_STOCK)
		{
			//compute virtual stock
			$prod->fetch($prod->id);
			$result=$prod->load_stats_commande(0, '1,2');
			if ($result < 0) {
				dol_print_error($db, $prod->error);
			}
			$stock_commande_client = $prod->stats_commande['qty'];
			$result=$prod->load_stats_commande_fournisseur(0, '3');
			if ($result < 0) {
				dol_print_error($db,$prod->error);
			}
			$stock_commande_fournisseur = $prod->stats_commande_fournisseur['qty'];
			$stock = $objp->stock_physique - $stock_commande_client + $stock_commande_fournisseur;
		}
		else
		{
			$stock = $objp->stock_physique;
		}
		$warning='';

		if ($objp->seuil_stock_alerte && ($stock < $objp->seuil_stock_alerte))
		{
			$warning = img_warning($langs->trans('StockTooLow')) . ' ';
		}
		//depending on conf, use either physical stock or
		//virtual stock to compute the stock to buy value
		$stocktobuy = max($objp->desiredstock - $stock - $ordered, 0);
		$disabled = '';
		if($ordered > 0) {
			if($ordered + $stock >= $objp->desiredstock) {
				$picto = img_picto('', './img/yes', '', 1);
				$disabled = 'disabled="disabled"';
			}
			else {
				$picto = img_picto('', './img/no', '', 1);
			}
		} else {
			$picto = img_picto('', './img/no', '', 1);
		}

		print '<tr '.$bc[$var].'>';

		// Select field
		//print '<td><input type="checkbox" class="check" name="' . $i . '"' . $disabled . '></td>';
		print '<td><input type="checkbox" class="check" name="'.$i.'"></td>';

		print '<td class="nowrap">'.
			$prod->getNomUrl(1, '', 16).
			'</td>'.
			'<td>' . $objp->label . '</td>'.
			'<input type="hidden" name="desc' . $i . '" value="' . $objp->label . '" >';

		if (!empty($conf->service->enabled) && $type == 1) {
			if (preg_match('/([0-9]+)y/i', $objp->duration, $regs)) {
				$duration =  $regs[1] . ' ' . $langs->trans('DurationYear');
			} elseif (preg_match('/([0-9]+)m/i', $objp->duration, $regs)) {
				$duration =  $regs[1] . ' ' . $langs->trans('DurationMonth');
			} elseif (preg_match('/([0-9]+)d/i', $objp->duration, $regs)) {
				$duration =  $regs[1] . ' ' . $langs->trans('DurationDay');
			} else {
				$duration = $objp->duration;
			}
			print '<td align="center">'.
				$duration.
				'</td>';
		}

		print '<td align="right">' . $objp->desiredstock . '</td>'.
			'<td align="right">'.
			$warning . $stock.
			'</td>'.
			'<td align="right">'.
			'<a href="replenishorders.php?sproduct=' . $prod->id . '">'.
			$ordered . '</a> ' . $picto.
			'</td>';

		// To order
		//print '<td align="right"><input type="text" name="tobuy'.$i.'" value="'.$stocktobuy.'" '.$disabled.'></td>';
		print '<td align="right"><input type="text" size="4" name="tobuy'.$i.'" value="'.$stocktobuy.'"></td>';

		// Supplier
		print '<td align="right">'.	$form->select_product_fourn_price($prod->id, 'fourn'.$i, 1).'</td>';

		print '</tr>';
	}
	$i++;
}
print '</table>';


$value=$langs->trans("CreateOrders");
print '<div class="center"><input class="button" type="submit" name="valid" value="'.$value.'"></div>';


print '</form>';

if ($num > $conf->liste_limit)
{
	if ($sref || $snom || $sall || $salert || GETPOST('search', 'alpha'))
	{
		$filters = '&sref=' . $sref . '&snom=' . $snom;
		$filters .= '&sall=' . $sall;
		$filters .= '&salert=' . $salert;
		print_barre_liste(
			'',
			$page,
			'replenish.php',
			$filters,
			$sortfield,
			$sortorder,
			'',
			$num,
			0,
			''
		);
	} else {
		$filters = '&sref=' . $sref . '&snom=' . $snom;
		$filters .= '&fourn_id=' . $fourn_id;
		$filters .= (isset($type)? '&type=' . $type : '');
		$filters .= '&salert=' . $salert;
		print_barre_liste(
			'',
			$page,
			'replenish.php',
			$filters,
			$sortfield,
			$sortorder,
			'',
			$num,
			0,
			''
		);
	}
}

$db->free($resql);

dol_fiche_end();


// TODO Replace this with jquery
print '
<script type="text/javascript">
function toggle(source)
{
	checkboxes = document.getElementsByClassName("check");
	for (var i=0; i < checkboxes.length;i++) {
		if (!checkboxes[i].disabled) {
			checkboxes[i].checked = source.checked;
		}
	}
}
</script>';


llxFooter();

$db->close();
?>