Revision cd14a8ba
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/DB/Part.pm | ||
|---|---|---|
| 13 | 13 |
use SL::DB::MetaSetup::Part; |
| 14 | 14 |
use SL::DB::Manager::Part; |
| 15 | 15 |
use SL::DB::Chart; |
| 16 |
use SL::DB::Manager::Vendor; |
|
| 17 | 16 |
use SL::DB::Helper::AttrHTML; |
| 18 | 17 |
use SL::DB::Helper::AttrSorted; |
| 19 | 18 |
use SL::DB::Helper::TransNumberGenerator; |
| ... | ... | |
| 583 | 582 |
return 1; |
| 584 | 583 |
} |
| 585 | 584 |
|
| 586 |
sub vendor_dropdown {
|
|
| 587 |
my ($self) = @_; |
|
| 588 |
|
|
| 589 |
my @vendor_dd; |
|
| 590 |
|
|
| 591 |
foreach my $mm ( @{$self->makemodels} ){
|
|
| 592 |
my $vendor = SL::DB::Manager::Vendor->get_first( where => [ id => $mm->make ] ); |
|
| 593 |
my @tmp = ({ title => $vendor->vendornumber . "--" .$vendor->name . " (" . $::form->format_amount(\%::myconfig, $mm->lastcost, 2) . ")", value => $vendor->{id} });
|
|
| 594 |
push @vendor_dd, @tmp; |
|
| 595 |
} |
|
| 596 |
return \@vendor_dd; |
|
| 597 |
} |
|
| 598 |
|
|
| 599 | 585 |
sub init_onhandqty{
|
| 600 | 586 |
my ($self) = @_; |
| 601 | 587 |
my $qty = SL::Helper::Inventory::get_onhand(part => $self->id) || 0; |
Auch abrufbar als: Unified diff
Part: verschiebe Lieferantenauswahl nach Presenter