Revision 3a4ddae0
Von Sven Schöling vor fast 13 Jahren hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
|
return $invoice;
|
||
|
}
|
||
|
|
||
|
sub number {
|
||
|
my $self = shift;
|
||
|
|
||
|
my %number_method = (
|
||
|
sales_order => 'ordnumber',
|
||
|
sales_quotation => 'quonumber',
|
||
|
puchase_order => 'ordnumber',
|
||
|
request_quotation => 'quonumber',
|
||
|
);
|
||
|
|
||
|
return $self->${ \ $number_method{$self->type} }(@_);
|
||
|
}
|
||
|
|
||
|
1;
|
||
|
|
||
|
__END__
|
||
Auch abrufbar als: Unified diff
Order->number dispacher methode, die je nach typ ordnumber oder quonumber aufruft.