Revision 5d44361c
Von Moritz Bunkus vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
| 214 | 214 |
my ($title, $readonly, $exchangerate, $rows); |
| 215 | 215 |
my ($taxincluded, $notes, $department, $customer, $employee, $amount, $project); |
| 216 | 216 |
my ($jsscript, $button1, $button2, $onload); |
| 217 |
my ($selectAR_amount, $selectAR_paid, $korrektur_checked, $ARselected, $tax);
|
|
| 217 |
my ($selectAR_amount, $selectAR_paid, $ARselected, $tax); |
|
| 218 | 218 |
my (@column_index, %column_data); |
| 219 | 219 |
|
| 220 | 220 |
|
| ... | ... | |
| 544 | 544 |
<th class=listheading style="width:10%">| |
| 545 | 545 |
. $locale->text('Tax') . qq|</th>
|
| 546 | 546 |
<th class=listheading style="width:5%">| |
| 547 |
. $locale->text('Korrektur') . qq|</th>
|
|
| 548 |
<th class=listheading style="width:10%">| |
|
| 549 | 547 |
. $locale->text('Taxkey') . qq|</th>
|
| 550 | 548 |
<th class=listheading style="width:10%">| |
| 551 | 549 |
. $locale->text('Project') . qq|</th>
|
| ... | ... | |
| 600 | 598 |
'-default' => $selected_taxchart)) |
| 601 | 599 |
. qq|</td>|; |
| 602 | 600 |
|
| 603 |
$korrektur_checked = ($form->{"korrektur_$i"} ? 'checked' : '');
|
|
| 604 |
|
|
| 605 | 601 |
my $projectnumber = |
| 606 | 602 |
NTI($cgi->popup_menu('-name' => "project_id_$i",
|
| 607 | 603 |
'-values' => \@project_values, |
| ... | ... | |
| 612 | 608 |
<tr> |
| 613 | 609 |
<td>$selectAR_amount</td> |
| 614 | 610 |
<td><input name="amount_$i" size=10 value=$form->{"amount_$i"}></td>
|
| 615 |
<td><input name="tax_$i" size=10 value=$form->{"tax_$i"}></td>
|
|
| 616 |
<td><input type="checkbox" name="korrektur_$i" value="1" $korrektur_checked></td> |
|
| 611 |
<td><input type="hidden" name="tax_$i" value="$form->{"tax_$i"}">$form->{"tax_$i"}</td>
|
|
| 617 | 612 |
$tax |
| 618 | 613 |
<td>$projectnumber</td> |
| 619 | 614 |
</tr> |
| ... | ... | |
| 932 | 927 |
if ($form->{"amount_$i"}) {
|
| 933 | 928 |
push @a, {};
|
| 934 | 929 |
my $j = $#a; |
| 935 |
if (!$form->{"korrektur_$i"}) {
|
|
| 936 |
my ($taxkey, $rate) = split(/--/, $form->{"taxchart_$i"});
|
|
| 937 |
if ($taxkey > 1) {
|
|
| 938 |
if ($form->{taxincluded}) {
|
|
| 939 |
$form->{"tax_$i"} = $form->{"amount_$i"} / ($rate + 1) * $rate;
|
|
| 940 |
} else {
|
|
| 941 |
$form->{"tax_$i"} = $form->{"amount_$i"} * $rate;
|
|
| 942 |
} |
|
| 930 |
my ($taxkey, $rate) = split(/--/, $form->{"taxchart_$i"});
|
|
| 931 |
if ($taxkey > 1) {
|
|
| 932 |
if ($form->{taxincluded}) {
|
|
| 933 |
$form->{"tax_$i"} = $form->{"amount_$i"} / ($rate + 1) * $rate;
|
|
| 943 | 934 |
} else {
|
| 944 |
$form->{"tax_$i"} = 0;
|
|
| 935 |
$form->{"tax_$i"} = $form->{"amount_$i"} * $rate;
|
|
| 945 | 936 |
} |
| 937 |
} else {
|
|
| 938 |
$form->{"tax_$i"} = 0;
|
|
| 946 | 939 |
} |
| 947 | 940 |
$form->{"tax_$i"} = $form->round_amount($form->{"tax_$i"}, 2);
|
| 948 | 941 |
|
Auch abrufbar als: Unified diff
Kreditoren-, Debitoren- und Dialogbuchenmasken:
1. Die Checkboxen "Korrektur" entfernt.
2. Die Eingabezeilen für den Steuerbetrag in einfache Anzeigen des von Lx-Office ausgerechneten Steuerbetrages umgewandelt.
Grund ist, dass Steuern, die mit "Korrektur" eingegeben wurden und nicht exakt dem Steuersatz entsprachen, die zum ausgewählten Steuerschlüssel gehörten, dafür gesorgt haben, dass diese Transaktion nicht über die DATEV-Schnittstelle exportiert werden kann.