Revision 073ee541
Von Kivitendo Admin vor mehr als 9 Jahren hinzugefügt
SL/DB/DeliveryOrderItem.pm | ||
---|---|---|
24 | 24 |
|
25 | 25 |
# methods |
26 | 26 |
|
27 |
sub record { goto &delivery_order } |
|
28 |
|
|
27 | 29 |
1; |
SL/DB/InvoiceItem.pm | ||
---|---|---|
36 | 36 |
|
37 | 37 |
__PACKAGE__->meta->initialize; |
38 | 38 |
|
39 |
sub record { |
|
40 |
my ($self) = @_; |
|
41 |
|
|
42 |
return $self->invoice if $self->invoice; |
|
43 |
return $self->purchase_invoice if $self->purchase_invoice; |
|
44 |
return; |
|
45 |
}; |
|
46 |
|
|
39 | 47 |
1; |
SL/DB/OrderItem.pm | ||
---|---|---|
90 | 90 |
|
91 | 91 |
return SL::DB::Manager::Order->find_by(id => $self->trans_id)->taxincluded ? $::locale->text('WARN: Tax included value!') : ''; |
92 | 92 |
} |
93 |
|
|
94 |
sub record { goto &order } |
|
95 |
|
|
93 | 96 |
1; |
Auch abrufbar als: Unified diff
record Aliase für Items
damit man von DeliveryOrderItem, OrderItem und InvoiceItem direkt auf
das entsprechende ar/ap/do/oe Objekte verweisen kann.
Beispiel in console:
die erste Position aus der ersten Rechnung:
my $item = SL::DB::Manager::Invoice->get_first()->items->[0];
alle dorthin verknüpften Items (wenn aus Angebot, Auftrag und Lieferschein generiert)
my $linkeditems = $item->linked_records( direction => 'from', recursive => 1 );
in was für records befinden sich diese verknüpften Positionen:
foreach ( @$linkeditems ) { print $_->record->type, "\n" };
sales_quotation
sales_order
sales_delivery_order