Revision 3d7017ef
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 {
|
||
| SL/Controller/Order.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 order";
|
||
|
}
|
||
|
|
||
|
$self->type($::form->{type});
|
||
|
$self->type($type);
|
||
|
}
|
||
|
|
||
|
sub init_cv {
|
||
| ... | ... | |
|
my $order;
|
||
|
$order = SL::DB::Order->new(id => $::form->{id})->load(with => [ 'orderitems', 'orderitems.part' ]) if $::form->{id};
|
||
|
$order ||= SL::DB::Order->new(orderitems => [],
|
||
|
record_type => $self->type,
|
||
|
record_type => $::form->{type},
|
||
|
currency_id => $::instance_conf->get_currency_id(),);
|
||
|
|
||
|
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::Order', $::form->{type});
|
||
|
my ($self) = @_;
|
||
|
SL::DB::Helper::TypeDataProxy->new('SL::DB::Order', $self->order->record_type);
|
||
|
}
|
||
|
|
||
|
1;
|
||
| SL/Controller/Reclamation.pm | ||
|---|---|---|
|
sub init_type {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
if (none { $::form->{type} eq $_ } @{$self->valid_types}) {
|
||
|
my $type = $self->reclamation->record_type : $::form->{type};
|
||
|
if (none { $type eq $_ } @{$self->valid_types}) {
|
||
|
die "Not a valid type for reclamation";
|
||
|
}
|
||
|
|
||
|
$self->type($::form->{type});
|
||
|
$self->type($type);
|
||
|
}
|
||
|
|
||
|
sub init_cv {
|
||
| ... | ... | |
|
$reclamation = SL::DB::Reclamation->new(id => $::form->{id})->load();
|
||
|
} else {
|
||
|
$reclamation = SL::DB::Reclamation->new(
|
||
|
record_type => $self->type,
|
||
|
record_type => $::form->{type},
|
||
|
reclamation_items => [],
|
||
|
currency_id => $::instance_conf->get_currency_id(),
|
||
|
);
|
||
|
}
|
||
|
|
||
|
my $cv_id_method = $self->cv . '_id';
|
||
|
my $cv_id_method = $reclamation->type_data->properties('customervendor'). '_id';
|
||
|
if (!$::form->{id} && $::form->{$cv_id_method}) {
|
||
|
$reclamation->$cv_id_method($::form->{$cv_id_method});
|
||
|
$reclamation = SL::Model::Record->update_after_customer_vendor_change($reclamation);
|
||
| ... | ... | |
|
}
|
||
|
|
||
|
sub init_type_data {
|
||
|
SL::DB::Helper::TypeDataProxy->new('SL::DB::Reclamation', $::form->{type});
|
||
|
my ($self) = @_;
|
||
|
SL::DB::Helper::TypeDataProxy->new('SL::DB::Reclamation', $self->reclamation->record_type);
|
||
|
}
|
||
|
|
||
|
1;
|
||
Auch abrufbar als: Unified diff
S:C:Record: Hole Typen aus Datenbankobjekt wenn ID gegeben