Revision 3d967be3
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/AR.pm | ||
|---|---|---|
| 38 | 38 |
use SL::DBUtils; |
| 39 | 39 |
use SL::MoreCommon; |
| 40 | 40 |
|
| 41 |
use strict; |
|
| 42 |
|
|
| 41 | 43 |
our (%myconfig, $form); |
| 42 | 44 |
|
| 43 | 45 |
sub post_transaction {
|
| ... | ... | |
| 252 | 254 |
$amount = $form->round_amount( $form->{"paid_$i"} * ($form->{exchangerate} - $form->{"exchangerate_$i"}) * -1, 2);
|
| 253 | 255 |
|
| 254 | 256 |
if ($amount != 0) {
|
| 255 |
$accno = ($amount > 0) ? $form->{fxgain_accno} : $form->{fxloss_accno};
|
|
| 257 |
my $accno = ($amount > 0) ? $form->{fxgain_accno} : $form->{fxloss_accno};
|
|
| 256 | 258 |
$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, fx_transaction, cleared, project_id, taxkey) |
| 257 | 259 |
VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, 't', 'f', ?, (SELECT taxkey_id FROM chart WHERE accno = ?))|; |
| 258 | 260 |
@values = (conv_i($form->{id}), $accno, $amount, conv_date($form->{"datepaid_$i"}), $project_id, $accno);
|
| ... | ... | |
| 524 | 526 |
|
| 525 | 527 |
my ($self, $form) = @_; |
| 526 | 528 |
|
| 527 |
my ($exchangerate, $key, $akey, $i, $j, $k, $index, $taxamount, $totaltax, $taxrate, $diff); |
|
| 529 |
my ($exchangerate, $key, $akey, $i, $j, $k, $index, $taxamount, $totaltax, $taxrate, $diff, $totalwithholding, $withholdingrate, |
|
| 530 |
$totalamount, $taxincluded, $tax); |
|
| 528 | 531 |
|
| 529 | 532 |
# forex |
| 530 | 533 |
$form->{forex} = $form->{exchangerate};
|
Auch abrufbar als: Unified diff
weitere stricts