Revision 6859be4f
Von Bernd Bleßmann vor 2 Monaten hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
| 861 | 861 |
} else {
|
| 862 | 862 |
if ('SL::DB::Order' eq $self->{RECORD_TYPE_REF()}) {
|
| 863 | 863 |
my $order = SL::DB::Order->load_cached($self->{RECORD_ID()});
|
| 864 |
push @lrs, $order if $order->record_type eq PURCHASE_QUOTATION_INTAKE_TYPE(); |
|
| 864 |
if ($order->record_type eq PURCHASE_QUOTATION_INTAKE_TYPE()) {
|
|
| 865 |
push @lrs, $order; |
|
| 866 |
|
|
| 867 |
} elsif ($order->record_type eq PURCHASE_ORDER_TYPE()) {
|
|
| 868 |
@lrs = @{ $order->preceding_purchase_quotation_intakes() || [] };
|
|
| 869 |
} |
|
| 865 | 870 |
} |
| 866 | 871 |
} |
| 867 | 872 |
|
| ... | ... | |
| 877 | 882 |
} else {
|
| 878 | 883 |
if ('SL::DB::Order' eq $self->{RECORD_TYPE_REF()}) {
|
| 879 | 884 |
my $order = SL::DB::Order->load_cached($self->{RECORD_ID()});
|
| 880 |
push @lrs, $order if $order->record_type eq REQUEST_QUOTATION_TYPE(); |
|
| 885 |
if ($order->record_type eq REQUEST_QUOTATION_TYPE()) {
|
|
| 886 |
push @lrs, $order |
|
| 887 |
|
|
| 888 |
} elsif (any { $order->record_type eq $_ } (PURCHASE_ORDER_TYPE(), PURCHASE_QUOTATION_INTAKE_TYPE())) {
|
|
| 889 |
@lrs = @{ $order->preceding_request_quotations() || [] };
|
|
| 890 |
} |
|
| 881 | 891 |
} |
| 882 | 892 |
} |
| 883 | 893 |
|
Auch abrufbar als: Unified diff
S:D:Order: Methoden für Vorgängerbelege für Orders ohne id erweitert …
… auf Angebotseingang und Anfrage