projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
start of FCC 477 report rewrite, #24047 and #28020
[freeside.git]
/
FS
/
FS
/
cust_main_exemption.pm
diff --git
a/FS/FS/cust_main_exemption.pm
b/FS/FS/cust_main_exemption.pm
index
06d22b7
..
6492e22
100644
(file)
--- a/
FS/FS/cust_main_exemption.pm
+++ b/
FS/FS/cust_main_exemption.pm
@@
-1,9
+1,8
@@
package FS::cust_main_exemption;
package FS::cust_main_exemption;
+use base qw( FS::Record );
use strict;
use strict;
-use base qw( FS::Record );
-use FS::Record qw( qsearch qsearchs );
-use FS::cust_main;
+use FS::Conf;
=head1 NAME
=head1 NAME
@@
-44,6
+43,9
@@
Customer (see L<FS::cust_main>)
taxname
taxname
+=item exempt_number
+
+Exemption number
=back
=back
@@
-108,9
+110,15
@@
sub check {
$self->ut_numbern('exemptionnum')
|| $self->ut_foreign_key('custnum', 'cust_main', 'custnum')
|| $self->ut_text('taxname')
$self->ut_numbern('exemptionnum')
|| $self->ut_foreign_key('custnum', 'cust_main', 'custnum')
|| $self->ut_text('taxname')
+ || $self->ut_textn('exempt_number')
;
return $error if $error;
;
return $error if $error;
+ my $conf = new FS::Conf;
+ if ( ! $self->exempt_number && $conf->exists('tax-cust_exempt-groups-require_individual_nums') ) {
+ return 'Tax exemption number required for '. $self->taxname. ' exemption';
+ }
+
$self->SUPER::check;
}
$self->SUPER::check;
}