use SL::DB::Business;
use SL::DB::CustomVariable;
use SL::DB::CustomVariableConfig;
+use SL::DB::Employee;
use SL::DB::PaymentTerm;
use SL::TransNumber;
sub init_salesmen_by {
my ($self) = @_;
- return { map { my $col = $_; ( $col => { map { ( $_->$col => $_ ) } @{ SL::DB::Manager::Employee->get_all } } ) } qw(id name) };
+ return { map { my $col = $_; ( $col => { map { ( lc($_->$col) => $_ ) } @{ SL::DB::Manager::Employee->get_all } } ) } qw(id name login) };
}
sub check_objects {
$existing_vc->$_( $entry->{object}->$_ ) for @{ $methods }, keys %{ $self->clone_methods };
+ $self->handle_cvars($entry);
+ $existing_vc->custom_variables($entry->{object}->custom_variables);
+
push @{ $entry->{information} }, $::locale->text('Updating existing entry in database');
} else {
}
# Map name to ID if given.
- if (!$object->salesman_id && $entry->{raw_data}->{salesman}) {
- my $salesman = $self->salesmen_by->{name}->{ $entry->{raw_data}->{salesman} };
+ if (!$object->salesman_id && ($entry->{raw_data}->{salesman} || $entry->{raw_data}->{salesman_login})) {
+ my $salesman = $self->salesmen_by->{name} ->{ lc($entry->{raw_data}->{salesman}) }
+ // $self->salesmen_by->{login}->{ lc($entry->{raw_data}->{salesman_login}) };
if (!$salesman) {
push @{ $entry->{errors} }, $::locale->text('Error: Invalid salesman');
my $profile = $self->SUPER::init_profile;
delete @{$profile}{qw(business datevexport language payment delivery_term taxincluded terms)};
- delete @{$profile}{qw(salesman salesman_id)} if $::instance_conf->get_vertreter;
+ delete @{$profile}{qw(salesman salesman_id salesman_login)} if $::instance_conf->get_vertreter;
return $profile;
}
{ name => 'greeting', description => $::locale->text('Greeting') },
{ name => 'homepage', description => $::locale->text('Homepage') },
{ name => 'iban', description => $::locale->text('IBAN') },
- { name => 'klass', description => $::locale->text('Preisklasse') },
+ { name => 'pricegroup_id', description => $::locale->text('Price group (database ID)') },
{ name => 'language_id', description => $::locale->text('Language (database ID)') },
{ name => 'language', description => $::locale->text('Language (name)') },
{ name => 'name', description => $::locale->text('Name') },
);
if (!$::instance_conf->get_vertreter) {
- $self->add_displayable_columns({ name => 'salesman_id', description => $::locale->text('Salesman (database ID)') });
- $self->add_displayable_columns({ name => 'salesman', description => $::locale->text('Salesman') });
+ $self->add_displayable_columns({ name => 'salesman', description => $::locale->text('Salesman') },
+ { name => 'salesman_id', description => $::locale->text('Salesman (database ID)') },
+ { name => 'salesman_login', description => $::locale->text('Salesman (login)') });
}
-
}
# TODO: