diff options
author | Mark Wells <mark@freeside.biz> | 2014-02-25 17:57:20 -0800 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2014-02-25 23:08:30 -0800 |
commit | fbb18001e331de0a4826076dc25710cbe3664b26 (patch) | |
tree | d1219481d20b56734bc6ae137a24b022aedc6eb5 /FS/FS/part_fee.pm | |
parent | 0393defb3dee145a4bedee761de25cfd1ac503e0 (diff) |
non-package fees, "hold until next bill" option, #25899
Diffstat (limited to 'FS/FS/part_fee.pm')
-rw-r--r-- | FS/FS/part_fee.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/FS/FS/part_fee.pm b/FS/FS/part_fee.pm index 9605d61d2..d1e6477a7 100644 --- a/FS/FS/part_fee.pm +++ b/FS/FS/part_fee.pm @@ -54,6 +54,9 @@ the invoice Currently, taxable fees will be treated like they exist at the customer's default service location. +=item nextbill - 'Y' if this fee should be delayed until the customer is +billed for a package. + =item taxclass - the tax class the fee belongs to, as a string, for the internal tax system @@ -127,6 +130,7 @@ sub check { my $self = shift; $self->set('amount', 0) unless $self->amount; + $self->set('percent', 0) unless $self->percent; my $error = $self->ut_numbern('feepart') @@ -134,14 +138,15 @@ sub check { || $self->ut_flag('disabled') || $self->ut_foreign_keyn('classnum', 'pkg_class', 'classnum') || $self->ut_flag('taxable') + || $self->ut_flag('nextbill') || $self->ut_textn('taxclass') || $self->ut_numbern('taxproductnum') || $self->ut_floatn('pay_weight') || $self->ut_floatn('credit_weight') || $self->ut_agentnum_acl('agentnum', [ 'Edit global package definitions' ]) - || $self->ut_moneyn('amount') - || $self->ut_floatn('percent') + || $self->ut_money('amount') + || $self->ut_float('percent') || $self->ut_moneyn('minimum') || $self->ut_moneyn('maximum') || $self->ut_flag('limit_credit') |