X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fsearch%2Freport_receivables.cgi;h=ac94e1a5c14b3e101e4db0c49e506d226c664aa4;hb=3059dc3cfe6fa7280c40f64e598fc05f37ffa96f;hp=ba02eb720c78aba33e43277fb88a8eaebd008f7d;hpb=00f2fdb5c3c9edfe446cf453ee33b9ebc7802925;p=freeside.git diff --git a/httemplate/search/report_receivables.cgi b/httemplate/search/report_receivables.cgi index ba02eb720..ac94e1a5c 100755 --- a/httemplate/search/report_receivables.cgi +++ b/httemplate/search/report_receivables.cgi @@ -1,28 +1,225 @@ <% -use strict; -use vars qw( $cgi $user ); -use CGI; -use CGI::Carp qw( fatalsToBrowser ); -use FS::UID qw( cgisuidsetup getotaker ); + sub owed { + my($start, $end, %opt) = @_; -$cgi = new CGI; -&cgisuidsetup($cgi); + my @where = (); -$user = getotaker; + #handle start and end ranges -print $cgi->header( '-expires' => '-2m' ), - header('Current Receivables Report Results'); + #24h * 60m * 60s + push @where, "cust_bill._date <= extract(epoch from now())-". + ($start * 86400) + if $start; + + push @where, "cust_bill._date > extract(epoch from now()) - ". + ($end * 86400) + if $end; -open (REPORT, "freeside-receivables-report -v $user |"); + #handle 'cust' option + + push @where, "cust_main.custnum = cust_bill.custnum" + if $opt{'cust'}; -print '
'; -while('; + #handle 'agentnum' option + my $join = ''; + if ( $opt{'agentnum'} ) { + $join = 'LEFT JOIN cust_main USING ( custnum )'; + push @where, "agentnum = '$opt{'agentnum'}'"; + } -print ') { - print $_; -} -print '