<?php
/**********************************************************************
    Copyright (C) FrontAccounting, LLC.
	Released under the terms of the GNU General Public License, GPL,
	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 License here <http://www.gnu.org/licenses/gpl-3.0.html>.
***********************************************************************/
$page_security = 'SA_STOCK_CHECK_SHEETS';
// ----------------------------------------------------------------
// $ Revision:	2.0 $
// Creator:	Joe Hunt
// date_:	2005-05-19
// Title:	Stock Check Sheet
// ----------------------------------------------------------------
$path_to_root="..";

include_once($path_to_root . "/includes/session.inc");
include_once($path_to_root . "/includes/date_functions.inc");
include_once($path_to_root . "/includes/data_checks.inc");
include_once($path_to_root . "/gl/includes/gl_db.inc");
include_once($path_to_root . "/inventory/includes/inventory_db.inc");
include_once($path_to_root . "/includes/db/manufacturing_db.inc");

//----------------------------------------------------------------------------------------------------

print_stock_check();

/**
 * Bar codes checker - Checks if a barcode can be valid and returns type of barcode
 * 
 * @link		http://www.phpclasses.org/package/8560-PHP-Detect-type-and-check-EAN-and-UPC-barcodes.html
 * @type tests	EAN, EAN-8, EAN-13, GTIN-8, GTIN-12, GTIN-14, UPC, UPC-12 coupon code, JAN 
 * @author		Ferry Bouwhuis
 * @version		1.0.1
 * @LastChange	2014-04-13
 */

function barcode_check($code, $return_value = false, $get_type = false)
{
	//Setting return value
	/*
	 * If true it will retun al barcodes as 14 digit strings
	 * If false it will return only what is needed UPC -> 12 / EAN -> 13 / 
	 */

	//Filter UPC coupon codes
	/*
	 * If true it will return false on UPC coupon codes
	 * Type will always return UPC coupon code
	 */
	$skip_coupon_codes = true;

	//Trims parsed string to remove unwanted whitespace or characters
	$code = (string)trim($code); 
	if (preg_match('/[^0-9]/', $code))
		return false;

	if (!is_string($code))
		$code = strval($code);
	$code = trim($code);	
	$length = strlen($code);
	if(($length > 11 && $length <= 14) || $length == 8)
	{	
		$zeroes = 18 - $length;
		$fill = "";
		for ($i = 0; $i < $zeroes; $i++)
			$fill .= "0";
		$code = $fill . $code;
		
		$calc = 0;
		for ($i = 0; $i < (strlen($code) - 1); $i++)
			$calc += ($i % 2 ? $code[$i] * 1 :  $code[$i] * 3);

		if (substr(10 - (substr($calc, -1)), -1) != substr($code, -1))
			return false;
		elseif (substr($code, 5, 1) > 2)
		{
			//EAN / JAN / EAN-13 code
			if ($get_type)
				return 'EAN';
			else
				return (string)substr($code, ($return_value ? -14 : -13));
		}
		elseif (substr($code, 6, 1) == 0 && substr($code, 0, 10) == 0)
		{
			//EAN-8 / GTIN-8 code
			if ($get_type)
				return 'EAN-8';
			else
				return (string)substr($code, ($return_value ? -14 : -8));
		}
		elseif (substr($code, 5, 1) <= 0)
		{
			//UPC / UCC-12 GTIN-12 code
			if ($get_type)
			{
				if (substr($code, 6, 1) == 5)
					return 'UPC coupon code';
				else
					return 'UPC';
			}
			else
			{
				if ($skip_coupon_codes && substr($code, 6, 1) == 5)
					return false;
				return (string)substr($code, ($return_value ? -14 : -12));
			}
		}
		elseif (substr($code, 0, 6) == 0)
		{
			//GTIN-14
			if ($get_type)
				return 'GTIN-14';
			else
				return (string)substr($code, -14);
		}
		else
		{
			//EAN code
			if ($get_type)
				return 'EAN';
			else
				return (string)substr($code,($return_value ? -14 : -13));
		}
	}
	else
		return false;
}
	
function getTransactions($category, $location, $item_like, $kv_batch, $kv_exp_date){
	$sql = "SELECT item.category_id,
			category.description AS cat_description,
			item.stock_id, item.units,
			item.description, item.inactive,
			IF(move.stock_id IS NULL, '', move.loc_code) AS loc_code,
			SUM(IF(move.stock_id IS NULL,0,move.qty)) AS QtyOnHand";
	if($kv_batch)
		$sql .= ", move.batch_no";
	elseif($kv_exp_date)
		$sql .= ", move.batch_no, move.exp_date";
	$sql .=" FROM ("
			.TB_PREF."stock_master item,"
			.TB_PREF."stock_category category)
			LEFT JOIN ".TB_PREF."stock_moves move ON item.stock_id=move.stock_id
		WHERE item.category_id=category.category_id
		AND (item.mb_flag='B' OR item.mb_flag='M')";
	if ($category != 0)
		$sql .= " AND item.category_id = ".db_escape($category);
	if ($location != 'all')
		$sql .= " AND IF(move.stock_id IS NULL, '1=1',move.loc_code = ".db_escape($location).")";
  if($item_like)
  {
    $regexp = null;

    if(sscanf($item_like, "/%s", $regexp)==1)
      $sql .= " AND item.stock_id RLIKE ".db_escape($regexp);
    else
      $sql .= " AND item.stock_id LIKE ".db_escape($item_like);
  }
	$sql .= " GROUP BY item.category_id,
		category.description,";
	if($kv_batch || $kv_exp_date)
		$sql .= "move.batch_no, ";
	else
		$sql .=" item.stock_id, ";
	
	$sql .=" item.description ORDER BY item.category_id,	item.stock_id ";  //".(($kv_batch  || $kv_exp_date)  ? 'move' : 'item' )."

    return db_query($sql,"No transactions were returned");
}

