+ # if we switched to all_vc
+ if ($form->{all_vc} ne $form->{oldall_vc}) {
+
+ $form->{openinvoices} = ($form->{all_vc}) ? 0 : 1;
+
+ $form->{"select$form->{vc}"} = "";
+
+ if ($form->{all_vc}) {
+ $form->all_vc(\%myconfig, $form->{vc}, $form->{ARAP});
+
+ if ($form->{"all_$form->{vc}"}) {
+ map { $form->{"select$form->{vc}"} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{"all_$form->{vc}"} };
+ }
+
+ } else {
+ CP->get_openvc(\%myconfig, \%$form);
+
+ if ($form->{"all_$form->{vc}"}) {
+ $newvc = qq|$form->{"all_$form->{vc}"}[0]->{name}--$form->{"all_$form->{vc}"}[0]->{id}|;
+ map { $form->{"select$form->{vc}"} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{"all_$form->{vc}"} };
+
+
+ # if the name is not the same
+ if ($form->{"select$form->{vc}"} !~ /$form->{$form->{vc}}/) {
+ $form->{$form->{vc}} = $newvc;
+ &check_name($form->{vc}, $locale->text('Nothing outstanding for ') . $form->{customer});
+ }
+ }
+ }
+
+ if (@{ $form->{all_languages} }) {
+ $form->{selectlanguage} = "<option>\n";
+ map { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } @{ $form->{all_languages} };
+ }
+
+ }
+