Revision 6ff13e1d
Von Stephan Köhler vor mehr als 18 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
| 142 | 142 |
|
| 143 | 143 |
# amount for total AP |
| 144 | 144 |
$form->{payables} = $form->{invtotal};
|
| 145 |
print(STDERR $form->{payables},
|
|
| 146 |
" Payables\n", |
|
| 147 |
$form->{invtotal},
|
|
| 148 |
" Invtotal\n", |
|
| 149 |
$form->{netamount},
|
|
| 150 |
" Netamount\n", |
|
| 151 |
$form->{total_tax},
|
|
| 152 |
" Total_Tax\n\n"); |
|
| 145 |
|
|
| 153 | 146 |
my ($query, $sth); |
| 154 | 147 |
|
| 155 | 148 |
# if we have an id delete old records |
| SL/AR.pm | ||
|---|---|---|
| 113 | 113 |
$form->{netamount} += $form->{"amount_$i"};
|
| 114 | 114 |
} else {
|
| 115 | 115 |
$form->{"tax_$i"} = $form->{"amount_$i"} * $form->{"taxrate_$i"};
|
| 116 |
$form->{"tax_$i"} =
|
|
| 117 |
$form->round_amount($form->{"tax_$i"} * $form->{exchangerate}, 2);
|
|
| 116 |
$form->{"tax_$i"} = $form->round_amount($form->{"tax_$i"} * $form->{exchangerate}, 2);
|
|
| 117 |
$form->{netamount} += $form->{"amount_$i"};
|
|
| 118 | 118 |
} |
| 119 | 119 |
} |
| 120 | 120 |
$form->{total_tax} += $form->{"tax_$i"};
|
Auch abrufbar als: Unified diff
Merge von 780 aus unstable: Bugfix Splitbuchungen
Kleiner Bug bei Splittbuchungen