Revision 39c1eba1
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
| 231 | 231 |
|
| 232 | 232 |
sub is_sales {
|
| 233 | 233 |
croak 'not an accessor' if @_ > 1; |
| 234 |
return !!shift->customer_id; |
|
| 234 |
my $type = shift->type(); |
|
| 235 |
if (any { $type eq $_ } (
|
|
| 236 |
SALES_ORDER_TYPE(), |
|
| 237 |
SALES_QUOTATION_TYPE(), |
|
| 238 |
)) {
|
|
| 239 |
return 1; |
|
| 240 |
}; |
|
| 241 |
return 0; |
|
| 235 | 242 |
} |
| 236 | 243 |
|
| 237 | 244 |
sub daily_exchangerate {
|
Auch abrufbar als: Unified diff
DB::Order: is_sales verwende record_type