From 2fd0023de631502a7a3b86cf7e8269ae7030d248 Mon Sep 17 00:00:00 2001 From: ivan Date: Sun, 15 May 2005 13:49:39 +0000 Subject: [PATCH] this status column is probably faster, one giant SQL query. and add back in the customer link, oops --- httemplate/search/report_receivables.cgi | 71 +++++++++++++++++++------------- 1 file changed, 43 insertions(+), 28 deletions(-) diff --git a/httemplate/search/report_receivables.cgi b/httemplate/search/report_receivables.cgi index 6a2dff3e1..4c835fb7a 100755 --- a/httemplate/search/report_receivables.cgi +++ b/httemplate/search/report_receivables.cgi @@ -116,8 +116,8 @@ END 'header' => [ '#', 'Customer', - 'Status (me)', - 'Status (cust_main)', + 'Status', # (me)', + #'Status', # (cust_main)', '0-30', '30-60', '60-90', @@ -128,7 +128,7 @@ END '', 'Total', '', - '', + #'', sprintf( $money_char.'%.2f', $row->{'owed_0_30'} ), sprintf( $money_char.'%.2f', @@ -140,13 +140,10 @@ END sprintf( ''. $money_char.'%.2f'. '', $row->{'owed_total'} ), ], - 'align' => 'rlccrrrrr', - 'size' => [ '', '', '-1', '-1', '', '', '', '', '', ], - 'style' => [ '', '', 'b', 'b', '', '', '', '', 'b', ], - 'color' => [ - '', - '', - sub { + 'fields' => [ + 'custnum', + 'name', + sub { my $row = shift; my $status = 'Cancelled'; my $statuscol = 'FF0000'; @@ -158,19 +155,41 @@ END $statuscol = '00CC00'; } } - $statuscol; + $status; }, - sub { shift->statuscolor; }, + #sub { ucfirst(shift->status) }, + sub { sprintf( $money_char.'%.2f', + shift->get('owed_0_30') ) }, + sub { sprintf( $money_char.'%.2f', + shift->get('owed_30_60') ) }, + sub { sprintf( $money_char.'%.2f', + shift->get('owed_60_90') ) }, + sub { sprintf( $money_char.'%.2f', + shift->get('owed_90_pl') ) }, + sub { sprintf( $money_char.'%.2f', + shift->get('owed_total') ) }, + ], + 'links' => [ + [ "${p}view/cust_main.cgi?", 'custnum' ], + [ "${p}view/cust_main.cgi?", 'custnum' ], + '', + #'', '', '', '', '', '', ], - 'fields' => [ - 'custnum', - 'name', - sub { + #'align' => 'rlccrrrrr', + 'align' => 'rlcrrrrr', + #'size' => [ '', '', '-1', '-1', '', '', '', '', '', ], + #'style' => [ '', '', 'b', 'b', '', '', '', '', 'b', ], + 'size' => [ '', '', '-1', '', '', '', '', '', ], + 'style' => [ '', '', 'b', '', '', '', '', 'b', ], + 'color' => [ + '', + '', + sub { my $row = shift; my $status = 'Cancelled'; my $statuscol = 'FF0000'; @@ -182,20 +201,16 @@ END $statuscol = '00CC00'; } } - $status; + $statuscol; }, - sub { ucfirst(shift->status) }, - sub { sprintf( $money_char.'%.2f', - shift->get('owed_0_30') ) }, - sub { sprintf( $money_char.'%.2f', - shift->get('owed_30_60') ) }, - sub { sprintf( $money_char.'%.2f', - shift->get('owed_60_90') ) }, - sub { sprintf( $money_char.'%.2f', - shift->get('owed_90_pl') ) }, - sub { sprintf( $money_char.'%.2f', - shift->get('owed_total') ) }, + #sub { shift->statuscolor; }, + '', + '', + '', + '', + '', ], + ) %> -- 2.11.0