Ticket #31242 Fix A2billing suspends
[freeside.git] / httemplate / misc / xmlhttp-calculate_taxes.html
1 <% encode_json($return) %>\
2 <%init>
3
4 my $DEBUG = 0;
5
6 my $conf = new FS::Conf;
7
8 my $sub = $cgi->param('sub');
9
10 my $return = {};
11
12 if ( $sub eq 'calculate_taxes' ) {
13
14   {
15     my %arg = $cgi->param('arg');
16     $return = \%arg;
17     warn join('', map "$_: $arg{$_}\n", keys %arg )
18       if $DEBUG;
19
20     my $cust_credit = qsearchs( 'cust_credit', { 'crednum' => $arg{crednum} } );
21     unless ($cust_credit) {
22       $return->{error} = "No such credit: $arg{crednum}";
23       last;
24     }
25   
26     my %cust_bill_pkg = ();
27     my @items = split(',', $arg{items});
28     while ( @items ) {
29       my ($billpkgnum, $s_or_r, $amount ) = splice(@items, 0, 3);
30       unless ( defined($amount) ) {
31         $return->{error} = "Bad items argument list";
32         last;
33       }
34       unless ( $cust_bill_pkg{$billpkgnum} ) {
35         my $cust_bill_pkg =
36           qsearchs( 'cust_bill_pkg', { 'billpkgnum' => $billpkgnum } );
37         unless ($cust_bill_pkg) {
38           $return->{error} = "No such line item: $billpkgnum";
39           last;
40         }
41         next unless $cust_bill_pkg->pkgnum > 0; #hmmm @ one shot (-1)
42         unless ($cust_bill_pkg->cust_pkg->custnum == $cust_credit->custnum) {
43           $return->{error} = "Credit/line item customer mismatch";
44           last;
45         }
46         $cust_bill_pkg{$billpkgnum} = $cust_bill_pkg;
47         $cust_bill_pkg->setup(0);
48         $cust_bill_pkg->recur(0);
49       }
50
51       last if $return->{error};
52
53       my $cust_bill_pkg = $cust_bill_pkg{$billpkgnum};
54       $s_or_r = $s_or_r eq 'setup' ? 'setup' : 'recur';
55       my $value = sprintf('%.2f', $cust_bill_pkg->$s_or_r + $amount);
56       $cust_bill_pkg->$s_or_r($value);
57     }
58
59     last if $return->{error};
60
61     my $cust_main = $cust_credit->cust_main;
62
63     my $taxlisthash = {};
64     foreach my $cust_bill_pkg (values %cust_bill_pkg) {
65       $cust_main->_handle_taxes( $taxlisthash, $cust_bill_pkg );
66     }
67     my $listref_or_error = 
68       $cust_main->calculate_taxes( [ values %cust_bill_pkg ], $taxlisthash, [ values %cust_bill_pkg ]->[0]->cust_bill->_date );
69
70     unless ( ref( $listref_or_error ) ) {
71       $return->{error} = "No such credit: $arg{crednum}";
72       last;
73     }
74
75     my @taxlines = ();
76     $return->{taxlines} = \@taxlines;
77     foreach my $taxline ( @$listref_or_error ) {
78       my $amount = $taxline->setup;
79       my $desc = $taxline->desc;
80       foreach my $location ( @{$taxline->cust_bill_pkg_tax_location}, @{$taxline->cust_bill_pkg_tax_rate_location} ) {
81         my $taxlocnum = $location->locationnum || '';
82         my $taxratelocnum = $location->taxratelocationnum || '';
83         $location->cust_bill_pkg_desc($taxline->desc); #ugh @ that kludge
84         push @taxlines,
85           [ $location->desc, $taxline->setup, $taxlocnum, $taxratelocnum ];
86         $amount -= $location->amount;
87       }
88       if ($amount > 0) {
89         push @taxlines,
90           [ $taxline->itemdesc. ' (default)', sprintf('%.2f', $amount), '', '' ];
91       }
92     }
93
94     $return->{taxlines} = \@taxlines;
95
96   }
97 }
98
99 </%init>