Revision a75836ca
Von Bernd Bleßmann vor mehr als 2 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
|
|
||
|
map { $form->{$_} = $form->format_amount($myconfig, $form->{$_} * 1) } qw(discount creditlimit);
|
||
|
|
||
|
$query = qq|SELECT * FROM shipto WHERE (trans_id = ?)|;
|
||
|
$query = qq|SELECT * FROM shipto WHERE (trans_id = ?) AND module LIKE 'CT'|;
|
||
|
$form->{SHIPTO} = selectall_hashref_query($form, $dbh, $query, $vc_id);
|
||
|
|
||
|
if ($vc eq 'customer') {
|
||
| bin/mozilla/do.pl | ||
|---|---|---|
|
$::form->{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{employee_id}, deleted => 0 ] ]);
|
||
|
$::form->{ALL_SALESMEN} = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{salesman_id}, deleted => 0 ] ]);
|
||
|
$::form->{ALL_SHIPTO} = SL::DB::Manager::Shipto->get_all_sorted(query => [
|
||
|
or => [ trans_id => $::form->{"$::form->{vc}_id"} * 1, and => [ shipto_id => $::form->{shipto_id} * 1, trans_id => undef ] ]
|
||
|
or => [ and => [ trans_id => $::form->{"$::form->{vc}_id"} * 1, module => 'CT' ], and => [ shipto_id => $::form->{shipto_id} * 1, trans_id => undef ] ]
|
||
|
]);
|
||
|
$::form->{ALL_CONTACTS} = SL::DB::Manager::Contact->get_all_sorted(query => [
|
||
|
or => [
|
||
| bin/mozilla/is.pl | ||
|---|---|---|
|
$TMPL_VAR{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{employee_id}, deleted => 0 ] ]);
|
||
|
$TMPL_VAR{ALL_SALESMEN} = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{salesman_id}, deleted => 0 ] ]);
|
||
|
$TMPL_VAR{ALL_SHIPTO} = SL::DB::Manager::Shipto->get_all_sorted(query => [
|
||
|
or => [ trans_id => $::form->{"$::form->{vc}_id"} * 1, and => [ shipto_id => $::form->{shipto_id} * 1, trans_id => undef ] ]
|
||
|
or => [ and => [ trans_id => $::form->{"$::form->{vc}_id"} * 1, module => 'CT' ], and => [ shipto_id => $::form->{shipto_id} * 1, trans_id => undef ] ]
|
||
|
]);
|
||
|
$TMPL_VAR{ALL_CONTACTS} = SL::DB::Manager::Contact->get_all_sorted(query => [
|
||
|
or => [
|
||
| bin/mozilla/oe.pl | ||
|---|---|---|
|
$TMPL_VAR->{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all_sorted(query => $employee_list_query_gen->('employee_id'));
|
||
|
$TMPL_VAR->{ALL_SALESMEN} = SL::DB::Manager::Employee->get_all_sorted(query => $employee_list_query_gen->('salesman_id'));
|
||
|
$TMPL_VAR->{ALL_SHIPTO} = SL::DB::Manager::Shipto->get_all_sorted(query => [
|
||
|
or => [ trans_id => $::form->{"$::form->{vc}_id"} * 1, and => [ shipto_id => $::form->{shipto_id} * 1, trans_id => undef ] ]
|
||
|
or => [ and => [ trans_id => $::form->{"$::form->{vc}_id"} * 1, module => 'CT' ], and => [ shipto_id => $::form->{shipto_id} * 1, trans_id => undef ] ]
|
||
|
]);
|
||
|
$TMPL_VAR->{ALL_CONTACTS} = SL::DB::Manager::Contact->get_all_sorted(query => [
|
||
|
or => [
|
||
Auch abrufbar als: Unified diff
Verkaufsbelege: Modul bei Lieferadressenauswahl und Detail-Anzeige beachten
Da Ids für Belege und Kunden gleich sein können, muss bei der Listung der
Lieferadresse zum Kunden darauf geachtet werden, dass das Modul auch 'CT'
ist.