Revision 877a603b
Von Kivitendo Admin vor 10 Monaten hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
| 200 | 200 |
$form->{"memo_$i"} = $form->{acc_trans}{$key}->[$i - 1]->{memo};
|
| 201 | 201 |
|
| 202 | 202 |
$form->{paidaccounts} = $i;
|
| 203 |
# hook for calc of of fx_paid and check if banktransaction has a record exchangerate
|
|
| 203 |
# hook for calc of of defaultcurrency_paid and check if banktransaction has a record exchangerate
|
|
| 204 | 204 |
if ($form->{"exchangerate_$i"}) {
|
| 205 | 205 |
my $bt_acc_trans = SL::DB::Manager::BankTransactionAccTrans->find_by(acc_trans_id => $form->{"acc_trans_id_$i"});
|
| 206 | 206 |
if ($bt_acc_trans) {
|
| ... | ... | |
| 210 | 210 |
$form->{"record_forex_$i"} = 1;
|
| 211 | 211 |
} |
| 212 | 212 |
} |
| 213 |
$form->{"fx_paid_$i"} = $form->{"paid_$i"} / $form->{"exchangerate_$i"};
|
|
| 214 |
$form->{"fx_totalpaid"} += $form->{"fx_paid_$i"};
|
|
| 215 |
} # end hook fx_paid
|
|
| 213 |
$form->{"defaultcurrency_paid_$i"} = $form->{"paid_$i"} * $form->{"exchangerate_$i"};
|
|
| 214 |
$form->{"defaultcurrency_totalpaid"} += $form->{"defaultcurrency_paid_$i"};
|
|
| 215 |
} # end hook defaultcurrency_paid
|
|
| 216 | 216 |
} |
| 217 | 217 |
} else {
|
| 218 | 218 |
$form->{$key} =
|
Auch abrufbar als: Unified diff
Einkaufsrechnungen - fx_paid -> defaultcurrency_paid