+sub number {
+ my $self = shift;
+
+ my %number_method = (
+ sales_order => 'ordnumber',
+ sales_quotation => 'quonumber',
+ purchase_order => 'ordnumber',
+ request_quotation => 'quonumber',
+ );
+
+ return $self->${ \ $number_method{$self->type} }(@_);
+}
+