Revision 3a6d52b8
Von Sven Schöling vor mehr als 12 Jahren hinzugefügt
| bin/mozilla/ct.pl | ||
|---|---|---|
| 314 | 314 |
my %myconfig = %main::myconfig; |
| 315 | 315 |
my $locale = $main::locale; |
| 316 | 316 |
|
| 317 |
$form->get_lists(employees => "ALL_EMPLOYEES", |
|
| 318 |
taxzones => "ALL_TAXZONES", |
|
| 317 |
$form->get_lists(taxzones => "ALL_TAXZONES", |
|
| 319 | 318 |
currencies => "ALL_CURRENCIES"); |
| 320 | 319 |
$form->get_pricegroup(\%myconfig, { all => 1 });
|
| 321 | 320 |
|
| 322 | 321 |
$form->get_lists(customers => { key => "ALL_SALESMAN_CUSTOMERS", business_is_salesman => 1 }) if $::lx_office_conf{features}->{vertreter};
|
| 322 |
$form->{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all(query => [ or => [ id => $::form->{FU_created_for_user}, deleted => 0 ] ]);
|
|
| 323 |
$form->{ALL_SALESMEN} = SL::DB::Manager::Employee->get_all(query => [ or => [ id => $::form->{salesman_id}, deleted => 0 ] ]);
|
|
| 324 |
$form->{USER} = SL::DB::Manager::Employee->current;
|
|
| 323 | 325 |
|
| 324 |
$form->{ALL_SALESMEN} = $form->{ALL_EMPLOYEES};
|
|
| 325 | 326 |
$form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
|
| 326 | 327 |
$form->{is_customer} = $form->{db} eq 'customer';
|
| 327 |
$form->{salesman_label} = sub { $_[0]->{name} ne "" ? $_[0]->{name} : $_[0]->{login} };
|
|
| 328 | 328 |
$form->{shipto_label} = \&_shipto_label;
|
| 329 | 329 |
$form->{contacts_label} = \&_contacts_label;
|
| 330 | 330 |
$form->{taxzone_id} = 0 if !$form->{id};
|
Auch abrufbar als: Unified diff
gelöschte Benutzer in ct/form_header ausblenden