X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/dddecda1a73ac122ab214c473919368605c16c47..e1cb00366d40cc3a1b07e065b51ad39c84baf7e6:/SL/RC.pm diff --git a/SL/RC.pm b/SL/RC.pm index 3c91195f8..aa0b49214 100644 --- a/SL/RC.pm +++ b/SL/RC.pm @@ -74,7 +74,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 +91,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 +184,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