Merge branch 'master' of vc.linet-services.de:public/lx-office-erp

[mfinanz.git] / SL / RC.pm

diff --git a/SL/RC.pm b/SL/RC.pm
index 65ea665f07affb13e3df6c56d8b1ef4402ed2b60..9493f0f6a81f34aa413e8e68297a9b61c07ec601 100644 (file)
--- 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();
 
@@ -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