Revision df1b03d5
Von Sven Schöling vor etwa 10 Jahren hinzugefügt
| SL/PriceSource/ALL.pm | ||
|---|---|---|
|
use strict;
|
||
|
use SL::PriceSource::Pricegroup;
|
||
|
use SL::PriceSource::MasterData;
|
||
|
use SL::PriceSource::Makemodel;
|
||
|
|
||
|
my %price_sources_by_name = (
|
||
|
master_data => 'SL::PriceSource::MasterData',
|
||
|
pricegroup => 'SL::PriceSource::Pricegroup',
|
||
|
makemodel => 'SL::PriceSource::Makemodel',
|
||
|
);
|
||
|
|
||
|
my @price_sources_order = qw(
|
||
|
master_data
|
||
|
pricegroup
|
||
|
makemodel
|
||
|
);
|
||
|
|
||
|
sub all_price_sources {
|
||
| SL/PriceSource/Makemodel.pm | ||
|---|---|---|
|
package SL::PriceSource::Makemodel;
|
||
|
|
||
|
use strict;
|
||
|
use parent qw(SL::PriceSource::Base);
|
||
|
|
||
|
use SL::PriceSource::Price;
|
||
|
use SL::Locale::String;
|
||
|
use SL::DB::MakeModel;
|
||
|
use List::UtilsBy qw(min_by);
|
||
|
|
||
|
sub name { 'makemodel' }
|
||
|
|
||
|
sub description { t8('Makemodel Price') }
|
||
|
|
||
|
sub available_prices {
|
||
|
my ($self, %params) = @_;
|
||
|
|
||
|
return () if !$self->part;
|
||
|
return () if $self->record->is_sales;
|
||
|
|
||
|
map { $self->make_price_from_makemodel($_) }
|
||
|
grep { $_->make == $self->record->vendor_id }
|
||
|
$self->part->makemodels;
|
||
|
}
|
||
|
|
||
|
sub price_from_source {
|
||
|
my ($self, $source, $spec) = @_;
|
||
|
|
||
|
my $makemodel = SL::DB::Manager::MakeModel->find_by(id => $spec);
|
||
|
|
||
|
# TODO: if someone deletes the prices entry, this fails. add a fallback
|
||
|
return $self->make_price_from_makemodel($makemodel);
|
||
|
|
||
|
}
|
||
|
|
||
|
sub best_price {
|
||
|
my ($self, %params) = @_;
|
||
|
|
||
|
return () if $self->record->is_sales;
|
||
|
|
||
|
min_by { $_->price } $self->available_prices;
|
||
|
|
||
|
}
|
||
|
|
||
|
sub make_price_from_makemodel {
|
||
|
my ($self, $makemodel) = @_;
|
||
|
|
||
|
return SL::PriceSource::Price->new(
|
||
|
price => $makemodel->lastcost,
|
||
|
spec => $makemodel->id,
|
||
|
description => $makemodel->model,
|
||
|
price_source => $self,
|
||
|
);
|
||
|
}
|
||
|
|
||
|
|
||
|
1;
|
||
| SL/PriceSource/MasterData.pm | ||
|---|---|---|
|
sub available_prices {
|
||
|
my ($self, %params) = @_;
|
||
|
|
||
|
my $part = $self->part;
|
||
|
return () unless $self->part;
|
||
|
|
||
|
return () unless $part;
|
||
|
|
||
|
# TODO: sellprice only in sales, lastcost in purchase
|
||
|
return $self->make_sellprice($part);
|
||
|
grep { $_->price > 0 } $self->record->is_sales
|
||
|
? ($self->make_sellprice, $self->make_listprice)
|
||
|
: ($self->make_lastcost, $self->make_listprice);
|
||
|
}
|
||
|
|
||
|
sub price_from_source {
|
||
|
my ($self, $source, $spec) = @_;
|
||
|
|
||
|
if ($spec eq 'sellprice') {
|
||
|
return $self->make_sellprice($self->part);
|
||
|
}
|
||
|
$spec eq 'sellprice' ? $self->make_sellprice
|
||
|
: $spec eq 'lastcost' ? $self->make_lastcost
|
||
|
: $spec eq 'listprice' ? $self->make_listprice
|
||
|
: do { die "unknown spec '$spec'" };
|
||
|
}
|
||
|
|
||
|
sub best_price {
|
||
|
$_[0]->record->is_sales
|
||
|
? $_[0]->make_sellprice
|
||
|
: $_[0]->make_lastcost
|
||
|
}
|
||
|
|
||
|
sub make_sellprice {
|
||
|
my ($self, $part) = @_;
|
||
|
my ($self) = @_;
|
||
|
|
||
|
return SL::PriceSource::Price->new(
|
||
|
price => $part->sellprice,
|
||
|
price => $self->part->sellprice,
|
||
|
spec => 'sellprice',
|
||
|
description => t8('Sellprice'),
|
||
|
price_source => $self,
|
||
|
);
|
||
|
}
|
||
|
|
||
|
sub make_listprice {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
return SL::PriceSource::Price->new(
|
||
|
price => $self->part->listprice,
|
||
|
spec => 'listprice',
|
||
|
description => t8('List Price'),
|
||
|
price_source => $self,
|
||
|
);
|
||
|
}
|
||
|
|
||
|
sub make_lastcost {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
return SL::PriceSource::Price->new(
|
||
|
price => $self->part->lastcost,
|
||
|
spec => 'lastcost',
|
||
|
description => t8('Lastcost'),
|
||
|
price_source => $self,
|
||
|
);
|
||
|
}
|
||
|
|
||
|
1;
|
||
| SL/PriceSource/Price.pm | ||
|---|---|---|
|
array => [ qw(depends_on) ]
|
||
|
);
|
||
|
|
||
|
use SL::DB::Helper::Attr;
|
||
|
SL::DB::Helper::Attr::make(__PACKAGE__,
|
||
|
price => 'numeric(15,5)',
|
||
|
);
|
||
|
|
||
|
sub source {
|
||
|
$_[0]->price_source
|
||
|
? $_[0]->price_source->name . '/' . $_[0]->spec
|
||
| ... | ... | |
|
: $self->description
|
||
|
}
|
||
|
|
||
|
sub to_str {
|
||
|
"source: @{[ $_[0]->source ]}, price: @{[ $_[0]->price]}, description: @{[ $_[0]->description ]}"
|
||
|
}
|
||
|
|
||
|
1;
|
||
| SL/PriceSource/Pricegroup.pm | ||
|---|---|---|
|
use parent qw(SL::PriceSource::Base);
|
||
|
|
||
|
use SL::PriceSource::Price;
|
||
|
use SL::DB::Price;
|
||
|
use SL::Locale::String;
|
||
|
use List::UtilsBy qw(min_by);
|
||
|
use List::Util qw(first);
|
||
| ... | ... | |
|
sub available_prices {
|
||
|
my ($self, %params) = @_;
|
||
|
|
||
|
return () unless $self->record->is_sales;
|
||
|
|
||
|
my $item = $self->record_item;
|
||
|
|
||
|
my $prices = SL::DB::Manager::Price->get_all(
|
||
| ... | ... | |
|
sub price_from_source {
|
||
|
my ($self, $source, $spec) = @_;
|
||
|
|
||
|
my $price = SL::DB::Manager::Price->find_by(id => $spec);
|
||
|
my $price = SL::DB::Manager::Price->find_by(pricegroup_id => $spec, parts_id => $self->part->id);
|
||
|
|
||
|
# TODO: if someone deletes the prices entry, this fails. add a fallback
|
||
|
return $self->make_price($price);
|
||
|
}
|
||
|
|
||
|
sub best_price {
|
||
|
my ($self, %params) = @_;
|
||
|
|
||
|
my @prices = $self->availabe_prices;
|
||
|
return () unless $self->record->is_sales;
|
||
|
|
||
|
my @prices = $self->available_prices;
|
||
|
my $customer = $self->record->customer;
|
||
|
my $min_price = min_by { $_->price } @prices;
|
||
|
|
||
|
return $min_price if !$customer || !$customer->cv_klass;
|
||
|
return () if !$customer || !$customer->klass;
|
||
|
|
||
|
my $best_price = first { $_->spec == $customer->cv_class } @prices;
|
||
|
my $best_price = first { $_->spec == $customer->klass } @prices;
|
||
|
|
||
|
return $best_price || $min_price;
|
||
|
return $best_price || ();
|
||
|
}
|
||
|
|
||
|
sub make_price {
|
||
| ... | ... | |
|
|
||
|
SL::PriceSource::Price->new(
|
||
|
price => $price_obj->price,
|
||
|
spec => $price_obj->id,
|
||
|
spec => $price_obj->pricegroup->id,
|
||
|
description => $price_obj->pricegroup->pricegroup,
|
||
|
price_source => $self,
|
||
|
)
|
||
| bin/mozilla/io.pl | ||
|---|---|---|
|
$form->{"sellprice_$i"} = $form->{"price_new_$i"};
|
||
|
}
|
||
|
|
||
|
my $record_item = $record->items->[$i-1];
|
||
|
my $record_item = $record->id && $record->items ? $record->items->[$i-1] : _make_record_item($i);
|
||
|
|
||
|
# unit begin
|
||
|
$form->{"unit_old_$i"} ||= $form->{"unit_$i"};
|
||
| ... | ... | |
|
|
||
|
map { $form->{"${_}_$i"} = $new_item->{$_} } @new_fields;
|
||
|
|
||
|
my $record = _make_record();
|
||
|
my $price_source = SL::PriceSource->new(record_item => $record->items->[$i-1], record => $record);
|
||
|
my $best_price = $price_source->best_price;
|
||
|
|
||
|
if ($best_price) {
|
||
|
$::form->{"sellprice_$i"} = $best_price->price;
|
||
|
$::form->{"active_price_source_$i"} = $best_price->source;
|
||
|
}
|
||
|
|
||
|
|
||
|
$form->{"marge_price_factor_$i"} = $new_item->{price_factor};
|
||
|
|
||
|
if ($form->{"part_payment_id_$i"} ne "") {
|
||
| ... | ... | |
|
purchase_oder => 'Order',
|
||
|
sales_quotation => 'Order',
|
||
|
request_quotation => 'Order',
|
||
|
invoice => 'Invoice',
|
||
|
purchase_invoice => 'PurchaseInvoice',
|
||
|
purchase_delivery_order => 'DeliveryOrder',
|
||
|
sales_delivery_order => 'DeliveryOrder',
|
||
|
}->{$::form->{type}};
|
||
|
|
||
|
if ($::form->{type} eq 'invoice') {
|
||
|
$class = $::form->{vc} eq 'customer' ? 'Invoice'
|
||
|
: $::form->{vc} eq 'vendor' ? 'PurchaseInvoice'
|
||
|
: do { die 'unknown invoice type' };
|
||
|
}
|
||
|
|
||
|
return unless $class;
|
||
|
|
||
|
$class = 'SL::DB::' . $class;
|
||
| ... | ... | |
|
push @items, _make_record_item($i)
|
||
|
}
|
||
|
|
||
|
$obj->orderitems(@items);
|
||
|
$obj->items(@items) if @items;
|
||
|
|
||
|
return $obj;
|
||
|
}
|
||
| bin/mozilla/oe.pl | ||
|---|---|---|
|
if ($sellprice) {
|
||
|
$form->{"sellprice_$i"} = $sellprice;
|
||
|
} else {
|
||
|
my $record = _make_record();
|
||
|
my $price_source = SL::PriceSource->new(record_item => $record->items->[$i-1], record => $record);
|
||
|
my $best_price = $price_source->best_price;
|
||
|
|
||
|
if ($best_price) {
|
||
|
$::form->{"sellprice_$i"} = $best_price->price;
|
||
|
$::form->{"active_price_source_$i"} = $best_price->source;
|
||
|
}
|
||
|
|
||
|
$form->{"sellprice_$i"} *= (1 - $form->{tradediscount});
|
||
|
$form->{"sellprice_$i"} /= $exchangerate; # if there is an exchange rate adjust sellprice
|
||
|
}
|
||
| locale/de/all | ||
|---|---|---|
|
'Make (vendor\'s database ID, number or name; with X being a number)' => 'Lieferant (Datenbank-ID, Nummer oder Name des Lieferanten; X ist eine fortlaufende Zahl)',
|
||
|
'Make compatible for import' => 'Für den Import kompatibel machen',
|
||
|
'Make default profile' => 'Zu Standardprofil machen',
|
||
|
'Makemodel Price' => 'Lieferantenpreis',
|
||
|
'Manage Custom Variables' => 'Benutzerdefinierte Variablen',
|
||
|
'Mandantennummer' => 'Mandantennummer',
|
||
|
'Mandate Date of Signature' => 'Mandat-Unterschriftsdatum',
|
||
Auch abrufbar als: Unified diff
PriceSource: Featureabdeckung
- Einkaufs/Verkauf abgedeckt
- Klarere Regeln für price_from_source, available_prices und best_price
- makemodels unterstützung
- bugfixes für Rechnungen und neue Belege
- best_price jetzt getestet
- Verkäuferabhängigkeit von makemodels und pricegroup implementiert und getestet