Revision 0d180400
Von Bernd Bleßmann vor mehr als 4 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 2071 | 2071 |
$main::lxdebug->leave_sub(); |
| 2072 | 2072 |
} |
| 2073 | 2073 |
|
| 2074 |
sub _get_shipto {
|
|
| 2075 |
$main::lxdebug->enter_sub(); |
|
| 2076 |
|
|
| 2077 |
my ($self, $dbh, $vc_id, $key) = @_; |
|
| 2078 |
|
|
| 2079 |
$key = "all_shipto" unless ($key); |
|
| 2080 |
|
|
| 2081 |
if ($vc_id) {
|
|
| 2082 |
# get shipping addresses |
|
| 2083 |
my $query = qq|SELECT * FROM shipto WHERE trans_id = ?|; |
|
| 2084 |
|
|
| 2085 |
$self->{$key} = selectall_hashref_query($self, $dbh, $query, $vc_id);
|
|
| 2086 |
|
|
| 2087 |
} else {
|
|
| 2088 |
$self->{$key} = [];
|
|
| 2089 |
} |
|
| 2090 |
|
|
| 2091 |
$main::lxdebug->leave_sub(); |
|
| 2092 |
} |
|
| 2093 |
|
|
| 2094 | 2074 |
sub _get_printers {
|
| 2095 | 2075 |
$main::lxdebug->enter_sub(); |
| 2096 | 2076 |
|
| ... | ... | |
| 2393 | 2373 |
my $self = shift; |
| 2394 | 2374 |
my %params = @_; |
| 2395 | 2375 |
|
| 2376 |
croak "get_lists: shipto is no longer supported" if $params{shipto};
|
|
| 2377 |
|
|
| 2396 | 2378 |
my $dbh = $self->get_standard_dbh(\%main::myconfig); |
| 2397 | 2379 |
my ($sth, $query, $ref); |
| 2398 | 2380 |
|
| 2399 | 2381 |
my ($vc, $vc_id); |
| 2400 |
if ($params{contacts} || $params{shipto}) {
|
|
| 2382 |
if ($params{contacts}) {
|
|
| 2401 | 2383 |
$vc = 'customer' if $self->{"vc"} eq "customer";
|
| 2402 | 2384 |
$vc = 'vendor' if $self->{"vc"} eq "vendor";
|
| 2403 | 2385 |
die "invalid use of get_lists, need 'vc'" unless $vc; |
| ... | ... | |
| 2408 | 2390 |
$self->_get_contacts($dbh, $vc_id, $params{"contacts"});
|
| 2409 | 2391 |
} |
| 2410 | 2392 |
|
| 2411 |
if ($params{"shipto"}) {
|
|
| 2412 |
$self->_get_shipto($dbh, $vc_id, $params{"shipto"});
|
|
| 2413 |
} |
|
| 2414 |
|
|
| 2415 | 2393 |
if ($params{"projects"} || $params{"all_projects"}) {
|
| 2416 | 2394 |
$self->_get_projects($dbh, $params{"all_projects"} ?
|
| 2417 | 2395 |
$params{"all_projects"} : $params{"projects"},
|
Auch abrufbar als: Unified diff
SL::Form: get_lists: Unterstützung für shipto entfernt
get_lists für shipto wird nirgends mehr verwendet, soweit ich das sehe.
Zudem hat _get_shipto module nicht berücksichtigt und da customer und ar
ids aus eigenen Sequenzen bekommen und somit zwei dieser ids für die
verschiedenen Tabellen gleich sein können, konnte es passieren, dass für einen
Kunden eine individuelle Lieferadresse aus einer Rechnung (für einen anderen
Kunden) zurückgelieferrt wird.