Revision 0e92a419
Von Bernd Bleßmann vor mehr als 1 Jahr hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
|
}
|
||
|
|
||
|
sub quotation {
|
||
|
my $type = shift->type();
|
||
|
if (any { $type eq $_ } (
|
||
|
SALES_ORDER_INTAKE_TYPE(),
|
||
|
SALES_QUOTATION_TYPE(),
|
||
|
REQUEST_QUOTATION_TYPE(),
|
||
|
PURCHASE_QUOTATION_INTAKE_TYPE(),
|
||
|
)) {
|
||
|
return 1;
|
||
|
};
|
||
|
return 0;
|
||
|
my $type = $_[0]->type();
|
||
|
any { $type eq $_ } (
|
||
|
SALES_ORDER_INTAKE_TYPE(),
|
||
|
SALES_QUOTATION_TYPE(),
|
||
|
REQUEST_QUOTATION_TYPE(),
|
||
|
PURCHASE_QUOTATION_INTAKE_TYPE(),
|
||
|
);
|
||
|
}
|
||
|
|
||
|
sub intake {
|
||
|
my $type = shift->type();
|
||
|
if (any { $type eq $_ } (
|
||
|
SALES_ORDER_INTAKE_TYPE(),
|
||
|
PURCHASE_QUOTATION_INTAKE_TYPE(),
|
||
|
)) {
|
||
|
return 1;
|
||
|
};
|
||
|
return 0;
|
||
|
my $type = $_[0]->type();
|
||
|
any { $type eq $_ } (
|
||
|
SALES_ORDER_INTAKE_TYPE(),
|
||
|
PURCHASE_QUOTATION_INTAKE_TYPE(),
|
||
|
);
|
||
|
}
|
||
|
|
||
|
sub deliverydate {
|
||
Auch abrufbar als: Unified diff
S:D:Order: mini-Optimierung für Methoden intake und quotation