Revision 9566fde4
Von Philip Reetz vor etwa 19 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
|
|
||
|
# amount for total AP
|
||
|
$form->{payables} = $form->{invtotal};
|
||
|
print(STDERR $form->{payables},
|
||
|
" Payables\n",
|
||
|
$form->{invtotal},
|
||
|
" Invtotal\n",
|
||
|
$form->{netamount},
|
||
|
" Netamount\n",
|
||
|
$form->{total_tax},
|
||
|
" Total_Tax\n\n");
|
||
|
|
||
|
my ($query, $sth);
|
||
|
|
||
|
# if we have an id delete old records
|
||
| SL/AR.pm | ||
|---|---|---|
|
$form->{netamount} += $form->{"amount_$i"};
|
||
|
} else {
|
||
|
$form->{"tax_$i"} = $form->{"amount_$i"} * $form->{"taxrate_$i"};
|
||
|
$form->{"tax_$i"} =
|
||
|
$form->round_amount($form->{"tax_$i"} * $form->{exchangerate}, 2);
|
||
|
$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
Kleiner Bug bei Splittbuchungen