1 package SL::Controller::CsvImport::Shipto;
7 use parent qw(SL::Controller::CsvImport::Base);
9 use Rose::Object::MakeMethods::Generic
11 scalar => [ qw(table) ],
12 'scalar --get_set_init' => [ qw(all_vc) ],
17 $self->class('SL::DB::Shipto');
23 $self->all_vc({ customers => SL::DB::Manager::Customer->get_all,
24 vendors => SL::DB::Manager::Vendor->get_all });
30 my %by_id = map { ( $_->id => $_ ) } @{ $self->all_vc->{customers} }, @{ $self->all_vc->{vendors} };
31 my %by_number = ( customers => { map { ( $_->customernumber => $_->id ) } @{ $self->all_vc->{customers} } },
32 vendors => { map { ( $_->vendornumber => $_->id ) } @{ $self->all_vc->{vendors} } } );
33 my %by_name = ( customers => { map { ( $_->name => $_->id ) } @{ $self->all_vc->{customers} } },
34 vendors => { map { ( $_->name => $_->id ) } @{ $self->all_vc->{vendors} } } );
36 foreach my $entry (@{ $self->controller->data }) {
37 my $object = $entry->{object};
38 my $raw_data = $entry->{raw_data};
40 if ($object->trans_id) {
41 $object->trans_id(undef) if !$by_id{ $object->trans_id };
44 if (!$object->trans_id) {
45 my $vc_id = $by_number{customers}->{ $raw_data->{customernumber} } || $by_number{vendors}->{ $raw_data->{vendornumber} };
46 $object->trans_id($vc_id) if $vc_id;
49 if (!$object->trans_id) {
50 my $vc_id = $by_name{customers}->{ $raw_data->{customer} } || $by_name{vendors}->{ $raw_data->{vendor} };
51 $object->trans_id($vc_id) if $vc_id;
54 if (!$object->trans_id) {
55 push @{ $entry->{errors} }, $::locale->text('Error: Customer/vendor not found');
59 $object->module('CT');
61 $entry->{vc} = $by_id{ $object->trans_id };
65 sub check_duplicates {
66 my ($self, %params) = @_;
68 my $normalizer = sub { my $name = $_[0]; $name =~ s/[\s,\.\-]//g; return $name; };
69 my $name_maker = sub { return $normalizer->($_[0]->shiptoname) . '--' . $normalizer->($_[0]->shiptostreet) };
72 if ('check_db' eq $self->controller->profile->get('duplicates')) {
73 foreach my $type (qw(customers vendors)) {
74 foreach my $vc (@{ $self->all_vc->{$type} }) {
75 $by_id_and_name{ $vc->id } = { map { ( $name_maker->($_) => 'db' ) } @{ $vc->shipto } };
80 foreach my $entry (@{ $self->controller->data }) {
81 next if @{ $entry->{errors} };
83 my $name = $name_maker->($entry->{object});
85 $by_id_and_name{ $entry->{vc}->id } ||= { };
86 if (!$by_id_and_name{ $entry->{vc}->id }->{ $name }) {
87 $by_id_and_name{ $entry->{vc}->id }->{ $name } = 'csv';
90 push @{ $entry->{errors} }, $by_id_and_name{ $entry->{vc}->id }->{ $name } eq 'db' ? $::locale->text('Duplicate in database') : $::locale->text('Duplicate in CSV file');
96 return ( shiptoname => 75,
97 shiptodepartment_1 => 75,
98 shiptodepartment_2 => 75,