From d2b06f2b3452f281d68b9df4c1bdabd0f483bbf8 Mon Sep 17 00:00:00 2001
From: jan <jan@lx-office-hosting.de>
Date: Thu, 14 Jan 2010 16:37:16 +0100
Subject: [PATCH] =?utf8?q?bug=201071=20Warum=20sollte=20bei=20Erreichen=20?=
 =?utf8?q?eines=20neuen=20Jahres=20die=20Konten=C3=BCbersicht=20nur=20noch?=
 =?utf8?q?=20die=20bereits=20bebuchten=20Konten=20anzeigen=3F=20Folgende?=
 =?utf8?q?=20Erweiterung:=201.)=20Gehe=20zur=C3=BCck=20bis=20zu=20dem=20Da?=
 =?utf8?q?tum=20an=20dem=20die=20B=C3=BCcher=20geschlossen=20wurden=202.)?=
 =?utf8?q?=20Falls=20die=20B=C3=BCcher=20noch=20nie=20geschlossen=20wurden?=
 =?utf8?q?,=20gehe=20zur=C3=BCck=20bis=20zum=20Bearbeitungsstart=20von=20l?=
 =?utf8?q?x-office.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/CA.pm | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/SL/CA.pm b/SL/CA.pm
index 460c5290b..1afbd7fbe 100644
--- a/SL/CA.pm
+++ b/SL/CA.pm
@@ -50,10 +50,22 @@ sub all_accounts {
   # connect to database
   my $dbh = $form->dbconnect($myconfig);
 
-  if ($form->{method} eq "cash") {
-    $acc_cash_where = qq| AND (a.trans_id IN (SELECT id FROM ar WHERE datepaid>=(select date_trunc('year', current_date)) UNION SELECT id FROM ap WHERE datepaid>=(select date_trunc('year', current_date)) UNION SELECT id FROM gl WHERE transdate>=(select date_trunc('year', current_date)))) |;
-  } else {
-    $acc_cash_where = " AND ((select date_trunc('year', a.transdate::date)) >= (select date_trunc('year', current_date)))";
+  # bug 1071 Warum sollte bei Erreichen eines neuen Jahres die Kontenübersicht nur noch die
+  # bereits bebuchten Konten anzeigen?
+  # Folgende Erweiterung:
+  # 1.) Gehe zurück bis zu dem Datum an dem die Bücher geschlossen wurden
+  # 2.) Falls die Bücher noch nie geschlossen wurden, gehe zurück bis zum Bearbeitungsstart
+  # COALESCE((SELECT closedto FROM defaults),(SELECT itime FROM defaults))
+
+  my $closedto_sql = "COALESCE((SELECT closedto FROM defaults),(SELECT itime FROM defaults))";
+
+  if ($form->{method} eq "cash") {  # EÜR
+    $acc_cash_where = qq| AND (a.trans_id IN (SELECT id FROM ar WHERE datepaid>= $closedto_sql
+                          UNION SELECT id FROM ap WHERE datepaid>= $closedto_sql
+                          UNION SELECT id FROM gl WHERE transdate>= $closedto_sql
+                        )) |;
+  } else {  # Bilanzierung
+    $acc_cash_where = " AND ((select date_trunc('year', a.transdate::date)) >= $closedto_sql) ";
   }
 
   my $query =
-- 
2.20.1