use strict;
use vars qw( $DEBUG @location_fields );
use Scalar::Util qw( blessed );
+use FS::Conf;
use FS::Record qw( dbh qsearch ); # qsearchs );
use FS::cust_location;
use FS::cust_main;
my $error =
$self->ut_numbern('prospectnum')
- || $self->ut_foreign_key( 'agentnum', 'agent', 'agentnum' )
- || $self->ut_foreign_key( 'refnum', 'part_referral', 'refnum' )
+ || $self->ut_foreign_key( 'agentnum', 'agent', 'agentnum' )
+ || $self->ut_foreign_keyn( 'refnum', 'part_referral', 'refnum' )
|| $self->ut_textn('company')
;
return $error if $error;
( map { $_ => $self->$_ } qw( agentnum refnum company ) ),
};
+ $cust_main->refnum( FS::Conf->new->config('referraldefault') || 1 )
+ unless $cust_main->refnum;
+
#XXX again, arbitrary, if one contact was "billing", that would be better
if ( $contact[0] ) {
$cust_main->set($_, $contact[0]->get($_)) foreach qw( first last );
$cust_main->set('last', 'Unknown');
}
+ #v3 payby
+ $cust_main->payby('BILL');
+ $cust_main->paydate('12/2037');
+
$cust_main->insert( {}, \@invoicing_list,
'prospectnum' => $self->prospectnum,
)