Revision a794ea45
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
| 93 | 93 |
# least an empty string, even if we're saving a quotation. |
| 94 | 94 |
$self->ordnumber('') if !$self->ordnumber;
|
| 95 | 95 |
|
| 96 |
my $field = $self->quotation ? 'quonumber' : 'ordnumber'; |
|
| 97 |
$self->create_trans_number if !$self->$field; |
|
| 96 |
$self->create_trans_number if !$self->record_number; |
|
| 98 | 97 |
|
| 99 | 98 |
return 1; |
| 100 | 99 |
} |
| ... | ... | |
| 175 | 174 |
return shift->type eq shift; |
| 176 | 175 |
} |
| 177 | 176 |
|
| 177 |
sub quotation {
|
|
| 178 |
my $type = shift->type(); |
|
| 179 |
if (any { $type eq $_ } (
|
|
| 180 |
SALES_QUOTATION_TYPE(), |
|
| 181 |
REQUEST_QUOTATION_TYPE(), |
|
| 182 |
)) {
|
|
| 183 |
return 1; |
|
| 184 |
}; |
|
| 185 |
return 0; |
|
| 186 |
} |
|
| 187 |
|
|
| 178 | 188 |
sub deliverydate {
|
| 179 | 189 |
# oe doesn't have deliverydate, but it does have reqdate. |
| 180 | 190 |
# But this has a different meaning for sales quotations. |
| ... | ... | |
| 378 | 388 |
ordnumber payment_id quonumber reqdate salesman_id shippingpoint shipvia taxincluded tax_point taxzone_id |
| 379 | 389 |
transaction_description vendor_id billing_address_id |
| 380 | 390 |
)), |
| 381 |
quotation => !!($destination_type =~ m{quotation$}),
|
|
| 382 | 391 |
closed => 0, |
| 383 | 392 |
delivered => 0, |
| 384 | 393 |
transdate => DateTime->today_local, |
Auch abrufbar als: Unified diff
DB::Order: Funktionen angepasst (kein Angebotsflag)