X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FRC.pm;h=9493f0f6a81f34aa413e8e68297a9b61c07ec601;hb=21daf701fac24bbc753abae8d8f5f6b8bcf984f7;hp=3c91195f8b17d6de55c51546a0b7c61eaba6a033;hpb=dddecda1a73ac122ab214c473919368605c16c47;p=kivitendo-erp.git

diff --git a/SL/RC.pm b/SL/RC.pm
index 3c91195f8..9493f0f6a 100644
--- a/SL/RC.pm
+++ b/SL/RC.pm
@@ -36,6 +36,8 @@ package RC;
 
 use SL::DBUtils;
 
+use strict;
+
 sub paymentaccounts {
   $main::lxdebug->enter_sub();
 
@@ -74,7 +76,7 @@ sub payment_transactions {
       qq|   WHERE c2.accno = ?) AS category | .
       qq|FROM acc_trans a | .
       qq|JOIN chart c ON (c.id = a.chart_id) | .
-      qq|WHERE a.transdate < date ? AND a.cleared = '1' AND c.accno = ?|;
+      qq|WHERE a.transdate < ? AND a.cleared = '1' AND c.accno = ?|;
     @values = ($form->{accno}, conv_date($form->{fromdate}), $form->{accno});
 
   } else {
@@ -91,7 +93,7 @@ sub payment_transactions {
   ($form->{beginningbalance}, $form->{category}) =
     selectrow_query($form, $dbh, $query, @values);
 
-  my %oid = ('Pg'     => 'ac.oid',
+  my %oid = ('Pg'     => 'ac.acc_trans_id',
              'Oracle' => 'ac.rowid');
   @values = ();
   $query =
@@ -184,7 +186,7 @@ sub reconcile {
   my $dbh = $form->dbconnect($myconfig);
 
   my ($query, $i);
-  my %oid = ('Pg'     => 'oid',
+  my %oid = ('Pg'     => 'acc_trans_id',
              'Oracle' => 'rowid');
 
   # clear flags