Revision 3a4ddae0
Von Sven Schöling vor mehr als 12 Jahren hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
| 149 | 149 |
return $invoice; |
| 150 | 150 |
} |
| 151 | 151 |
|
| 152 |
sub number {
|
|
| 153 |
my $self = shift; |
|
| 154 |
|
|
| 155 |
my %number_method = ( |
|
| 156 |
sales_order => 'ordnumber', |
|
| 157 |
sales_quotation => 'quonumber', |
|
| 158 |
puchase_order => 'ordnumber', |
|
| 159 |
request_quotation => 'quonumber', |
|
| 160 |
); |
|
| 161 |
|
|
| 162 |
return $self->${ \ $number_method{$self->type} }(@_);
|
|
| 163 |
} |
|
| 164 |
|
|
| 152 | 165 |
1; |
| 153 | 166 |
|
| 154 | 167 |
__END__ |
Auch abrufbar als: Unified diff
Order->number dispacher methode, die je nach typ ordnumber oder quonumber aufruft.