Revision d18d1460
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 1008 | 1008 |
|
| 1009 | 1009 |
$form->{creditremaining} = $form->{creditlimit};
|
| 1010 | 1010 |
$query = qq|SELECT SUM(a.amount - a.paid) FROM ap a WHERE a.vendor_id = ?|; |
| 1011 |
($form->{creditremaining}) -= selectfirst_array_query($form, $dbh, $query, $form->{vendor_id});
|
|
| 1011 |
my ($unpaid_invoices) = selectfirst_array_query($form, $dbh, $query, $form->{vendor_id});
|
|
| 1012 |
$form->{creditremaining} -= $unpaid_invoices;
|
|
| 1012 | 1013 |
|
| 1013 | 1014 |
$query = qq|SELECT o.amount, |
| 1014 | 1015 |
(SELECT e.sell FROM exchangerate e |
Auch abrufbar als: Unified diff
Kreditlimit von Lieferanten wurde nicht richtig berechnet, wenn neue Rechnungen angelegt wurden.