diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-12-07 19:30:27 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-12-07 19:30:27 +0000 |
commit | 18c50f3994e8e981f76871c9f25d08e3275c79df (patch) | |
tree | f3f7d8b014b1406844dc4002ee8d293a9190d691 /bin | |
parent | cceb30afd5e6e47092dff0df9813bedb7e2467dc (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.pl | 14 |
1 files changed, 9 insertions, 5 deletions
@@ -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} = |