Revision 5dd059ff
Von Stephan Köhler vor etwa 18 Jahren hinzugefügt
| bin/mozilla/ct.pl | ||
|---|---|---|
| 463 | 463 |
$form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
|
| 464 | 464 |
$form->{creditlimit} =
|
| 465 | 465 |
$form->format_amount(\%myconfig, $form->{creditlimit}, 0);
|
| 466 |
$form->{discount} =
|
|
| 467 |
$form->format_amount(\%myconfig, $form->{discount});
|
|
| 466 |
$form->{discount} = $form->format_amount(\%myconfig, $form->{discount});
|
|
| 468 | 467 |
|
| 469 | 468 |
if ($myconfig{role} eq 'admin') {
|
| 470 | 469 |
$bcc = qq| |
| ... | ... | |
| 977 | 976 |
if ($vertreter && $form->{db} eq "customer") {
|
| 978 | 977 |
$form->isblank("salesman_id", $locale->text("Salesman missing!"));
|
| 979 | 978 |
} |
| 980 |
&{"CT::save_$form->{db}"}("", \%myconfig, \%$form);
|
|
| 981 |
|
|
| 979 |
$rc = &{"CT::save_$form->{db}"}("", \%myconfig, \%$form);
|
|
| 980 |
if ($rc == 3) {
|
|
| 981 |
$form->error($locale->text('customernumber not unique!'));
|
|
| 982 |
} |
|
| 982 | 983 |
$form->redirect($locale->text($msg)); |
| 983 | 984 |
|
| 984 | 985 |
$lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
Kundennummer laesst sich nur einmal vergegen,
nicht ueber Datenbankschema unique bwz. primary key