]> wagnertech.de Git - mfinanz.git/blobdiff - bin/mozilla/ct.pl
Recommit von r1168 von skoehler: Kundennummer laesst sich nur einmal vergegen, nicht...
[mfinanz.git] / bin / mozilla / ct.pl
index e96e71884881aca26c095d037f8645d87335866b..dddd7346eb80af1b9fdf2755255234a4bb05b16d 100644 (file)
@@ -806,8 +806,7 @@ sub form_header {
   $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
   $form->{creditlimit} =
     $form->format_amount(\%myconfig, $form->{creditlimit}, 0);
-  $form->{discount} =
-    $form->format_amount(\%myconfig, $form->{discount});
+  $form->{discount} = $form->format_amount(\%myconfig, $form->{discount});
 
   if ($myconfig{role} eq 'admin') {
     $bcc = qq|
@@ -1573,8 +1572,10 @@ sub save_and_close {
   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();