</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");
- foreach $item (sort({ $a <=> $b } keys %ustva)) {
+
+ %ustva = (35 => $locale->text('UStVA-Nr. 35'),
+ 36 => $locale->text('UStVA-Nr. 36'),
+ 39 => $locale->text('UStVA-Nr. 39'),
+ 41 => $locale->text('UStVA-Nr. 41'),
+ 42 => $locale->text('UStVA-Nr. 42'),
+ 43 => $locale->text('UStVA-Nr. 43'),
+ 44 => $locale->text('UStVA-Nr. 44'),
+ 45 => $locale->text('UStVA-Nr. 45'),
+ 48 => $locale->text('UStVA-Nr. 48'),
+ 49 => $locale->text('UStVA-Nr. 49'),
+ 51 => $locale->text('UStVA-Nr. 51 left'),
+ 511 => $locale->text('UStVA-Nr. 51 right'),
+ 52 => $locale->text('UStVA-Nr. 52'),
+ 53 => $locale->text('UStVA-Nr. 53'),
+ 59 => $locale->text('UStVA-Nr. 59'),
+ 60 => $locale->text('UStVA-Nr. 60'),
+ 61 => $locale->text('UStVA-Nr. 61'),
+ 62 => $locale->text('UStVA-Nr. 62'),
+ 63 => $locale->text('UStVA-Nr. 63'),
+ 64 => $locale->text('UStVA-Nr. 64'),
+ 65 => $locale->text('UStVA-Nr. 65'),
+ 66 => $locale->text('UStVA-Nr. 66'),
+ 67 => $locale->text('UStVA-Nr. 67'),
+ 69 => $locale->text('UStVA-Nr. 69'),
+ 73 => $locale->text('UStVA-Nr. 73'),
+ 74 => $locale->text('UStVA-Nr. 74'),
+ 76 => $locale->text('UStVA-Nr. 76'),
+ 77 => $locale->text('UStVA-Nr. 77'),
+ 80 => $locale->text('UStVA-Nr. 80'),
+ 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'),
+ 91 => $locale->text('UStVA-Nr. 91'),
+ 93 => $locale->text('UStVA-Nr. 93 left'),
+ 931 => $locale->text('UStVA-Nr. 93 right'),
+ 94 => $locale->text('UStVA-Nr. 94'),
+ 95 => $locale->text('UStVA-Nr. 95'),
+ 96 => $locale->text('UStVA-Nr. 96'),
+ 97 => $locale->text('UStVA-Nr. 97 links'),
+ 971 => $locale->text('UStVA-Nr. 97 rechts'),
+ 98 => $locale->text('UStVA-Nr. 98'));
+
+ foreach $item (sort({ $a cmp $b } keys %ustva)) {
if ($item == $form->{pos_ustva}) {
$form->{selectustva} .= "<option value=$item selected>$ustva{$item}\n";
} else {
$eur = qq|
<tr>
- <th align=right>| . $locale->text('EÜR') . qq|</th>
+ <th align=right>| . $locale->text('EUER') . qq|</th>
<td><select name=pos_eur>$form->{selecteur}</select></td>
<input type=hidden name=selecteur value="$form->{selecteur}">
</tr>|;
<input type=hidden name=selectbwa value="$form->{selectbwa}">
</tr>|;
- $form->{selectbilanz} = "<option>\n";
- foreach $item ((1, 2, 3, 4)) {
- if ($item == $form->{pos_bilanz}) {
- $form->{selectbilanz} .= "<option value=$item selected>$item\n";
- } else {
- $form->{selectbilanz} .= "<option value=$item>$item\n";
- }
-
- }
-
- $bilanz = qq|
- <tr>
- <th align=right>| . $locale->text('Bilanz') . qq|</th>
- <td><select name=pos_bilanz>$form->{selectbilanz}</select></td>
- <input type=hidden name=selectbilanz value="$form->{selectbilanz}">
- </tr>|;
+# Entfernt bis es ordentlich umgesetzt wird (hli) 30.03.2006
+# $form->{selectbilanz} = "<option>\n";
+# foreach $item ((1, 2, 3, 4)) {
+# if ($item == $form->{pos_bilanz}) {
+# $form->{selectbilanz} .= "<option value=$item selected>$item\n";
+# } else {
+# $form->{selectbilanz} .= "<option value=$item>$item\n";
+# }
+#
+# }
+#
+# $bilanz = qq|
+# <tr>
+# <th align=right>| . $locale->text('Bilanz') . qq|</th>
+# <td><select name=pos_bilanz>$form->{selectbilanz}</select></td>
+# <input type=hidden name=selectbilanz value="$form->{selectbilanz}">
+# </tr>|;
# this is for our parser only!
# type=submit $locale->text('Add Account')
<input type=hidden name=inventory_accno_id value=$form->{inventory_accno_id}>
<input type=hidden name=income_accno_id value=$form->{income_accno_id}>
<input type=hidden name=expense_accno_id value=$form->{expense_accno_id}>
-<input type=hidden name=fxgain_accno_id values=$form->{fxgain_accno_id}>
-<input type=hidden name=fxloss_accno_id values=$form->{fxloss_accno_id}>
+<input type=hidden name=fxgain_accno_id value=$form->{fxgain_accno_id}>
+<input type=hidden name=fxloss_accno_id value=$form->{fxloss_accno_id}>
<table border=0 width=100%>
<tr>
<table>
<tr valign=top>
<td><input name=category type=radio class=radio value=A $checked{A_}> |
- . $locale->text('Asset')
- . qq|\n<br>
+ . $locale->text('Asset') . qq|\n<br>
<input name=category type=radio class=radio value=L $checked{L_}> |
- . $locale->text('Liability')
- . qq|\n<br>
+ . $locale->text('Liability') . qq|\n<br>
<input name=category type=radio class=radio value=Q $checked{Q_}> |
- . $locale->text('Equity')
- . qq|\n<br>
+ . $locale->text('Equity') . qq|\n<br>
<input name=category type=radio class=radio value=I $checked{I_}> |
- . $locale->text('Revenue')
- . qq|\n<br>
+ . $locale->text('Revenue') . qq|\n<br>
<input name=category type=radio class=radio value=E $checked{E_}> |
- . $locale->text('Expense')
- . qq|</td>
+ . $locale->text('Expense') . qq|</td>
<td width=50> </td>
<td>
<input name=charttype type=radio class=radio value="H" $checked{H}> |
. $locale->text('Heading') . qq|<br>
<input name=charttype type=radio class=radio value="A" $checked{A}> |
- . $locale->text('Account')
- . qq|</td>
+ . $locale->text('Account') . qq|</td>
</tr>
</table>
</td>
<table>
<tr>
<th align=left>|
- . $locale->text('Is this a summary account to record')
- . qq|</th>
+ . $locale->text('Is this a summary account to record') . qq|</th>
<td>
<input name=AR type=checkbox class=checkbox value=AR $form->{AR}> |
. $locale->text('AR')
<tr>
<td>
<input name=AR_amount type=checkbox class=checkbox value=AR_amount $form->{AR_amount}> |
- . $locale->text('Revenue')
- . qq|\n<br>
+ . $locale->text('Revenue') . qq|\n<br>
<input name=AR_paid type=checkbox class=checkbox value=AR_paid $form->{AR_paid}> |
- . $locale->text('Receipt')
- . qq|\n<br>
+ . $locale->text('Receipt') . qq|\n<br>
<input name=AR_tax type=checkbox class=checkbox value=AR_tax $form->{AR_tax}> |
. $locale->text('Tax') . qq|
</td>
<td>
<input name=AP_amount type=checkbox class=checkbox value=AP_amount $form->{AP_amount}> |
- . $locale->text('Expense/Asset')
- . qq|\n<br>
+ . $locale->text('Expense/Asset') . qq|\n<br>
<input name=AP_paid type=checkbox class=checkbox value=AP_paid $form->{AP_paid}> |
- . $locale->text('Payment')
- . qq|\n<br>
+ . $locale->text('Payment') . qq|\n<br>
<input name=AP_tax type=checkbox class=checkbox value=AP_tax $form->{AP_tax}> |
. $locale->text('Tax') . qq|
</td>
<td>
<input name=IC_sale type=checkbox class=checkbox value=IC_sale $form->{IC_sale}> |
- . $locale->text('Revenue')
- . qq|\n<br>
+ . $locale->text('Revenue') . qq|\n<br>
<input name=IC_cogs type=checkbox class=checkbox value=IC_cogs $form->{IC_cogs}> |
- . $locale->text('COGS')
- . qq|\n<br>
+ . $locale->text('Expense') . qq|\n<br>
<input name=IC_taxpart type=checkbox class=checkbox value=IC_taxpart $form->{IC_taxpart}> |
. $locale->text('Tax') . qq|
</td>
<td>
<input name=IC_income type=checkbox class=checkbox value=IC_income $form->{IC_income}> |
- . $locale->text('Revenue')
- . qq|\n<br>
+ . $locale->text('Revenue') . qq|\n<br>
<input name=IC_expense type=checkbox class=checkbox value=IC_expense $form->{IC_expense}> |
- . $locale->text('Expense')
- . qq|\n<br>
+ . $locale->text('Expense') . qq|\n<br>
<input name=IC_taxservice type=checkbox class=checkbox value=IC_taxservice $form->{IC_taxservice}> |
. $locale->text('Tax') . qq|
</td>
<tr>
<td></td>
<th align=left><input name=sictype type=checkbox style=checkbox value="H" $checked> |
- . $locale->text('Heading')
- . qq|</th>
+ . $locale->text('Heading') . qq|</th>
<tr>
<tr>
<th align=right>| . $locale->text('Description') . qq|</th>
%countrycodes = User->country_codes;
$countrycodes = '';
foreach $key (sort { $countrycodes{$a} cmp $countrycodes{$b} }
- keys %countrycodes) {
+ keys %countrycodes
+ ) {
$countrycodes .=
($myconfig{countrycode} eq $key)
? "<option selected 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} .=
$form->header;
+ if ($myconfig{menustyle} eq "old") { $oldS = "checked"; }
+ else { $newS = "checked"; }
+
print qq|
<body>
<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>
<th align=right>| . $locale->text('Language') . qq|</th>
<td><select name=countrycode>$countrycodes</select></td>
</tr>
- <tr>
- <th align=right>| . $locale->text('Character Set') . qq|</th>
- <td><input name=charset size=20 value="$myconfig{charset}"></td>
- </tr>
<tr>
<th align=right>| . $locale->text('Stylesheet') . qq|</th>
<td><select name=usestylesheet>$selectstylesheet</select></td>
</tr>
+ <tr>
+ <th align=right>| . $locale->text('Setup Menu') . qq|</th>
+ <td><input name=menustyle type=radio class=radio value=neu $newS> New
+ <input name=menustyle type=radio class=radio value=old $oldS> Old</td>
+ </tr>
<input name=printer type=hidden value="$myconfig{printer}">
<tr class=listheading>
<th colspan=2> </th>
</tr>
<tr class=listheading>
<th colspan=2>|
- . $locale->text('Last Numbers & Default Accounts')
- . qq|</th>
+ . $locale->text('Last Numbers & Default Accounts') . qq|</th>
</tr>
<tr>
<td colspan=2>
<th align=right nowrap>| . $locale->text('Last Invoice Number') . qq|</th>
<td><input name=invnumber size=10 value=$form->{defaults}{invnumber}></td>
<th align=right nowrap>|
- . $locale->text('Last Customer Number')
- . qq|</th>
+ . $locale->text('Last Customer Number') . qq|</th>
<td><input name=customernumber size=10 value=$form->{defaults}{customernumber}></td>
</tr>
<tr>
<th align=right nowrap>|
- . $locale->text('Last Sales Order Number')
- . qq|</th>
+ . $locale->text('Last Sales Order Number') . qq|</th>
<td><input name=sonumber size=10 value=$form->{defaults}{sonumber}></td>
<th align=right nowrap>|
- . $locale->text('Last Vendor Number')
- . qq|</th>
+ . $locale->text('Last Vendor Number') . qq|</th>
<td><input name=vendornumber size=10 value=$form->{defaults}{vendornumber}></td>
</tr>
<tr>
<th align=right nowrap>|
- . $locale->text('Last Purchase Order Number')
- . qq|</th>
+ . $locale->text('Last Purchase Order Number') . qq|</th>
<td><input name=ponumber size=10 value=$form->{defaults}{ponumber}></td>
<th align=right nowrap>|
- . $locale->text('Last Article Number')
- . qq|</th>
+ . $locale->text('Last Article Number') . qq|</th>
<td><input name=articlenumber size=10 value=$form->{defaults}{articlenumber}></td>
</tr>
<tr>
<th align=right nowrap>|
- . $locale->text('Last Sales Quotation Number')
- . qq|</th>
+ . $locale->text('Last Sales Quotation Number') . qq|</th>
<td><input name=sqnumber size=10 value=$form->{defaults}{sqnumber}></td>
<th align=right nowrap>|
- . $locale->text('Last Service Number')
- . qq|</th>
+ . $locale->text('Last Service Number') . qq|</th>
<td><input name=servicenumber size=10 value=$form->{defaults}{servicenumber}></td>
</tr>
<tr>
<table>
<tr>
<td>|
- . $locale->text('Enforce transaction reversal for all dates')
- . qq|</th>
+ . $locale->text('Enforce transaction reversal for all dates') . qq|</th>
<td><input name=revtrans class=radio type=radio value="1" $checked{Y}> |
. $locale->text('Yes')
. qq| <input name=revtrans class=radio type=radio value="0" $checked{N}> |