Revision 2c139ad7
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| SL/Controller/CsvImport/CustomerVendor.pm | ||
|---|---|---|
| 52 | 52 |
foreach my $entry (@{ $self->controller->data }) {
|
| 53 | 53 |
my $object = $entry->{object};
|
| 54 | 54 |
|
| 55 |
next unless $self->check_name($entry);
|
|
| 56 |
next unless $self->check_language($entry);
|
|
| 57 |
next unless $self->check_business($entry);
|
|
| 58 |
next unless $self->check_payment($entry);
|
|
| 55 |
$self->check_name($entry); |
|
| 56 |
$self->check_language($entry); |
|
| 57 |
$self->check_business($entry); |
|
| 58 |
$self->check_payment($entry); |
|
| 59 | 59 |
$self->handle_cvars($entry); |
| 60 | 60 |
|
| 61 |
next if @{ $entry->{errors} };
|
|
| 62 |
|
|
| 61 | 63 |
if ($vcs_by_number{ $object->$numbercolumn }) {
|
| 62 | 64 |
$entry->{object}->$numbercolumn('####');
|
| 63 | 65 |
} else {
|
| SL/Controller/CsvImport/Part.pm | ||
|---|---|---|
| 103 | 103 |
return unless @{ $self->controller->data };
|
| 104 | 104 |
|
| 105 | 105 |
foreach my $entry (@{ $self->controller->data }) {
|
| 106 |
next unless $self->check_buchungsgruppe($entry);
|
|
| 107 |
next unless $self->check_type($entry);
|
|
| 108 |
next unless $self->check_unit($entry);
|
|
| 109 |
next unless $self->check_price_factor($entry);
|
|
| 110 |
next unless $self->check_payment($entry);
|
|
| 111 |
next unless $self->check_packing_type($entry);
|
|
| 112 |
next unless $self->check_partsgroup($entry);
|
|
| 113 |
$self->check_existing($entry); |
|
| 106 |
$self->check_buchungsgruppe($entry); |
|
| 107 |
$self->check_type($entry); |
|
| 108 |
$self->check_unit($entry); |
|
| 109 |
$self->check_price_factor($entry); |
|
| 110 |
$self->check_payment($entry); |
|
| 111 |
$self->check_packing_type($entry); |
|
| 112 |
$self->check_partsgroup($entry); |
|
| 113 |
$self->check_existing($entry) unless @{ $entry->{errors} };
|
|
| 114 | 114 |
$self->handle_prices($entry) if $self->settings->{sellprice_adjustment};
|
| 115 | 115 |
$self->handle_shoparticle($entry); |
| 116 | 116 |
$self->handle_translations($entry); |
| ... | ... | |
| 226 | 226 |
my ($self, $entry) = @_; |
| 227 | 227 |
|
| 228 | 228 |
my $bg = $self->bg_by->{id}->{ $entry->{object}->buchungsgruppen_id };
|
| 229 |
die "Program logic error" if !$bg;
|
|
| 229 |
$bg ||= SL::DB::Buchungsgruppe->new(inventory_accno_id => 1, income_accno_id_0 => 1, expense_accno_id_0 => 1);
|
|
| 230 | 230 |
|
| 231 | 231 |
my $type = $self->settings->{parts_type};
|
| 232 | 232 |
if ($type eq 'mixed') {
|
Auch abrufbar als: Unified diff
Auf alle Fehler auf einmal testen und nicht beim ersten abbrechen