X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fam.pl;h=c936bc19b771661746f6d4f5b727986f51a5726f;hb=264b38c7465f95066b47588c2fbe85f102bd022c;hp=d75766a3fcb1da47b2f4ebe319ab90f4aefc6b7b;hpb=de763d70b4b2e0501565e579fb4726e033594589;p=kivitendo-erp.git

diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index d75766a3f..c936bc19b 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -111,14 +111,46 @@ sub account_header {
 	      </tr>|;
 
   $form->{selectustva} = "<option>\n";
-  %ustva = (48 => "Steuerfrei, Zeile 48",
-            51 => "Steuerpflichtig 16%, Zeile 51",
-            86 => "Steuerpflichtig 7%, Zeile 86",
-            91 => "Steuerfrei, Zeile 91",
-            97 => "Steuerpflichtig 16%, Zeile 97",
-            93 => "Steuerpflichtig 7%, Zeile 93",
-            94 => "Steuerpflichtig 16%, Zeile 94",
-            66 => "Vorsteuer, Zeile 66");
+  %ustva = (41  => "Steuerfrei IGL a. Abnehmer m. UStID (§4 Nr. 1b UStG), Nr. 41",
+            44  => "Steuerfrei IGL n. Fahrz. o. UStID (§4 Nr. 1b UStG), Nr. 44",
+            49  => "Steuerfrei IGL n. Fahrz. a. Unternehmen (§2a UStG), Nr. 49",
+            43  => "Weit Steuerfreie Umsätze m. VSt Abzug (Ausfuhr, Umsätze §4 Nr.2-7 UStG), Nr. 43",
+            48  => "Steuerfreie Umsätze ohne VSt.abzug (§4 Nr.8-28 UStG), Nr. 48",
+            51  => "Steuerpflichtige Umsätze 16%, Nr. 51",
+            511 => "Steuerpflichtige Umsätze 16%, Nr. 51 rechts",
+            86  => "Steuerpflichtige Umsätze 7%, Nr. 86",
+            861 => "Steuerpflichtige Umsätze 7%, Nr. 86 rechts",
+            35  => "Nr. 35",
+            77  => "Nr. 77",
+            76  => "Nr. 76",
+            80  => "Nr. 80",
+            91  => "Steuerfrei, Nr. 91",
+            97  => "Steuerpflichtig 16%, Nr. 97",
+            971 => "Steuerpflichtig 16%, Nr. 97 rechts",
+            93  => "Steuerpflichtig 7%, Nr. 93",
+            931 => "Steuerpflichtig 7%, Nr. 93 rechts",
+            95  => "Nr. 95",
+            94  => "Steuerpflichtig 16%, Nr. 94",            
+            96  => "Nr. 96",
+            42  => "Nr. 42",
+            60  => "Nr. 60",
+            45  => "Nr. 45",
+            52  => "Nr. 52",
+            53  => "Nr. 53",
+            73  => "Nr. 73",
+            74  => "Nr. 74",
+            84  => "Nr. 84",
+            85  => "Nr. 85",
+            65  => "Nr. 65",
+            66  => "Abziehbare Vorsteuerbeträge, Nr. 66",
+            61  => "Nr. 61",
+            62  => "Nr. 62",
+            67  => "Nr. 67",
+            63  => "Nr. 63",
+            64  => "Nr. 64",
+            59  => "Nr. 59",
+            69  => "Nr. 69",
+            39  => "Nr. 39");
   foreach $item (sort({ $a <=> $b } keys %ustva)) {
     if ($item == $form->{pos_ustva}) {
       $form->{selectustva} .= "<option value=$item selected>$ustva{$item}\n";
@@ -285,8 +317,6 @@ sub account_header {
     . $locale->text('Asset') . qq|\n<br>
 		<input name=category type=radio class=radio value=L $checked{L_}>&nbsp;|
     . $locale->text('Liability') . qq|\n<br>
-		<input name=category type=radio class=radio value=Q $checked{Q_}>&nbsp;|
-    . $locale->text('Equity') . qq|\n<br>
 		<input name=category type=radio class=radio value=I $checked{I_}>&nbsp;|
     . $locale->text('Revenue') . qq|\n<br>
 		<input name=category type=radio class=radio value=E $checked{E_}>&nbsp;|
@@ -1577,7 +1607,7 @@ sub config {
       ? "<option selected>$item\n"
       : "<option>$item\n";
   }
-
+  
   foreach $item (qw(name company address signature)) {
     $myconfig{$item} =~ s/\"/&quot;/g;
   }
@@ -1597,7 +1627,22 @@ sub config {
       : "<option value=$key>$countrycodes{$key}\n";
   }
   $countrycodes = "<option>American English\n$countrycodes";
+  
+  # use an other input number format than output numberformat
+  # look at Form.pm, sub parse_amount
+  my $ in_numberformat = '';
+  $text1 = qq|value="0">| . $locale->text('equal Outputformat');
+  $text2 = qq|value="1">| . $locale->text('1000,00 or 1000.00');
+  @in_nf = ($text1, $text2);
+  foreach $item ( @in_nf ) {
+    $in_numberformat .=
+      ( substr($item, 7, 1) eq $myconfig{in_numberformat})
+      ? "<option selected $item\n"
+      : "<option $item\n";
+  }
+
 
+  
   foreach $key (keys %{ $form->{IC} }) {
     foreach $accno (sort keys %{ $form->{IC}{$key} }) {
       $myconfig{$key} .=
@@ -1678,9 +1723,14 @@ sub config {
 	  <td><select name=dateformat>$dateformat</select></td>
 	</tr>
 	<tr>
-	  <th align=right>| . $locale->text('Number Format') . qq|</th>
+	  <th align=right>| . $locale->text('Output Number Format') . qq|</th>
 	  <td><select name=numberformat>$numberformat</select></td>
 	</tr>
+	<tr>
+	  <th align=right>| . $locale->text('Input Number Format') . qq|</th>
+	  <td><select name=in_numberformat>$in_numberformat</select></td>
+	</tr>
+
 	<tr>
 	  <th align=right>| . $locale->text('Dropdown Limit') . qq|</th>
 	  <td><input name=vclimit size=10 value="$myconfig{vclimit}"></td>