Revision 5902705e
Von Bernd Bleßmann vor fast 9 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 1932 | 1932 |
($form->{"delivery_${vc}_string"}) = selectrow_query($form, $dbh, qq|SELECT name FROM customer WHERE id = ?|, $id);
|
| 1933 | 1933 |
} |
| 1934 | 1934 |
|
| 1935 |
# get shipto |
|
| 1936 |
$query = qq|SELECT * FROM shipto WHERE (trans_id = ?) AND (module = 'AR')|; |
|
| 1937 |
$ref = selectfirst_hashref_query($form, $dbh, $query, $id); |
|
| 1938 |
delete($ref->{id});
|
|
| 1939 |
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
|
| 1940 |
|
|
| 1935 | 1941 |
# get printed, emailed |
| 1936 | 1942 |
$query = qq|SELECT printed, emailed, spoolfile, formname FROM status WHERE trans_id = ?|; |
| 1937 | 1943 |
$sth = prepare_execute_query($form, $dbh, $query, $id); |
Auch abrufbar als: Unified diff
Verkaufsrechnungen: Beim Öffnen individuelle Lieferadresse laden.