X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main%2Fpayment_history.html;h=3288f15a71371c6b6ce1b335f5f33d3730ff9fdf;hb=b1c1559dec0570bc401ccd0e29e66a9bf6f151e1;hp=b7621d57a12a55075b879809b53851740200a65b;hpb=41a6a1b1811e337be2fca47504ff9687b6b46cf8;p=freeside.git diff --git a/httemplate/view/cust_main/payment_history.html b/httemplate/view/cust_main/payment_history.html index b7621d57a..3288f15a7 100644 --- a/httemplate/view/cust_main/payment_history.html +++ b/httemplate/view/cust_main/payment_history.html @@ -1,386 +1,476 @@ -<% - my( $cust_main ) = @_; - my $custnum = $cust_main->custnum; - - my $conf = new FS::Conf; +
+
+%# payment links
+
+% my $s = 0;
+% if ( $payby{'BILL'} && $curuser->access_right(['Post payment', 'Post check payment' ]) ) {
+ <% $s++ ? ' | ' : '' %>
+ <% include('/elements/popup_link-cust_main.html',
+ 'label' => 'Enter check payment',
+ 'action' => "${p}edit/cust_pay.cgi?popup=1;payby=BILL",
+ 'cust_main' => $cust_main,
+ 'actionlabel' => 'Enter check payment',
+ 'width' => 392,
+ #default# 'height' => 336,
+ )
+ %>
+% }
+
+% if ( $payby{'CASH'} && $curuser->access_right(['Post payment', 'Post cash payment']) ) {
+ <% $s++ ? ' | ' : '' %>
+ <% include('/elements/popup_link-cust_main.html',
+ 'label' => 'Enter cash payment',
+ 'action' => "${p}edit/cust_pay.cgi?popup=1;payby=CASH",
+ 'cust_main' => $cust_main,
+ 'actionlabel' => 'Enter cash payment',
+ 'width' => 392,
+ #default# 'height' => 336,
+ )
+ %>
+% }
+
+% if ( $payby{'WEST'} && $curuser->access_right('Post payment') ) {
+ <% $s++ ? ' | ' : '' %>
+ Enter Western Union payment
+% }
- my $curuser = $FS::CurrentUser::CurrentUser;
+ +% $s=0; + +% if ( ( $payby{'CARD'} || $payby{'DCRD'} ) +% && $curuser->access_right(['Process payment', 'Process credit card payment']) +% && ! $cust_main->is_encrypted($cust_main->payinfo) +% ) { + <% $s++ ? ' | ' : '' %> + Process credit card payment +% } + +% if ( ( $payby{'CHEK'} || $payby{'DCHK'} ) +% && $curuser->access_right(['Process payment', 'Process Echeck payment']) +% && ! $cust_main->is_encrypted($cust_main->payinfo) +% ) { + <% $s++ ? ' | ' : '' %> + Process electronic check (ACH) payment +% } + +% if ( $payby{'MCRD'} && $curuser->access_right('Post payment') ) { + <% $s++ ? ' | ' : '' %> + Post manual (offline/POS) credit card payment +% } - my @payby = grep /\w/, $conf->config('payby'); - #@payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH WEST COMP )) - @payby = (qw( CARD DCRD CHEK DCHK LECB BILL CASH COMP )) - unless @payby; - my %payby = map { $_=>1 } @payby; + - my $s = 0; +%# credit link + +% if ( $curuser->access_right('Post credit') ) { + <% include('/elements/popup_link-cust_main.html', + 'label' => 'Enter credit', + 'action' => "${p}edit/cust_credit.cgi", + 'cust_main' => $cust_main, + 'actionlabel' => 'Enter credit', + 'width' => 616, #make room for reasons #540 default + #default# 'height' => 336, + ) + %> + +% } + +%# refund links + +% $s = 0; +% if ( $payby{'BILL'} && $curuser->access_right(['Post refund', 'Post check refund']) ) { + <% $s++ ? ' | ' : '' %> + <% include('/elements/popup_link-cust_main.html', + 'label' => 'Enter check refund', + 'action' => "${p}edit/cust_refund.cgi?popup=1;payby=BILL", + 'cust_main' => $cust_main, + 'actionlabel' => 'Enter check refund', + 'width' => 392, + #default# 'height' => 336, + ) + %> +% } + +% if ( $payby{'CASH'} && $curuser->access_right(['Post refund', 'Post cash refund']) ) { + <% $s++ ? ' | ' : '' %> + <% include('/elements/popup_link-cust_main.html', + 'label' => 'Enter cash refund', + 'action' => "${p}edit/cust_refund.cgi?popup=1;payby=CASH", + 'cust_main' => $cust_main, + 'actionlabel' => 'Enter cash refund', + 'width' => 392, + #default# 'height' => 336, + ) + %> +% } + +%# someday, perhaps. very few gateways let you do unlinked refunds at all. +%# Authorize.net makes you sign a special form +%# +%# % if ( ( $payby{'CARD'} || $payby{'DCRD'} ) +%# % && $curuser->access_right('Process refund') +%# % && ! $cust_main->is_encrypted($cust_main->payinfo) +%# % ) { +%# <% $s++ ? ' | ' : '' %> +%# Process credit card refund +%# % } +%# +%# % if ( ( $payby{'CHEK'} || $payby{'DCHK'} ) +%# % && $curuser->access_right('Process refund') +%# % && ! $cust_main->is_encrypted($cust_main->payinfo) +%# % ) { +%# <% $s++ ? ' | ' : '' %> +%# Process electronic check (ACH) refund +%# % } + +% if ( $payby{'MCRD'} && $curuser->access_right('Post refund') ) { + <% $s++ ? ' | ' : '' %> + Post manual (offline/POS) credit card refund +% } -%> + |
+
- Payment History +%# invoice reports +% if ( $curuser->access_right('List invoices') ) { + Invoice reports +% } + -<% if ( $payby{'BILL'} && $curuser->access_right('Post payment') ) { %> +%# XXX payments, credits, refund reports + +%# tax exemption link + +% my $view_exemptions = $curuser->access_right('View customer tax exemptions'); +% my $add_adjustment = ( $conf->exists('enable_tax_adjustments') +% && $curuser->access_right('Add customer tax adjustment') +% ); +% if ( $view_exemptions || $add_adjustment ) { + +% if ( $view_exemptions ) { + View tax exemptions + <% $add_adjustment ? '|' : '' %> +% } + +% if ( $add_adjustment ) { + <% include('/elements/popup_link.html', { + 'action' => $p.'edit/cust_tax_adjustment.html?custnum='. $cust_main->custnum, + 'label' => 'Add tax adjustment', + 'actionlabel' => 'Add tax adjustment', + #'color' => '#333399', + #'width' => 763, + 'height' => 200, + }) + %> + | + View tax adjustments +% } - <%= $s++ ? ' | ' : '' %> - Post check payment + +% } + +%# batched payment links + +% if ( ( $conf->exists('batch-enable') || $conf->config('batch-enable_payby') ) +% && $curuser->access_right('View customer batched payments') +% ) +% { + View batched payments: +% foreach my $status (qw( Queued In-transit Complete All )) { + <% $status %> + <% $status ne 'All' ? '|' : '' %> +% } + +% } + +%# pending payment links + +% if ( $curuser->access_right('View customer pending payments') +% && scalar($cust_main->cust_pay_pending) +% ) +% { + View pending payments +% } -<% } %> + |
+ |||||
-<% if ( $payby{'CASH'} && $curuser->access_right('Post payment') ) { %> +%# and now the table - <%= $s++ ? ' | ' : '' %> - Post cash payment +<% include("/elements/table-grid.html") %> +% my $bgcolor1 = '#eeeeee'; +% my $bgcolor2 = '#ffffff'; +% my $bgcolor = ''; -<% } %> + | ||||||
Date | +Description | +Invoice | +Payment | +In-house Credit |
+ Refund | +Balance | +
---|---|---|---|---|---|---|
+ <% time2str($date_format, $date) %> + | + ++ Starting balance on <% time2str($date_format, $date) %> + (show prior history) + | + ++ | + | + | + | <% $balance_forward %> | + +
+% unless ( !$target || $target{$target}++ ) { + + +% } + + <% time2str($date_format, $item->{'date'}) %> +% if ( $target && $target{$target} == 1 ) { - <%= $s++ ? ' | ' : '' %> - Post Western Union payment + +% } -<% } %> + + | ++ <% $item->{'desc'} %> + | ++ <% $charge %> + | ++ <% $payment %> + | ++ <% $credit %> + | ++ <% $refund %> + | ++ <% $showbalance %> + | +