Revision f28ef48d
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
| 570 | 570 |
do_query($form, $dbh, $query, @values); |
| 571 | 571 |
|
| 572 | 572 |
$query = |
| 573 |
qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate) | . |
|
| 574 |
qq|VALUES (?, (SELECT c.id FROM chart c WHERE c.accno = ?), ?, ?)|; |
|
| 573 |
qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, project_id) | .
|
|
| 574 |
qq|VALUES (?, (SELECT c.id FROM chart c WHERE c.accno = ?), ?, ?, ?)|;
|
|
| 575 | 575 |
@values = ($form->{id}, $form->{AP}, $amount,
|
| 576 |
conv_date($form->{"datepaid_$i"}));
|
|
| 576 |
conv_date($form->{"datepaid_$i"}),
|
|
| 577 |
conv_i($form->{"paid_project_id_$i"}));
|
|
| 577 | 578 |
do_query($form, $dbh, $query, @values); |
| 578 | 579 |
|
| 579 | 580 |
$query = |
| ... | ... | |
| 587 | 588 |
do_query($form, $dbh, $query, @values); |
| 588 | 589 |
|
| 589 | 590 |
$query = |
| 590 |
qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, source, memo) | . |
|
| 591 |
qq|VALUES (?, (SELECT c.id FROM chart c WHERE c.accno = ?), ?, ?, ?, ?)|; |
|
| 591 |
qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, source, memo, project_id) | .
|
|
| 592 |
qq|VALUES (?, (SELECT c.id FROM chart c WHERE c.accno = ?), ?, ?, ?, ?, ?)|;
|
|
| 592 | 593 |
@values = ($form->{id}, $accno, $form->{"paid_$i"},
|
| 593 | 594 |
$form->{"datepaid_$i"},
|
| 594 |
$form->{"source_$i"}, $form->{"memo_$i"});
|
|
| 595 |
$form->{"source_$i"}, $form->{"memo_$i"},
|
|
| 596 |
conv_i($form->{"paid_project_id_$i"}));
|
|
| 595 | 597 |
do_query($form, $dbh, $query, @values); |
| 596 | 598 |
|
| 597 | 599 |
# gain/loss |
| bin/mozilla/ap.pl | ||
|---|---|---|
| 193 | 193 |
$form->{"forex_$j"} = $form->{"exchangerate_$i"} =
|
| 194 | 194 |
$form->{acc_trans}{$key}->[$i - 1]->{exchangerate};
|
| 195 | 195 |
$form->{"AP_paid_$j"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}";
|
| 196 |
$form->{"paid_project_id_$j"} = $form->{acc_trans}{$key}->[$i - 1]->{project_id};
|
|
| 196 | 197 |
$form->{paidaccounts}++;
|
| 197 | 198 |
} else {
|
| 198 | 199 |
|
| ... | ... | |
| 637 | 638 |
<td> |
| 638 | 639 |
<table width=100%> |
| 639 | 640 |
<tr class=listheading> |
| 640 |
<th class=listheading colspan=6>| . $locale->text('Payments') . qq|</th>
|
|
| 641 |
<th class=listheading colspan=7>| . $locale->text('Payments') . qq|</th>
|
|
| 641 | 642 |
</tr> |
| 642 | 643 |
|; |
| 643 | 644 |
|
Auch abrufbar als: Unified diff
Kreditorenrechnungen: Projektnummern für jede Zeile bei den Zahlungsausgängen.