Revision 6f81bc1b
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/AR.pm | ||
|---|---|---|
| 434 | 434 |
$query = |
| 435 | 435 |
qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, project_id, taxkey) | . |
| 436 | 436 |
qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, | . |
| 437 |
qq| (SELECT taxkey_ FROM chart WHERE accno = ?))|; |
|
| 437 |
qq| (SELECT taxkey_id FROM chart WHERE accno = ?))|;
|
|
| 438 | 438 |
@values = (conv_i($form->{id}), $accno_ar, conv_i($amount),
|
| 439 |
conv_date($form->{"datepaid_$i"}), $project_id);
|
|
| 439 |
conv_date($form->{"datepaid_$i"}), $project_id, $accno_ar);
|
|
| 440 | 440 |
do_query($form, $dbh, $query, @values); |
| 441 | 441 |
|
| 442 | 442 |
# record payment |
| ... | ... | |
| 458 | 458 |
qq| (SELECT taxkey_id FROM chart WHERE accno = ?))|; |
| 459 | 459 |
@values = (conv_i($form->{id}), $accno, conv_i($form->{"paid_$i"}),
|
| 460 | 460 |
conv_date($form->{"datepaid_$i"}),
|
| 461 |
$form->{"source_$i"}, $form->{"memo_$i"}, $project_id);
|
|
| 461 |
$form->{"source_$i"}, $form->{"memo_$i"}, $project_id, $accno);
|
|
| 462 | 462 |
do_query($form, $dbh, $query, @values); |
| 463 | 463 |
|
| 464 | 464 |
# gain/loss |
Auch abrufbar als: Unified diff
Fehlende Parameter und falsche Spaltennamen.