Revision 480c6709
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
SL/Common.pm | ||
---|---|---|
348 | 348 |
return 1; |
349 | 349 |
} |
350 | 350 |
|
351 |
sub get_shipto_by_id { |
|
352 |
$main::lxdebug->enter_sub(); |
|
353 |
|
|
354 |
my ($self, $myconfig, $form, $shipto_id, $prefix) = @_; |
|
355 |
|
|
356 |
$prefix ||= ""; |
|
357 |
|
|
358 |
my $dbh = $form->dbconnect($myconfig); |
|
359 |
|
|
360 |
my $query = qq|SELECT * FROM shipto WHERE shipto_id = ?|; |
|
361 |
my $ref = selectfirst_hashref_query($form, $dbh, $query, $shipto_id); |
|
362 |
|
|
363 |
map { $form->{"${prefix}${_}"} = $ref->{$_} } keys %{ $ref } if $ref; |
|
364 |
|
|
365 |
$dbh->disconnect(); |
|
366 |
|
|
367 |
$main::lxdebug->leave_sub(); |
|
368 |
} |
|
369 |
|
|
351 | 370 |
1; |
Auch abrufbar als: Unified diff
Beim Erstellen eines Lieferantenauftrages aus einem Kundenauftrag wird überprüft, ob eine Lieferadresse ausgewählt oder eingegeben war. Wenn ja, so wird der Benutzer gefragt, ob er diese Lieferadresse beibehalten will, damit der Lieferant direkt an den Kunden liefern kann.