<?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>.
***********************************************************************/
include_once($path_to_root . "/sales/includes/sales_db.inc");
include_once($path_to_root . "/purchasing/includes/purchasing_db.inc");
include_once($path_to_root . "/inventory/includes/inventory_db.inc");
include_once($path_to_root . "/manufacturing/includes/manufacturing_db.inc");

function void_transaction($type, $type_no, $date_, $memo_)
{
	global $Refs;
	$void_entry = get_voided_entry($type, $type_no);

	if ($void_entry != null)
		return _('This transaction was already voided before.');

	switch ($type) {
		case ST_JOURNAL : // it's a journal entry
			if (!exists_gl_trans($type, $type_no))
				return _('Selected transaction does not exists.');
			if ($wo = check_wo_costing($type, $type_no))
				return sprintf(_('This transaction cannot be voided because it is part of Work Order %s costs.'), $wo);
			void_journal_trans($type, $type_no);
			break;

		case ST_BANKDEPOSIT : // it's a deposit
		case ST_BANKTRANSFER : // it's a transfer
			if (!check_void_bank_trans($type, $type_no))
				return _('This transaction cannot be voided because the operation would decrease account balance below allowed limit in some point of account history.');
		case ST_BANKPAYMENT : // it's a payment
			if (!exists_bank_trans($type, $type_no))
				return _('Selected transaction does not exists.');
			void_bank_trans($type, $type_no);
			break;

		case ST_CUSTPAYMENT : // it's a customer payment
			if (!check_void_bank_trans($type, $type_no))
				return _('This transaction cannot be voided because the operation would decrease account balance below allowed limit in some point of account history.');
		case ST_SALESINVOICE : // it's a customer invoice
 			if (is_cust_invoice_credited($type_no))
				return _('This invoice cannot be voided because it was already credited.');
		case ST_CUSTCREDIT : // it's a customer credit note
		case ST_CUSTDELIVERY : // it's a customer dispatch
			if (!exists_customer_trans($type, $type_no))
				return _('Selected transaction does not exists.');
			if ($type == ST_CUSTDELIVERY)	// added 04 Oct 2008 by Joe Hunt. If delivery note has a not voided invoice, then NO.
			{
				$vers = get_customer_trans_version($type, $type_no);
				if ($vers[$type_no] == 1) {
					$childs = get_sales_child_lines($type, $type_no, false); // 2011-03-17 This had been changed. Joe
					if ($childs && db_num_rows($childs))
						return _('This delivery cannot be voided because it was already invoiced.');
				}
			}
			post_void_customer_trans($type, $type_no);
			break;

		case ST_LOCTRANSFER : // it's a stock transfer
			if (get_stock_transfer_items($type_no) == null)
				return _('Selected transaction does not exists.');
			void_stock_transfer($type_no);
			break;

		case ST_INVADJUST : // it's a stock adjustment
			if (get_stock_adjustment_items($type_no) == null)
				return _('Selected transaction does not exists.');
			void_stock_adjustment($type_no);
			break;

		case ST_PURCHORDER : // it's a PO
				return _('This transaction type cannot be voided.');
			break;

		case ST_SUPPRECEIVE : // it's a GRN
			if (exists_grn_on_invoices($type_no))
				return _('This GRN cannot be voided because it was already invoiced.');
			if (!post_void_supp_trans($type, $type_no))
				return _('Error encountered when voiding transaction.');
			break;

		case ST_SUPPINVOICE : // it's a suppler invoice
		case ST_SUPPCREDIT : // it's a supplier credit note
		case ST_SUPPAYMENT : // it's a supplier payment
			if (!exists_supp_trans($type, $type_no))
				return _('Selected transaction does not exists.');
			if (!post_void_supp_trans($type, $type_no))
				return _('Error encountered when voiding transaction.');
			break;

		case ST_WORKORDER : // it's a work order
			if (!get_work_order($type_no, true))
				return _('Selected transaction does not exists.');
			void_work_order($type_no);
			break;

		case ST_MANUISSUE : // it's a work order issue
			if (!exists_work_order_issue($type_no))
				return _('Selected transaction does not exists.');
			if ($wo = check_void_wo_issue($type_no))
				return sprintf(_('Selected document cannot be voided because related Work Order %s is already closed.'), $wo);
			void_work_order_issue($type_no);
			break;

		case ST_MANURECEIVE : // it's a work order production
			if (!exists_work_order_produce($type_no))
				return _('Selected transaction does not exists.');
			if ($wo = check_void_wo_production($type_no))
				return sprintf(_('Selected document cannot be voided because related Work Order %s is already closed.'), $wo);
			void_work_order_produce($type_no);
			break;

		case ST_SALESORDER: // it's a sales order
		case ST_SALESQUOTE: // it's a sales quotation
			return _('This transaction type cannot be voided.');

		case ST_COSTUPDATE : // it's a stock cost update
			return _('This transaction type cannot be voided.');
			break;
	}

	// only add an entry if it's actually been voided
	add_audit_trail($type, $type_no, $date_, _("Voided.")."\n".$memo_);
	$Refs->restore_last($type, $type_no);
	add_voided_entry($type, $type_no, $date_, $memo_);
	return false;
}

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

function get_voided_entry($type, $type_no)
{
	$sql = "SELECT * FROM ".TB_PREF."voided WHERE type=".db_escape($type)
		." AND id=".db_escape($type_no);

	$result = db_query($sql, "could not query voided transaction table");

	return db_fetch($result);
}

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

function add_voided_entry($type, $type_no, $date_, $memo_)
{
	$date = date2sql($date_);
	$sql = "INSERT INTO ".TB_PREF."voided (type, id, date_, memo_)
		VALUES (".db_escape($type).", ".db_escape($type_no).", "
		.db_escape($date).", ".db_escape($memo_).")";

	db_query($sql, "could not add voided transaction entry");
}

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

