Revision 91e4c0dc
Von Thomas Heck vor mehr als 12 Jahren hinzugefügt
| SL/Controller/CsvImport/CustomerVendor.pm | ||
|---|---|---|
|
use SL::DB::CustomVariable;
|
||
|
use SL::DB::CustomVariableConfig;
|
||
|
use SL::DB::PaymentTerm;
|
||
|
use SL::TransNumber;
|
||
|
|
||
|
use parent qw(SL::Controller::CsvImport::Base);
|
||
|
|
||
| ... | ... | |
|
my $with_number = [ grep { $_->{object}->$numbercolumn ne '####' } @{ $self->controller->data } ];
|
||
|
my $without_number = [ grep { $_->{object}->$numbercolumn eq '####' } @{ $self->controller->data } ];
|
||
|
|
||
|
map { $_->{object}->$numbercolumn('') } @{ $without_number };
|
||
|
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());
|
||
|
}
|
||
|
}
|
||
|
|
||
|
$self->SUPER::save_objects(data => $with_number);
|
||
|
$self->SUPER::save_objects(data => $without_number);
|
||
Auch abrufbar als: Unified diff
CSV-Kunden-/Lieferantenimport: Verwendung von TransNumber zur Erzeugung von Nummern
implementiert #1972