<?php
/* $Revision: 1.20 $ */

/*
Call this page with:
				1. A TransID to show the make up and to modify existing allocations.
				2. A DebtorNo to show all outstanding receipts or credits yet to be allocated.
				3. No parameters to show all outstanding credits and receipts yet to be allocated.
*/

include('includes/DefineCustAllocsClass.php');
$PageSecurity = 3;
include('includes/session.inc');
$title = _('Customer Receipt') . '/' . _('Credit Note Allocations');
include('includes/header.inc');
include('includes/SQL_CommonFunctions.inc');

if ( isset($_POST['Cancel']) ) {
	unset($_POST['UpdateDatabase']);
	unset($_POST['RefreshAllocTotal']);
	unset($_POST['AllocTrans']);
}

if (isset($_POST['UpdateDatabase']) OR isset($_POST['RefreshAllocTotal'])) {

	if (!isset($_SESSION['Alloc'])){
		prnMsg(_('Allocations can not be processed again') . '. ' .
			_('If you hit refresh on this page after having just processed an allocation') . ', ' .
			_('try to use the navigation links provided rather than the back button') . ', ' .
			_('to avoid this message in future'),'info');
		include('includes/footer.inc');
		exit;
	}

	$InputError = 0;
	$TotalAllocated = 0;
	$TotalDiffOnExch = 0;

	for ($AllocCounter=0;$AllocCounter < $_POST['TotalNumberOfAllocs']; $AllocCounter++)
	// loop through amounts allocated using AllocnItm->ID for each record
	{
		if (isset($_POST['Amt' . $AllocCounter])) // allocatable charge amounts
		{
			if (!is_numeric($_POST['Amt' . $AllocCounter]))
			{
				$_POST['Amt' . $AllocCounter] = 0;
			}
			if ($_POST['Amt' . $AllocCounter] < 0)
			{
				prnMsg(_('Amount entered was negative') . '. ' . _('Only positive amounts are allowed') . '.','warn');
				$_POST['Amt' . $AllocCounter] = 0;
			}
			if (isset($_POST['All' . $AllocCounter]) and $_POST['All' . $AllocCounter] == True)
			{
				$_POST['Amt' . $AllocCounter] = $_POST['YetToAlloc' . $AllocCounter];
			}
			if ($_POST['Amt' . $AllocCounter] > $_POST['YetToAlloc' . $AllocCounter])
			{
				$_POST['Amt' . $AllocCounter]=$_POST['YetToAlloc' . $AllocCounter];
				// Amount entered must be smaller than unallocated amount
			}

			$_SESSION['Alloc']->Allocs[$_POST['AllocID' . $AllocCounter]]->AllocAmt = $_POST['Amt' . $AllocCounter];
			// recalcuate the new difference on exchange (a +positive amount is a gain -ve a loss)
			$_SESSION['Alloc']->Allocs[$_POST['AllocID' . $AllocCounter]]->DiffOnExch =
			  ($_POST['Amt' . $AllocCounter] / $_SESSION['Alloc']->TransExRate) -
			  ($_POST['Amt' . $AllocCounter] / $_SESSION['Alloc']->Allocs[$_POST['AllocID' . $AllocCounter]]->ExRate);

			$TotalDiffOnExch = $TotalDiffOnExch + $_SESSION['Alloc']->Allocs[$_POST['AllocID' . $AllocCounter]]->DiffOnExch;
			$TotalAllocated = $TotalAllocated + $_POST['Amt' . $AllocCounter];
		}

	}

	if ($TotalAllocated + $_SESSION['Alloc']->TransAmt > 0.008)
	{
	   prnMsg(_('Allocation could not be processed because the amount allocated is more than the').' ' .
	    $_SESSION['Alloc']->TransTypeName  . ' '._('being allocated') . '<BR>' . _('Total allocated').' = ' .
	    $TotalAllocated . ' '._('and the total amount of the') .' ' . $_SESSION['Alloc']->TransTypeName  . ' '.
	    _('was').' ' . -$_SESSION['Alloc']->TransAmt,'error');
	   $InputError=1;
	}
}

