Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 4e8df532

Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt

  • ID 4e8df532477292b1d1a3a990b86ff9ec72b3cd11
  • Vorgänger f4d75dd4
  • Nachfolger 7828896b

Reclamation: nutze Record-Type

Unterschiede anzeigen:

SL/DB/Reclamation.pm
sub record_items { goto &reclamation_items; }
sub type {
my ($self) = @_;
return SALES_RECLAMATION_TYPE() if $self->customer_id;
return PURCHASE_RECLAMATION_TYPE() if $self->vendor_id;
return;
my $self = shift;
die "invalid type: " . $self->record_type if (!any { $self->record_type eq $_ } (
SALES_RECLAMATION_TYPE(),
PURCHASE_RECLAMATION_TYPE(),
));
return $self->record_type;
}
sub is_type {
......
my %record_args = (
record_number => undef,
record_type => $destination_type,
employee => SL::DB::Manager::Employee->current,
closed => 0,
delivered => 0,

Auch abrufbar als: Unified diff