]> wagnertech.de Git - mfinanz.git/blobdiff - SL/RC.pm
projects / mfinanz.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
SelfTests: Weitere Randfälle zumindestens in der Analyse-Ausgabe erwähnen
[mfinanz.git] / SL / RC.pm
diff --git a/SL/RC.pm b/SL/RC.pm
index 1a428ab9ed5d8597ac2833dc2d24adb98bfc2623..8447bb8a6d693ba2b68d92d4b5f95ecaeec0c1be 100644 (file)
--- a/SL/RC.pm
+++ b/SL/RC.pm
@@ -34,6 +34,9 @@
 
 package RC;
 
 
 package RC;
 
+use SL::DBUtils;
+
+use strict;
 
 sub paymentaccounts {
   $main::lxdebug->enter_sub();
 
 sub paymentaccounts {
   $main::lxdebug->enter_sub();
@@ -43,24 +46,18 @@ sub paymentaccounts {
   # connect to database
   my $dbh = $form->dbconnect($myconfig);
 
   # connect to database
   my $dbh = $form->dbconnect($myconfig);
 
-  my $query = qq|SELECT c.accno, c.description
-                 FROM chart c
-                WHERE c.link LIKE '%_paid%'
-                AND (c.category = 'A' OR c.category = 'L')
-                ORDER BY c.accno|;
-  my $sth = $dbh->prepare($query);
-  $sth->execute || $form->dberror($query);
+  my $query =
+    qq|SELECT accno, description | .
+    qq|FROM chart | .
+    qq|WHERE link LIKE '%_paid%' AND category IN ('A', 'L') | .
+    qq|ORDER BY accno|;
 
 
-  while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
-    push @{ $form->{PR} }, $ref;
-  }
-  $sth->finish;
+  $form->{PR} = selectall_hashref_query($form, $dbh, $query);
   $dbh->disconnect;
 
   $main::lxdebug->leave_sub();
 }
 
   $dbh->disconnect;
 
   $main::lxdebug->leave_sub();
 }
 
