Revision aed9138b
Von Sven Schöling vor mehr als 17 Jahren hinzugefügt
| SL/CP.pm | ||
|---|---|---|
| 158 | 158 |
my $buysell = $form->{vc} eq 'customer' ? "buy" : "sell";
|
| 159 | 159 |
my $arap = $form->{arap} eq "ar" ? "ar" : "ap";
|
| 160 | 160 |
|
| 161 |
my $curr_null = $form->{curreny} ? '' : ' OR a.curr IS NULL'; # fix: after sql-injection fix, curr is inserted as NULL, before that as ''
|
|
| 162 |
|
|
| 161 | 163 |
my $query = |
| 162 | 164 |
qq|SELECT a.id, a.invnumber, a.transdate, a.amount, a.paid, a.curr | . |
| 163 | 165 |
qq|FROM $arap a | . |
| 164 |
qq|WHERE (a.${vc}_id = ?) AND (a.curr = ?) AND NOT (a.amount = paid)|;
|
|
| 166 |
qq|WHERE (a.${vc}_id = ?) AND (a.curr = ? $curr_null) AND NOT (a.amount = paid)|;
|
|
| 165 | 167 |
qq|ORDER BY a.id|; |
| 166 | 168 |
my $sth = prepare_execute_query($form, $dbh, $query, |
| 167 | 169 |
conv_i($form->{"${vc}_id"}),
|
| bin/mozilla/cp.pl | ||
|---|---|---|
| 278 | 278 |
<td align=right> |
| 279 | 279 |
<table> |
| 280 | 280 |
$department |
| 281 |
<tr> |
|
| 282 |
<th align=right nowrap>| . $locale->text($form->{ARAP}) . qq|</th>
|
|
| 283 |
<td colspan=3><select name=$form->{ARAP}>$form->{"select$form->{ARAP}"}</select>
|
|
| 284 |
</td> |
|
| 285 |
<input type=hidden name="select$form->{ARAP}" value="$form->{"select$form->{ARAP}"}">
|
|
| 286 |
</tr> |
|
| 287 | 281 |
<tr> |
| 288 | 282 |
<th align=right nowrap>| . $locale->text('Account') . qq|</th>
|
| 289 | 283 |
<td colspan=3><select name=account>$form->{selectaccount}</select>
|
Auch abrufbar als: Unified diff
Zahlungseingang:
Das Buchungskonto wird nicht benutzt, und wird deshalb nicht mehr angezeigt.
Die Backendfunktion holt sich das benoetigte Konto sowieso aus den Rechnungen.
Ausserdem ein Bugfix:
currency ist bei alten Rechnungen auf '' gesetzt, bei neuen auf NULL (nach sql-injection fix)
also muss die Backend-Funktion zum auslesen beide Varianten beruecksichtigen