X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main%2Fpayment_history.html;h=24988eae4356b3e6d25a2a8a2842f227df9a16a6;hb=e6f70733037e9295be95cd27791356ba94177968;hp=5c2aa24c9bd7d251e6653c1cd6a7b5c33ade06c0;hpb=fd34361cbb47f911b381ad9a38fa4314d159c87c;p=freeside.git diff --git a/httemplate/view/cust_main/payment_history.html b/httemplate/view/cust_main/payment_history.html index 5c2aa24c9..24988eae4 100644 --- a/httemplate/view/cust_main/payment_history.html +++ b/httemplate/view/cust_main/payment_history.html @@ -1,386 +1,464 @@ -<% - my( $cust_main ) = @_; - my $custnum = $cust_main->custnum; +
+
+%# payment links
+
+% my $s = 0;
+% if ( $payby{'BILL'} && $curuser->access_right(['Post payment', 'Post check payment' ]) ) {
+ <% $s++ ? ' | ' : '' %>
+ <& /elements/popup_link-cust_main.html,
+ 'label' => emt('Enter check payment'),
+ 'action' => "${p}edit/cust_pay.cgi?popup=1;payby=BILL",
+ 'cust_main' => $cust_main,
+ 'actionlabel' => emt('Enter check payment'),
+ 'width' => 392,
+ &>
+% }
+
+% if ( $payby{'CASH'} && $curuser->access_right(['Post payment', 'Post cash payment']) ) {
+ <% $s++ ? ' | ' : '' %>
+ <& /elements/popup_link-cust_main.html,
+ 'label' => emt('Enter cash payment'),
+ 'action' => "${p}edit/cust_pay.cgi?popup=1;payby=CASH",
+ 'cust_main' => $cust_main,
+ 'actionlabel' => emt('Enter cash payment'),
+ 'width' => 392,
+ &>
+% }
+
+% if ( $payby{'WEST'} && $curuser->access_right('Post payment') ) {
+ <% $s++ ? ' | ' : '' %>
+ <% mt('Enter Western Union payment') |h %>
+% }
- my $conf = new FS::Conf;
+ +% $s=0; + +% if ( ( $payby{'CARD'} || $payby{'DCRD'} ) +% && $curuser->access_right(['Process payment', 'Process credit card payment']) +% && ! $cust_main->is_encrypted($cust_main->payinfo) +% ) { + <% $s++ ? ' | ' : '' %> + <% mt('Process credit card payment') |h %> +% } + +% if ( ( $payby{'CHEK'} || $payby{'DCHK'} ) +% && $curuser->access_right(['Process payment', 'Process Echeck payment']) +% && ! $cust_main->is_encrypted($cust_main->payinfo) +% ) { + <% $s++ ? ' | ' : '' %> + <% mt('Process electronic check (ACH) payment') |h %> +% } + +% if ( $payby{'MCRD'} && $curuser->access_right('Post payment') ) { + <% $s++ ? ' | ' : '' %> + <% mt('Post manual (offline/POS) credit card payment') |h %> +% } - my $curuser = $FS::CurrentUser::CurrentUser; + - 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; +%# credit link - my $s = 0; +% if ( $curuser->access_right('Post credit') ) { + <& /elements/popup_link-cust_main.html, + 'label' => emt('Enter credit'), + 'action' => "${p}edit/cust_credit.cgi", + 'cust_main' => $cust_main, + 'actionlabel' => emt('Enter credit'), + 'width' => 616, #make room for reasons #540 default + &> + +% } + +%# refund links + +% $s = 0; +% if ( $payby{'BILL'} && $curuser->access_right(['Post refund', 'Post check refund']) ) { + <% $s++ ? ' | ' : '' %> + <& /elements/popup_link-cust_main.html, + 'label' => emt('Enter check refund'), + 'action' => "${p}edit/cust_refund.cgi?popup=1;payby=BILL", + 'cust_main' => $cust_main, + 'actionlabel' => emt('Enter check refund'), + 'width' => 392, + &> +% } + +% if ( $payby{'CASH'} && $curuser->access_right(['Post refund', 'Post cash refund']) ) { + <% $s++ ? ' | ' : '' %> + <& /elements/popup_link-cust_main.html, + 'label' => emt('Enter cash refund'), + 'action' => "${p}edit/cust_refund.cgi?popup=1;payby=CASH", + 'cust_main' => $cust_main, + 'actionlabel' => emt('Enter cash refund'), + 'width' => 392, + &> +% } + +%# 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++ ? ' | ' : '' %> + <% mt('Post manual (offline/POS) credit card refund') |h %> +% } -%> + |
+
- Payment History +%# invoice reports +% if ( $curuser->access_right('List invoices') ) { + <% mt('Invoice reports') |h %> +% } + -<% 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 ) { + <% mt('View tax exemptions') |h %> + <% $add_adjustment ? '|' : '' %> +% } + +% if ( $add_adjustment ) { + <& /elements/popup_link.html, { + 'action' => $p.'edit/cust_tax_adjustment.html?custnum='. $cust_main->custnum, + 'label' => emt('Add tax adjustment'), + 'actionlabel' => emt('Add tax adjustment'), + 'height' => 200, + } + &> + | + <% mt('View tax adjustments') |h %> +% } - <%= $s++ ? ' | ' : '' %> - Post check payment + +% } + +%# batched payment links + +% if ( ( $conf->exists('batch-enable') || $conf->config('batch-enable_payby') ) +% && $curuser->access_right('View customer batched payments') +% ) +% { + <% mt('View batched payments:') |h %> +% foreach my $status (qw( Queued In-transit Complete All )) { + <% mt($status) |h %> + <% $status ne 'All' ? '|' : '' %> +% } + +% } + +%# pending payment links + +% if ( $curuser->access_right('View customer pending payments') +% && scalar($cust_main->cust_pay_pending) +% ) +% { + <% mt('View pending payments') |h %> +% } -<% } %> + |
+ |||||
-<% if ( $payby{'CASH'} && $curuser->access_right('Post payment') ) { %> +%# and now the table - <%= $s++ ? ' | ' : '' %> - Post cash payment +<& /elements/table-grid.html &> +% my $bgcolor1 = '#eeeeee'; +% my $bgcolor2 = '#ffffff'; +% my $bgcolor = ''; -<% } %> + | ||||||
<% mt('Date') |h %> | +<% mt('Description') |h %> | +<% mt('Invoice') |h %> | +<% mt('Payment') |h %> | +<% mt('In-house Credit') |h %> | +<% mt('Refund') |h %> | +<% mt('Balance') |h %> | +
---|---|---|---|---|---|---|
+ <% time2str($date_format, $date) %> + | + ++ <% mt("Starting balance on [_1]", time2str($date_format, $date) ) |h %> + (<% mt('show prior history') |h %>) + | + ++ | + | + | + | <% $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 %> + | +