X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2FTaxEngine%2Finternal.pm;h=91b547ce0875f4c87ce63453ed81b7754cf0b786;hp=4ca1ea8b68fc79f41a1d38db7059c3c7a70b939b;hb=194c16bf0af62048d118ad28e55f5e1eb5d92ffa;hpb=a7a1836a29ad86b033e8d858fe999d03af2c54e4 diff --git a/FS/FS/TaxEngine/internal.pm b/FS/FS/TaxEngine/internal.pm index 4ca1ea8b6..91b547ce0 100644 --- a/FS/FS/TaxEngine/internal.pm +++ b/FS/FS/TaxEngine/internal.pm @@ -243,7 +243,9 @@ sub taxline { exempt_monthly => 'Y', year => $year, month => $mon, + taxnum => $tax_object->taxnum, }); + $taxable_charged -= $addl; } # if they're using multiple months of exemption for a multi-month @@ -257,10 +259,23 @@ sub taxline { } } # if exempt_amount - $_->taxnum($tax_object->taxnum) foreach @new_exemptions; - # attach them to the line item - push @{ $cust_bill_pkg->cust_tax_exempt_pkg }, @new_exemptions; + foreach my $ex (@new_exemptions) { + + if ( $cust_bill_pkg->billpkgnum ) { + # the exempted item is already inserted (it should be, these days) so + # insert the exemption record now: + $ex->set('billpkgnum', $cust_bill_pkg->billpkgnum); + my $error = $ex->insert; + return "inserting tax exemption record: $error" if $error; + + } else { + # defer it until the item is inserted + push @{ $cust_bill_pkg->cust_tax_exempt_pkg }, $ex; + } + } + + # and remember we've used the exemption push @existing_exemptions, @new_exemptions; $taxable_charged = sprintf( "%.2f", $taxable_charged);