Revision e28d95b4
Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt
| SL/CP.pm | ||
|---|---|---|
| 269 | 269 |
|
| 270 | 270 |
# add AR/AP |
| 271 | 271 |
$query = |
| 272 |
qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount) | . |
|
| 273 |
qq|VALUES (?, ?, ?, ?)|; |
|
| 272 |
qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount, chart_link, taxkey, tax_id) | .
|
|
| 273 |
qq|VALUES (?, ?, ?, ?, (SELECT link FROM chart WHERE id=?), 0, (SELECT id FROM tax WHERE taxkey=0 LIMIT 1))|;
|
|
| 274 | 274 |
do_query($form, $dbh, $query, $form->{"id_$i"}, $id,
|
| 275 |
conv_date($form->{datepaid}), $amount * $ml);
|
|
| 275 |
conv_date($form->{datepaid}), $amount * $ml, $id);
|
|
| 276 | 276 |
|
| 277 | 277 |
# add payment |
| 278 | 278 |
$query = |
| 279 | 279 |
qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount, | . |
| 280 |
qq| source, memo) | . |
|
| 281 |
qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, ?)|; |
|
| 280 |
qq| source, memo, chart_link, taxkey, tax_id) | .
|
|
| 281 |
qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, ?, (SELECT link FROM chart WHERE accno=?), 0, (SELECT id FROM tax WHERE taxkey=0 LIMIT 1))|;
|
|
| 282 | 282 |
my @values = (conv_i($form->{"id_$i"}), $paymentaccno,
|
| 283 | 283 |
conv_date($form->{datepaid}),
|
| 284 | 284 |
$form->{"paid_$i"} * $ml * -1, $form->{source},
|
| 285 |
$form->{memo});
|
|
| 285 |
$form->{memo}, $paymentaccno);
|
|
| 286 | 286 |
do_query($form, $dbh, $query, @values); |
| 287 | 287 |
|
| 288 | 288 |
# add exchangerate difference if currency ne defaultcurrency |
| ... | ... | |
| 293 | 293 |
# exchangerate difference |
| 294 | 294 |
$query = |
| 295 | 295 |
qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount, | . |
| 296 |
qq| cleared, fx_transaction) | . |
|
| 297 |
qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, ?)|; |
|
| 296 |
qq| cleared, fx_transaction, chart_link, taxkey, tax_id) | .
|
|
| 297 |
qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, ?, (SELECT link FROM chart WHERE accno = ?), 0, (SELECT id FROM tax WHERE taxkey=0 LIMIT 1))|;
|
|
| 298 | 298 |
@values = (conv_i($form->{"id_$i"}), $paymentaccno,
|
| 299 | 299 |
conv_date($form->{datepaid}), ($amount * $ml * -1), '0',
|
| 300 |
'1'); |
|
| 300 |
'1', $paymentaccno);
|
|
| 301 | 301 |
do_query($form, $dbh, $query, @values); |
| 302 | 302 |
|
| 303 | 303 |
# gain/loss |
| ... | ... | |
| 309 | 309 |
my $accno_id = ($amount < 0) ? $fxgain_accno_id : $fxloss_accno_id; |
| 310 | 310 |
$query = |
| 311 | 311 |
qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, | . |
| 312 |
qq| amount, cleared, fx_transaction) | . |
|
| 313 |
qq|VALUES (?, ?, ?, ?, ?, ?)|; |
|
| 312 |
qq| amount, cleared, fx_transaction, chart_link, taxkey, tax_id) | .
|
|
| 313 |
qq|VALUES (?, ?, ?, ?, ?, ?, (SELECT link FROM chart WHERE id=?), 0, (SELECT id FROM tax WHERE taxkey=0 LIMIT 1))|;
|
|
| 314 | 314 |
@values = (conv_i($form->{"id_$i"}), $accno_id,
|
| 315 | 315 |
conv_date($form->{datepaid}), $amount * $ml * -1, '0',
|
| 316 |
'1'); |
|
| 316 |
'1', $accno_id);
|
|
| 317 | 317 |
do_query($form, $dbh, $query, @values); |
| 318 | 318 |
} |
| 319 | 319 |
} |
Auch abrufbar als: Unified diff
Verletzung von NOT NULL Constraints
Bei Zahlungen gab es noch ein paar Probleme durch NOT-NULL-Constraints.
Behebt Bug #2228.