summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-12-07 19:30:27 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-12-07 19:30:27 +0000
commit18c50f3994e8e981f76871c9f25d08e3275c79df (patch)
treef3f7d8b014b1406844dc4002ee8d293a9190d691 /bin
parentcceb30afd5e6e47092dff0df9813bedb7e2467dc (diff)
Adding vendor number to payments report.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1960 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin')
-rw-r--r--bin/rp.pl14
1 files changed, 9 insertions, 5 deletions
diff --git a/bin/rp.pl b/bin/rp.pl
index 53dad4aa..d78825f6 100644
--- a/bin/rp.pl
+++ b/bin/rp.pl
@@ -1877,6 +1877,7 @@ sub tax_subtotal {
my %column_data;
for (@{$column_index}) { $column_data{$_} = ' ' }
+
#SC: Yes, right now these are global, inherited from generate_tax_report
$subtotal =
$form->format_amount( \%myconfig, $subtotalnetamount + $subtotaltax,
@@ -1910,6 +1911,7 @@ sub list_payments {
my %hiddens;
my @options;
+ my $vc = ($form->{db} eq 'ar') ? 'Customer' : 'Vendor';
if ( $form->{account} ) {
( $form->{paymentaccounts} ) = split /--/, $form->{account};
}
@@ -1921,11 +1923,12 @@ sub list_payments {
RP->payments( \%myconfig, \%$form );
- my @columns = $form->sort_columns(qw(transdate name paid source memo));
+ my @columns = $form->sort_columns(qw(transdate name paid source meta_number
+memo));
if ( $form->{till} ) {
@columns =
- $form->sort_columns(qw(transdate name paid curr source till));
+ $form->sort_columns(qw(transdate name paid curr source meta_number till));
if ( $myconfig{role} ne 'user' ) {
@columns =
$form->sort_columns(
@@ -2001,9 +2004,9 @@ sub list_payments {
href => "$href&sort=source",
text => $locale->text('Source'),
};
- $column_header{memo} = {
- href => "$href&sort=memo",
- text => $locale->text('Memo'),
+ $column_header{meta_number} = {
+ href => "$href&sort=meta_number",
+ text => $locale->text("$vc Number"),
};
$column_header{employee} = {
href => "$href&sort=employee",
@@ -2042,6 +2045,7 @@ sub list_payments {
next if ( $form->{till} && !$payment->{till} );
my %column_data;
+ $column_data{meta_number} = $payment->{meta_number};
$column_data{name} = $payment->{name};
$column_data{transdate} = $payment->{transdate};
$column_data{paid} =