Revision 69e4ce03
Von Philip Reetz vor mehr als 16 Jahren hinzugefügt
| bin/mozilla/rp.pl | ||
|---|---|---|
| 1447 | 1447 |
|
| 1448 | 1448 |
|
| 1449 | 1449 |
$form->{rowcount} = scalar @{ $form->{TB} };
|
| 1450 |
$form->{title} = sprintf($locale->text('Trial balance between %s and %s'), $form->{fromdate}, $form->{todate});
|
|
| 1450 | 1451 |
|
| 1451 | 1452 |
my @columns = ( |
| 1452 | 1453 |
"accno", "description", |
| ... | ... | |
| 1459 | 1460 |
|
| 1460 | 1461 |
|
| 1461 | 1462 |
my $attachment_basename; |
| 1462 |
|
|
| 1463 |
$attachment_basename = $locale->text('trial_balance');
|
|
| 1463 | 1464 |
my $report = SL::ReportGenerator->new(\%myconfig, $form); |
| 1464 | 1465 |
|
| 1465 | 1466 |
my @hidden_variables = (); |
| 1466 | 1467 |
push @hidden_variables, qw(fromdate todate year cash ); |
| 1467 | 1468 |
|
| 1468 |
my $href = build_std_url('action=orders', grep { $form->{$_} } @hidden_variables);
|
|
| 1469 |
my $href = build_std_url('action=generate_trial_balance', grep { $form->{$_} } @hidden_variables);
|
|
| 1469 | 1470 |
|
| 1470 | 1471 |
my %column_defs = ( |
| 1471 | 1472 |
'accno' => { 'text' => $locale->text('Account Number'), },
|
| ... | ... | |
| 1490 | 1491 |
$report->set_columns(%column_defs); |
| 1491 | 1492 |
$report->set_column_order(@columns); |
| 1492 | 1493 |
|
| 1493 |
$report->set_export_options('trial_balance', @hidden_variables);
|
|
| 1494 |
$report->set_export_options('generate_trial_balance', @hidden_variables);
|
|
| 1494 | 1495 |
|
| 1495 | 1496 |
$report->set_sort_indicator($form->{sort}, 1);
|
| 1496 | 1497 |
|
| ... | ... | |
| 1771 | 1772 |
|
| 1772 | 1773 |
sub aging {
|
| 1773 | 1774 |
$lxdebug->enter_sub(); |
| 1774 |
|
|
| 1775 |
print(STDERR "Bin in Aging\n"); |
|
| 1775 | 1776 |
$auth->assert('general_ledger');
|
| 1776 | 1777 |
|
| 1777 | 1778 |
my $report = SL::ReportGenerator->new(\%myconfig, $form); |
| ... | ... | |
| 1799 | 1800 |
$report->set_export_options('generate_' . ($form->{arap} eq 'ar' ? 'ar' : 'ap') . '_aging', @hidden_variables);
|
| 1800 | 1801 |
|
| 1801 | 1802 |
my @options; |
| 1803 |
my $attachment_basename; |
|
| 1802 | 1804 |
|
| 1803 | 1805 |
if ($form->{department}) {
|
| 1804 | 1806 |
my ($department) = split /--/, $form->{department};
|
| ... | ... | |
| 1808 | 1810 |
|
| 1809 | 1811 |
if (($form->{arap} eq 'ar') && $form->{customer}) {
|
| 1810 | 1812 |
push @options, $form->{customer};
|
| 1813 |
$attachment_basename = $locale->text('ar_aging_list');
|
|
| 1814 |
$form->{title} = sprintf($locale->text('Ar aging on %s'), $form->{todate});
|
|
| 1811 | 1815 |
} |
| 1812 | 1816 |
|
| 1813 | 1817 |
if (($form->{arap} eq 'ap') && $form->{vendor}) {
|
| 1814 | 1818 |
push @options, $form->{vendor};
|
| 1819 |
$attachment_basename = $locale->text('ap_aging_list');
|
|
| 1820 |
$form->{title} = sprintf($locale->text('Ap aging on %s'), $form->{todate});
|
|
| 1815 | 1821 |
} |
| 1816 | 1822 |
|
| 1817 | 1823 |
push @options, $locale->text('for Period') . " " . $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{todate}, 1);
|
Auch abrufbar als: Unified diff
Ausgabefunktionen fuer offene Forderungen und Verbindlichekeiten und SuSa ueberarbeitet