diff options
author | Mark Wells <mark@freeside.biz> | 2015-03-19 13:43:34 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2015-03-19 13:43:34 -0700 |
commit | e18263db61c9695eb4c139f23c79730fd7659ad6 (patch) | |
tree | 04947f96c8709dbce3e136622c6c36223f3bd194 /FS/FS/cust_bill_pkg_void.pm | |
parent | 5886bd773a3c1fe43abcde0beafb7fb5e1991388 (diff) |
correctly void invoices with fees, #32862
Diffstat (limited to 'FS/FS/cust_bill_pkg_void.pm')
-rw-r--r-- | FS/FS/cust_bill_pkg_void.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/FS/FS/cust_bill_pkg_void.pm b/FS/FS/cust_bill_pkg_void.pm index 8949ba7..080452e 100644 --- a/FS/FS/cust_bill_pkg_void.pm +++ b/FS/FS/cust_bill_pkg_void.pm @@ -8,6 +8,7 @@ use FS::cust_bill_pkg_detail; use FS::cust_bill_pkg_display; use FS::cust_bill_pkg_discount; use FS::cust_bill_pkg; +use FS::cust_bill_pkg_fee; use FS::cust_bill_pkg_tax_location; use FS::cust_bill_pkg_tax_rate_location; use FS::cust_tax_exempt_pkg; @@ -170,6 +171,7 @@ sub unvoid { cust_bill_pkg_tax_location cust_bill_pkg_tax_rate_location cust_tax_exempt_pkg + cust_bill_pkg_fee )) { foreach my $voided ( @@ -239,6 +241,7 @@ sub check { || $self->ut_moneyn('unitsetup') || $self->ut_moneyn('unitrecur') || $self->ut_enum('hidden', [ '', 'Y' ]) + || $self->ut_numbern('feepart') ; return $error if $error; @@ -258,6 +261,11 @@ sub cust_bill { qsearchs( 'cust_bill_void', { 'invnum' => $self->invnum } ); } +sub cust_bill_pkg_fee { + my $self = shift; + qsearch( 'cust_bill_pkg_fee_void', { 'billpkgnum' => $self->billpkgnum } ); +} + =back =head1 BUGS |