$form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
$form->{creditlimit} =
$form->format_amount(\%myconfig, $form->{creditlimit}, 0);
+ $form->{discount} = $form->format_amount(\%myconfig, $form->{discount});
if ($myconfig{role} eq 'admin') {
$bcc = qq|
$form->{selectpricegroup} =~
s/(<option value="\Q$form->{klass}\E")/$1 selected/;
- $pricegroup .= qq|<select name=klass>$form->{selectpricegroup}</select>|;
+ $pricegroup .=
+ qq|<select name=klass tabindex=24>$form->{selectpricegroup}</select>|;
}
}
</tr>
<tr>
<th align=right nowrap>| . $locale->text('Company Name') . qq|</th>
- <td><input name=name size=35 maxlength=35 tabindex=1 value="$form->{name}"></td>
+ <td><input name=name size=35 maxlength=75 tabindex=1 value="$form->{name}"></td>
<td><input name=shiptoname size=35 maxlength=75 value="$form->{shiptoname}"></td>
</tr>
<tr>
<tr>
<th align=right nowrap>| . $locale->text('Street') . qq|</th>
<td><input name=street size=35 tabindex=4 maxlength=75 value="$form->{street}"></td>
- <td><input name=shiptostreet size=35 maxlength=35 value="$form->{shiptostreet}"></td>
+ <td><input name=shiptostreet size=35 maxlength=75 value="$form->{shiptostreet}"></td>
</tr>
<tr>
<th align=right nowrap>|
if ($vertreter && $form->{db} eq "customer") {
$form->isblank("salesman_id", $locale->text("Salesman missing!"));
}
- &{"CT::save_$form->{db}"}("", \%myconfig, \%$form);
-
+ $rc = &{"CT::save_$form->{db}"}("", \%myconfig, \%$form);
+ if ($rc == 3) {
+ $form->error($locale->text('customernumber not unique!'));
+ }
$form->redirect($locale->text($msg));
$lxdebug->leave_sub();