Revision 9b67d27c
Von Sven Schöling vor mehr als 12 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 327 | 327 |
my @old_project_ids = ($form->{"globalproject_id"}, grep { $_ } map { $form->{"project_id_$_"} } 1..$form->{"rowcount"});
|
| 328 | 328 |
|
| 329 | 329 |
my $vc = $form->{vc} eq "customer" ? "customers" : "vendors";
|
| 330 |
$form->get_lists("shipto" => "ALL_SHIPTO",
|
|
| 331 |
"projects" => { "key" => "ALL_PROJECTS",
|
|
| 330 |
$form->get_lists("projects" => { "key" => "ALL_PROJECTS",
|
|
| 332 | 331 |
"all" => 0, |
| 333 | 332 |
"old_id" => \@old_project_ids }, |
| 334 | 333 |
"taxzones" => "ALL_TAXZONES", |
| ... | ... | |
| 342 | 341 |
# label subs |
| 343 | 342 |
$TMPL_VAR{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all(query => [ or => [ id => $::form->{employee_id}, deleted => 0 ] ]);
|
| 344 | 343 |
$TMPL_VAR{ALL_SALESMEN} = SL::DB::Manager::Employee->get_all(query => [ or => [ id => $::form->{salesman_id}, deleted => 0 ] ]);
|
| 344 |
$TMPL_VAR{ALL_SHIPTO} = SL::DB::Manager::Shipto->get_all(query => [
|
|
| 345 |
or => [ trans_id => $::form->{"$::form->{vc}_id"} * 1, shipto_id => $::form->{shipto_id} * 1 ]
|
|
| 346 |
]); |
|
| 345 | 347 |
$TMPL_VAR{ALL_CONTACTS} = SL::DB::Manager::Contact->get_all(query => [
|
| 346 | 348 |
or => [ |
| 347 | 349 |
cp_cv_id => $::form->{"$::form->{vc}_id"} * 1,
|
| ... | ... | |
| 352 | 354 |
] |
| 353 | 355 |
]); |
| 354 | 356 |
$TMPL_VAR{sales_employee_labels} = sub { $_[0]->{name} || $_[0]->{login} };
|
| 355 |
$TMPL_VAR{shipto_labels} = sub { join "; ", grep { $_ } map { $_[0]->{"shipto${_}" } } qw(name department_1 street city) };
|
|
| 356 | 357 |
$TMPL_VAR{department_labels} = sub { "$_[0]->{description}--$_[0]->{id}" };
|
| 357 | 358 |
|
| 358 | 359 |
# vendor/customer |
Auch abrufbar als: Unified diff
Lieferadressen, gelöschte aber ausgewählte weiterhin einblenden.