diff options
author | Ivan Kohler <ivan@freeside.biz> | 2013-08-26 12:45:14 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2013-08-26 12:45:14 -0700 |
commit | 2e3fbe5f06250cd034308ec12c77fc68b0a79f96 (patch) | |
tree | b12ba289cbf45659a5ee867ba0ca4688e76e0c55 | |
parent | 41592b95d0f43281a84db45e2aea24c708a96f76 (diff) |
continue sales person work: customer and package selection, commissions, reporting. RT#23402
-rw-r--r-- | FS/FS/part_event/Action/pkg_sales_credit.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/FS/FS/part_event/Action/pkg_sales_credit.pm b/FS/FS/part_event/Action/pkg_sales_credit.pm index caa25cc80..cca123a75 100644 --- a/FS/FS/part_event/Action/pkg_sales_credit.pm +++ b/FS/FS/part_event/Action/pkg_sales_credit.pm @@ -12,7 +12,12 @@ sub do_action { my $cust_main = $self->cust_main($cust_pkg); my $sales = $cust_pkg->sales; - return "No customer record for sales person ". $sales->salesperson + $sales ||= $self->cust_main($cust_pkg)->sales + if $self->option('cust_main_sales'); + + return '' unless $sales; #no sales person, no credit + + die "No customer record for sales person ". $sales->salesperson unless $sales->sales_custnum; my $sales_cust_main = $sales->sales_cust_main; |