if (isset($_POST['UpdateDatabase'])) {
	if ($InputError==0)
	{
		//
		//========[ START TRANSACTION ]===========
		//
	   	$error = '';
		$Result=DB_query('BEGIN',$db);
		$AllAllocations = 0;
		foreach ($_SESSION['Alloc']->Allocs as $AllocnItem)
		{
			  if ($AllocnItem->PrevAllocRecordID != 'NA')
			  // original allocation has changed so delete the old allocation record
			  {
				$SQL = 'DELETE FROM custallocns WHERE id = ' . $AllocnItem->PrevAllocRecordID;
				if( !$Result = DB_query($SQL,$db) )
				{
					$error = 'Could not delete old allocation record';
				}
			 }

//			 if ($AllocnItem->OrigAlloc != $AllocnItem->AllocAmt) // has previous allocated amount changed?
//			 {
				if ($AllocnItem->AllocAmt > 0)
				{
					$SQL = "INSERT INTO
							custallocns (
							datealloc,
							amt,
							transid_allocfrom,
							transid_allocto
							) VALUES ('" . FormatDateForSQL(date('d/m/Y')) . "',
							" . $AllocnItem->AllocAmt . ',
							' . $_SESSION['Alloc']->AllocTrans . ',
							' . $AllocnItem->ID . ')';
					if( !$Result = DB_query($SQL,$db) )
					{
						$error = 'Could not change allocation record';
					}
				}
				$NewAllocTotal = $AllocnItem->PrevAlloc + $AllocnItem->AllocAmt;
				$AllAllocations = $AllAllocations + $AllocnItem->AllocAmt;
				$Settled = (abs($NewAllocTotal-$AllocnItem->TransAmount) < 0.005) ? 1 : 0;

				$SQL = 'UPDATE debtortrans
						SET diffonexch=' . $AllocnItem->DiffOnExch . ',
						alloc = ' . $NewAllocTotal . ',
						settled = ' . $Settled . '
						WHERE id = ' . $AllocnItem->ID;
				if( !$Result = DB_query($SQL,$db) )
				{
					$error = 'Could not update difference on exchange';
				}
//			 }
		}
		$Settled = (abs($TotalAllocated + $_SESSION['Alloc']->TransAmt) < 0.01) ? 1 : 0;

		// Update the receipt or credit note
		$SQL = 'UPDATE debtortrans
				SET alloc = ' .  -$AllAllocations . ',
				diffonexch = ' . -$TotalDiffOnExch . ',
				settled=' . $Settled . '
				WHERE id = ' . $_POST['AllocTrans'];

		if( !$Result = DB_query($SQL,$db) )
		{
			$error = 'Could not update receipt or credit note';
		}

		// If GLLink to debtors active post diff on exchange to GL
		$MovtInDiffOnExch = -$_SESSION['Alloc']->PrevDiffOnExch - $TotalDiffOnExch;

		if ($MovtInDiffOnExch !=0)
		{
			if ($_SESSION['CompanyRecord']['gllink_debtors'] == 1)
			{
				$PeriodNo = GetPeriod($_SESSION['Alloc']->TransDate, $db);
				$_SESSION['Alloc']->TransDate = FormatDateForSQL($_SESSION['Alloc']->TransDate);

		    		$SQL = 'INSERT INTO gltrans (
		    				type,
		    				typeno,
		    				trandate,
		    				periodno,
		    				account,
		    				narrative,
		    				amount
		    				) VALUES (
							' . $_SESSION['Alloc']->TransType . ',
							 ' . $_SESSION['Alloc']->TransNo . ",
							 '" . $_SESSION['Alloc']->TransDate . "',
							  " . $PeriodNo . ',
							  ' . $_SESSION['CompanyRecord']['exchangediffact'] . ",
							  '', " . $MovtInDiffOnExch . ')';
				if( !$Result = DB_query($SQL,$db) )
				{
					$error = 'Could not update exchange difference in General Ledger';
				}

	      		$SQL = 'INSERT INTO gltrans (
	      				type,
	      				typeno,
	      				trandate,
	      				periodno,
	      				account,
	      				narrative,
	      				amount
	      				) VALUES (
						' . $_SESSION['Alloc']->TransType . ',
						' . $_SESSION['Alloc']->TransNo . ",
						'" . $_SESSION['Alloc']->TransDate . "',
						" . $PeriodNo . ',
						' . $_SESSION['CompanyRecord']['debtorsact'] . ",
						'', " . -$MovtInDiffOnExch . ')';
				if( !$Result = DB_query($SQL,$db) )
				{
					$error = 'Could not update debtors control in General Ledger';
				}
			}

		}

		//
		//========[ COMMIT TRANSACTION ]===========
		//
		if ( empty($error) )
		{
				$Result = DB_query('COMMIT', $db);
		} else {
				$Result = DB_query('ROLLBACK', $db);
				prnMsg($error,'error');
		}
		unset($_SESSION['Alloc']);
		unset($_POST['AllocTrans']);
	}
}

