diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2013-08-26 12:45:13 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2013-08-26 12:45:13 -0700 |
| commit | 034089cb2e60fc44ca895984a3a20c66ff50ce77 (patch) | |
| tree | 7a1fd523823281380571e109453abd80321a67a6 /FS/FS/part_event/Action/pkg_sales_credit.pm | |
| parent | eedfe58ba50912dbfb490aa47930bbc0ab9e3ac9 (diff) | |
continue sales person work: customer and package selection, commissions, reporting. RT#23402
Diffstat (limited to 'FS/FS/part_event/Action/pkg_sales_credit.pm')
| -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 caa25cc..cca123a 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; |