Revision a669a530
Von Bernd Bleßmann vor 12 Monaten hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
| 836 | 836 |
} |
| 837 | 837 |
} |
| 838 | 838 |
|
| 839 |
sub preceding_purchase_orders {
|
|
| 840 |
my ($self) = @_; |
|
| 841 |
|
|
| 842 |
my @lrs = (); |
|
| 843 |
if ($self->id) {
|
|
| 844 |
@lrs = grep { $_->record_type eq PURCHASE_ORDER_TYPE() } @{$self->linked_records(from => 'SL::DB::Order')};
|
|
| 845 |
} else {
|
|
| 846 |
if ('SL::DB::Order' eq $self->{RECORD_TYPE_REF()}) {
|
|
| 847 |
my $order = SL::DB::Order->load_cached($self->{RECORD_ID()});
|
|
| 848 |
push @lrs, $order if $order->record_type eq PURCHASE_ORDER_TYPE(); |
|
| 849 |
} |
|
| 850 |
} |
|
| 851 |
|
|
| 852 |
return \@lrs; |
|
| 853 |
} |
|
| 854 |
|
|
| 839 | 855 |
sub type_data {
|
| 840 | 856 |
SL::DB::Helper::TypeDataProxy->new(ref $_[0], $_[0]->type); |
| 841 | 857 |
} |
Auch abrufbar als: Unified diff
Lieferantenauftragsbestätigung: Nummernbezeichnung in Makse geändert.
Und Anzeige der Vorgänger-Auftragsnummer