<%doc> Examples: #cust_bill_pay include('elements/ApplicationCommon.html', 'form_action' => 'process/cust_bill_pay.cgi', 'src_table' => 'cust_pay', 'src_thing' => 'payment', 'dst_table' => 'cust_bill', 'dst_thing' => 'invoice', ) #cust_credit_bill include('elements/ApplicationCommon.html', 'form_action' => 'process/cust_credit_bill.cgi', 'src_table' => 'cust_credit', 'src_thing' => 'credit', 'dst_table' => 'cust_bill', 'dst_thing' => 'invoice', ) #cust_pay_refund include('elements/ApplicationCommon.html', 'form_action' => 'process/cust_pay_refund.cgi', 'src_table' => 'cust_pay', 'src_thing' => 'payment', 'dst_table' => 'cust_refund', 'dst_thing' => 'refund', ) #cust_credit_refund include('elements/ApplicationCommon.html', 'form_action' => 'process/cust_credit_refund.cgi', 'src_table' => 'cust_credit', 'src_thing' => 'credit', 'dst_table' => 'cust_refund', 'dst_thing' => 'refund', ) <% include('/elements/header-popup.html', "Apply $src_thing$to" ) %> <% include('/elements/error.html') %>

<% $src_thing %> #<% $src_pkeyvalue %>
% if ( $src_table eq 'cust_credit' ) { % }

Date:	<% time2str("%D", $src->_date) %>
Amount:	<% $money_char %><% $src->amount %>
Unapplied amount:	<% $money_char %><% $unapplied %>
Reason:	<% $src->reason %>

Apply to: % if ($use_sub_dst_thing) { % }

<% $dst_thing %>:	Select <% $dst_thing %> % foreach my $dst ( @dst ) { $dst_pkey eq $dst_pkeyvalue ? ' SELECTED' : '' %> VALUE="<% $dst->$dst_pkey %>">#<% $dst->$dst_pkey %> - <% time2str("%D", $dst->_date) %> - $<% $dst->$dst_unapplied %> % }
Amount:	<% $money_char %> STYLE="text-align:right;">

<% include('/elements/footer.html') %> <%init> my %opt = @_; my $conf = new FS::Conf; my $money_char = $conf->config('money_char') || '$'; my $src_thing = ucfirst($opt{'src_thing'}); my $src_table = $opt{'src_table'}; my $src_pkey = dbdef->table($src_table)->primary_key; my $dst_thing = ucfirst($opt{'dst_thing'}); my $dst_table = $opt{'dst_table'}; my $dst_pkey = dbdef->table($dst_table)->primary_key; my $dst_unapplied = $dst_table eq 'cust_bill' ? 'owed' : 'unapplied'; $opt{form_action} =~ /^process\/(.*)\./ or die "bad form action"; my $link_table = $1; my $use_sub_dst_thing = 0; $use_sub_dst_thing = 1 if ( $dst_table eq 'cust_bill' && $conf->exists("${link_table}_pkg-manual") ); my $to = $dst_table eq 'cust_refund' ? ' to Refund' : ''; my($src_pkeyvalue, $amount, $dst_pkeyvalue); if ( $cgi->param('error') ) { $src_pkeyvalue = $cgi->param($src_pkey); $amount = $cgi->param('amount'); $dst_pkeyvalue = $cgi->param($dst_pkey); } else { my($query) = $cgi->keywords; $query =~ /^(\d+)$/; $src_pkeyvalue = $1; $amount = ''; $dst_pkeyvalue = ''; } my $otaker = getotaker; my $p1 = popurl(1); my $src = qsearchs($src_table, { $src_pkey => $src_pkeyvalue } ); die "$src_thing $src_pkeyvalue not found!" unless $src; my $unapplied = $src->unapplied; my @dst = sort { $a->_date <=> $b->_date or $a->$dst_pkey <=> $b->$dst_pkey } grep { $_->$dst_unapplied != 0 } qsearch($dst_table, { 'custnum' => $src->custnum } ); my $row_generator = sub { my ($cust_bill_pkg, $desc, $owed, $amount, $taxXnum) = @_; my $id = $cust_bill_pkg->pkgnum || 'Tax'; my $billpkgnum = $cust_bill_pkg->billpkgnum; $amount = sprintf("%.2f", $amount); qq! var tablebody = document.getElementsByTagName('tbody').item(0); var row = table.insertRow(rownum+2); var pkg_cell = document.createElement('TD'); pkg_cell.style.textAlign = 'right'; pkg_cell.innerHTML = "$id - $desc - $owed:"; var amount_cell = document.createElement('TD'); amount_cell.innerHTML = "$money_char"; var amount_input = document.createElement('INPUT'); amount_input.setAttribute('name', 'subamount'+rownum); amount_input.setAttribute('id', 'subamount'+rownum); amount_input.style.textAlign = 'right'; amount_input.setAttribute('size', 8); amount_input.setAttribute('maxlength', 8); amount_input.setAttribute('rownum', rownum); amount_input.setAttribute('value', "$amount"); amount_input.setAttribute('onChange', "sub_changed(this);"); amount_cell.appendChild(amount_input); var subnum_input = document.createElement('INPUT'); subnum_input.setAttribute('name', 'subnum'+rownum); subnum_input.setAttribute('id', 'subnum'+rownum); subnum_input.setAttribute('type', 'hidden'); subnum_input.setAttribute('rownum', rownum); subnum_input.setAttribute('value', "$billpkgnum"); amount_cell.appendChild(subnum_input); var taxnum_input = document.createElement('INPUT'); taxnum_input.setAttribute('name', 'taxXlocationnum'+rownum); taxnum_input.setAttribute('id', 'taxXlocationnum'+rownum); taxnum_input.setAttribute('type', 'hidden'); taxnum_input.setAttribute('rownum', rownum); taxnum_input.setAttribute('value', "$taxXnum"); amount_cell.appendChild(taxnum_input); row.appendChild(pkg_cell); row.appendChild(amount_cell); rownum++; !; }; my $key_generator = sub { my $listref = shift; my ($cust_bill_pkg, $amount, $hashref) = @$listref; my $setup_or_recur = $cust_bill_pkg->setup > 0 ? 'setup' : 'recur'; my $taxlinenum = $hashref->{billpkgtaxlocationnum} || $hashref->{billpkgtaxratelocationnum} || ''; join(':', $cust_bill_pkg->billpkgnum, $setup_or_recur, $taxlinenum); };