- my $object = $entry->{object};
- my $raw_data = $entry->{raw_data};
-
- if ($object->trans_id) {
- $object->trans_id(undef) if !$by_id{ $object->trans_id };
- }
-
- if (!$object->trans_id) {
- my $vc_id = $by_number{customers}->{ $raw_data->{customernumber} } || $by_number{vendors}->{ $raw_data->{vendornumber} };
- $object->trans_id($vc_id) if $vc_id;
- }
-
- if (!$object->trans_id) {
- my $vc_id = $by_name{customers}->{ $raw_data->{customer} } || $by_name{vendors}->{ $raw_data->{vendor} };
- $object->trans_id($vc_id) if $vc_id;
- }
-
- if (!$object->trans_id) {
- push @{ $entry->{errors} }, $::locale->text('Error: Customer/vendor not found');
- next;
- }
-
- $object->module('CT');
-
- $entry->{vc} = $by_id{ $object->trans_id };
- }
-}
-
-sub check_duplicates {
- my ($self, %params) = @_;
-
- my $normalizer = sub { my $name = $_[0]; $name =~ s/[\s,\.\-]//g; return $name; };
- my $name_maker = sub { return $normalizer->($_[0]->shiptoname) . '--' . $normalizer->($_[0]->shiptostreet) };