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 % if ( $total_owed > 0 ) {
162 <% &{$row_generator}($key, $cbp, $desc, $total_owed, $amount, '') %>
172 function sub_changed(what) {
175 var table = document.getElementById('ApplicationTable');
176 var i = table.rows.length;
178 var inputs = table.rows[i].getElementsByTagName('input');
179 if (! inputs.length) {
182 amount += parseFloat( inputs.item(0).value ) || 0;
184 what.form.amount.value = parseFloat(amount).toFixed(2);
185 what.form.display_amount.value = parseFloat(amount).toFixed(2);
186 set_amount_color(what);
190 function set_amount_color(what) {
191 if (what.form.src_amount.value < what.form.amount.value) {
192 what.form.display_amount.style.color = '#ff0000';
194 what.form.display_amount.style.color = '#00ff00';
202 % if ($use_sub_dst_thing && $src_pkey eq 'crednum') {
207 <BUTTON TYPE="button" NAME="tax_button" ID="tax_button" onClick="do_calculate_tax(this);" DISABLED>Calculate Tax</BUTTON>
210 <BUTTON TYPE="button" NAME="clear_button" ID="clear_button" onClick="clear_amounts(this);" DISABLED>Clear Amounts</BUTTON>
215 <% include( '/elements/xmlhttp.html',
216 'url' => $p.'misc/xmlhttp-calculate_taxes.html',
217 'subs' => [ 'calculate_taxes' ],
220 <SCRIPT TYPE="text/javascript">
222 function show_taxes(arg) {
223 var argsHash = eval('(' + arg + ')');
225 var button = document.getElementById('tax_button');
226 button.disabled = false;
227 button.innerHTML = 'Calculate Tax';
228 button = document.getElementById('clear_button');
229 button.disabled = false;
231 var error = argsHash['error'];
233 var paragraph = document.getElementById('ErrorMessage');
235 paragraph.innerHTML = 'Error: ' + error;
236 paragraph.style.color = '#ff0000';
238 paragraph.innerHTML = '';
240 var taxlines = argsHash['taxlines'];
242 var table = document.getElementById('ApplicationTable');
245 for (i = 0; taxlines[i]; i++) {
246 var itemdesc = taxlines[i][0];
247 var locnum = taxlines[i][2];
248 if (taxlines[i][3]) {
249 locnum = taxlines[i][3];
253 for (var row = 2; table.rows[row]; row++) {
254 var inputs = table.rows[row].getElementsByTagName('input');
255 if (! inputs.length) {
256 while ( table.rows[row] ) {
257 table.deleteRow(row);
261 if ( inputs.item(4).value == itemdesc && inputs.item(2).value == locnum )
263 inputs.item(0).value = taxlines[i][1];
264 aFoundRow = found = row;
269 var row = table.insertRow(table.rows.length);
270 var warning_cell = document.createElement('TD');
271 warning_cell.style.color = '#ff0000';
272 warning_cell.colSpan = 2;
273 warning_cell.innerHTML = 'Calculated Tax - ' + itemdesc + ' - ' +
274 taxlines[i][1] + ' will not be applied';
275 row.appendChild(warning_cell);
280 sub_changed(table.rows[aFoundRow].getElementsByTagName('input').item(0));
285 function do_calculate_tax (what) {
286 what.innerHTML = 'Calculating....';
287 what.disabled = true;
288 var button = document.getElementById('clear_button');
289 button.disabled = true;
290 var taxed_items = new Array();
291 var table = document.getElementById('ApplicationTable');
292 for (var row = 2; table.rows[row]; row++)
294 var inputs = table.rows[row].getElementsByTagName('input');
295 if ( !inputs.length ) {
298 var taxed_item = new Array(
299 inputs.item(1).value, // billpkgnum
300 inputs.item(3).value, // s_or_r
301 inputs.item(0).value || 0 // amount
303 taxed_items.push(taxed_item);
306 var args = new Array(
307 'crednum', '<% $src_pkeyvalue %>',
310 calculate_taxes ( args, show_taxes );
313 function do_change_amount (what) {
314 var amount_cell = document.getElementById('original_amount');
315 var inputs = amount_cell.getElementsByTagName('input');
317 src_amount_changed();
318 amount_cell.innerHTML = '<B><% $money_char %></B>' + inputs.item(0).value;
320 amount_cell.innerHTML = '<% $money_char %>';
321 var amount_input = document.createElement('INPUT');
322 amount_input.setAttribute('name', 'entered_amount');
323 amount_input.setAttribute('id', 'entered_amount');
324 amount_input.style.textAlign = 'right';
325 amount_input.setAttribute('size', 8);
326 amount_input.setAttribute('maxlength', 8);
327 amount_input.setAttribute('value', what.form.src_amount.value);
328 amount_input.setAttribute('onChange', "src_amount_changed(this);");
329 amount_cell.appendChild(amount_input);
333 function src_amount_changed () {
334 //alert('src_amount_changed called');
335 var entered_amount = document.getElementById('entered_amount');
336 if ( entered_amount ) {
337 entered_amount.form.src_amount.value = entered_amount.value;
338 var unapplied_cell = document.getElementById('unapplied_amount');
339 unapplied_cell.innerHTML = '<B><% $money_char %>' + entered_amount.value + '</B>';
340 set_amount_color(entered_amount);
349 <TABLE ID="ApplicationTable" BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0>
352 <TD ALIGN="right"><% $dst_thing %>: </TD>
353 <TD><SELECT NAME="<% $dst_pkey %>" SIZE=1 onChange="changed(this)">
354 <OPTION VALUE="">Select <% $dst_thing %>
356 % foreach my $dst ( @dst ) {
357 <OPTION<% $dst->$dst_pkey eq $dst_pkeyvalue ? ' SELECTED' : '' %> VALUE="<% $dst->$dst_pkey %>">#<% $dst->$dst_pkey %> - <% time2str($date_format, $dst->_date) %> - $<% $dst->$dst_unapplied %>
365 <TD ALIGN="right">Amount: </TD>
366 <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>
367 % if ($use_sub_dst_thing) {
368 <INPUT TYPE="hidden" NAME="amount" VALUE="<% $amount %>" >
375 <CENTER><INPUT TYPE="submit"
379 % if ($use_sub_dst_thing && $can_change_credit) {
380 onClick="src_amount_changed()"
387 <SCRIPT TYPE="text/javascript">
389 function myOnLoadFunction () {
395 <% include('/elements/footer.html') %>
401 my $conf = new FS::Conf;
402 my $money_char = $conf->config('money_char') || '$';
403 my $date_format = $conf->config('date_format') || '%m/%d/%Y';
405 my $src_thing = ucfirst($opt{'src_thing'});
406 my $src_table = $opt{'src_table'};
407 my $src_pkey = dbdef->table($src_table)->primary_key;
409 my $dst_thing = ucfirst($opt{'dst_thing'});
410 my $dst_table = $opt{'dst_table'};
411 my $dst_pkey = dbdef->table($dst_table)->primary_key;
412 my $dst_unapplied = $dst_table eq 'cust_bill' ? 'owed' : 'unapplied';
414 $opt{form_action} =~ /^process\/(.*)\./ or die "bad form action";
417 my $use_sub_dst_thing = 0;
418 $use_sub_dst_thing = 1
419 if ( $dst_table eq 'cust_bill' && $conf->exists("${link_table}_pkg-manual") );
421 my $can_change_credit = 0;
422 $can_change_credit = 1
423 if ( $src_table eq 'cust_credit' &&
424 $FS::CurrentUser::CurrentUser->access_right('Post credit') &&
425 $FS::CurrentUser::CurrentUser->access_right('Delete credit')
428 my $to = $dst_table eq 'cust_refund' ? ' to Refund' : '';
430 my($src_pkeyvalue, $amount, $dst_pkeyvalue, $src_amount);
431 if ( $cgi->param('error') ) {
432 $src_pkeyvalue = $cgi->param($src_pkey);
433 $amount = $cgi->param('amount');
434 $dst_pkeyvalue = $cgi->param($dst_pkey);
435 $src_amount = $cgi->param('src_amount');
437 my($query) = $cgi->keywords;
444 my $otaker = getotaker;
448 my $src = qsearchs($src_table, { $src_pkey => $src_pkeyvalue } );
449 die "$src_thing $src_pkeyvalue not found!" unless $src;
451 $src_amount = $src->amount unless $cgi->param('error');
453 my $unapplied = $src->unapplied;
455 my @dst = sort { $a->_date <=> $b->_date
456 or $a->$dst_pkey <=> $b->$dst_pkey
458 grep { $_->$dst_unapplied != 0 }
459 qsearch($dst_table, { 'custnum' => $src->custnum } );
461 my $row_generator = sub {
462 my ($key, $cust_bill_pkg, $desc, $owed, $amount, $taxXnum) = @_;
463 my ($num, $s_or_r, $taxlinenum) = split(':', $key);
464 my $id = $cust_bill_pkg->pkgnum || 'Tax';
465 my $billpkgnum = $cust_bill_pkg->billpkgnum;
466 my $s_or_r = $cust_bill_pkg->setup > 0 ? 'setup' : 'recur';
468 $amount = sprintf("%.2f", $amount);
470 var tablebody = document.getElementsByTagName('tbody').item(0);
471 var row = table.insertRow(rownum+2);
472 var pkg_cell = document.createElement('TD');
473 pkg_cell.style.textAlign = 'right';
474 pkg_cell.innerHTML = "$id - $desc - $owed:";
475 var amount_cell = document.createElement('TD');
476 amount_cell.innerHTML = "$money_char";
477 var amount_input = document.createElement('INPUT');
478 amount_input.setAttribute('name', 'subamount'+rownum);
479 amount_input.setAttribute('id', 'subamount'+rownum);
480 amount_input.style.textAlign = 'right';
481 amount_input.setAttribute('size', 8);
482 amount_input.setAttribute('maxlength', 8);
483 amount_input.setAttribute('rownum', rownum);
484 amount_input.setAttribute('value', "$amount");
485 amount_input.setAttribute('onChange', "sub_changed(this);");
486 amount_cell.appendChild(amount_input);
487 var subnum_input = document.createElement('INPUT');
488 subnum_input.setAttribute('name', 'subnum'+rownum);
489 subnum_input.setAttribute('id', 'subnum'+rownum);
490 subnum_input.setAttribute('type', 'hidden');
491 subnum_input.setAttribute('rownum', rownum);
492 subnum_input.setAttribute('value', "$billpkgnum");
493 amount_cell.appendChild(subnum_input);
494 var taxnum_input = document.createElement('INPUT');
495 taxnum_input.setAttribute('name', 'taxXlocationnum'+rownum);
496 taxnum_input.setAttribute('id', 'taxXlocationnum'+rownum);
497 taxnum_input.setAttribute('type', 'hidden');
498 taxnum_input.setAttribute('rownum', rownum);
499 taxnum_input.setAttribute('value', "$taxXnum");
500 amount_cell.appendChild(taxnum_input);
501 var s_or_r_input = document.createElement('INPUT');
502 s_or_r_input.setAttribute('name', 's_or_r'+rownum);
503 s_or_r_input.setAttribute('id', 's_or_r'+rownum);
504 s_or_r_input.setAttribute('type', 'hidden');
505 s_or_r_input.setAttribute('rownum', rownum);
506 s_or_r_input.setAttribute('value', "$s_or_r");
507 amount_cell.appendChild(s_or_r_input);
508 var itemdesc_input = document.createElement('INPUT');
509 itemdesc_input.setAttribute('name', 'itemdesc'+rownum);
510 itemdesc_input.setAttribute('id', 'itemdesc'+rownum);
511 itemdesc_input.setAttribute('type', 'hidden');
512 itemdesc_input.setAttribute('rownum', rownum);
513 itemdesc_input.setAttribute('value', "$desc");
514 amount_cell.appendChild(itemdesc_input);
515 row.appendChild(pkg_cell);
516 row.appendChild(amount_cell);
521 my $key_generator = sub {
523 my ($cust_bill_pkg, $amount, $hashref) = @$listref;
524 my $setup_or_recur = $cust_bill_pkg->setup > 0 ? 'setup' : 'recur';
525 my $taxlinenum = $hashref->{billpkgtaxlocationnum} ||
526 $hashref->{billpkgtaxratelocationnum} ||
529 join(':', $cust_bill_pkg->billpkgnum, $setup_or_recur, $taxlinenum);
532 my $onload = 'return true;';
534 if ($cgi->param('error')) {
536 my $set_sub_amounts =
537 join(';', map { "myform.subamount$_.value = ". $cgi->param("subamount$_") }
539 map { /^subnum(\d+)$/ ? $1 : '' }
542 $set_sub_amounts &&= "$set_sub_amounts;sub_changed(myform.subamount0)";
545 var myform = document.getElementById('ApplicationForm');
546 changed(myform.elements['$dst_pkey']);