Revision 0e52aafc
Von Bernd Bleßmann vor etwa 1 Jahr hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
| 184 | 184 |
} |
| 185 | 185 |
|
| 186 | 186 |
sub quotation {
|
| 187 |
my $type = shift->type(); |
|
| 188 |
if (any { $type eq $_ } (
|
|
| 189 |
SALES_ORDER_INTAKE_TYPE(), |
|
| 190 |
SALES_QUOTATION_TYPE(), |
|
| 191 |
REQUEST_QUOTATION_TYPE(), |
|
| 192 |
PURCHASE_QUOTATION_INTAKE_TYPE(), |
|
| 193 |
)) {
|
|
| 194 |
return 1; |
|
| 195 |
}; |
|
| 196 |
return 0; |
|
| 187 |
my $type = $_[0]->type(); |
|
| 188 |
any { $type eq $_ } (
|
|
| 189 |
SALES_ORDER_INTAKE_TYPE(), |
|
| 190 |
SALES_QUOTATION_TYPE(), |
|
| 191 |
REQUEST_QUOTATION_TYPE(), |
|
| 192 |
PURCHASE_QUOTATION_INTAKE_TYPE(), |
|
| 193 |
); |
|
| 197 | 194 |
} |
| 198 | 195 |
|
| 199 | 196 |
sub intake {
|
| 200 |
my $type = shift->type(); |
|
| 201 |
if (any { $type eq $_ } (
|
|
| 202 |
SALES_ORDER_INTAKE_TYPE(), |
|
| 203 |
PURCHASE_QUOTATION_INTAKE_TYPE(), |
|
| 204 |
)) {
|
|
| 205 |
return 1; |
|
| 206 |
}; |
|
| 207 |
return 0; |
|
| 197 |
my $type = $_[0]->type(); |
|
| 198 |
any { $type eq $_ } (
|
|
| 199 |
SALES_ORDER_INTAKE_TYPE(), |
|
| 200 |
PURCHASE_QUOTATION_INTAKE_TYPE(), |
|
| 201 |
); |
|
| 208 | 202 |
} |
| 209 | 203 |
|
| 210 | 204 |
sub deliverydate {
|
Auch abrufbar als: Unified diff
S:D:Order: mini-Optimierung für Methoden intake und quotation