Revision 2a8b6a74
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/Controller/DeliveryOrder.pm | ||
|---|---|---|
|
sub init_type {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
if (none { $::form->{type} eq $_ } @{$self->valid_types}) {
|
||
|
my $type = $self->order->record_type;
|
||
|
if (none { $type eq $_ } @{$self->valid_types}) {
|
||
|
die "Not a valid type for delivery order";
|
||
|
}
|
||
|
|
||
|
$self->type($::form->{type});
|
||
|
$self->type($type);
|
||
|
}
|
||
|
|
||
|
sub init_cv {
|
||
| ... | ... | |
|
$order = SL::DB::DeliveryOrder->new(
|
||
|
orderitems => [],
|
||
|
currency_id => $::instance_conf->get_currency_id(),
|
||
|
record_type => $self->type
|
||
|
record_type => $::form->{type}
|
||
|
);
|
||
|
}
|
||
|
|
||
|
my $cv_id_method = $self->cv . '_id';
|
||
|
my $cv_id_method = $order->type_data->properties('customervendor'). '_id';
|
||
|
if (!$::form->{id} && $::form->{$cv_id_method}) {
|
||
|
$order->$cv_id_method($::form->{$cv_id_method});
|
||
|
$order = SL::Model::Record->update_after_customer_vendor_change($order);
|
||
| ... | ... | |
|
}
|
||
|
|
||
|
sub init_type_data {
|
||
|
SL::DB::Helper::TypeDataProxy->new('SL::DB::DeliveryOrder', $::form->{type});
|
||
|
my ($self) = @_;
|
||
|
SL::DB::Helper::TypeDataProxy->new('SL::DB::DeliveryOrder', $self->order->record_type);
|
||
|
}
|
||
|
|
||
|
sub init_valid_types {
|
||
Auch abrufbar als: Unified diff
S:C:Record: Hole Typen aus Datenbankobjekt wenn ID gegeben