Revision 157648ca
Von Tamino Steinert vor etwa 2 Jahren hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
|
|
||
|
sub is_sales {
|
||
|
croak 'not an accessor' if @_ > 1;
|
||
|
return !!shift->customer_id;
|
||
|
my $type = shift->type();
|
||
|
if (any { $type eq $_ } (
|
||
|
SALES_ORDER_TYPE(),
|
||
|
SALES_QUOTATION_TYPE(),
|
||
|
)) {
|
||
|
return 1;
|
||
|
};
|
||
|
return 0;
|
||
|
}
|
||
|
|
||
|
sub daily_exchangerate {
|
||
Auch abrufbar als: Unified diff
DB::Order: is_sales verwende record_type