</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";
. $locale->text('Asset') . qq|\n<br>
<input name=category type=radio class=radio value=L $checked{L_}> |
. $locale->text('Liability') . qq|\n<br>
- <input name=category type=radio class=radio value=Q $checked{Q_}> |
- . $locale->text('Equity') . qq|\n<br>
<input name=category type=radio class=radio value=I $checked{I_}> |
. $locale->text('Revenue') . qq|\n<br>
<input name=category type=radio class=radio value=E $checked{E_}> |
? "<option selected>$item\n"
: "<option>$item\n";
}
-
+
foreach $item (qw(name company address signature)) {
$myconfig{$item} =~ s/\"/"/g;
}
: "<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} .=
<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>