my $dir = $FS::UID::conf_dir. "cache.". $FS::UID::datasrc;
open(LASTCACHE,"<$dir/cust_main.last")
or die "can't open $dir/cust_main.last: $!";
my $dir = $FS::UID::conf_dir. "cache.". $FS::UID::datasrc;
open(LASTCACHE,"<$dir/cust_main.last")
or die "can't open $dir/cust_main.last: $!";
my $dir = $FS::UID::conf_dir. "cache.". $FS::UID::datasrc;
open(COMPANYCACHE,"<$dir/cust_main.company")
or die "can't open $dir/cust_main.last: $!";
my $dir = $FS::UID::conf_dir. "cache.". $FS::UID::datasrc;
open(COMPANYCACHE,"<$dir/cust_main.company")
or die "can't open $dir/cust_main.last: $!";