if (isset($_GET['AllocTrans'])) {
	if (isset($_SESSION['Alloc']))
	{
		unset($_SESSION['Alloc']->Allocs);
		unset($_SESSION['Alloc']);
	}

	$_SESSION['Alloc'] = new Allocation;
	$_POST['AllocTrans'] = $_GET['AllocTrans']; 	// Set AllocTrans when page first called

	$SQL= "SELECT systypes.typename,
		  debtortrans.type,
		  debtortrans.transno,
		  debtortrans.trandate,
		  debtortrans.debtorno,
		  debtorsmaster.name,
		  rate,
		  (debtortrans.ovamount+debtortrans.ovgst+debtortrans.ovfreight+debtortrans.ovdiscount) as total,
		  debtortrans.diffonexch,
		  debtortrans.alloc
		  FROM debtortrans,
		  systypes,
		  debtorsmaster
		  WHERE
		  debtortrans.type = systypes.typeid AND
		  debtortrans.debtorno = debtorsmaster.debtorno AND
		  debtortrans.id=" . $_POST['AllocTrans'];
	$Result = DB_query($SQL,$db);
	$myrow = DB_fetch_array($Result);
	DB_free_result($Result);

	$_SESSION['Alloc']->AllocTrans	= $_POST['AllocTrans'];
	$_SESSION['Alloc']->DebtorNo		= $myrow['debtorno'];
	$_SESSION['Alloc']->CustomerName	= $myrow['name'];
	$_SESSION['Alloc']->TransType		= $myrow['type'];
	$_SESSION['Alloc']->TransTypeName	= $myrow['typename'];
	$_SESSION['Alloc']->TransNo		= $myrow['transno'];
	$_SESSION['Alloc']->TransExRate	= $myrow['rate'];
	$_SESSION['Alloc']->TransAmt		= $myrow['total'];
	$_SESSION['Alloc']->PrevDiffOnExch = $myrow['diffonexch'];
	$_SESSION['Alloc']->TransDate		= ConvertSQLDate($myrow['trandate']);

	// First get transactions that have outstanding balances
	$SQL = "SELECT debtortrans.id,
			typename,
			transno,
			trandate,
			rate,
			ovamount+ovgst+ovfreight+ovdiscount as total,
			diffonexch,
			alloc
			FROM debtortrans, systypes
			WHERE debtortrans.type = systypes.typeid
			AND debtortrans.settled=0
			AND debtorno='" . $_SESSION['Alloc']->DebtorNo . "'
			ORDER BY debtortrans.trandate";
	$Result = DB_query($SQL,$db);

	while ($myrow=DB_fetch_array($Result))
	{
		$_SESSION['Alloc']->add_to_AllocsAllocn (
											$myrow['id'],
											$myrow['typename'],
											$myrow['id'],
											ConvertSQLDate($myrow['trandate']),
											0,
											$myrow['total'],
											$myrow['rate'],
											$myrow['diffonexch'],
											$myrow['diffonexch'],
											$myrow['alloc'],
											'NA'
										);
	}
	DB_free_result($Result);

	// Get trans previously allocated to by this trans - this will overwrite incomplete allocations above
	$SQL= "SELECT debtortrans.id,
			typename,
			transno,
			trandate,
			rate,
			ovamount+ovgst+ovfreight+ovdiscount AS total,
			diffonexch,
			debtortrans.alloc-custallocns.amt AS prevallocs,
			amt,
			custallocns.id AS allocid
			FROM debtortrans,
			systypes,
			custallocns
			WHERE debtortrans.type = systypes.typeid AND
			debtortrans.id=custallocns.transid_allocto AND
			custallocns.transid_allocfrom=" . $_POST['AllocTrans'] . " AND
			debtorno='" . $_SESSION['Alloc']->DebtorNo . "'
			ORDER BY debtortrans.trandate";
	$Result=DB_query($SQL,$db);

	while ($myrow=DB_fetch_array($Result))
	{
		$DiffOnExchThisOne = ($myrow['amt']/$myrow['rate']) - ($myrow['amt']/$_SESSION['Alloc']->TransExRate);
		$_SESSION['Alloc']->add_to_AllocsAllocn (
											$myrow['id'],
											$myrow['typename'],
											$myrow['id'],
											ConvertSQLDate($myrow['trandate']),
											$myrow['amt'],
											$myrow['total'],
											$myrow['rate'],
											$DiffOnExchThisOne,
											($myrow['diffonexch'] - $DiffOnExchThisOne),
											$myrow['prevallocs'],
											$myrow['allocid']
										);
	}
	DB_free_result($Result);
}


