X-Git-Url: https://delta.frontaccounting.com/gitweb/?a=blobdiff_plain;f=reporting%2Frep107.php;h=c28709919bc9198dc4d7e19cffd631b4a6dcce8a;hb=707866fb43a172801b25df8e3c20f878eca1e57f;hp=262d04dab3f0238114e980191e0d16a25a2fa4d0;hpb=902f1015d874c33bd7946b17de2ad80b4f2144b6;p=fa-stable.git

diff --git a/reporting/rep107.php b/reporting/rep107.php
index 262d04da..c2870991 100644
--- a/reporting/rep107.php
+++ b/reporting/rep107.php
@@ -25,6 +25,34 @@ include_once($path_to_root . "/includes/data_checks.inc");
 include_once($path_to_root . "/sales/includes/sales_db.inc");
 
 //----------------------------------------------------------------------------------------------------
+function get_invoice_range($from, $to, $currency=false)
+{
+	global $SysPrefs;
+
+	$ref = ($SysPrefs->print_invoice_no() == 1 ? "trans_no" : "reference");
+
+	$sql = "SELECT trans.trans_no, trans.reference";
+
+//  if($currency !== false)
+//		$sql .= ", cust.curr_code";
+
+	$sql .= " FROM ".TB_PREF."debtor_trans trans 
+			LEFT JOIN ".TB_PREF."voided voided ON trans.type=voided.type AND trans.trans_no=voided.id";
+
+	if ($currency !== false)
+		$sql .= " LEFT JOIN ".TB_PREF."debtors_master cust ON trans.debtor_no=cust.debtor_no";
+
+	$sql .= " WHERE trans.type=".ST_SALESINVOICE
+		." AND ISNULL(voided.id)"
+ 		." AND trans.trans_no BETWEEN ".db_escape($from)." AND ".db_escape($to);			
+
+	if ($currency !== false)
+		$sql .= " AND cust.curr_code=".db_escape($currency);
+
+	$sql .= " ORDER BY trans.tran_date, trans.$ref";
+
+	return db_query($sql, "Cant retrieve invoice range");
+}
 
 print_invoices();
 
