Revision 0a0656c7
Von Moritz Bunkus vor mehr als 15 Jahren hinzugefügt
| SL/RP.pm | ||
|---|---|---|
| 669 | 669 |
} |
| 670 | 670 |
|
| 671 | 671 |
if ($options{beginning_balances}) {
|
| 672 |
foreach my $prefix (qw(from to)) {
|
|
| 673 |
next if ($form->{"${prefix}date"});
|
|
| 674 |
|
|
| 675 |
my $min_max = $prefix eq 'from' ? 'min' : 'max'; |
|
| 676 |
$query = qq|SELECT ${min_max}(transdate)
|
|
| 677 |
FROM acc_trans ac |
|
| 678 |
$dpt_join |
|
| 679 |
WHERE (1 = 1) |
|
| 680 |
$dpt_where |
|
| 681 |
$project|; |
|
| 682 |
($form->{"${prefix}date"}) = selectfirst_array_query($form, $dbh, $query);
|
|
| 683 |
} |
|
| 684 |
|
|
| 672 | 685 |
# get beginning balances |
| 673 | 686 |
$query = |
| 674 | 687 |
qq|SELECT c.accno, c.category, SUM(ac.amount) AS amount, c.description |
| ... | ... | |
| 680 | 693 |
$project |
| 681 | 694 |
GROUP BY c.accno, c.category, c.description |; |
| 682 | 695 |
|
| 683 |
$sth = prepare_execute_query($form, $dbh, $query, $form->{fromdate});
|
|
| 696 |
$sth = prepare_execute_query($form, $dbh, $query, $form->{fromtdate});
|
|
| 684 | 697 |
|
| 685 | 698 |
while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
|
| 686 | 699 |
|
Auch abrufbar als: Unified diff
Wird bei der Summen-/Saldenliste der "freie Zeitraum" ausgewählt, dann werden das Start- und Enddatum als das Datum der frühesten/spätesten Buchung in acc_trans gesetzt, sofern der Benutzer nichts angegeben hatte.