Revision 8bf65cea
Von Bernd Bleßmann vor etwa 7 Jahren hinzugefügt
| SL/Controller/CsvImport/Base.pm | ||
|---|---|---|
| 23 | 23 |
use Rose::Object::MakeMethods::Generic |
| 24 | 24 |
( |
| 25 | 25 |
scalar => [ qw(controller file csv test_run save_with_cascade) ], |
| 26 |
'scalar --get_set_init' => [ qw(profile displayable_columns existing_objects class manager_class cvar_columns all_cvar_configs all_languages payment_terms_by delivery_terms_by all_bank_accounts all_vc vc_by clone_methods) ], |
|
| 26 |
'scalar --get_set_init' => [ qw(profile displayable_columns existing_objects class manager_class cvar_columns all_cvar_configs all_languages payment_terms_by delivery_terms_by all_bank_accounts all_vc vc_by vc_counts_by clone_methods) ],
|
|
| 27 | 27 |
); |
| 28 | 28 |
|
| 29 | 29 |
sub run {
|
| ... | ... | |
| 197 | 197 |
gln => \%by_gln }; |
| 198 | 198 |
} |
| 199 | 199 |
|
| 200 |
sub init_vc_counts_by {
|
|
| 201 |
my ($self) = @_; |
|
| 202 |
|
|
| 203 |
my $vc_counts_by; |
|
| 204 |
|
|
| 205 |
$vc_counts_by->{number}->{customers}->{$_->number}++ for @{ $self->all_vc->{customers} };
|
|
| 206 |
$vc_counts_by->{number}->{vendors}-> {$_->number}++ for @{ $self->all_vc->{vendors} };
|
|
| 207 |
$vc_counts_by->{name}-> {customers}->{$_->name}++ for @{ $self->all_vc->{customers} };
|
|
| 208 |
$vc_counts_by->{name}-> {vendors}-> {$_->name}++ for @{ $self->all_vc->{vendors} };
|
|
| 209 |
$vc_counts_by->{gln}-> {customers}->{$_->gln}++ for @{ $self->all_vc->{customers} };
|
|
| 210 |
$vc_counts_by->{gln}-> {vendors}-> {$_->gln}++ for @{ $self->all_vc->{vendors} };
|
|
| 211 |
|
|
| 212 |
return $vc_counts_by; |
|
| 213 |
} |
|
| 214 |
|
|
| 200 | 215 |
sub check_vc {
|
| 201 | 216 |
my ($self, $entry, $id_column) = @_; |
| 202 | 217 |
|
| ... | ... | |
| 204 | 219 |
$entry->{object}->$id_column(undef) if !$self->vc_by->{id}->{ $entry->{object}->$id_column };
|
| 205 | 220 |
} |
| 206 | 221 |
|
| 222 |
my $is_ambiguous; |
|
| 207 | 223 |
if (!$entry->{object}->$id_column) {
|
| 208 |
my $vc = ($entry->{raw_data}->{customernumber} && $self->vc_by->{number}->{customers}->{ $entry->{raw_data}->{customernumber} })
|
|
| 209 |
|| ($entry->{raw_data}->{vendornumber} && $self->vc_by->{number}->{vendors}->{ $entry->{raw_data}->{vendornumber} });
|
|
| 224 |
my $vc = $entry->{raw_data}->{customernumber} && $self->vc_by->{number}->{customers}->{ $entry->{raw_data}->{customernumber} };
|
|
| 225 |
if ($vc && $self->vc_counts_by->{number}->{customers}->{ $entry->{raw_data}->{customernumber} } > 1) {
|
|
| 226 |
$vc = undef; |
|
| 227 |
$is_ambiguous = 1; |
|
| 228 |
} |
|
| 229 |
$vc ||= $entry->{raw_data}->{vendornumber} && $self->vc_by->{number}->{vendors}->{ $entry->{raw_data}->{vendornumber} };
|
|
| 230 |
if ($vc && $self->vc_counts_by->{number}->{vendors}->{ $entry->{raw_data}->{vendornumber} } > 1) {
|
|
| 231 |
$vc = undef; |
|
| 232 |
$is_ambiguous = 1; |
|
| 233 |
} |
|
| 234 |
|
|
| 210 | 235 |
$entry->{object}->$id_column($vc->id) if $vc;
|
| 211 | 236 |
} |
| 212 | 237 |
|
| 213 | 238 |
if (!$entry->{object}->$id_column) {
|
| 214 |
my $vc = ($entry->{raw_data}->{customer} && $self->vc_by->{name}->{customers}->{ $entry->{raw_data}->{customer} })
|
|
| 215 |
|| ($entry->{raw_data}->{vendor} && $self->vc_by->{name}->{vendors}->{ $entry->{raw_data}->{vendor} });
|
|
| 239 |
my $vc = $entry->{raw_data}->{customer} && $self->vc_by->{name}->{customers}->{ $entry->{raw_data}->{customer} };
|
|
| 240 |
if ($vc && $self->vc_counts_by->{name}->{customers}->{ $entry->{raw_data}->{customer} } > 1) {
|
|
| 241 |
$vc = undef; |
|
| 242 |
$is_ambiguous = 1; |
|
| 243 |
} |
|
| 244 |
$vc ||= $entry->{raw_data}->{vendor} && $self->vc_by->{name}->{vendors}->{ $entry->{raw_data}->{vendor} };
|
|
| 245 |
if ($vc && $self->vc_counts_by->{name}->{vendors}->{ $entry->{raw_data}->{vendor} } > 1) {
|
|
| 246 |
$vc = undef; |
|
| 247 |
$is_ambiguous = 1; |
|
| 248 |
} |
|
| 249 |
|
|
| 216 | 250 |
$entry->{object}->$id_column($vc->id) if $vc;
|
| 217 | 251 |
} |
| 218 | 252 |
|
| 219 | 253 |
if (!$entry->{object}->$id_column) {
|
| 220 |
my $vc = ($entry->{raw_data}->{customer_gln} && $self->vc_by->{gln}->{customers}->{ $entry->{raw_data}->{customer_gln} })
|
|
| 221 |
|| ($entry->{raw_data}->{vendor_gln} && $self->vc_by->{gln}->{vendors}->{ $entry->{raw_data}->{vendor_gln} } );
|
|
| 254 |
my $vc = $entry->{raw_data}->{customer_gln} && $self->vc_by->{gln}->{customers}->{ $entry->{raw_data}->{customer_gln} };
|
|
| 255 |
if ($vc && $self->vc_counts_by->{gln}->{customers}->{ $entry->{raw_data}->{customer_gln} } > 1) {
|
|
| 256 |
$vc = undef; |
|
| 257 |
$is_ambiguous = 1; |
|
| 258 |
} |
|
| 259 |
$vc ||= $entry->{raw_data}->{vendor_gln} && $self->vc_by->{gln}->{vendors}->{ $entry->{raw_data}->{vendor_gln} };
|
|
| 260 |
if ($vc && $self->vc_counts_by->{gln}->{vendors}->{ $entry->{raw_data}->{vendor_gln} } > 1) {
|
|
| 261 |
$vc = undef; |
|
| 262 |
$is_ambiguous = 1; |
|
| 263 |
} |
|
| 264 |
|
|
| 222 | 265 |
$entry->{object}->$id_column($vc->id) if $vc;
|
| 223 | 266 |
} |
| 224 | 267 |
|
| 225 | 268 |
if ($entry->{object}->$id_column) {
|
| 226 | 269 |
$entry->{info_data}->{vc_name} = $self->vc_by->{id}->{ $entry->{object}->$id_column }->name;
|
| 227 | 270 |
} else {
|
| 228 |
push @{ $entry->{errors} }, $::locale->text('Error: Customer/vendor not found');
|
|
| 271 |
if ($is_ambiguous) {
|
|
| 272 |
push @{ $entry->{errors} }, $::locale->text('Error: Customer/vendor is ambiguous');
|
|
| 273 |
} else {
|
|
| 274 |
push @{ $entry->{errors} }, $::locale->text('Error: Customer/vendor not found');
|
|
| 275 |
} |
|
| 229 | 276 |
} |
| 230 | 277 |
} |
| 231 | 278 |
|
Auch abrufbar als: Unified diff
CsvImport: bei nicht eindeutigen Kunden/Lieferanten Fehler melden.