From 9813fe56ef9460e720b536af25118743ce6a2dec Mon Sep 17 00:00:00 2001 From: =?utf8?q?Bernd=20Ble=C3=9Fmann?= Date: Tue, 15 Aug 2017 16:14:07 +0200 Subject: [PATCH] CsvImport: CustomerVendor: Nummer vom Helper des Objekts vergeben lassen. MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Vorher wurde hier SL::TransNumber verwendet - das ist kein Problem, aber die es den Helper gibt, ist das hier einfacher. Zudem wurde vorher auch eine neue Nummer für die zu aktualisierenden Objekte geholt - aber das Objekt selber wurde nicht gespeichert, sondern object_to_save. Da war dann die Report-Anzeige nach dem Speichern falsch, das Objekt aber richtig. Aber der Nummernkreis wurde falscheweise hochgesetzt. behebt #287 (redmine) --- SL/Controller/CsvImport/CustomerVendor.pm | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) diff --git a/SL/Controller/CsvImport/CustomerVendor.pm b/SL/Controller/CsvImport/CustomerVendor.pm index 0f2b5294d..5a3a863d1 100644 --- a/SL/Controller/CsvImport/CustomerVendor.pm +++ b/SL/Controller/CsvImport/CustomerVendor.pm @@ -244,18 +244,7 @@ sub save_objects { my $with_number = [ grep { $_->{object}->$numbercolumn ne '####' } @{ $self->controller->data } ]; my $without_number = [ grep { $_->{object}->$numbercolumn eq '####' } @{ $self->controller->data } ]; - foreach my $entry (@{$with_number}, @{$without_number}) { - my $object = $entry->{object}; - - my $number = SL::TransNumber->new(type => $self->table(), - number => $object->$numbercolumn(), - business_id => $object->business_id(), - save => 1); - - if ( $object->$numbercolumn eq '####' || !$number->is_unique() ) { - $object->$numbercolumn($number->create_unique()); - } - } + $_->{object}->$numbercolumn('') for @{ $without_number }; $self->SUPER::save_objects(data => $with_number); $self->SUPER::save_objects(data => $without_number); -- 2.20.1