Revision 0185267e
Von Thomas Heck vor mehr als 12 Jahren hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
| 466 | 466 |
|
| 467 | 467 |
my $row_set = [ $row ]; |
| 468 | 468 |
|
| 469 |
if (($form->{l_subtotal} eq 'Y')
|
|
| 469 |
if ( ($form->{l_subtotal} eq 'Y' && !$form->{report_generator_csv_options_for_import} )
|
|
| 470 | 470 |
&& (($idx == (scalar @{ $form->{GL} } - 1))
|
| 471 | 471 |
|| ($ref->{ $form->{sort} } ne $form->{GL}->[$idx + 1]->{ $form->{sort} }))) {
|
| 472 | 472 |
push @{ $row_set }, create_subtotal_row(\%subtotals, \@columns, \%column_alignment, [ qw(debit credit) ], 'listsubtotal');
|
| ... | ... | |
| 477 | 477 |
$idx++; |
| 478 | 478 |
} |
| 479 | 479 |
|
| 480 |
$report->add_separator(); |
|
| 481 |
|
|
| 482 | 480 |
# = 0 for balanced ledger |
| 483 | 481 |
my $balanced_ledger = $totals{debit} + $totals{debit_tax} - $totals{credit} - $totals{credit_tax};
|
| 484 | 482 |
|
| ... | ... | |
| 496 | 494 |
$data .= $sh; |
| 497 | 495 |
|
| 498 | 496 |
$row->{balance}->{data} = $data;
|
| 499 |
|
|
| 500 |
$report->add_data($row); |
|
| 497 |
|
|
| 498 |
if ( !$form->{report_generator_csv_options_for_import} ) {
|
|
| 499 |
$report->add_separator(); |
|
| 500 |
$report->add_data($row); |
|
| 501 |
} |
|
| 501 | 502 |
|
| 502 | 503 |
my $raw_bottom_info_text; |
| 503 | 504 |
|
Auch abrufbar als: Unified diff
Spaltenueberschriften Export auf Import abgleichen
implementiert #1851