From 007780f7a885664171371e138296efc40311a770 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Fri, 30 Mar 2007 21:54:02 +0000
Subject: Fixing POS open transaction report, and catching error if FXRate is
 not entered

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1018 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/aa.pl  | 1 -
 bin/pos.pl | 8 ++++++--
 2 files changed, 6 insertions(+), 3 deletions(-)

(limited to 'bin')

diff --git a/bin/aa.pl b/bin/aa.pl
index f1e43e37..3c3f875a 100755
--- a/bin/aa.pl
+++ b/bin/aa.pl
@@ -1220,7 +1220,6 @@ sub search {
 
 
 sub transactions {
-
   if ($form->{$form->{vc}}) {
     $form->{$form->{vc}} = $form->unescape($form->{$form->{vc}});
     ($form->{$form->{vc}}, $form->{"$form->{vc}_id"}) = split(/--/, $form->{$form->{vc}});
diff --git a/bin/pos.pl b/bin/pos.pl
index 9d98304e..f6419458 100755
--- a/bin/pos.pl
+++ b/bin/pos.pl
@@ -123,20 +123,24 @@ sub add {
 sub openinvoices {
   undef %column_data;
   undef %column_heading;
+  $form->{customer} = "";
+  $form->{customer_id} = 0;
+  delete $form->{l_subtotal};
+  delete $form->{subtotal};
 
   $ENV{REMOTE_ADDR} =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;
   $form->{till} = $4;
   
   $form->{sort} = 'transdate';
 
-  for (qw(open l_invnumber l_transdate l_name l_amount l_curr l_till l_subtotal)) { $form->{$_} = 'Y'; }
+  for (qw(open l_invnumber l_transdate l_name l_amount l_curr l_till)) { $form->{$_} = 'Y'; }
 
   if ($myconfig{role} ne 'user') {
     $form->{l_employee} = 'Y';
   }
 
   $form->{title} = $locale->text('Open');
-  transactions;
+  &transactions;
   
 }
 
-- 
cgit v1.2.3