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,
112 my $profile = $self->SUPER::init_profile;
113 delete @{$profile}{qw(module)};
118 sub setup_displayable_columns {
121 $self->SUPER::setup_displayable_columns;
123 $self->add_displayable_columns({ name => 'shiptocity', description => $::locale->text('City') },
124 { name => 'shiptocontact', description => $::locale->text('Contact') },
125 { name => 'shiptocountry', description => $::locale->text('Country') },
126 { name => 'shiptodepartment_1', description => $::locale->text('Department 1') },
127 { name => 'shiptodepartment_2', description => $::locale->text('Department 2') },
128 { name => 'shiptoemail', description => $::locale->text('E-mail') },
129 { name => 'shiptofax', description => $::locale->text('Fax') },
130 { name => 'shiptoname', description => $::locale->text('Name') },
131 { name => 'shiptophone', description => $::locale->text('Phone') },
132 { name => 'shiptostreet', description => $::locale->text('Street') },
133 { name => 'shiptozipcode', description => $::locale->text('Zipcode') },
134 { name => 'trans_id', description => $::locale->text('Customer/Vendor (database ID)') },
135 { name => 'customer', description => $::locale->text('Customer (name)') },
136 { name => 'customernumber', description => $::locale->text('Customer Number') },
137 { name => 'vendor', description => $::locale->text('Vendor (name)') },
138 { name => 'vendornumber', description => $::locale->text('Vendor Number') },