Some bugfixes

diff --git a/src/InfoCon/buch/infocon b/src/InfoCon/buch/infocon
index d4224da..6060874 100755 (executable)
--- a/src/InfoCon/buch/infocon
+++ b/src/InfoCon/buch/infocon
@@ -348,24 +348,24 @@ sub buchung_input
                $i++;
            }
        }
-       if (!$input[6]) {       # USt selbst berechnen
-           if ($input[5] != 0) {
-               $input[6] = $input[7] - ($input[7] / ((100+$input[5])/100));
+       if (!$input[7]) {       # USt selbst berechnen
+           if ($input[6] != 0) {
+               $input[7] = $input[8] - ($input[8] / ((100+$input[6])/100));
            }
        }
 
-       if ($input[4] =~ /[EeIi\+]/) {
-           $input[6] *= -1 if ($input[6] < 0);
+       if ($input[5] =~ /[EeIi\+]/) {
            $input[7] *= -1 if ($input[7] < 0);
+           $input[8] *= -1 if ($input[8] < 0);
        } else {
-           $input[6] *= -1 if ($input[6] > 0);
            $input[7] *= -1 if ($input[7] > 0);
+           $input[8] *= -1 if ($input[8] > 0);
        }
 
        $sth->execute (get_next_nr(), date_to_string($input[0]), $input[1], $input[2], $input[3], $input[4],
                       $input[6], $input[7], $input[8], $input[9]);
        $weiter = read_input("Weiter",'j');
-       $input[6] = 0.0;
+       $input[7] = 0.0;
     }
 
     exit;