Revision c09536f4
Von Sven Schöling vor fast 15 Jahren hinzugefügt
| SL/OP.pm | ||
|---|---|---|
| 77 | 77 |
$query = |
| 78 | 78 |
qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount) | . |
| 79 | 79 |
qq|VALUES (?, (SELECT id FROM chart WHERE accno = ? ), ?, ?)|; |
| 80 |
@values = ($new_id, $accno, conv_date($form->{datepaid}), $fxamount * $ml);
|
|
| 80 |
@values = ($new_id, $accno, conv_date($form->{datepaid}), $fxamount * $ml);
|
|
| 81 | 81 |
do_query($form, $dbh, $query, @values); |
| 82 | 82 |
|
| 83 | 83 |
# add payment |
| ... | ... | |
| 93 | 93 |
$query = |
| 94 | 94 |
qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount, cleared, fx_transaction) | . |
| 95 | 95 |
qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, ?)|; |
| 96 |
@values = ($new_id, $paymentaccno, conv_date($form->{datepaid}),
|
|
| 96 |
@values = ($new_id, $paymentaccno, conv_date($form->{datepaid}),
|
|
| 97 | 97 |
(($fxamount - $amount) * $ml * -1), 1, 1); |
| 98 | 98 |
do_query($form, $dbh, $query, @values); |
| 99 | 99 |
} |
Auch abrufbar als: Unified diff
Keine Tabs in SL/* Modulen.
Machen das Leben nur schwer für Leute die zufällig nicht die Tabbreite eingestellt haben wie der Autor.