6 include('elements/ApplicationCommon.html',
7 'form_action' => 'process/cust_bill_pay.cgi',
8 'src_table' => 'cust_pay',
9 'src_thing' => 'payment',
10 'dst_table' => 'cust_bill',
11 'dst_thing' => 'invoice',
15 include('elements/ApplicationCommon.html',
16 'form_action' => 'process/cust_credit_bill.cgi',
17 'src_table' => 'cust_credit',
18 'src_thing' => 'credit',
19 'dst_table' => 'cust_bill',
20 'dst_thing' => 'invoice',
24 include('elements/ApplicationCommon.html',
25 'form_action' => 'process/cust_pay_refund.cgi',
26 'src_table' => 'cust_pay',
27 'src_thing' => 'payment',
28 'dst_table' => 'cust_refund',
29 'dst_thing' => 'refund',
33 include('elements/ApplicationCommon.html',
34 'form_action' => 'process/cust_credit_refund.cgi',
35 'src_table' => 'cust_credit',
36 'src_thing' => 'credit',
37 'dst_table' => 'cust_refund',
38 'dst_thing' => 'refund',
43 <% include('/elements/header-popup.html', "Apply $src_thing$to", '', 'onLoad="myOnLoadFunction();"') %>
45 <% include('/elements/error.html') %>
47 <P ID="ErrorMessage"></P>
48 <FORM ACTION="<% $p1. $opt{'form_action'} %>" NAME="ApplicationForm" ID="ApplicationForm" METHOD=POST>
50 <% $src_thing %> #<B><% $src_pkeyvalue %></B><BR>
51 <INPUT TYPE="hidden" NAME="<% $src_pkey %>" VALUE="<% $src_pkeyvalue %>">
53 <TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0>
56 <TD ALIGN="right">Date: </TD>
57 <TD><B><% time2str($date_format, $src->_date) %></B></TD>
61 <TD ALIGN="right">Amount: </TD>
62 <TD ID="original_amount"><B><% $money_char %><% $src_amount %></B>
65 % if ($use_sub_dst_thing && $can_change_credit) {
66 <INPUT TYPE="hidden" NAME="src_amount" VALUE="<% $src_amount %>" >
67 <BUTTON TYPE="button" NAME="expand_button" ID="expand_button" onClick="do_change_amount(this);">Change</BUTTON>
74 <TD ALIGN="right">Unapplied amount: </TD>
75 <TD ID="unapplied_amount"><B><% $money_char %><% $unapplied %></B></TD>
78 % if ( $src_table eq 'cust_credit' ) {
80 <TD ALIGN="right">Reason: </TD>
81 <TD COLSPAN=2><B><% $src->reason %></B></TD>
88 <SCRIPT TYPE="text/javascript">
89 function clear_amounts() {
91 var table = document.getElementById('ApplicationTable');
92 for (var row = 2; table.rows[row]; row++)
94 var inputs = table.rows[row].getElementsByTagName('input');
95 if ( !inputs.length ) {
98 inputs.item(0).value = ''; // amount
103 function changed(what) {
104 dst = what.options[what.selectedIndex].value;
107 what.form.submit.disabled=true;
108 %if ($use_sub_dst_thing && $src_pkey eq 'crednum') {
109 what.form.tax_button.disabled=true;
110 what.form.clear_button.disabled=true;
115 what.form.submit.disabled=false;
116 %if ($use_sub_dst_thing && $src_pkey eq 'crednum') {
117 what.form.tax_button.disabled=false;
118 what.form.clear_button.disabled=false;
121 % foreach my $dst ( @dst ) {
123 if ( dst == <% $dst->$dst_pkey %> ) {
124 what.form.amount.value = "<% min($dst->$dst_unapplied, $unapplied) %>";
125 % if ($use_sub_dst_thing) {
126 what.form.display_amount.value = "<% min($dst->$dst_unapplied, $unapplied) %>";
129 var table = document.getElementById('ApplicationTable');
130 while(table.rows[2]) {
133 % my $app_class = "FS::$link_table";
134 % my $temp_app = $app_class->new(
135 % { $src_pkey => $src_pkeyvalue,
136 % $dst_pkey => $dst->$dst_pkey,
137 % 'amount' => min($dst->$dst_unapplied, $unapplied),
141 % my $listref_or_error = $temp_app->calculate_applications;
142 % %apphash = map { &{$key_generator}($_), $_ } @$listref_or_error
143 % if ref($listref_or_error);
144 % foreach my $cbp ( $dst->open_cust_bill_pkg ) {
145 % my $desc = $cbp->desc;
146 % my $total_owed = $cbp->owed_setup + $cbp->owed_recur;
147 % my $key = &{$key_generator}([ $cbp, 0, {} ]);
148 % my $amount = exists($apphash{ $key }) ? $apphash{ $key }->[1] : 0;
149 % unless ( $cbp->pkgnum ) {
150 % foreach my $taxX ( $cbp->cust_bill_pkg_tax_Xlocation ) {
151 % my $pkey = $taxX->primary_key;
152 % my $owed = $taxX->owed;
153 % my $key = &{$key_generator}([ $cbp, 0, { $pkey => $taxX->$pkey } ]);
154 % my $toapp = exists($apphash{ $key }) ? $apphash{ $key }->[1] : 0;
155 <% &{$row_generator}( $key, $cbp, $taxX->desc, $owed, $toapp, $taxX->$pkey ) %>
156 % $total_owed -= $owed;
159 % $desc .= ' (default)';
161 % $total_owed = sprintf('%.2f', $total_owed + 0.00000001 ); #so 1.005 rounds to 1.01
162 % if ( $total_owed > 0 ) {
163 <% &{$row_generator}($key, $cbp, $desc, $total_owed, $amount, '') %>
173 function sub_changed(what) {
176 var table = document.getElementById('ApplicationTable');
177 var i = table.rows.length;
179 var inputs = table.rows[i].getElementsByTagName('input');
180 if (! inputs.length) {
183 amount += parseFloat( inputs.item(0).value ) || 0;
185 what.form.amount.value = parseFloat(amount).toFixed(2);
186 what.form.display_amount.value = parseFloat(amount).toFixed(2);
187 set_amount_color(what);
191 function set_amount_color(what) {
192 if (what.form.src_amount.value < what.form.amount.value) {
193 what.form.display_amount.style.color = '#ff0000';
195 what.form.display_amount.style.color = '#00ff00';
203 % if ($use_sub_dst_thing && $src_pkey eq 'crednum') {
208 <BUTTON TYPE="button" NAME="tax_button" ID="tax_button" onClick="do_calculate_tax(this);" DISABLED>Calculate Tax</BUTTON>
211 <BUTTON TYPE="button" NAME="clear_button" ID="clear_button" onClick="clear_amounts(this);" DISABLED>Clear Amounts</BUTTON>
216 <% include( '/elements/xmlhttp.html',
217 'url' => $p.'misc/xmlhttp-calculate_taxes.html',
218 'subs' => [ 'calculate_taxes' ],
221 <SCRIPT TYPE="text/javascript">
223 function show_taxes(arg) {
224 var argsHash = eval('(' + arg + ')');
226 var button = document.getElementById('tax_button');
227 button.disabled = false;
228 button.innerHTML = 'Calculate Tax';
229 button = document.getElementById('clear_button');
230 button.disabled = false;
232 var error = argsHash['error'];
234 var paragraph = document.getElementById('ErrorMessage');
236 paragraph.innerHTML = 'Error: ' + error;
237 paragraph.style.color = '#ff0000';
239 paragraph.innerHTML = '';
241 var taxlines = argsHash['taxlines'];
243 var table = document.getElementById('ApplicationTable');
246 for (i = 0; taxlines[i]; i++) {
247 var itemdesc = taxlines[i][0];
248 var locnum = taxlines[i][2];
249 if (taxlines[i][3]) {
250 locnum = taxlines[i][3];
254 for (var row = 2; table.rows[row]; row++) {
255 var inputs = table.rows[row].getElementsByTagName('input');
256 if (! inputs.length) {
257 while ( table.rows[row] ) {
258 table.deleteRow(row);
262 if ( inputs.item(4).value == itemdesc && inputs.item(2).value == locnum )
264 inputs.item(0).value = taxlines[i][1];
265 aFoundRow = found = row;
270 var row = table.insertRow(table.rows.length);
271 var warning_cell = document.createElement('TD');
272 warning_cell.style.color = '#ff0000';
273 warning_cell.colSpan = 2;
274 warning_cell.innerHTML = 'Calculated Tax - ' + itemdesc + ' - ' +
275 taxlines[i][1] + ' will not be applied';
276 row.appendChild(warning_cell);
281 sub_changed(table.rows[aFoundRow].getElementsByTagName('input').item(0));
286 function do_calculate_tax (what) {
287 what.innerHTML = 'Calculating....';
288 what.disabled = true;
289 var button = document.getElementById('clear_button');
290 button.disabled = true;
291 var taxed_items = new Array();
292 var table = document.getElementById('ApplicationTable');
293 for (var row = 2; table.rows[row]; row++)
295 var inputs = table.rows[row].getElementsByTagName('input');
296 if ( !inputs.length ) {
299 var taxed_item = new Array(
300 inputs.item(1).value, // billpkgnum
301 inputs.item(3).value, // s_or_r
302 inputs.item(0).value || 0 // amount
304 taxed_items.push(taxed_item);
307 var args = new Array(
308 'crednum', '<% $src_pkeyvalue %>',
311 calculate_taxes ( args, show_taxes );
314 function do_change_amount (what) {
315 var amount_cell = document.getElementById('original_amount');
316 var inputs = amount_cell.getElementsByTagName('input');
318 src_amount_changed();
319 amount_cell.innerHTML = '<B><% $money_char %></B>' + inputs.item(0).value;
321 amount_cell.innerHTML = '<% $money_char %>';
322 var amount_input = document.createElement('INPUT');
323 amount_input.setAttribute('name', 'entered_amount');
324 amount_input.setAttribute('id', 'entered_amount');
325 amount_input.style.textAlign = 'right';
326 amount_input.setAttribute('size', 8);
327 amount_input.setAttribute('maxlength', 8);
328 amount_input.setAttribute('value', what.form.src_amount.value);
329 amount_input.setAttribute('onChange', "src_amount_changed(this);");
330 amount_cell.appendChild(amount_input);
334 function src_amount_changed () {
335 //alert('src_amount_changed called');
336 var entered_amount = document.getElementById('entered_amount');
337 if ( entered_amount ) {
338 entered_amount.form.src_amount.value = entered_amount.value;
339 var unapplied_cell = document.getElementById('unapplied_amount');
340 unapplied_cell.innerHTML = '<B><% $money_char %>' + entered_amount.value + '</B>';
341 set_amount_color(entered_amount);
350 <TABLE ID="ApplicationTable" BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0>
353 <TD ALIGN="right"><% $dst_thing %>: </TD>
354 <TD><SELECT NAME="<% $dst_pkey %>" SIZE=1 onChange="changed(this)">
355 <OPTION VALUE="">Select <% $dst_thing %>
357 % foreach my $dst ( @dst ) {
358 <OPTION<% $dst->$dst_pkey eq $dst_pkeyvalue ? ' SELECTED' : '' %> VALUE="<% $dst->$dst_pkey %>">#<% $dst->$dst_pkey %> - <% time2str($date_format, $dst->_date) %> - $<% $dst->$dst_unapplied %>
366 <TD ALIGN="right">Amount: </TD>
367 <TD><% $money_char %><INPUT TYPE="text" NAME="<% $use_sub_dst_thing ? 'display_' : '' %>amount" VALUE="<% $amount %>" SIZE=8 MAXLENGTH=8 <% $use_sub_dst_thing ? 'DISABLED' : '' %> STYLE="text-align:right;"></TD>
368 % if ($use_sub_dst_thing) {
369 <INPUT TYPE="hidden" NAME="amount" VALUE="<% $amount %>" >
376 <CENTER><INPUT TYPE="submit"
380 % if ($use_sub_dst_thing && $can_change_credit) {
381 onClick="src_amount_changed()"
388 <SCRIPT TYPE="text/javascript">
390 function myOnLoadFunction () {
396 <% include('/elements/footer.html') %>
402 my $conf = new FS::Conf;
403 my $money_char = $conf->config('money_char') || '$';
404 my $date_format = $conf->config('date_format') || '%m/%d/%Y';
406 my $src_thing = ucfirst($opt{'src_thing'});
407 my $src_table = $opt{'src_table'};
408 my $src_pkey = dbdef->table($src_table)->primary_key;
410 my $dst_thing = ucfirst($opt{'dst_thing'});
411 my $dst_table = $opt{'dst_table'};
412 my $dst_pkey = dbdef->table($dst_table)->primary_key;
413 my $dst_unapplied = $dst_table eq 'cust_bill' ? 'owed' : 'unapplied';
415 $opt{form_action} =~ /^process\/(.*)\./ or die "bad form action";
418 my $use_sub_dst_thing = 0;
419 $use_sub_dst_thing = 1
420 if ( $dst_table eq 'cust_bill' && $conf->exists("${link_table}_pkg-manual") );
422 my $can_change_credit = 0;
423 $can_change_credit = 1
424 if ( $src_table eq 'cust_credit' &&
425 $FS::CurrentUser::CurrentUser->access_right('Post credit') &&
426 $FS::CurrentUser::CurrentUser->access_right('Delete credit')
429 my $to = $dst_table eq 'cust_refund' ? ' to Refund' : '';
431 my($src_pkeyvalue, $amount, $dst_pkeyvalue, $src_amount);
432 if ( $cgi->param('error') ) {
433 $src_pkeyvalue = $cgi->param($src_pkey);
434 $amount = $cgi->param('amount');
435 $dst_pkeyvalue = $cgi->param($dst_pkey);
436 $src_amount = $cgi->param('src_amount');
438 my($query) = $cgi->keywords;
445 my $otaker = getotaker;
449 my $src = qsearchs($src_table, { $src_pkey => $src_pkeyvalue } );
450 die "$src_thing $src_pkeyvalue not found!" unless $src;
452 $src_amount = $src->amount unless $cgi->param('error');
454 my $unapplied = $src->unapplied;
456 my @dst = sort { $a->_date <=> $b->_date
457 or $a->$dst_pkey <=> $b->$dst_pkey
459 grep { $_->$dst_unapplied != 0 }
460 qsearch($dst_table, { 'custnum' => $src->custnum } );
462 my $row_generator = sub {
463 my ($key, $cust_bill_pkg, $desc, $owed, $amount, $taxXnum) = @_;
464 my ($num, $s_or_r, $taxlinenum) = split(':', $key);
465 my $id = $cust_bill_pkg->pkgnum || 'Tax';
466 my $billpkgnum = $cust_bill_pkg->billpkgnum;
467 my $s_or_r = $cust_bill_pkg->setup > 0 ? 'setup' : 'recur';
469 $amount = sprintf("%.2f", $amount);
471 var tablebody = document.getElementsByTagName('tbody').item(0);
472 var row = table.insertRow(rownum+2);
473 var pkg_cell = document.createElement('TD');
474 pkg_cell.style.textAlign = 'right';
475 pkg_cell.innerHTML = "$id - $desc - $owed:";
476 var amount_cell = document.createElement('TD');
477 amount_cell.innerHTML = "$money_char";
478 var amount_input = document.createElement('INPUT');
479 amount_input.setAttribute('name', 'subamount'+rownum);
480 amount_input.setAttribute('id', 'subamount'+rownum);
481 amount_input.style.textAlign = 'right';
482 amount_input.setAttribute('size', 8);
483 amount_input.setAttribute('maxlength', 8);
484 amount_input.setAttribute('rownum', rownum);
485 amount_input.setAttribute('value', "$amount");
486 amount_input.setAttribute('onChange', "sub_changed(this);");
487 amount_cell.appendChild(amount_input);
488 var subnum_input = document.createElement('INPUT');
489 subnum_input.setAttribute('name', 'subnum'+rownum);
490 subnum_input.setAttribute('id', 'subnum'+rownum);
491 subnum_input.setAttribute('type', 'hidden');
492 subnum_input.setAttribute('rownum', rownum);
493 subnum_input.setAttribute('value', "$billpkgnum");
494 amount_cell.appendChild(subnum_input);
495 var taxnum_input = document.createElement('INPUT');
496 taxnum_input.setAttribute('name', 'taxXlocationnum'+rownum);
497 taxnum_input.setAttribute('id', 'taxXlocationnum'+rownum);
498 taxnum_input.setAttribute('type', 'hidden');
499 taxnum_input.setAttribute('rownum', rownum);
500 taxnum_input.setAttribute('value', "$taxXnum");
501 amount_cell.appendChild(taxnum_input);
502 var s_or_r_input = document.createElement('INPUT');
503 s_or_r_input.setAttribute('name', 's_or_r'+rownum);
504 s_or_r_input.setAttribute('id', 's_or_r'+rownum);
505 s_or_r_input.setAttribute('type', 'hidden');
506 s_or_r_input.setAttribute('rownum', rownum);
507 s_or_r_input.setAttribute('value', "$s_or_r");
508 amount_cell.appendChild(s_or_r_input);
509 var itemdesc_input = document.createElement('INPUT');
510 itemdesc_input.setAttribute('name', 'itemdesc'+rownum);
511 itemdesc_input.setAttribute('id', 'itemdesc'+rownum);
512 itemdesc_input.setAttribute('type', 'hidden');
513 itemdesc_input.setAttribute('rownum', rownum);
514 itemdesc_input.setAttribute('value', "$desc");
515 amount_cell.appendChild(itemdesc_input);
516 row.appendChild(pkg_cell);
517 row.appendChild(amount_cell);
522 my $key_generator = sub {
524 my ($cust_bill_pkg, $amount, $hashref) = @$listref;
525 my $setup_or_recur = $cust_bill_pkg->setup > 0 ? 'setup' : 'recur';
526 my $taxlinenum = $hashref->{billpkgtaxlocationnum} ||
527 $hashref->{billpkgtaxratelocationnum} ||
530 join(':', $cust_bill_pkg->billpkgnum, $setup_or_recur, $taxlinenum);
533 my $onload = 'return true;';
535 if ($cgi->param('error')) {
537 my $set_sub_amounts =
538 join(';', map { "myform.subamount$_.value = ". $cgi->param("subamount$_") }
540 map { /^subnum(\d+)$/ ? $1 : '' }
543 $set_sub_amounts &&= "$set_sub_amounts;sub_changed(myform.subamount0)";
546 var myform = document.getElementById('ApplicationForm');
547 changed(myform.elements['$dst_pkey']);