76 => $locale->text('UStVA-Nr. 76'),
77 => $locale->text('UStVA-Nr. 77'),
80 => $locale->text('UStVA-Nr. 80'),
+ 81 => $locale->text('UStVA-Nr. 81 left'),
+ 811 => $locale->text('UStVA-Nr. 81 right'),
84 => $locale->text('UStVA-Nr. 84'),
85 => $locale->text('UStVA-Nr. 85'),
86 => $locale->text('UStVA-Nr. 86 left'),
861 => $locale->text('UStVA-Nr. 86 right'),
+ 89 => $locale->text('UStVA-Nr. 89 left'),
+ 891 => $locale->text('UStVA-Nr. 89 right'),
91 => $locale->text('UStVA-Nr. 91'),
93 => $locale->text('UStVA-Nr. 93 left'),
931 => $locale->text('UStVA-Nr. 93 right'),
$ca->{link} .= qq|[| . $link . qq|] |;
}
- $ca->{startdate} =~ s/,/<br>/og;
- $ca->{tk_ustva} =~ s/,/<br>/og;
-
- $ca->{taxkey_id} =~ s/,/<br>/og;
- $ca->{taxdescription} =~ s/,/<br>/og;
-
+ $ca->{startdate} =~ s/,/<br>/og;
+ $ca->{tk_ustva} =~ s/,/<br>/og;
+ $ca->{taxkey} =~ s/,/<br>/og;
+ $ca->{taxaccount} =~ s/,/<br>/og;
+ $ca->{taxdescription} =~ s/,/<br>/og;
$ca->{datevautomatik} = ($ca->{datevautomatik}) ? $locale->text('On'):q{};
$ca->{category} = ($ca->{category} eq 'A') ? $locale->text('Account Category A')
$ca->{link_edit_account} =
qq|$form->{script}?action=edit_account&id=$ca->{id}|
.qq|&path=$form->{path}&login=$form->{login}|
- .qq|&password=$form->{password}&callback=$callback>$ca->{accno}|;
+ .qq|&password=$form->{password}&callback=$callback|;
}
my $parameters_ref = {
}
$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} .=
<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>