X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/79783496069e3112eab9c74cf6060cd46a3ee6d3..f147b6eb9250111ed6882e4d8b11ad477ac6fefe:/SL/CP.pm

diff --git a/SL/CP.pm b/SL/CP.pm
index f6c8c1a8e..19b629f1c 100644
--- a/SL/CP.pm
+++ b/SL/CP.pm
@@ -240,7 +240,6 @@ sub process_payment {
       qq|  (c.link LIKE '%:AP:%')) |;
   }
 
-  my $paymentamount = $form->{amount};
 
   my $null;
   ($null, $form->{department_id}) = split(/--/, $form->{department});
@@ -260,7 +259,6 @@ sub process_payment {
     $form->{"due_$i"}  = $form->parse_amount($myconfig, $form->{"due_$i"});
 
     if ($form->{"checked_$i"} && $form->{"paid_$i"}) {
-      $paymentamount = (($paymentamount * 1000) - ($form->{"paid_$i"} * 1000)) / 1000;
 
       # get exchangerate for original
       $query =
@@ -360,23 +358,16 @@ sub process_payment {
       if(!exists $form->{addition}) {
         $form->{snumbers} = qq|invnumber_| . $form->{"invnumber_$i"};
         $form->{addition} = "POSTED";
-        $form->save_history($form->dbconnect($myconfig));
+        $form->save_history;
       }
       # /saving the history
     }
   }
-
   my $rc;
-  if ($form->round_amount($paymentamount, 2) < 0) {
-		# Hier werden negativen Zahlungseingänge abgefangen
-		# Besser: in Oberfläche schon prüfen
-		# Zahlungsein- und ausgänge sind immer positiv
-    $dbh->rollback;
-    $rc = 0;
-  }
-  if ($form->round_amount($paymentamount, 2) == 0) {
+  # Hier wurden negativen Zahlungseingänge abgefangen
+  # da Zahlungsein- und ausgänge immer positiv sind
+  # Besser: in Oberfläche schon prüfen erledigt jb 10.2010
     $rc = $dbh->commit;
-  }
 
   $dbh->disconnect;