Revision 15aad4d2
Von Tamino Steinert vor 12 Monaten hinzugefügt
| SL/DB/Reclamation.pm | ||
|---|---|---|
| 108 | 108 |
sub record_items { goto &reclamation_items; }
|
| 109 | 109 |
|
| 110 | 110 |
sub type {
|
| 111 |
my ($self) = @_;
|
|
| 112 |
|
|
| 113 |
return SALES_RECLAMATION_TYPE() if $self->customer_id;
|
|
| 114 |
return PURCHASE_RECLAMATION_TYPE() if $self->vendor_id;
|
|
| 115 |
|
|
| 116 |
return; |
|
| 111 |
my $self = shift;
|
|
| 112 |
die "invalid type: " . $self->record_type if (!any { $self->record_type eq $_ } (
|
|
| 113 |
SALES_RECLAMATION_TYPE(),
|
|
| 114 |
PURCHASE_RECLAMATION_TYPE(),
|
|
| 115 |
)); |
|
| 116 |
return $self->record_type;
|
|
| 117 | 117 |
} |
| 118 | 118 |
|
| 119 | 119 |
sub is_type {
|
| ... | ... | |
| 281 | 281 |
|
| 282 | 282 |
my %record_args = ( |
| 283 | 283 |
record_number => undef, |
| 284 |
record_type => $destination_type, |
|
| 284 | 285 |
employee => SL::DB::Manager::Employee->current, |
| 285 | 286 |
closed => 0, |
| 286 | 287 |
delivered => 0, |
Auch abrufbar als: Unified diff
Reclamation: nutze Record-Type