1<?php
2/**********************************************************************
3    Copyright (C) FrontAccounting, LLC.
4	Released under the terms of the GNU General Public License, GPL,
5	as published by the Free Software Foundation, either version 3
6	of the License, or (at your option) any later version.
7    This program is distributed in the hope that it will be useful,
8    but WITHOUT ANY WARRANTY; without even the implied warranty of
9    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
10    See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
11***********************************************************************/
12include_once($path_to_root . "/sales/includes/sales_db.inc");
13include_once($path_to_root . "/purchasing/includes/purchasing_db.inc");
14include_once($path_to_root . "/inventory/includes/inventory_db.inc");
15include_once($path_to_root . "/manufacturing/includes/manufacturing_db.inc");
16
17function void_transaction($type, $type_no, $date_, $memo_)
18{
19	global $Refs;
20	$void_entry = get_voided_entry($type, $type_no);
21
22	if ($void_entry != null)
23		return false;
24
25	switch ($type) {
26		case ST_JOURNAL : // it's a journal entry
27			if (!exists_gl_trans($type, $type_no))
28				return false;
29			void_journal_trans($type, $type_no);
30			break;
31
32		case ST_BANKDEPOSIT : // it's a deposit
33		case ST_BANKTRANSFER : // it's a transfer
34			if (!check_void_bank_trans($type, $type_no))
35				return false;
36		case ST_BANKPAYMENT : // it's a payment
37			if (!exists_bank_trans($type, $type_no))
38				return false;
39			void_bank_trans($type, $type_no);
40			break;
41
42		case ST_CUSTPAYMENT : // it's a customer payment
43			if (!check_void_bank_trans($type, $type_no))
44				return false;
45		case ST_SALESINVOICE : // it's a customer invoice
46		case ST_CUSTCREDIT : // it's a customer credit note
47		case ST_CUSTDELIVERY : // it's a customer dispatch
48			if (!exists_customer_trans($type, $type_no))
49				return false;
50			if ($type == ST_CUSTDELIVERY)	// added 04 Oct 2008 by Joe Hunt. If delivery note has a not voided invoice, then NO.
51			{
52				$childs = get_sales_child_lines($type, $type_no, false); // 2011-03-17 This had been changed. Joe
53				if ($childs && db_num_rows($childs))
54						return false;
55			}
56			post_void_customer_trans($type, $type_no);
57			break;
58
59		case ST_LOCTRANSFER : // it's a stock transfer
60			if (get_stock_transfer_items($type_no) == null)
61				return false;
62			void_stock_transfer($type_no);
63			break;
64
65		case ST_INVADJUST : // it's a stock adjustment
66			if (get_stock_adjustment_items($type_no) == null)
67				return false;
68			void_stock_adjustment($type_no);
69			break;
70
71		case ST_PURCHORDER : // it's a PO
72			return false;
73
74		case ST_SUPPRECEIVE : // it's a GRN
75			if (exists_grn_on_invoices($type_no))
76				return false;
77		case ST_SUPPINVOICE : // it's a suppler invoice
78		case ST_SUPPCREDIT : // it's a supplier credit note
79		case ST_SUPPAYMENT : // it's a supplier payment
80			if (!exists_supp_trans($type, $type_no))
81				return false;
82			if (!post_void_supp_trans($type, $type_no))
83				return false;
84			break;
85
86		case ST_WORKORDER : // it's a work order
87			if (!get_work_order($type_no, true))
88				return false;
89			void_work_order($type_no);
90			break;
91
92		case ST_MANUISSUE : // it's a work order issue
93			if (!exists_work_order_issue($type_no))
94				return false;
95			void_work_order_issue($type_no);
96			break;
97
98		case ST_MANURECEIVE : // it's a work order production
99			if (!exists_work_order_produce($type_no))
100				return false;
101			void_work_order_produce($type_no);
102			break;
103
104		case ST_SALESORDER: // it's a sales order
105		case ST_SALESQUOTE: // it's a sales quotation
106			return false;
107
108		case ST_COSTUPDATE : // it's a stock cost update
109			return false;
110			break;
111	}
112
113	// only add an entry if it's actually been voided
114	add_audit_trail($type, $type_no, $date_, _("Voided.")."\n".$memo_);
115	$Refs->restore_last($type, $type_no);
116	add_voided_entry($type, $type_no, $date_, $memo_);
117	return true;
118}
119
120//--------------------------------------------------------------------------------------------------
121
122function get_voided_entry($type, $type_no)
123{
124	$sql = "SELECT * FROM ".TB_PREF."voided WHERE type=".db_escape($type)
125		." AND id=".db_escape($type_no);
126
127	$result = db_query($sql, "could not query voided transaction table");
128
129	return db_fetch($result);
130}
131
132//--------------------------------------------------------------------------------------------------
133
134function add_voided_entry($type, $type_no, $date_, $memo_)
135{
136	$date = date2sql($date_);
137	$sql = "INSERT INTO ".TB_PREF."voided (type, id, date_, memo_)
138		VALUES (".db_escape($type).", ".db_escape($type_no).", "
139		.db_escape($date).", ".db_escape($memo_).")";
140
141	db_query($sql, "could not add voided transaction entry");
142}
143
144//--------------------------------------------------------------------------------------------------
145
146?>