Revision 9071cd97
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
|
# least an empty string, even if we're saving a quotation.
|
||
|
$self->ordnumber('') if !$self->ordnumber;
|
||
|
|
||
|
my $field = $self->quotation ? 'quonumber' : 'ordnumber';
|
||
|
$self->create_trans_number if !$self->$field;
|
||
|
$self->create_trans_number if !$self->record_number;
|
||
|
|
||
|
return 1;
|
||
|
}
|
||
| ... | ... | |
|
return shift->type eq shift;
|
||
|
}
|
||
|
|
||
|
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;
|
||
|
}
|
||
|
|
||
|
sub intake {
|
||
|
my $type = shift->type();
|
||
|
if (any { $type eq $_ } (
|
||
|
SALES_ORDER_INTAKE_TYPE(),
|
||
|
PURCHASE_QUOTATION_INTAKE_TYPE(),
|
||
|
)) {
|
||
|
return 1;
|
||
|
};
|
||
|
return 0;
|
||
|
}
|
||
|
|
||
|
sub deliverydate {
|
||
|
# oe doesn't have deliverydate, but it does have reqdate.
|
||
|
# But this has a different meaning for sales quotations.
|
||
| ... | ... | |
|
ordnumber payment_id quonumber reqdate salesman_id shippingpoint shipvia taxincluded tax_point taxzone_id
|
||
|
transaction_description vendor_id billing_address_id
|
||
|
)),
|
||
|
quotation => !!(($destination_type =~ m{quotation$}) || ($destination_type eq 'purchase_quotation_intake')),
|
||
|
intake => !!($destination_type =~ m{intake$}),
|
||
|
closed => 0,
|
||
|
delivered => 0,
|
||
|
transdate => DateTime->today_local,
|
||
Auch abrufbar als: Unified diff
DB::Order: Funktionen angepasst (kein Angebotsflag/Intakeflag)