Revision c878cea9
Von Bernd Bleßmann vor mehr als 6 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 2130 | 2130 |
my $payment_id; |
| 2131 | 2131 |
|
| 2132 | 2132 |
# get customer |
| 2133 |
my $where = ''; |
|
| 2134 |
if ($cid) {
|
|
| 2135 |
$where .= 'AND c.id = ?'; |
|
| 2136 |
push @values, $cid; |
|
| 2137 |
} |
|
| 2133 | 2138 |
$query = |
| 2134 | 2139 |
qq|SELECT |
| 2135 | 2140 |
c.id AS customer_id, c.name AS customer, c.discount as customer_discount, c.creditlimit, |
| ... | ... | |
| 2141 | 2146 |
FROM customer c |
| 2142 | 2147 |
LEFT JOIN business b ON (b.id = c.business_id) |
| 2143 | 2148 |
LEFT JOIN currencies cu ON (c.currency_id=cu.id) |
| 2144 |
WHERE c.id = ?|; |
|
| 2145 |
push @values, $cid; |
|
| 2149 |
WHERE 1 = 1 $where|; |
|
| 2146 | 2150 |
$ref = selectfirst_hashref_query($form, $dbh, $query, @values); |
| 2147 | 2151 |
|
| 2148 | 2152 |
delete $ref->{salesman_id} if !$ref->{salesman_id};
|
Auch abrufbar als: Unified diff
IS::get_customer: ersten Kunden zurückliefern, wenn keine Id vorgegeben ist.
Durch Umstellung auf den Customer/Vendor-Picker der Belegmasken konnte der
Picker unter bestimmten Umständen initial leer sein. Dadurch wurden dann bei
einem Wechsel von leer auf einen Kunden nicht alle Form-Variablen richtig
gefüllt (z.B. taxzone_id) und z.B. ein Lieferschein konnte nicht gespeichert
werden.
Das jetzige Verhalten gleicht dann dem von IR::get_vendor.