5 use FS::Record qw(qsearch dbh);
9 my $conf = FS::Conf->new;
10 if ( $conf->config('tax_data_vendor') ne 'suretax' ) {
11 die "This script is for Suretax only.";
14 $FS::UID::AutoCommit = 0;
15 local $FS::cust_main::ignore_expired_card = 1;
16 local $FS::cust_main::ignore_invalid_card = 1;
17 local $FS::cust_main::import = 1;
19 my %taxstatusnum = map {
20 $_->taxstatus => $_->taxstatusnum
21 } qsearch('tax_status', { data_vendor => 'suretax' });
23 foreach my $cust_main (qsearch('cust_main', { taxstatusnum => '' })) {
24 my $status = length($cust_main->company) ? 'B' : 'R';
25 print $cust_main->custnum . "\t" .
26 $cust_main->name_short . "\t" .
28 $cust_main->set('taxstatusnum', $taxstatusnum{ $status });
29 my $error = $cust_main->replace;