[wiaflos-devel] COMMIT - r288 - in trunk: soap/Plugins wiaflos/client/cmdline wiaflos/server

[svn at linuxrulz.org]

Author: nkukard
Date: 2009-05-19 08:52:39 +0000 (Tue, 19 May 2009)
New Revision: 288

Modified:
   trunk/soap/Plugins/GL.pm
   trunk/wiaflos/client/cmdline/GL.pm
   trunk/wiaflos/server/GL.pm
Log:
* Honor Type of transaction between frontend and backend


Modified: trunk/soap/Plugins/GL.pm
===================================================================
--- trunk/soap/Plugins/GL.pm	2009-05-17 09:05:49 UTC (rev 287)
+++ trunk/soap/Plugins/GL.pm	2009-05-19 08:52:39 UTC (rev 288)
@@ -331,6 +331,7 @@
 	$detail->{'AccountNumber'} = $data->{'AccountNumber'};
 	$detail->{'StartDate'} = $data->{'StartDate'};
 	$detail->{'EndDate'} = $data->{'EndDate'};
+	$detail->{'Type'} = $data->{'Type'};
 	$detail->{'BalanceBroughtForward'} = $data->{'BalanceBroughtForward'};
 	my $rawData = wiaflos::server::GL::getGLAccountEntries($detail);
 	if (ref $rawData ne "ARRAY") {
@@ -348,6 +349,7 @@
 		$tmpItem->{'TransactionDate'} = $item->{'TransactionDate'};
 		$tmpItem->{'Amount'} = $item->{'Amount'};
 		$tmpItem->{'TransactionReference'} = $item->{'TransactionReference'};
+		$tmpItem->{'TransactionType'} = $item->{'TransactionType'};
 
 		push(@data,$tmpItem);
 	}

Modified: trunk/wiaflos/client/cmdline/GL.pm
===================================================================
--- trunk/wiaflos/client/cmdline/GL.pm	2009-05-17 09:05:49 UTC (rev 287)
+++ trunk/wiaflos/client/cmdline/GL.pm	2009-05-19 08:52:39 UTC (rev 288)
@@ -207,7 +207,7 @@
 
 		foreach my $entry (@sorted) {
 			$balance->badd($entry->{'Amount'});
-			print $OUT swrite(<<'END', $entry->{'TransactionID'}, $entry->{'TransactionDate'}, $entry->{'Reference'} ? $entry->{'Reference'} : $entry->{'TransactionReference'}, $entry->{'Type'}, sprintf('%8.2f',$entry->{'Amount'}),sprintf('%8.2f',$balance));
+			print $OUT swrite(<<'END', $entry->{'TransactionID'}, $entry->{'TransactionDate'}, $entry->{'Reference'} ? $entry->{'Reference'} : $entry->{'TransactionReference'}, $entry->{'TransactionType'}, sprintf('%8.2f',$entry->{'Amount'}),sprintf('%8.2f',$balance));
 | @<<<<<<<< | @<<<<<<<<< | @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< | @|||||| | @>>>>>>>>>>> | @>>>>>>>>>>>>> |
 END
 		}

Modified: trunk/wiaflos/server/GL.pm
===================================================================
--- trunk/wiaflos/server/GL.pm	2009-05-17 09:05:49 UTC (rev 287)
+++ trunk/wiaflos/server/GL.pm	2009-05-19 08:52:39 UTC (rev 288)
@@ -655,6 +655,7 @@
 # @li TransactionDate Transaction date
 # @li Reference GL entry reference
 # @li Posted 0 if unposted, 1 if posted
+# @li Type Transaction type
 sub getGLTransactions
 {
 	my $data = shift;