<% include('/elements/header-popup.html', 'Apply Payment') %> <% include('/elements/error.html') %>

Payment #<% $paynum %>
Date: <% time2str("%D", $cust_pay->_date) %>
Amount: $<% $cust_pay->paid %>
Unapplied amount: $<% $unapplied %>
Invoice # % foreach my $cust_bill ( @cust_bill ) { invnum eq $invnum ? ' SELECTED' : '' %> VALUE="<% $cust_bill->invnum %>"><% $cust_bill->invnum %> - <% time2str("%D", $cust_bill->_date) %> - $<% $cust_bill->owed %> % } Refund
Amount $

<% include('/elements/footer.html') %> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Apply payment'); my($paynum, $amount, $invnum); if ( $cgi->param('error') ) { $paynum = $cgi->param('paynum'); $amount = $cgi->param('amount'); $invnum = $cgi->param('invnum'); } else { my($query) = $cgi->keywords; $query =~ /^(\d+)$/; $paynum = $1; $amount = ''; $invnum = ''; } my $otaker = getotaker; my $p1 = popurl(1); my $cust_pay = qsearchs('cust_pay', { 'paynum' => $paynum } ); die "payment $paynum not found!" unless $cust_pay; my $unapplied = $cust_pay->unapplied; my @cust_bill = sort { $a->_date <=> $b->_date or $a->invnum <=> $b->invnum } grep { $_->owed != 0 } qsearch('cust_bill', { 'custnum' => $cust_pay->custnum } );