projekt kivitendo

use Data::Dumper;

use SL::DB::Project;

use SL::DB::Department;

our @EXPORT = qw(check_currency check_taxzone check_project check_department check_customer_vendor handle_salesman handle_employee);

    $default_id ||= _default_taxzone_id($self);

    }

  # defined, in this case the customer/vendor taxzone will be used later

  if ( defined $object->taxzone_id ) {

    $entry->{info_data}->{taxzone} = _taxzones_by($self)->{id}->{ $object->taxzone_id }->description;

  };

  return 1;

}

sub check_project {

  my ($self, $entry, %params) = @_;

  my $id_column          = ($params{global} ? 'global' : '') . 'project_id';

  my $number_column      = ($params{global} ? 'global' : '') . 'projectnumber';

  my $description_column = ($params{global} ? 'global' : '') . 'project';

  my $object = $entry->{object};

  # Check whether or not project ID is valid.

  if ($object->$id_column) {

    if (! _projects_by($self)->{id}->{ $object->$id_column }) {

      push @{ $entry->{errors} }, $::locale->text('Error: Invalid project');

      return 0;

    } else {

      $entry->{info_data}->{$number_column} = _projects_by($self)->{id}->{ $object->$id_column }->description;

    };

  }

  my $proj;

  # Map number to ID if given.

  if (!$object->$id_column && $entry->{raw_data}->{$number_column}) {

    $proj = _projects_by($self)->{projectnumber}->{ $entry->{raw_data}->{$number_column} };

    if (!$proj) {

      push @{ $entry->{errors} }, $::locale->text('Error: Invalid project');

      return 0;

    }

    $object->$id_column($proj->id);

  }

  # Map description to ID if given.

  if (!$object->$id_column && $entry->{raw_data}->{$description_column}) {

    $proj = _projects_by($self)->{description}->{ $entry->{raw_data}->{$description_column} };

    if (!$proj) {

      push @{ $entry->{errors} }, $::locale->text('Error: Invalid project');

      return 0;

    }

    $object->$id_column($proj->id);

  }

  if ( $proj ) {

    $entry->{info_data}->{"$description_column"} = $proj->description;

    $entry->{info_data}->{"$number_column"}      = $proj->projectnumber;

  };

sub check_department {

  my ($self, $entry) = @_;

  my $object = $entry->{object};

  # Check whether or not department ID was assigned and is valid.

  if ($object->department_id) {

    if (!_departments_by($self)->{id}->{ $object->department_id }) {

      push @{ $entry->{errors} }, $::locale->text('Error: Invalid department');

      return 0;

    } else {

      # add department description as well, more feedback for user

      $entry->{info_data}->{department} = _departments_by($self)->{id}->{ $object->department_id }->description;

    };

  }

  # Map department description to ID if given.

  if (!$object->department_id && $entry->{raw_data}->{department}) {

    $entry->{info_data}->{department} = $entry->{raw_data}->{department};

    my $dep = _departments_by($self)->{description}->{ $entry->{raw_data}->{department} };

    if (!$dep) {

      push @{ $entry->{errors} }, $::locale->text('Error: Invalid department');

      return 0;

    }

    $entry->{info_data}->{department} = $dep->description;

    $object->department_id($dep->id);

  }

  return 1;

}

# ToDo: salesman by name

sub handle_salesman {

  my ($self, $entry) = @_;

  my $object = $entry->{object};

  my $vc_obj;

  $vc_obj    = SL::DB::Customer->new(id => $object->customer_id)->load if $object->can('customer') && $object->customer_id;

  $vc_obj    = SL::DB::Vendor->new(id   => $object->vendor_id)->load   if (!$vc_obj && $object->can('vendor') && $object->vendor_id);

  # salesman from customer/vendor or login if not given

  if (!$object->salesman) {

    if ($vc_obj && $vc_obj->salesman_id) {

      $object->salesman(SL::DB::Manager::Employee->find_by(id => $vc_obj->salesman_id));

    } else {

      $object->salesman(SL::DB::Manager::Employee->find_by(login => $::myconfig{login}));

    }

  }

}

# ToDo: employee by name

sub handle_employee {

  my ($self, $entry) = @_;

  my $object = $entry->{object};

  # employee from login if not given

  if (!$object->employee_id) {

    $object->employee_id(SL::DB::Manager::Employee->find_by(login => $::myconfig{login})->id);

  }

}

sub _default_taxzone_id {

  my ($self) = @_;

  return SL::DB::Manager::TaxZone->get_all_sorted(query => [ obsolete => 0 ])->[0]->id;

}

sub _departments_by {

  my ($self) = @_;

  my $all_departments = SL::DB::Manager::Department->get_all;

  return { map { my $col = $_; ( $col => { map { ( $_->$col => $_ ) } @{ $all_departments } } ) } qw(id description) };

}

sub _projects_by {

  my ($self) = @_;

  my $all_projects = SL::DB::Manager::Project->get_all;

  return { map { my $col = $_; ( $col => { map { ( $_->$col => $_ ) } @{ $all_projects } } ) } qw(id projectnumber description) };

}