Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision e0171854

Von Tamino Steinert vor etwa 2 Jahren hinzugefügt

  • ID e0171854e03761abb5611a58e0c8e32ed0d3259b
  • Vorgänger 97487d25
  • Nachfolger c4cc489d

TypeData: verschiebe get_new_reqdate nach defaults->reqdate

Unterschiede anzeigen:

SL/DB/DeliveryOrder/TypeData.pm
transfer => 'out',
transnumber => 'sdonumber',
},
changes => {
get_new_reqdate => sub {
defaults => {
reqdate => sub {
DateTime->today_local->next_workday(extra_days => 1);
}
},
},
part_classification_query => [ "used_for_sale" => 1 ],
rights => {
......
transfer => 'in',
transnumber => 'pdonumber',
},
changes => {
get_new_reqdate => sub {
defaults => {
reqdate => sub {
DateTime->today_local->next_workday(extra_days => 1);
}
},
},
part_classification_query => [ "used_for_purchase" => 1 ],
rights => {
......
transfer => 'out',
transnumber => 'sudonumber',
},
changes => {
get_new_reqdate => sub {
defaults => {
reqdate => sub {
DateTime->today_local->next_workday(extra_days => 1);
}
},
},
part_classification_query => [ "used_for_purchase" => 1 ],
rights => {
......
transfer => 'in',
transnumber => 'rdonumber',
},
changes => {
get_new_reqdate => sub {
defaults => {
reqdate => sub {
DateTime->today_local->next_workday(extra_days => 1);
}
},
},
part_classification_query => [ "used_for_sale" => 1 ],
rights => {
SL/DB/Helper/TypeDataProxy.pm
_via("get3", [ "properties" ], @_);
}
sub changes {
_via("get3", [ "changes" ], @_);
sub defaults {
_via("get3", [ "defaults" ], @_);
}
sub show_menu {
SL/DB/Order/TypeData.pm
is_customer => 1,
nr_key => "ordnumber",
},
changes => {
get_new_reqdate => sub {
defaults => {
reqdate => sub {
if ($::instance_conf->get_deliverydate_on) {
return DateTime->today_local->next_workday(
extra_days => $::instance_conf->get_delivery_date_interval());
......
is_customer => 0,
nr_key => "ordnumber",
},
changes => {
get_new_reqdate => sub { return; },
defaults => {
reqdate => sub { return; },
},
part_classification_query => [ "used_for_purchase" => 1 ],
rights => {
......
is_customer => 1,
nr_key => "quonumber",
},
changes => {
get_new_reqdate => sub {
defaults => {
reqdate => sub {
if ($::instance_conf->get_reqdate_on) {
return DateTime->today_local->next_workday(
extra_days => $::instance_conf->get_reqdate_interval());
......
is_customer => 0,
nr_key => "quonumber",
},
changes => {
get_new_reqdate => sub { return; },
defaults => {
reqdate => sub { return; },
},
part_classification_query => [ "used_for_purchase" => 1 ],
rights => {
SL/DB/Reclamation/TypeData.pm
is_customer => 1,
nr_key => "record_number",
},
changes => {
get_new_reqdate => sub { return; }
defaults => {
reqdate => sub { return; },
},
part_classification_query => [ "used_for_sale" => 1 ],
rights => {
......
is_customer => 0,
nr_key => "record_number",
},
changes => {
get_new_reqdate => sub { return; }
defaults => {
reqdate => sub { return; },
},
part_classification_query => [ "used_for_purchase" => 1 ],
rights => {
SL/Model/Record.pm
# build TypeDataProxy
# TODO: remove when type is set in record and not infered form customer/vendor_id
my $type_data_proxy = SL::DB::Helper::TypeDataProxy->new(ref $new_record, $subtype);
$new_record->reqdate($type_data_proxy->changes('get_new_reqdate'));
$new_record->reqdate($type_data_proxy->defaults('reqdate'));
# new_record: der neuerstellte objekt
# flags: zusätzliche informationen zu der behanldung (soll )
......
# Set new reqdate unless changed if it is enabled in client config
if ($changed_record->reqdate == $saved_record->reqdate) {
$new_attrs{reqdate} = $changed_record->type_data->changes('get_new_reqdate');
$new_attrs{reqdate} = $changed_record->type_data->defaults('reqdate');
}
# Update employee

Auch abrufbar als: Unified diff