//----------------------------------------------------------------------------------------------------

function print_stock_check()
{
    global $path_to_root, $SysPrefs;

   	$category = $_POST['PARAM_0'];
   	$location = $_POST['PARAM_1'];
   	$pictures = $_POST['PARAM_2'];
   	$check    = $_POST['PARAM_3'];
   	$shortage = $_POST['PARAM_4'];
   	$no_zeros = $_POST['PARAM_5'];
   	$like     = $_POST['PARAM_6']; 
   	$comments = $_POST['PARAM_7'];
	$orientation = $_POST['PARAM_8'];
	$destination = $_POST['PARAM_9'];

	if ($destination)
		include_once($path_to_root . "/reporting/includes/excel_report.inc");
	else
		include_once($path_to_root . "/reporting/includes/pdf_report.inc");

	$kv_batch = get_company_pref('kv_batch');
	$kv_exp_date = get_company_pref('kv_exp_date');
	
	$orientation = ($orientation ? 'L' : 'P');
	if ($category == ALL_NUMERIC)
		$category = 0;
	if ($category == 0)
		$cat = _('All');
	else
		$cat = get_category_name($category);

	if ($location == ALL_TEXT)
		$location = 'all';
	if ($location == 'all')
		$loc = _('All');
	else
		$loc = get_location_name($location);
	if ($shortage)
	{
		$short = _('Yes');
		$available = _('Shortage');
	}
	else
	{
		$short = _('No');
		$available = _('Available');
	}
	$barcodes = !empty($SysPrefs->prefs['barcodes_on_stock']);
	if ($no_zeros) $nozeros = _('Yes');
	else $nozeros = _('No');
	if ($check)	{
		if($kv_batch || $kv_exp_date) {
			$cols = array(0, 60, 215, 240, 280, 335, 370, 420,470, 500, 525);
			$headers = array(_('Stock ID'), _('Description'), _('UOM'), _("Batch No"), ($kv_exp_date ? _("Exp Date") : ''), _('Quantity'), _('Check'), _('Demand'), $available, _('On Order'));
			$aligns = array('left',	'left',	'left', 'left', 'left','right', 'right', 'right', 'right', 'right');
		}else {
			$cols = array(0, 75, 225, 250, 295, 345, 390, 445,	515);
			$headers = array(_('Stock ID'), _('Description'), _('UOM'), _('Quantity'), _('Check'), _('Demand'), $available, _('On Order'));
			$aligns = array('left',	'left',	'left', 'right', 'right', 'right', 'right', 'right');
		}
	}
	else
	{
		if($kv_batch|| $kv_exp_date) {
			$cols = array(0, 60, 215, 250, 305, 350, 380, 420, 480, 515);
			$headers = array(_('Stock ID'), _('Description'), _('UOM'), _("Batch No"), ($kv_exp_date ? _("Exp Date") : ''),  _('Quantity'), _('Demand'), $available, _('On Order'));
			$aligns = array('left',	'left',	'left', 'left', 'left','right', 'right', 'right', 'right');
		} else {
			$cols = array(0, 75, 225, 250, 315, 380, 445,	515);
			$headers = array(_('Stock ID'), _('Description'), _('UOM'), _('Quantity'), _('Demand'), $available, _('On Order'));
			$aligns = array('left',	'left',	'left', 'right', 'right', 'right', 'right');
		}
	}

    $params =   array(
		0 => $comments,
    	1 => array('text' => _('Category'), 'from' => $cat, 'to' => ''),
    	2 => array('text' => _('Location'), 'from' => $loc, 'to' => ''),
    	3 => array('text' => _('Only Shortage'), 'from' => $short, 'to' => ''),
		4 => array('text' => _('Suppress Zeros'), 'from' => $nozeros, 'to' => '')
	);

	if ($barcodes)
	{
    	// define barcode style
    	$style = array(
    		'position' => 'L', // If blank string, barcode starts on left edge of page
    		'stretch' => false,
    		'fitwidth' => true,
    		'cellfitalign' => '',
    		'border' => false,
    		'padding' => 3,
    		'fgcolor' => array(0,0,0),
    		'bgcolor' => false, //array(255,255,255),
    		'text' => true,
    		'font' => 'helvetica',
    		'fontsize' => 8,
    		'stretchtext' => 4
    	);
    	// write1DBarcode($code, $type, $x='', $y='', $w='', $h='', $xres=0.4, $style='', $align='')
    }	

   	$rep = new FrontReport(_('Stock Check Sheets'), "StockCheckSheet", user_pagesize(), 9, $orientation);
    if ($orientation == 'L')
    	recalculate_cols($cols);

    $rep->Font();
    $rep->Info($params, $cols, $headers, $aligns);
    $rep->NewPage();

	$res = getTransactions($category, $location, $like, $kv_batch, $kv_exp_date);
	$catt = '';
	while ($trans=db_fetch($res))
	{
		if ($location == 'all')
			$loc_code = "";
		else
			$loc_code = $location;
		$demandqty = get_demand_qty($trans['stock_id'], $loc_code);
		$demandqty += get_demand_asm_qty($trans['stock_id'], $loc_code);
		$onorder = get_on_porder_qty($trans['stock_id'], $loc_code);
		$onorder += get_on_worder_qty($trans['stock_id'], $loc_code);
		if ($no_zeros && $trans['QtyOnHand'] == 0 && $demandqty == 0 && $onorder == 0)
			continue;
		if ($shortage && $trans['QtyOnHand'] - $demandqty >= 0)
			continue;
		if ($catt != $trans['cat_description'])
		{
			if ($catt != '')
			{
				$rep->Line($rep->row - 2);
				$rep->NewLine(2, 3);
			}
			$rep->TextCol(0, 1, $trans['category_id']);
			$rep->TextCol(1, 2, $trans['cat_description']);
			$catt = $trans['cat_description'];
			$rep->NewLine();
		}
		$rep->NewLine();
		$dec = get_qty_dec($trans['stock_id']);
		$rep->TextCol(0, 1, $trans['stock_id']);
		$rep->TextCol(1, 2, $trans['description'].($trans['inactive']==1 ? " ("._("Inactive").")" : ""), -1);
		$rep->TextCol(2, 3, $trans['units']);
		if($kv_batch|| $kv_exp_date) {
			$rep->TextCol(3, 4, $trans['batch_no']);
			if($kv_exp_date)
				$rep->TextCol(4, 5, sql2date($trans['exp_date']));
			$rep->AmountCol(5, 6, $trans['QtyOnHand'], $dec);
		} else {
			$rep->AmountCol(3, 4, $trans['QtyOnHand'], $dec);
		}
		if ($check)
		{
			if($kv_batch || $kv_exp_date) {
				$rep->TextCol(6, 7, "_________");
				$rep->AmountCol(7, 8, $demandqty, $dec);
				$rep->AmountCol(8, 9, $trans['QtyOnHand'] - $demandqty, $dec);
				$rep->AmountCol(9, 10, $onorder, $dec);
			} else {
				$rep->TextCol(4, 5, "_________");
				$rep->AmountCol(5, 6, $demandqty, $dec);
				$rep->AmountCol(6, 7, $trans['QtyOnHand'] - $demandqty, $dec);
				$rep->AmountCol(7, 8, $onorder, $dec);
			}
		}
		else
		{
			if($kv_batch || $kv_exp_date) {
				$rep->AmountCol(6, 7, $demandqty, $dec);
				$rep->AmountCol(7, 8, $trans['QtyOnHand'] - $demandqty, $dec);
				$rep->AmountCol(8, 9, $onorder, $dec);
			} else{
				$rep->AmountCol(4, 5, $demandqty, $dec);
				$rep->AmountCol(5, 6, $trans['QtyOnHand'] - $demandqty, $dec);
				$rep->AmountCol(6, 7, $onorder, $dec);
			}
		}
		if ($pictures || $barcodes)
		{
			$rep->NewLine();
			if ($rep->row - $SysPrefs->pic_height < $rep->bottomMargin)
				$rep->NewPage();
			$firstcol = 1;	
			$adjust = false;
			if ($barcodes && barcode_check($trans['stock_id']))
			{
				$adjust = true;
				$bar_y = $rep->GetY();
				$barcode = str_pad($trans['stock_id'], 7, '0', STR_PAD_LEFT);
				$barcode = substr($barcode, 0, 8); // EAN 8 Check digit is auto computed and barcode printed
				$rep->write1DBarcode($barcode, 'EAN8', $rep->cols[$firstcol++], $bar_y + 22, 22, $SysPrefs->pic_height, 1.2, $style, 'N');
			}	
			if ($pictures)
			{
				$adjust = true;
				$image = company_path() . '/images/' . item_img_name($trans['stock_id']) . '.jpg';
				if (file_exists($image))
				{
					$rep->AddImage($image, $rep->cols[$firstcol], $rep->row - $SysPrefs->pic_height, 0, $SysPrefs->pic_height);
				}
			}
			if ($adjust)
				$rep->row -= $SysPrefs->pic_height;
		}
	}
	$rep->Line($rep->row - 4);
	$rep->NewLine();
    $rep->End();
}

