Revision 4d823692
Von Bernd Bleßmann vor mehr als 1 Jahr hinzugefügt
| SL/Controller/CustomerVendor.pm | ||
|---|---|---|
|
}
|
||
|
|
||
|
my $arap = $self->is_vendor ? 'ap' : 'ar';
|
||
|
my $num_args = 3;
|
||
|
my $num_args = 4;
|
||
|
|
||
|
my $cv = $self->is_vendor ? 'vendor' : 'customer';
|
||
|
|
||
| ... | ... | |
|
SELECT a.id
|
||
|
FROM delivery_orders a
|
||
|
JOIN '. $cv .' ct ON (a.'. $cv .'_id = ct.id)
|
||
|
WHERE ct.id = ?';
|
||
|
WHERE ct.id = ?
|
||
|
|
||
|
UNION
|
||
|
|
||
|
SELECT id
|
||
|
FROM price_rule_items
|
||
|
WHERE type LIKE \''. $cv .'\' AND value_int = ?';
|
||
|
|
||
|
|
||
|
if ( $self->is_vendor ) {
|
||
| SL/DB/Business.pm | ||
|---|---|---|
|
return join ' ', grep $_, $self->id, $self->description;
|
||
|
}
|
||
|
|
||
|
sub orphaned {
|
||
|
my ($self) = @_;
|
||
|
die 'not an accessor' if @_ > 1;
|
||
|
|
||
|
return 1 unless $self->id;
|
||
|
|
||
|
my @relations = qw(
|
||
|
SL::DB::Customer
|
||
|
SL::DB::Vendor
|
||
|
SL::DB::BusinessModel
|
||
|
);
|
||
|
|
||
|
for my $class (@relations) {
|
||
|
eval "require $class";
|
||
|
return 0 if $class->_get_manager_class->get_all_count(query => [ business_id => $self->id ]);
|
||
|
}
|
||
|
|
||
|
eval "require SL::DB::PriceRuleItem";
|
||
|
return 0 if SL::DB::Manager::PriceRuleItem->get_all_count(query => [ type => 'business', value_int => $self->id ]);
|
||
|
|
||
|
return 1;
|
||
|
}
|
||
|
|
||
|
1;
|
||
| SL/DB/PartsGroup.pm | ||
|---|---|---|
|
return 0 if $class->_get_manager_class->get_all_count(query => [ partsgroup_id => $self->id ]);
|
||
|
}
|
||
|
|
||
|
eval "require SL::DB::PriceRuleItem";
|
||
|
return 0 if SL::DB::Manager::PriceRuleItem->get_all_count(query => [ type => 'partsgroup', value_int => $self->id ]);
|
||
|
|
||
|
return 1;
|
||
|
}
|
||
|
|
||
| SL/DB/Pricegroup.pm | ||
|---|---|---|
|
return 0 if $class->_get_manager_class->get_all_count(query => [ active_price_source => 'pricegroup/' . $self->id ]);
|
||
|
}
|
||
|
|
||
|
eval "require SL::DB::PriceRuleItem";
|
||
|
return 0 if SL::DB::Manager::PriceRuleItem->get_all_count(query => [ type => 'pricegroup', value_int => $self->id ]);
|
||
|
|
||
|
return 1;
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
In Preisregeln benutze Objekte nicht löschen können.
Behebt #114 (redmine) bzw. die Reste davon.
Artikel löschen können wurde schon gelöst.