+sub findbycustnum{
+ my $custnum = shift;
+ my $agent = shift;
+ my $hashref = { 'custnum' => $custnum };
+ $hashref = { 'agent_custid' => $custnum } if $agent;
+ my $cust_main = qsearchs({
+ 'table' => 'cust_main',
+ 'hashref' => $hashref,
+ 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
+ });
+ return [ $cust_main->custnum, $cust_main->name, $cust_main->balance ]
+ if $cust_main;
+ [];
+}