foreach (qw(payment_id delivery_term_id language_id taxzone_id currency_id)) {
$object->$_($vc_obj->$_) unless $object->$_;
}
+ $object->intnotes($vc_obj->notes) unless $object->intnotes;
}
$self->handle_salesman($entry);
$self->handle_unit($entry);
$self->handle_sellprice($entry);
+ $self->handle_discount($entry);
# copy from part if not given
$object->description($part_obj->description) unless $object->description;
$object->lastcost($part_obj->lastcost) unless defined $object->lastcost;
# set to 0 if not given
- $object->discount(0) unless $object->discount;
$object->ship(0) unless $object->ship;
$self->check_project($entry, global => 0);
}
}
+sub handle_discount {
+ my ($self, $entry) = @_;
+
+ my $object = $entry->{object};
+
+ $object->discount($object->discount/100.0) if $object->discount;
+ $object->discount(0) unless $object->discount;
+}
+
sub check_part {
my ($self, $entry) = @_;