@@ -32,87 +60,113 @@ print_invoices();
 
 function print_invoices()
 {
-	global $path_to_root;
+	global $path_to_root, $SysPrefs;
 	
+	$show_this_payment = true; // include payments invoiced here in summary
+
 	include_once($path_to_root . "/reporting/includes/pdf_report.inc");
 
 	$from = $_POST['PARAM_0'];
 	$to = $_POST['PARAM_1'];
 	$currency = $_POST['PARAM_2'];
-	$bankaccount = $_POST['PARAM_3'];
-	$email = $_POST['PARAM_4'];
-	$paylink = $_POST['PARAM_5'];
-	$comments = $_POST['PARAM_6'];
-
-	if ($from == null)
-		$from = 0;
-	if ($to == null)
-		$to = 0;
+	$email = $_POST['PARAM_3'];
+	$pay_service = $_POST['PARAM_4'];
+	$comments = $_POST['PARAM_5'];
+	$customer = $_POST['PARAM_6'];
+	$orientation = $_POST['PARAM_7'];
+
+	if (!$from || !$to) return;
+
+	$orientation = ($orientation ? 'L' : 'P');
 	$dec = user_price_dec();
 
  	$fno = explode("-", $from);
 	$tno = explode("-", $to);
+	$from = min($fno[0], $tno[0]);
+	$to = max($fno[0], $tno[0]);
 
+	//-------------code-Descr-Qty--uom--tax--prc--Disc-Tot--//
 	$cols = array(4, 60, 225, 300, 325, 385, 450, 515);
 
 	// $headers in doctext.inc
-	$aligns = array('left',	'left',	'right', 'left', 'right', 'right', 'right');
+	$aligns = array('left',	'left',	'right', 'center', 'right', 'right', 'right');
 
-	$params = array('comments' => $comments,
-					'bankaccount' => $bankaccount);
+	$params = array('comments' => $comments);
 
-	$baccount = get_bank_account($params['bankaccount']);
 	$cur = get_company_Pref('curr_default');
 
 	if ($email == 0)
-	{
-		$rep = new FrontReport(_('INVOICE'), "InvoiceBulk", user_pagesize());
-		$rep->currency = $cur;
-		$rep->Font();
-		$rep->Info($params, $cols, null, $aligns);
-	}
+		$rep = new FrontReport(_('INVOICE'), "InvoiceBulk", user_pagesize(), 9, $orientation);
+	if ($orientation == 'L')
+		recalculate_cols($cols);
 
-	for ($i = $fno[0]; $i <= $tno[0]; $i++)
+	$range = Array();
+	if ($currency == ALL_TEXT)
+		$range = get_invoice_range($from, $to);
+	else
+		$range = get_invoice_range($from, $to, $currency);
+
+	while($row = db_fetch($range))
 	{
-		for ($j = 10; $j <= 11; $j++)
-		{
-			if (isset($_POST['PARAM_7']) && $_POST['PARAM_7'] != $j)
+			if (!exists_customer_trans(ST_SALESINVOICE, $row['trans_no']))
 				continue;
-			if (!exists_customer_trans($j, $i))
+			$sign = 1;
+			$myrow = get_customer_trans($row['trans_no'], ST_SALESINVOICE);
+
+			if ($customer && $myrow['debtor_no'] != $customer) {
 				continue;
-			$sign = $j==10 ? 1 : -1;
-			$myrow = get_customer_trans($i, $j);
+			}
+//			if ($currency != ALL_TEXT && $myrow['curr_code'] != $currency) {
+//				continue;
+//			}
+			
+			$baccount = get_default_bank_account($myrow['curr_code']);
+			$params['bankaccount'] = $baccount['id'];
+
 			$branch = get_branch($myrow["branch_code"]);
-			$branch['disable_branch'] = $paylink; // helper
-			if ($j == 10)
-				$sales_order = get_sales_order_header($myrow["order_"]);
-			else
-				$sales_order = null;
+			$sales_order = get_sales_order_header($myrow["order_"], ST_SALESORDER);
 			if ($email == 1)
 			{
-				$rep = new FrontReport("", "", user_pagesize());
-				$rep->currency = $cur;
-				$rep->Font();
-				if ($j == 10)
+				$rep = new FrontReport("", "", user_pagesize(), 9, $orientation);
+				$rep->title = _('INVOICE');
+				$rep->filename = "Invoice" . $myrow['reference'] . ".pdf";
+			}	
+			$rep->currency = $cur;
+			$rep->Font();
+			$rep->Info($params, $cols, null, $aligns);
+
+			$contacts = get_branch_contacts($branch['branch_code'], 'invoice', $branch['debtor_no'], true);
+			$baccount['payment_service'] = $pay_service;
+			$rep->SetCommonData($myrow, $branch, $sales_order, $baccount, ST_SALESINVOICE, $contacts);
+			$rep->SetHeaderType('Header2');
+			$rep->NewPage();
+			// calculate summary start row for later use
+			$summary_start_row = $rep->bottomMargin + (15 * $rep->lineHeight);
+
+			if ($rep->formData['prepaid'])
+			{
+				$result = get_sales_order_invoices($myrow['order_']);
+				$prepayments = array();
+				while($inv = db_fetch($result))
 				{
-					$rep->title = _('INVOICE');
-					$rep->filename = "Invoice" . $myrow['reference'] . ".pdf";
+					$prepayments[] = $inv;
+					if ($inv['trans_no'] == $row['trans_no'])
+					break;
 				}
+
+				if (count($prepayments) > ($show_this_payment ? 0 : 1))
+					$summary_start_row += (count($prepayments)) * $rep->lineHeight;
 				else
-				{
-					$rep->title = _('CREDIT NOTE');
-					$rep->filename = "CreditNote" . $myrow['reference'] . ".pdf";
-				}
-				$rep->Info($params, $cols, null, $aligns);
+					unset($prepayments);
 			}
-			else
-				$rep->title = ($j == 10) ? _('INVOICE') : _('CREDIT NOTE');
-			$rep->Header2($myrow, $branch, $sales_order, $baccount, $j);
 
-   			$result = get_customer_trans_details($j, $i);
+   			$result = get_customer_trans_details(ST_SALESINVOICE, $row['trans_no']);
 			$SubTotal = 0;
 			while ($myrow2=db_fetch($result))
 			{
+				if ($myrow2["quantity"] == 0)
+					continue;
+
 				$Net = round2($sign * ((1 - $myrow2["discount_percent"]) * $myrow2["unit_price"] * $myrow2["quantity"]),
 				   user_price_dec());
 				$SubTotal += $Net;
@@ -123,90 +177,156 @@ function print_invoices()
 		  			$DisplayDiscount ="";
 	    		else
 		  			$DisplayDiscount = number_format2($myrow2["discount_percent"]*100,user_percent_dec()) . "%";
-				$rep->TextCol(0, 1,	$myrow2['stock_id'], -2);
+				$c=0;
+				$rep->TextCol($c++, $c,	$myrow2['stock_id'], -2);
 				$oldrow = $rep->row;
-				$rep->TextColLines(1, 2, $myrow2['StockDescription'], -2);
+				$rep->TextColLines($c++, $c, $myrow2['StockDescription'], -2);
+				if (!empty($SysPrefs->prefs['long_description_invoice']) && !empty($myrow2['StockLongDescription']))
+				{
+					$c--;
+					$rep->TextColLines($c++, $c, $myrow2['StockLongDescription'], -2);
+				}
 				$newrow = $rep->row;
 				$rep->row = $oldrow;
-				$rep->TextCol(2, 3,	$DisplayQty, -2);
-				$rep->TextCol(3, 4,	$myrow2['units'], -2);
-				$rep->TextCol(4, 5,	$DisplayPrice, -2);
-				$rep->TextCol(5, 6,	$DisplayDiscount, -2);
-				$rep->TextCol(6, 7,	$DisplayNet, -2);
+				if ($Net != 0.0 || !is_service($myrow2['mb_flag']) || !$SysPrefs->no_zero_lines_amount())
+				{
+					$rep->TextCol($c++, $c,	$DisplayQty, -2);
+					$rep->TextCol($c++, $c,	$myrow2['units'], -2);
+					$rep->TextCol($c++, $c,	$DisplayPrice, -2);
+					$rep->TextCol($c++, $c,	$DisplayDiscount, -2);
+					$rep->TextCol($c++, $c,	$DisplayNet, -2);
+				}
 				$rep->row = $newrow;
 				//$rep->NewLine(1);
-				if ($rep->row < $rep->bottomMargin + (15 * $rep->lineHeight))
-					$rep->Header2($myrow, $branch, $sales_order, $baccount,$j);
+				if ($rep->row < $summary_start_row)
+					$rep->NewPage();
 			}
 
-			$comments = get_comments($j, $i);
-			if ($comments && db_num_rows($comments))
+			$memo = get_comments_string(ST_SALESINVOICE, $row['trans_no']);
+			if ($memo != "")
 			{
 				$rep->NewLine();
-    			while ($comment=db_fetch($comments))
-    				$rep->TextColLines(0, 6, $comment['memo_'], -2);
+				$rep->TextColLines(1, 3, $memo, -2);
 			}
 
    			$DisplaySubTot = number_format2($SubTotal,$dec);
-   			$DisplayFreight = number_format2($sign*$myrow["ov_freight"],$dec);
 
-    		$rep->row = $rep->bottomMargin + (15 * $rep->lineHeight);
-			$linetype = true;
-			$doctype = $j;
-			if ($rep->currency != $myrow['curr_code'])
-			{
-				include($path_to_root . "/reporting/includes/doctext2.inc");
-			}
-			else
+			// set to start of summary line:
+    		$rep->row = $summary_start_row;
+			if (isset($prepayments))
 			{
-				include($path_to_root . "/reporting/includes/doctext.inc");
+				// Partial invoices table
+				$rep->TextCol(0, 3,_("Prepayments invoiced to this order up to day:"));
+				$rep->TextCol(0, 3,	str_pad('', 150, '_'));
+				$rep->cols[2] -= 20;
+				$rep->aligns[2] = 'right';
+				$rep->NewLine(); $c = 0; $tot_pym=0;
+				$rep->TextCol(0, 3,	str_pad('', 150, '_'));
+				$rep->TextCol($c++, $c, _("Date"));
+				$rep->TextCol($c++, $c,	_("Invoice reference"));
+				$rep->TextCol($c++, $c,	_("Amount"));
+
+				foreach ($prepayments as $invoice)
+				{
+					if ($show_this_payment || ($invoice['reference'] != $myrow['reference']))
+					{
+						$rep->NewLine();
+						$c = 0; $tot_pym += $invoice['prep_amount'];
+						$rep->TextCol($c++, $c,	sql2date($invoice['tran_date']));
+						$rep->TextCol($c++, $c,	$invoice['reference']);
+						$rep->TextCol($c++, $c, number_format2($invoice['prep_amount'], $dec));
+					}
+					if ($invoice['reference']==$myrow['reference']) break;
+				}
+				$rep->TextCol(0, 3,	str_pad('', 150, '_'));
+				$rep->NewLine();
+				$rep->TextCol(1, 2,	_("Total payments:"));
+				$rep->TextCol(2, 3,	number_format2($tot_pym, $dec));
 			}
 
-			$rep->TextCol(3, 6, $doc_Sub_total, -2);
+
+			$doctype = ST_SALESINVOICE;
+    		$rep->row = $summary_start_row;
+			$rep->cols[2] += 20;
+			$rep->cols[3] += 20;
+			$rep->aligns[3] = 'left';
+
+			$rep->TextCol(3, 6, _("Sub-total"), -2);
 			$rep->TextCol(6, 7,	$DisplaySubTot, -2);
 			$rep->NewLine();
-			$rep->TextCol(3, 6, $doc_Shipping, -2);
-			$rep->TextCol(6, 7,	$DisplayFreight, -2);
-			$rep->NewLine();
-			$tax_items = get_trans_tax_details($j, $i);
+			if ($myrow['ov_freight'] != 0.0)
+			{
+   				$DisplayFreight = number_format2($sign*$myrow["ov_freight"],$dec);
+				$rep->TextCol(3, 6, _("Shipping"), -2);
+				$rep->TextCol(6, 7,	$DisplayFreight, -2);
+				$rep->NewLine();
+			}	
+			$tax_items = get_trans_tax_details(ST_SALESINVOICE, $row['trans_no']);
+			$first = true;
     		while ($tax_item = db_fetch($tax_items))
     		{
+    			if ($tax_item['amount'] == 0)
+    				continue;
     			$DisplayTax = number_format2($sign*$tax_item['amount'], $dec);
 
-    			if ($tax_item['included_in_price'])
+    			if ($SysPrefs->suppress_tax_rates() == 1)
+    				$tax_type_name = $tax_item['tax_type_name'];
+    			else
+    				$tax_type_name = $tax_item['tax_type_name']." (".$tax_item['rate']."%) ";
+
+    			if ($myrow['tax_included'])
     			{
-					$rep->TextCol(3, 7, $doc_Included . " " . $tax_item['tax_type_name'] .
-						" (" . $tax_item['rate'] . "%) " . $doc_Amount . ":" . $DisplayTax, -2);
+    				if ($SysPrefs->alternative_tax_include_on_docs() == 1)
+    				{
+    					if ($first)
+    					{
+							$rep->TextCol(3, 6, _("Total Tax Excluded"), -2);
+							$rep->TextCol(6, 7,	number_format2($sign*$tax_item['net_amount'], $dec), -2);
+							$rep->NewLine();
+    					}
+						$rep->TextCol(3, 6, $tax_type_name, -2);
+						$rep->TextCol(6, 7,	$DisplayTax, -2);
+						$first = false;
+    				}
+    				else
+						$rep->TextCol(3, 6, _("Included") . " " . $tax_type_name . _("Amount") . ": " . $DisplayTax, -2);
 				}
     			else
     			{
-					$rep->TextCol(3, 6, $tax_item['tax_type_name'] . " (" .
-						$tax_item['rate'] . "%)", -2);
+					$rep->TextCol(3, 6, $tax_type_name, -2);
 					$rep->TextCol(6, 7,	$DisplayTax, -2);
 				}
 				$rep->NewLine();
     		}
+
     		$rep->NewLine();
 			$DisplayTotal = number_format2($sign*($myrow["ov_freight"] + $myrow["ov_gst"] +
 				$myrow["ov_amount"]+$myrow["ov_freight_tax"]),$dec);
 			$rep->Font('bold');
-			$rep->TextCol(3, 6, $doc_TOTAL_INVOICE, - 2);
+			if (!$myrow['prepaid']) $rep->Font('bold');
+				$rep->TextCol(3, 6, $rep->formData['prepaid'] ? _("TOTAL ORDER VAT INCL.") : _("TOTAL INVOICE"), - 2);
 			$rep->TextCol(6, 7, $DisplayTotal, -2);
+			if ($rep->formData['prepaid'])
+			{
+				$rep->NewLine();
+				$rep->Font('bold');
+				$rep->TextCol(3, 6, $rep->formData['prepaid']=='final' ? _("THIS INVOICE") : _("TOTAL INVOICE"), - 2);
+				$rep->TextCol(6, 7, number_format2($myrow['prep_amount'], $dec), -2);
+			}
+			$words = price_in_words($rep->formData['prepaid'] ? $myrow['prep_amount'] : $myrow['Total']
+				, array( 'type' => ST_SALESINVOICE, 'currency' => $myrow['curr_code']));
+			if ($words != "")
+			{
+				$rep->NewLine(1);
+				$rep->TextCol(1, 7, $myrow['curr_code'] . ": " . $words, - 2);
+			}
 			$rep->Font();
 			if ($email == 1)
 			{
-				$myrow['dimension_id'] = $paylink; // helper for pmt link
-				if ($myrow['email'] == '')
-				{
-					$myrow['email'] = $branch['email'];
-					$myrow['DebtorName'] = $branch['br_name'];
-				}
-				$rep->End($email, $doc_Invoice_no . " " . $myrow['reference'], $myrow, $j);
+				$rep->End($email, sprintf(_("Invoice %d from %s"), $myrow['reference'], get_company_pref('coy_name')));
 			}
-		}
 	}
 	if ($email == 0)
 		$rep->End();
 }
 
-?>
\ No newline at end of file