diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2012-08-01 14:04:50 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2012-08-01 14:04:50 -0700 |
| commit | 4d6c465f4b32a49f8bce091f6cb5abb209123ec2 (patch) | |
| tree | 2b86cf33e009c3806e360284b65092facc8d089e /FS/FS | |
| parent | bec3b6c2bf97d66b992866d7ee7295f1f05452e6 (diff) | |
invoice voiding, RT#18677
Diffstat (limited to 'FS/FS')
| -rw-r--r-- | FS/FS/Mason.pm | 1 | ||||
| -rw-r--r-- | FS/FS/Schema.pm | 13 | ||||
| -rw-r--r-- | FS/FS/cust_bill_pkg_discount.pm | 4 | ||||
| -rw-r--r-- | FS/FS/quotation.pm | 3 |
4 files changed, 17 insertions, 4 deletions
diff --git a/FS/FS/Mason.pm b/FS/FS/Mason.pm index c45e783..663a48e 100644 --- a/FS/FS/Mason.pm +++ b/FS/FS/Mason.pm @@ -322,6 +322,7 @@ if ( -e $addl_handler_use_file ) { use FS::cust_bill_pkg_tax_location_void; use FS::cust_bill_pkg_tax_rate_location_void; use FS::cust_tax_exempt_pkg_void; + use FS::cust_bill_pkg_discount_void; # Sammath Naur if ( $FS::Mason::addl_handler_use ) { diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm index e59268b..cff0afd 100644 --- a/FS/FS/Schema.pm +++ b/FS/FS/Schema.pm @@ -1784,6 +1784,19 @@ sub tables_hashref { 'index' => [ [ 'billpkgnum' ], [ 'pkgdiscountnum' ] ], }, + 'cust_bill_pkg_discount_void' => { + 'columns' => [ + 'billpkgdiscountnum', 'int', '', '', '', '', + 'billpkgnum', 'int', '', '', '', '', + 'pkgdiscountnum', 'int', '', '', '', '', + 'amount', @money_type, '', '', + 'months', 'decimal', 'NULL', '7,4', '', '', + ], + 'primary_key' => 'billpkgdiscountnum', + 'unique' => [], + 'index' => [ [ 'billpkgnum' ], [ 'pkgdiscountnum' ] ], + }, + 'discount' => { 'columns' => [ 'discountnum', 'serial', '', '', '', '', diff --git a/FS/FS/cust_bill_pkg_discount.pm b/FS/FS/cust_bill_pkg_discount.pm index e7dd5f2..dfa83d3 100644 --- a/FS/FS/cust_bill_pkg_discount.pm +++ b/FS/FS/cust_bill_pkg_discount.pm @@ -28,8 +28,8 @@ FS::cust_bill_pkg_discount - Object methods for cust_bill_pkg_discount records =head1 DESCRIPTION An FS::cust_bill_pkg_discount object represents the slice of a customer -applied to a line item. FS::cust_bill_pkg_discount inherits from -FS::Record. The following fields are currently supported: +discount applied to a specific line item. FS::cust_bill_pkg_discount inherits +from FS::Record. The following fields are currently supported: =over 4 diff --git a/FS/FS/quotation.pm b/FS/FS/quotation.pm index ccaa1c3..9e7723c 100644 --- a/FS/FS/quotation.pm +++ b/FS/FS/quotation.pm @@ -142,9 +142,8 @@ sub cust_main { =cut -sub cust_bill_pkg { +sub cust_bill_pkg { #actually quotation_pkg objects my $self = shift; - #actually quotation_pkg objects qsearch('quotation_pkg', { quotationnum=>$self->quotationnum }); } |