Revision d2b06f2b
Von jan vor fast 15 Jahren hinzugefügt
SL/CA.pm | ||
---|---|---|
50 | 50 |
# connect to database |
51 | 51 |
my $dbh = $form->dbconnect($myconfig); |
52 | 52 |
|
53 |
if ($form->{method} eq "cash") { |
|
54 |
$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)))) |; |
|
55 |
} else { |
|
56 |
$acc_cash_where = " AND ((select date_trunc('year', a.transdate::date)) >= (select date_trunc('year', current_date)))"; |
|
53 |
# bug 1071 Warum sollte bei Erreichen eines neuen Jahres die Konten?bersicht nur noch die |
|
54 |
# bereits bebuchten Konten anzeigen? |
|
55 |
# Folgende Erweiterung: |
|
56 |
# 1.) Gehe zur?ck bis zu dem Datum an dem die B?cher geschlossen wurden |
|
57 |
# 2.) Falls die B?cher noch nie geschlossen wurden, gehe zur?ck bis zum Bearbeitungsstart |
|
58 |
# COALESCE((SELECT closedto FROM defaults),(SELECT itime FROM defaults)) |
|
59 |
|
|
60 |
my $closedto_sql = "COALESCE((SELECT closedto FROM defaults),(SELECT itime FROM defaults))"; |
|
61 |
|
|
62 |
if ($form->{method} eq "cash") { # E?R |
|
63 |
$acc_cash_where = qq| AND (a.trans_id IN (SELECT id FROM ar WHERE datepaid>= $closedto_sql |
|
64 |
UNION SELECT id FROM ap WHERE datepaid>= $closedto_sql |
|
65 |
UNION SELECT id FROM gl WHERE transdate>= $closedto_sql |
|
66 |
)) |; |
|
67 |
} else { # Bilanzierung |
|
68 |
$acc_cash_where = " AND ((select date_trunc('year', a.transdate::date)) >= $closedto_sql) "; |
|
57 | 69 |
} |
58 | 70 |
|
59 | 71 |
my $query = |
Auch abrufbar als: Unified diff
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 von lx-office.