- sub { my $cust_bill = shift;
- # my $cust_main = $cust_bill->cust_main;
- # $cust_main
- # ? $cust_main->get('last'). ', '. $cust_main->first
- # : "WARNING: can't find cust_main.custnum ".
- # $cust_bill->custnum. ' (cust_bill.invnum '.
- # $cust_bill->invnum. ')';
- if ( $cust_bill->cust_main_custnum ) {
- FS::cust_main::name($cust_bill);
- } else {
- "WARNING: can't find cust_main.custnum ".
- $cust_bill->custnum. ' (cust_bill.invnum '.
- $cust_bill->invnum. ')';
- }
- },
- sub { my $cust_main = shift->cust_main;
- $cust_main ? $cust_main->company : '';
- },