Revision bdc944ea
Von Kivitendo Admin vor fast 9 Jahren hinzugefügt
| SL/DB/TaxZone.pm | ||
|---|---|---|
| 23 | 23 |
return @errors; |
| 24 | 24 |
} |
| 25 | 25 |
|
| 26 |
sub orphaned {
|
|
| 27 |
my ($self) = @_; |
|
| 28 |
die 'not an accessor' if @_ > 1; |
|
| 29 |
|
|
| 30 |
my @classes = qw(Customer Vendor Invoice Order DeliveryOrder PurchaseInvoice); |
|
| 31 |
foreach my $class ( @classes ) {
|
|
| 32 |
my $module = 'SL::DB::' . $class; |
|
| 33 |
eval "require $module"; |
|
| 34 |
my $manager = 'SL::DB::Manager::' . $class; |
|
| 35 |
return 0 if $manager->get_all_count( query => [ taxzone_id => $self->id ] ); |
|
| 36 |
}; |
|
| 37 |
return 1; |
|
| 38 |
} |
|
| 39 |
|
|
| 26 | 40 |
1; |
Auch abrufbar als: Unified diff
Steuerzonen überarbeitet - Prüfung und Löschen
Nicht benutzte Steuerzonen können jetzt gelöscht werden, sowie deren
Kontenzuordnungen geändert werden (wie bei Buchungsgruppen). Siehe
Feature #70.
Schlägt die Speicherung neuer Steuerzonen fehl, weil z.B. die
Buchungsgruppenkonten fehlen, gibt es nun einen Rollback und eine
ordentliche Fehlermeldung, siehe Fehler #68.