Revision 9fa0473d
Von Bernd Bleßmann vor etwa 11 Jahren hinzugefügt
| SL/Controller/CsvImport/Order.pm | ||
|---|---|---|
| 14 | 14 |
use SL::DB::Department; |
| 15 | 15 |
use SL::DB::Project; |
| 16 | 16 |
use SL::DB::Shipto; |
| 17 |
use SL::DB::TaxZone; |
|
| 17 | 18 |
use SL::TransNumber; |
| 18 | 19 |
|
| 19 | 20 |
use parent qw(SL::Controller::CsvImport::BaseMulti); |
| ... | ... | |
| 21 | 22 |
|
| 22 | 23 |
use Rose::Object::MakeMethods::Generic |
| 23 | 24 |
( |
| 24 |
'scalar --get_set_init' => [ qw(settings languages_by all_parts parts_by all_contacts contacts_by all_departments departments_by all_projects projects_by all_ct_shiptos ct_shiptos_by) ], |
|
| 25 |
'scalar --get_set_init' => [ qw(settings languages_by all_parts parts_by all_contacts contacts_by all_departments departments_by all_projects projects_by all_ct_shiptos ct_shiptos_by all_taxzones taxzones_by) ],
|
|
| 25 | 26 |
); |
| 26 | 27 |
|
| 27 | 28 |
|
| ... | ... | |
| 79 | 80 |
{ name => 'language', description => $::locale->text('Language (name)') },
|
| 80 | 81 |
{ name => 'payment_id', description => $::locale->text('Payment terms (database ID)') },
|
| 81 | 82 |
{ name => 'payment', description => $::locale->text('Payment terms (name)') },
|
| 82 |
{ name => 'taxzone_id', description => $::locale->text('Steuersatz') },
|
|
| 83 |
{ name => 'taxzone_id', description => $::locale->text('Steuersatz (database ID') },
|
|
| 84 |
{ name => 'taxzone', description => $::locale->text('Steuersatz (description)') },
|
|
| 83 | 85 |
{ name => 'cp_id', description => $::locale->text('Contact Person (database ID)') },
|
| 84 | 86 |
{ name => 'contact', description => $::locale->text('Contact Person (name)') },
|
| 85 | 87 |
{ name => 'department_id', description => $::locale->text('Department (database ID)') },
|
| ... | ... | |
| 173 | 175 |
return $sby; |
| 174 | 176 |
} |
| 175 | 177 |
|
| 178 |
sub init_all_taxzones {
|
|
| 179 |
my ($self) = @_; |
|
| 180 |
|
|
| 181 |
return SL::DB::Manager::TaxZone->get_all; |
|
| 182 |
} |
|
| 183 |
|
|
| 184 |
sub init_taxzones_by {
|
|
| 185 |
my ($self) = @_; |
|
| 186 |
|
|
| 187 |
return { map { my $col = $_; ( $col => { map { ( $_->$col => $_ ) } @{ $self->all_taxzones } } ) } qw(id description) };
|
|
| 188 |
} |
|
| 189 |
|
|
| 176 | 190 |
sub check_objects {
|
| 177 | 191 |
my ($self) = @_; |
| 178 | 192 |
|
| ... | ... | |
| 202 | 216 |
$self->check_department($entry); |
| 203 | 217 |
$self->check_project($entry, global => 1); |
| 204 | 218 |
$self->check_ct_shipto($entry); |
| 219 |
$self->check_taxzone($entry); |
|
| 205 | 220 |
|
| 206 | 221 |
if ($vc_obj) {
|
| 207 | 222 |
# copy from customer if not given |
| ... | ... | |
| 231 | 246 |
$self->add_info_columns($self->settings->{'order_column'},
|
| 232 | 247 |
{ header => $::locale->text('Customer/Vendor'), method => 'vc_name' });
|
| 233 | 248 |
$self->add_columns($self->settings->{'order_column'},
|
| 234 |
map { "${_}_id" } grep { exists $self->controller->data->[0]->{raw_data}->{$_} } qw(payment language department globalproject));
|
|
| 249 |
map { "${_}_id" } grep { exists $self->controller->data->[0]->{raw_data}->{$_} } qw(payment language department globalproject taxzone));
|
|
| 235 | 250 |
$self->add_columns($self->settings->{'order_column'}, 'globalproject_id') if exists $self->controller->data->[0]->{raw_data}->{globalprojectnumber};
|
| 236 | 251 |
|
| 237 | 252 |
foreach my $entry (@{ $self->controller->data }) {
|
| ... | ... | |
| 538 | 553 |
return 1; |
| 539 | 554 |
} |
| 540 | 555 |
|
| 556 |
sub check_taxzone {
|
|
| 557 |
my ($self, $entry) = @_; |
|
| 558 |
|
|
| 559 |
my $object = $entry->{object};
|
|
| 560 |
|
|
| 561 |
# Check wether or not taxzone ID is valid. |
|
| 562 |
if ($object->taxzone_id && !$self->taxzones_by->{id}->{ $object->taxzone_id }) {
|
|
| 563 |
push @{ $entry->{errors} }, $::locale->text('Error: Invalid taxzone');
|
|
| 564 |
return 0; |
|
| 565 |
} |
|
| 566 |
|
|
| 567 |
# Map description to ID if given. |
|
| 568 |
if (!$object->taxzone_id && $entry->{raw_data}->{taxzone}) {
|
|
| 569 |
my $taxzone = $self->taxzones_by->{description}->{ $entry->{raw_data}->{taxzone} };
|
|
| 570 |
if (!$taxzone) {
|
|
| 571 |
push @{ $entry->{errors} }, $::locale->text('Error: Invalid taxzone');
|
|
| 572 |
return 0; |
|
| 573 |
} |
|
| 574 |
|
|
| 575 |
$object->taxzone_id($taxzone->id); |
|
| 576 |
} |
|
| 577 |
|
|
| 578 |
return 1; |
|
| 579 |
} |
|
| 541 | 580 |
|
| 542 | 581 |
|
| 543 | 582 |
sub save_objects {
|
Auch abrufbar als: Unified diff
Steuersatz behandeln.