-
 sub payment_transactions {
   $main::lxdebug->enter_sub();
 
 sub payment_transactions {
   $main::lxdebug->enter_sub();
 
@@ -69,108 +66,160 @@ sub payment_transactions {
   # connect to database, turn AutoCommit off
   my $dbh = $form->dbconnect_noauto($myconfig);
 
   # connect to database, turn AutoCommit off
   my $dbh = $form->dbconnect_noauto($myconfig);
 
-  my ($query, $sth);
-  
+  my ($query, @values);
+
   # get cleared balance
   if ($form->{fromdate}) {
   # get cleared balance
   if ($form->{fromdate}) {
-    $query = qq|SELECT sum(a.amount),
-                     (SELECT DISTINCT c2.category FROM chart c2
-                      WHERE c2accno = '$form->{accno}') AS category
-               FROM acc_trans a
-               JOIN chart c ON (c.id = a.chart_id)
-               WHERE a.transdate < date '$form->{fromdate}'
-               AND a.cleared = '1'
-               AND c.accno = '$form->{accno}'
-               |;
+    $query =
+      qq|SELECT sum(a.amount), | .
+      qq|  (SELECT DISTINCT c2.category FROM chart c2 | .
+      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 < ? AND a.cleared = '1' AND c.accno = ?|;
+    @values = ($form->{accno}, conv_date($form->{fromdate}), $form->{accno});
+
   } else {
   } else {
-    $query = qq|SELECT sum(a.amount),
-                     (SELECT DISTINCT c2.category FROM chart c2
-                      WHERE c2.accno = '$form->{accno}') AS category
-               FROM acc_trans a
-               JOIN chart c ON (c.id = a.chart_id)
-               WHERE a.cleared = '1'
-               AND c.accno = '$form->{accno}'
-               |;
-  }
-  
-  $sth = $dbh->prepare($query);
-  $sth->execute || $form->dberror($query);
-
-  ($form->{beginningbalance}, $form->{category}) = $sth->fetchrow_array;
-
-  $sth->finish;
-
-  my %oid = ( 'Pg'     => 'ac.oid',
-              'Oracle' => 'ac.rowid');
-  
-  $query = qq|SELECT c.name, ac.source, ac.transdate, ac.cleared,
-             ac.fx_transaction, ac.amount, a.id,
-             $oid{$myconfig->{dbdriver}} AS oid
-             FROM customer c, acc_trans ac, ar a, chart ch
-             WHERE c.id = a.customer_id
---           AND NOT ac.fx_transaction
-             AND ac.cleared = '0'
-             AND ac.trans_id = a.id
-             AND ac.chart_id = ch.id
-             AND ch.accno = '$form->{accno}'
-             |;
-             
-  $query .= " AND ac.transdate >= '$form->{fromdate}'" if $form->{fromdate};
-  $query .= " AND ac.transdate <= '$form->{todate}'" if $form->{todate};
-
-
-  $query .= qq|
-  
-      UNION
-              SELECT v.name, ac.source, ac.transdate, ac.cleared,
-             ac.fx_transaction, ac.amount, a.id,
-             $oid{$myconfig->{dbdriver}} AS oid 
-             FROM vendor v, acc_trans ac, ap a, chart ch
-             WHERE v.id = a.vendor_id
---           AND NOT ac.fx_transaction
-             AND ac.cleared = '0'
-             AND ac.trans_id = a.id
-             AND ac.chart_id = ch.id
-             AND ch.accno = '$form->{accno}'
-            |;
-             
-  $query .= " AND ac.transdate >= '$form->{fromdate}'" if $form->{fromdate};
-  $query .= " AND ac.transdate <= '$form->{todate}'" if $form->{todate};
-
-  $query .= qq|
-  
-      UNION
-             SELECT g.description, ac.source, ac.transdate, ac.cleared,
-             ac.fx_transaction, ac.amount, g.id,
-             $oid{$myconfig->{dbdriver}} AS oid 
-             FROM gl g, acc_trans ac, chart ch
-             WHERE g.id = ac.trans_id
---           AND NOT ac.fx_transaction
-             AND ac.cleared = '0'
-             AND ac.trans_id = g.id
-             AND ac.chart_id = ch.id
-             AND ch.accno = '$form->{accno}'
-             |;
-
-  $query .= " AND ac.transdate >= '$form->{fromdate}'" if $form->{fromdate};
-  $query .= " AND ac.transdate <= '$form->{todate}'" if $form->{todate};
+    $query =
+      qq|SELECT sum(a.amount), | .
+      qq|  (SELECT DISTINCT c2.category FROM chart c2 | .
+      qq|   WHERE c2.accno = ?) AS category | .
+      qq|FROM acc_trans a | .
+      qq|JOIN chart c ON (c.id = a.chart_id) | .
+      qq|WHERE a.cleared = '1' AND c.accno = ?|;
+    @values = ($form->{accno}, $form->{accno});
+  }
 
 
-  $query .= " ORDER BY 3,7,8";
+  ($form->{beginningbalance}, $form->{category}) =
+    selectrow_query($form, $dbh, $query, @values);
+
+  @values = ();
+  $query =
+    qq|SELECT c.name, ac.source, ac.transdate, ac.cleared, | .
+    qq|  ac.fx_transaction, ac.amount, a.id, | .
+    qq|  ac.acc_trans_id AS oid | .
+    qq|FROM customer c, acc_trans ac, ar a, chart ch | .
+    qq|WHERE c.id = a.customer_id | .
+    qq|  AND ac.cleared = '0' | .
+    qq|  AND ac.trans_id = a.id | .
+    qq|  AND ac.chart_id = ch.id | .
+    qq|  AND ch.accno = ? |;
+  push(@values, $form->{accno});
+
+  if($form->{fromdate}) {
+    $query .= qq|  AND ac.transdate >= ? |;
+    push(@values, conv_date($form->{fromdate}));
+  }
+
+  if($form->{todate}){
+    $query .= qq|  AND ac.transdate <= ? |;
+    push(@values, conv_date($form->{todate}));
+  }
+
+  if($form->{additional_fromdate}) {
+    $query .= qq|  AND ac.transdate >= ? |;
+    push(@values, conv_date($form->{additional_fromdate}));
+  }
+
+  if($form->{additional_todate}){
+    $query .= qq|  AND ac.transdate <= ? |;
+    push(@values, conv_date($form->{additional_todate}));
+  }
+
+  if($form->{filter_amount}){
+    $query .= qq|  AND ac.amount = ? |;
+    push(@values, conv_i($form->{filter_amount}));
+  }
+
+  $query .=
+    qq|UNION | .
 
 
-  $sth = $dbh->prepare($query);
-  $sth->execute || $form->dberror($query);
+    qq|SELECT v.name, ac.source, ac.transdate, ac.cleared, | .
+    qq|  ac.fx_transaction, ac.amount, a.id, | .
+    qq|  ac.acc_trans_id AS oid | .
+    qq|FROM vendor v, acc_trans ac, ap a, chart ch | .
+    qq|WHERE v.id = a.vendor_id | .
+    qq|  AND ac.cleared = '0' | .
+    qq|  AND ac.trans_id = a.id | .
+    qq|  AND ac.chart_id = ch.id | .
+    qq|  AND ch.accno = ? |;
+
+  push(@values, $form->{accno});
+
+  if($form->{fromdate}) {
+    $query .= qq| AND ac.transdate >= ? |;
+    push(@values, conv_date($form->{fromdate}));
+  }
+
+  if($form->{todate}){
+    $query .= qq| AND ac.transdate <= ? |;
+    push(@values, conv_date($form->{todate}));
+  }
+
+  if($form->{additional_fromdate}) {
+    $query .= qq| AND ac.transdate >= ? |;
+    push(@values, conv_date($form->{additional_fromdate}));
+  }
+
+  if($form->{additional_todate}){
+    $query .= qq| AND ac.transdate <= ? |;
+    push(@values, conv_date($form->{additional_todate}));
+  }
+
+  if($form->{filter_amount}){
+    $query .= qq| AND ac.amount = ? |;
+    push(@values, conv_i($form->{filter_amount}));
+  }
+
+  $query .=
+    qq|UNION | .
+
+    qq|SELECT g.description, ac.source, ac.transdate, ac.cleared, | .
+    qq|  ac.fx_transaction, ac.amount, g.id, | .
+    qq|  ac.acc_trans_id AS oid | .
+    qq|FROM gl g, acc_trans ac, chart ch | .
+    qq|WHERE g.id = ac.trans_id | .
+    qq|  AND ac.cleared = '0' | .
+    qq|  AND ac.trans_id = g.id | .
+    qq|  AND ac.chart_id = ch.id | .
+    qq|  AND ch.accno = ? |;
+
+  push(@values, $form->{accno});
+
+  if($form->{fromdate}) {
+    $query .= qq| AND ac.transdate >= ? |;
+    push(@values, conv_date($form->{fromdate}));
+  }
 
 
-  while (my $pr = $sth->fetchrow_hashref(NAME_lc)) {
-    push @{ $form->{PR} }, $pr;
+  if($form->{todate}){
+    $query .= qq| AND ac.transdate <= ? |;
+    push(@values, conv_date($form->{todate}));
   }
   }
-  $sth->finish;
+
+  if($form->{additional_fromdate}) {
+    $query .= qq| AND ac.transdate >= ? |;
+    push(@values, conv_date($form->{additional_fromdate}));
+  }
+
+  if($form->{additional_todate}){
+    $query .= qq| AND ac.transdate <= ? |;
+    push(@values, conv_date($form->{additional_todate}));
+  }
+
+  if($form->{filter_amount}){
+    $query .= qq| AND ac.amount = ? |;
+    push(@values, conv_i($form->{filter_amount}));
+  }
+
+  $query .= " ORDER BY 3,7,8";
+
+  $form->{PR} = selectall_hashref_query($form, $dbh, $query, @values);
 
   $dbh->disconnect;
 
   $dbh->disconnect;
-  
+
   $main::lxdebug->leave_sub();
 }
 
   $main::lxdebug->leave_sub();
 }
 
-
 sub reconcile {
   $main::lxdebug->enter_sub();
 
 sub reconcile {
   $main::lxdebug->enter_sub();
 
@@ -180,21 +229,21 @@ sub reconcile {
   my $dbh = $form->dbconnect($myconfig);
 
   my ($query, $i);
   my $dbh = $form->dbconnect($myconfig);
 
   my ($query, $i);
-  my %oid = ( 'Pg'     => 'oid',
-              'Oracle' => 'rowid');
-  
+
   # clear flags
   for $i (1 .. $form->{rowcount}) {
     if ($form->{"cleared_$i"}) {
   # clear flags
   for $i (1 .. $form->{rowcount}) {
     if ($form->{"cleared_$i"}) {
-      $query = qq|UPDATE acc_trans SET cleared = '1'
-                 WHERE $oid{$myconfig->{dbdriver}} = $form->{"oid_$i"}|;
-      $dbh->do($query) || $form->dberror($query);
+      $query =
+        qq|UPDATE acc_trans SET cleared = '1' | .
+        qq|WHERE acc_trans_id = ?|;
+      do_query($form, $dbh, $query, $form->{"oid_$i"});
 
       # clear fx_transaction
       if ($form->{"fxoid_$i"}) {
 
       # clear fx_transaction
       if ($form->{"fxoid_$i"}) {
-       $query = qq|UPDATE acc_trans SET cleared = '1'
-                   WHERE $oid{$myconfig->{dbdriver}} = $form->{"fxoid_$i"}|;
-       $dbh->do($query) || $form->dberror($query);
+        $query =
+          qq|UPDATE acc_trans SET cleared = '1' | .
+          qq|WHERE acc_trans_id = ?|;
+        do_query($form, $dbh, $query, $form->{"fxoid_$i"});
       }
     }
   }
       }
     }
   }
@@ -204,5 +253,33 @@ sub reconcile {
   $main::lxdebug->leave_sub();
 }
 
   $main::lxdebug->leave_sub();
 }
 
-1;
+sub get_statement_balance {
+  $main::lxdebug->enter_sub();
+
+  my ($self, $myconfig, $form) = @_;
 
 
+  # connect to database, turn AutoCommit off
+  my $dbh = $form->dbconnect_noauto($myconfig);
+
+  my ($query, @values);
+
+  $query = qq|SELECT sum(amount) FROM acc_trans where chart_id=45 AND cleared='1'|;
+
+  if($form->{fromdate}) {
+    $query .= qq| AND transdate >= ? |;
+    push(@values, conv_date($form->{fromdate}));
+  }
+
+  if($form->{todate}){
+    $query .= qq| AND transdate <= ? |;
+    push(@values, conv_date($form->{todate}));
+  }
+
+  ($form->{statement_balance}) = selectrow_query($form, $dbh, $query, @values);
+
+  $dbh->disconnect;
+
+  $main::lxdebug->leave_sub();
+}
+
+1;
Unnamed repository; edit this file 'description' to name the repository.