//
//========[ SHOW OUR FORM ]===========
//
	// Page Border
	echo '<table border=1 width=100%><tr><td bgcolor="#FFFFFF">';

	// Context Navigation and Title
	echo '<table width=100%>
			<td width=40% align=left><a href="'. $rootpath . '/index.php?&Application=AR'. SID .'">' . _('Back to Customers') . '</a></td>
			<td align=left><font size=4 color=blue><u><b>' . _('Allocate Receipts') . '</b></u></font></td>
	      </table><p><center>';

	$TableHeader = "<tr>
		     		<th>" . _('Trans Type') . "</th>
		     		<th>" . _('Customer') . "</th>
		     		<th>" . _('Cust No') . "</th>
		     		<th>" . _('Number') . "</th>
		     		<th> " . _('Date') . "</th>
		     		<th>" . _('Total') . "</th>
		     		<th>" . _('To Alloc') . "</th>
		     		<th>" . _('Action') . "</th>
		     	</tr>";

	if (isset($_POST['AllocTrans'])) // Page called with trans number
	{
		echo "<form action='" . $_SERVER['PHP_SELF'] . '?' . SID . "' method=post>";
		echo "<input type=hidden name='AllocTrans' value=" . $_POST['AllocTrans'] . '>';

		// Show trans already allocated and potential new allocations
		echo '<font color=blue><b>' . $_SESSION['Alloc']->DebtorNo . ' - ' . $_SESSION['Alloc']->CustomerName . '</b>';

		if ($_SESSION['Alloc']->TransExRate != 1)
		{
				echo '<br>'._('Amount in customer currency').' <B>' .
				number_format(-$_SESSION['Alloc']->TransAmt,2) .
				'</B><i> ('._('converted into local currency at an exchange rate of'). ' '
				. $_SESSION['Alloc']->TransExRate . ')</i>';
		}

		echo '<p><table border=1>';
		echo "<tr>
				<th>" . _('Trans') . '<br>' . _('Type') . "</th>
				<th>" . _('Trans') . '<br>' . _('Number') . "</th>
				<th>" . _('Trans') . '<br>' . _('Date') . "</th>
				<th>" . _('Total') . '<br>' . _('Amount') . "</th>
				<th>" . _('Yet to') . '<br>' . _('Allocate') . "</th>
				<th>" . _('This') . '<br>' . _('Allocation') . "</th>
				<th>" . _('Running') . '<br>' . _('Balance') . "</th>
			</tr>";

		$Counter = 0;
	    $TotalAllocated = 0;
	    $balance = 0;
		$j=0;
		foreach ($_SESSION['Alloc']->Allocs as $AllocnItem)
		{
			$YetToAlloc = ($AllocnItem->TransAmount - $AllocnItem->PrevAlloc);

			if ( $AllocnItem->TypeNo == $_POST['AllocTrans'] )
			{
					echo '<tr class="OddTableRows">';
					$curTrans = _('Being allocated');
					$remaining = -$YetToAlloc;
			}
			elseif ($AllocnItem->AllocAmt > 0)
			{
					echo '<tr class="OddTableRows">';
			} else {
					echo '<tr class="EvenTableRows">';
					$curTrans = "&nbsp;";
			}

			echo "<td>" . $AllocnItem->TransType . "</td>
				<td>" . $AllocnItem->TypeNo . "</td>
				<td align=right>" . $AllocnItem->TransDate . "</td>
				<td align=right>" . number_format($AllocnItem->TransAmount,2) . "</td>
				<td align=right>" . number_format($YetToAlloc,2) . "</td>";
			$j++;

			if ($AllocnItem->TransAmount < 0)
			{
					$balance+=$YetToAlloc;
					echo "<td align=center>" . $curTrans ."</td><td align=right>" . number_format($balance,2) . "</td></tr>";
			} else {
					echo "<input type=hidden name='YetToAlloc" . $Counter . "' value=" . round($YetToAlloc,2) . '></td>';
					echo "<td align=right><input tabindex=".$j." type='checkbox' name='All" .  $Counter . "'";

					if (ABS($AllocnItem->AllocAmt-$YetToAlloc) < 0.01)
					{
							echo ' value=' . True . '>';
					} else {
							echo '>';
					}
					$balance += $YetToAlloc-$AllocnItem->AllocAmt;
					$j++;
					echo "<input tabindex=".$j." type=text name='Amt" . $Counter ."' maxlength=12 size=13 value=" . round($AllocnItem->AllocAmt,2) . ">
						<input type=hidden name='AllocID" . $Counter . "' value=" . $AllocnItem->ID . '></td>
						<td align=right>' . number_format($balance,2) . '</td></tr>';
			}
			$TotalAllocated = $TotalAllocated + round($AllocnItem->AllocAmt,2);
			$Counter++;
		}

		echo "<tr>
				<td colspan=5 align=right><b>"._('Total Allocated').':</b></td>
				<td align=right><b><u>' . number_format($TotalAllocated,2) . '</u></b></td>';
		$j++;
		echo '<td rowspan=2>
				<input tabindex='.$j.' type=submit name=RefreshAllocTotal value=' . _('Recalculate Total To Allocate') . '></td>';
		echo '<tr>
				<td colspan=5 align=right><b>'._('Left to allocate').'</b></td>
				<td align=right><b>' . number_format($remaining-$TotalAllocated,2).'</b></td>
			</tr>';
		echo '</table><p>';
		echo "<input type=hidden name=TotalNumberOfAllocs value=" . $Counter . ">";
		echo "<input tabindex=".$j." type=submit name=UpdateDatabase value=" . _('Process Allocations') . ">";
		echo "<input tabindex=".$j." type=submit name=Cancel value=" . _('Cancel') . ">";

	}
	elseif (isset($_GET['DebtorNo'])) // Page called with customer code
	{
		unset($_SESSION['Alloc']->Allocs);
		unset($_SESSION['Alloc']);

		$SQL = "SELECT debtortrans.id,
				debtortrans.transno,
				systypes.typename,
				debtortrans.type,
				debtortrans.debtorno,
				debtorsmaster.name,
				debtortrans.trandate,
				debtortrans.reference,
				debtortrans.rate,
				debtortrans.ovamount+debtortrans.ovgst+debtortrans.ovdiscount+debtortrans.ovfreight as total,
				debtortrans.alloc FROM debtortrans,
				debtorsmaster,
				systypes
				WHERE debtortrans.type=systypes.typeid AND
				debtortrans.debtorno=debtorsmaster.debtorno AND
				debtortrans.debtorno='" . $_GET['DebtorNo'] . "' AND
				(type=12 or type=11) AND
				debtortrans.settled=0
				ORDER BY debtortrans.id";
		$result = DB_query($SQL,$db);

		if (DB_num_rows($result)==0)
		{
			prnMsg(_('No outstanding receipts or credits to be allocated for this customer'),'info');
			include('includes/footer.inc');
	      	exit;
	     }
	     echo '<table border=1>';
		echo $TableHeader;

		while ($myrow = DB_fetch_array($result))
		{
			echo "<tr>
					<td>" . $myrow['typename'] ."</td>
					<td>" . $myrow['name'] . "</td>
					<td>" . $myrow['debtorno'] . "</td>
					<td>" . $myrow['transno'] . "</td>
					<td>" . ConvertSQLDate($myrow['trandate']) . "</td>
					<td align=right>" . number_format($myrow['total'],2) . "</td>
					<td align=right>" . number_format($myrow['total']-$myrow['alloc'],2) . "</td>";
			echo '<td><a href=' . $_SERVER['PHP_SELF']. '?' . SID . '&AllocTrans=' . $myrow['id'] . '>' . _('Allocate') . '</a></td></tr>';
		}
		DB_free_result($Result);
		echo '</table><p>';
	}
	else  // Page called with no parameters
	{
		unset($_SESSION['Alloc']->Allocs);
		unset($_SESSION['Alloc']);
		$curDebtor = 0;

		$SQL = "SELECT debtortrans.id,
				debtortrans.transno,
				systypes.typename,
				debtortrans.type,
				debtortrans.debtorno,
				debtorsmaster.name,
				debtortrans.trandate,
				debtortrans.reference,
				debtortrans.rate,
				debtortrans.ovamount+debtortrans.ovgst+debtortrans.ovdiscount+debtortrans.ovfreight as total,
				debtortrans.alloc
				FROM debtortrans,
				debtorsmaster,
				systypes
				WHERE debtortrans.type=systypes.typeid AND
				debtortrans.debtorno=debtorsmaster.debtorno AND
				(type=12 or type=11) AND
				debtortrans.settled=0 AND
				debtortrans.ovamount<0
				ORDER BY debtorsmaster.name";
		$result = DB_query($SQL,$db);
		$trans = DB_num_rows($result);
		$curTrans = 1;
		echo '<table border=1>';
		echo $TableHeader;

		while ($myrow = DB_fetch_array($result))
		{
			$allocate = '<a href=' . $_SERVER['PHP_SELF']. '?' . SID . '&AllocTrans=' . $myrow['id'] . '>' . _('Allocate') . '</a>';

			if ( $curDebtor != $myrow['debtorno'] )
			{
				if ( $curTrans > 1 )
				{
					echo "<tr class='OddTableRows'><td colspan=7 align=right>" . number_format($balance,2) . "</td><td><b>Balance</b></td></tr>";
				}

				$balance = 0;
				$curDebtor = $myrow['debtorno'];

				$balSQL= "SELECT ovamount+ovgst+ovfreight+ovdiscount as total
					FROM debtortrans
					WHERE debtortrans.settled=0 AND
					debtorno='" . $myrow['debtorno'] . "'
					ORDER BY ovamount";
				$balResult = DB_query($balSQL,$db);

				while ($balRow = DB_fetch_array($balResult))
				{
					$balance += $balRow['total'];
				}
				DB_free_result($balResult);
			}
			$curTrans ++;

			if ( isset($balance) and $balance < -0.01 )
			{
				$allocate = '&nbsp;';
			}


			echo "<tr>
					<td>" . $myrow['typename'] ."</td>
					<td>" . $myrow['name'] . "</td>
					<td>" . $myrow['debtorno'] . "</td>
					<td>" . $myrow['transno'] . "</td>
					<td>" . ConvertSQLDate($myrow['trandate']) . "</td>
					<td align=right>" . number_format($myrow['total'],2) . "</td>
					<td align=right>" . number_format($myrow['total']-$myrow['alloc'],2) . "</td>";
			echo '<td>' . $allocate . '</td></tr>';

			if ( $curTrans > $trans )
			{
				if (!isset($balance)) {
					$balance=0;
				}
				echo "<tr class='OddTableRows'><td colspan=7 align=right>" . number_format($balance,2) . "</td><td><b>Balance</b></td></tr>";
			}
		}
		DB_free_result($result);
		echo '</table><p>';

		if ($trans == 0)
		{
			prnMsg(_('There are no allocations to be done'),'info');
		}
	}

echo '</center></td></tr></table>'; // end Page Border
include('includes/footer.inc');

?>