Revision 4654d993
Von Philip Reetz vor mehr als 15 Jahren hinzugefügt
bin/mozilla/ca.pl | ||
---|---|---|
492 | 492 |
|
493 | 493 |
CA->all_transactions(\%myconfig, \%$form); |
494 | 494 |
|
495 |
|
|
495 |
$form->{saldo_old} += $form->{beginning_balance}; |
|
496 |
$form->{saldo_new} += $form->{beginning_balance}; |
|
496 | 497 |
my $saldo_old = format_debit_credit($form->{saldo_old}); |
497 | 498 |
my $eb_string = format_debit_credit($form->{beginning_balance}); |
498 | 499 |
$form->{balance} = $form->{saldo_old}; |
... | ... | |
654 | 655 |
}; |
655 | 656 |
} |
656 | 657 |
|
657 |
my $sh = ""; |
|
658 |
if ($form->{balance} < 0) { |
|
659 |
$sh = " S"; |
|
660 |
$ml = -1; |
|
661 |
} elsif ($form->{balance} > 0) { |
|
662 |
$sh = " H"; |
|
663 |
$ml = 1; |
|
664 |
} |
|
665 |
my $data = $form->format_amount(\%myconfig, ($form->{balance} * $ml), 2); |
|
666 |
$data .= $sh; |
|
667 |
|
|
668 |
$row->{balance}->{data} = $data; |
|
658 |
$row->{balance}->{data} = $form->format_amount(\%myconfig, $form->{balance}, 2, 'DRCR'); |
|
669 | 659 |
|
670 | 660 |
if ($ca->{index} ne $previous_index) { |
671 | 661 |
# $report->add_data($row_set) if ($row_set); |
... | ... | |
698 | 688 |
|
699 | 689 |
my $row = create_subtotal_row(\%totals, \@columns, \%column_alignment, 'listtotal'); |
700 | 690 |
|
701 |
my $sh = ""; |
|
702 |
if ($form->{balance} < 0) { |
|
703 |
$sh = " S"; |
|
704 |
$ml = -1; |
|
705 |
} elsif ($form->{balance} > 0) { |
|
706 |
$sh = " H"; |
|
707 |
$ml = 1; |
|
708 |
} |
|
709 |
my $data = $form->format_amount(\%myconfig, ($form->{balance} * $ml), 2); |
|
710 |
$data .= $sh; |
|
711 | 691 |
|
712 |
$row->{balance}->{data} = $data;
|
|
692 |
$row->{balance}->{data} = $form->format_amount(\%myconfig, $form->{balance}, 2, 'DRCR');
|
|
713 | 693 |
|
714 | 694 |
$report->add_data($row); |
715 | 695 |
|
Auch abrufbar als: Unified diff
Berichte Kontenblatt und SuSa auch fuer Zeitraueme ueber eine Jahr hinaus fit gemacht