Revision 84346ba1
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
| 216 | 216 |
|
| 217 | 217 |
sub is_sales {
|
| 218 | 218 |
croak 'not an accessor' if @_ > 1; |
| 219 |
return !!shift->customer_id; |
|
| 219 |
my $type = shift->type(); |
|
| 220 |
if (any { $type eq $_ } (
|
|
| 221 |
SALES_ORDER_TYPE(), |
|
| 222 |
SALES_QUOTATION_TYPE(), |
|
| 223 |
)) {
|
|
| 224 |
return 1; |
|
| 225 |
}; |
|
| 226 |
return 0; |
|
| 220 | 227 |
} |
| 221 | 228 |
|
| 222 | 229 |
sub daily_exchangerate {
|
Auch abrufbar als: Unified diff
DB::Order: is_sales verwende record_type