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"}),
|
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