foreach (qw(payment_id delivery_term_id language_id taxzone_id currency_id)) {
$object->$_($vc_obj->$_) unless $object->$_;
}
foreach (qw(payment_id delivery_term_id language_id taxzone_id currency_id)) {
$object->$_($vc_obj->$_) unless $object->$_;
}