Revision 628eba87
Von Philip Reetz vor etwa 19 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
|
$form->{AP_amounts}{"amount_$i"}{taxkey} = $form->{"taxkey_$i"};
|
||
|
|
||
|
$sth->finish;
|
||
|
if (!$form->{"korrektur_$i"}) {
|
||
|
if ($form->{taxincluded} *= 1) {
|
||
|
if ($form->{taxincluded} *= 1) {
|
||
|
if (!$form->{"korrektur_$i"}) {
|
||
|
$tax =
|
||
|
$form->{"amount_$i"} -
|
||
|
($form->{"amount_$i"} / ($form->{"taxrate_$i"} + 1));
|
||
|
$amount = $form->{"amount_$i"} - $tax;
|
||
|
$form->{"amount_$i"} = $form->round_amount($amount, 2);
|
||
|
$diff += $amount - $form->{"amount_$i"};
|
||
|
$form->{"tax_$i"} = $form->round_amount($tax, 2);
|
||
|
$form->{netamount} += $form->{"amount_$i"};
|
||
|
} else {
|
||
|
$tax = $form->{"tax_$i"};
|
||
|
}
|
||
|
$amount = $form->{"amount_$i"} - $tax;
|
||
|
$form->{"amount_$i"} = $form->round_amount($amount, 2);
|
||
|
$diff += $amount - $form->{"amount_$i"};
|
||
|
$form->{"tax_$i"} = $form->round_amount($tax, 2);
|
||
|
$form->{netamount} += $form->{"amount_$i"};
|
||
|
} else {
|
||
|
if (!$form->{"korrektur_$i"}) {
|
||
|
$form->{"tax_$i"} = $form->{"amount_$i"} * $form->{"taxrate_$i"};
|
||
|
$form->{"tax_$i"} =
|
||
|
$form->round_amount($form->{"tax_$i"} * $form->{exchangerate}, 2);
|
||
|
$form->{netamount} += $form->{"amount_$i"};
|
||
|
}
|
||
|
$form->{"tax_$i"} =
|
||
|
$form->round_amount($form->{"tax_$i"} * $form->{exchangerate}, 2);
|
||
|
$form->{netamount} += $form->{"amount_$i"};
|
||
|
}
|
||
|
$form->{total_tax} += $form->{"tax_$i"} * -1;
|
||
|
$form->{total_tax} += $form->{"tax_$i"};
|
||
|
}
|
||
|
|
||
|
# adjust paidaccounts if there is no date in the last row
|
||
| SL/AR.pm | ||
|---|---|---|
|
$form->{AR_amounts}{"amount_$i"}{taxkey} = $form->{"taxkey_$i"};
|
||
|
|
||
|
$sth->finish;
|
||
|
if (!$form->{"korrektur_$i"}) {
|
||
|
if ($form->{taxincluded} *= 1) {
|
||
|
$tax =
|
||
|
$form->{"amount_$i"} -
|
||
|
($form->{"amount_$i"} / ($form->{"taxrate_$i"} + 1));
|
||
|
$amount = $form->{"amount_$i"} - $tax;
|
||
|
$form->{"amount_$i"} = $form->round_amount($amount, 2);
|
||
|
$diff += $amount - $form->{"amount_$i"};
|
||
|
$form->{"tax_$i"} = $form->round_amount($tax, 2);
|
||
|
$form->{netamount} += $form->{"amount_$i"};
|
||
|
if ($form->{taxincluded} *= 1) {
|
||
|
if (!$form->{"korrektur_$i"}) {
|
||
|
$tax =
|
||
|
$form->{"amount_$i"} -
|
||
|
($form->{"amount_$i"} / ($form->{"taxrate_$i"} + 1));
|
||
|
} else {
|
||
|
$tax = $form->{"tax_$i"};
|
||
|
}
|
||
|
$amount = $form->{"amount_$i"} - $tax;
|
||
|
$form->{"amount_$i"} = $form->round_amount($amount, 2);
|
||
|
$diff += $amount - $form->{"amount_$i"};
|
||
|
$form->{"tax_$i"} = $form->round_amount($tax, 2);
|
||
|
$form->{netamount} += $form->{"amount_$i"};
|
||
|
} else {
|
||
|
if (!$form->{"korrektur_$i"}) {
|
||
|
$form->{"tax_$i"} = $form->{"amount_$i"} * $form->{"taxrate_$i"};
|
||
|
$form->{"tax_$i"} =
|
||
|
$form->round_amount($form->{"tax_$i"} * $form->{exchangerate}, 2);
|
||
|
$form->{netamount} += $form->{"amount_$i"};
|
||
|
}
|
||
|
$form->{"tax_$i"} =
|
||
|
$form->round_amount($form->{"tax_$i"} * $form->{exchangerate}, 2);
|
||
|
$form->{netamount} += $form->{"amount_$i"};
|
||
|
}
|
||
|
|
||
|
$form->{total_tax} += $form->{"tax_$i"};
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
Probleme bei der Behandlung von Buchungen mit Steuerkorrektur behoben