my @vc_fields = (qw(account_number bank bank_code bic business city contact country creditlimit
department_1 department_2 discount email fax gln homepage iban language name
- payment_terms phone street taxnumber ustid zipcode),
+ phone street taxnumber ustid zipcode),
"${vc}number",
($vc eq 'customer')? 'c_vendor_id': 'v_customer_id');
my @vc_prefixed_fields = qw(email fax notes number phone);