Revert "Buchungsliste: Kontonamen werden nicht angezeigt."
[kivitendo-erp.git] / SL / Controller / CustomerVendor.pm
1 package SL::Controller::CustomerVendor;
2
3 use strict;
4 use parent qw(SL::Controller::Base);
5
6 use SL::JSON;
7 use SL::DBUtils;
8 use SL::Helper::Flash;
9
10 use SL::DB::Customer;
11 use SL::DB::Vendor;
12 use SL::DB::Business;
13 use SL::DB::Employee;
14 use SL::DB::Language;
15 use SL::DB::TaxZone;
16 use SL::DB::Note;
17 use SL::DB::PaymentTerm;
18 use SL::DB::Pricegroup;
19 use SL::DB::Contact;
20 use SL::DB::FollowUp;
21 use SL::DB::FollowUpLink;
22 use SL::DB::History;
23 use SL::DB::Currency;
24
25 # safety
26 __PACKAGE__->run_before(
27   sub {
28     $::auth->assert('customer_vendor_edit');
29   }
30 );
31
32 __PACKAGE__->run_before(
33   '_instantiate_args',
34   only => [
35     'save',
36     'save_and_ap_transaction',
37     'save_and_ar_transaction',
38     'save_and_close',
39     'save_and_invoice',
40     'save_and_order',
41     'save_and_quotation',
42     'save_and_rfq',
43     'delete',
44     'delete_contact',
45     'delete_shipto',
46   ]
47 );
48
49 __PACKAGE__->run_before(
50   '_load_customer_vendor',
51   only => [
52     'edit',
53     'update',
54     'ajaj_get_shipto',
55     'ajaj_get_contact',
56   ]
57 );
58 __PACKAGE__->run_before(
59   '_create_customer_vendor',
60   only => [
61     'add',
62   ]
63 );
64
65 sub action_add {
66   my ($self) = @_;
67
68   $self->_pre_render();
69   $self->render(
70     'customer_vendor/form',
71     title => ($self->is_vendor() ? $::locale->text('Add Vendor') : $::locale->text('Add Customer')),
72     %{$self->{template_args}}
73   );
74 }
75
76 sub action_edit {
77   my ($self) = @_;
78
79   $self->_pre_render();
80   $self->render(
81     'customer_vendor/form',
82     title => ($self->is_vendor() ? $::locale->text('Edit Vendor') : $::locale->text('Edit Customer')),
83     %{$self->{template_args}}
84   );
85 }
86
87 sub _save {
88   my ($self) = @_;
89
90   my $db = $self->{cv}->db;
91
92   $db->do_transaction(sub {
93     my $cvs_by_nr;
94     if ( $self->is_vendor() ) {
95       if ( $self->{cv}->vendornumber ) {
96         $cvs_by_nr = SL::DB::Manager::Vendor->get_all(query => [vendornumber => $self->{cv}->vendornumber]);
97       }
98     } else {
99       if ( $self->{cv}->customernumber ) {
100         $cvs_by_nr = SL::DB::Manager::Customer->get_all(query => [customernumber => $self->{cv}->customernumber]);
101       }
102     }
103
104     foreach my $entry (@{$cvs_by_nr}) {
105       if( $entry->id != $self->{cv}->id ) {
106         my $msg =
107           $self->is_vendor() ? $::locale->text('This vendor number is already in use.') : $::locale->text('This customer number is already in use.');
108
109         $::form->error($msg);
110       }
111     }
112
113     $self->{cv}->save(cascade => 1);
114
115     $self->{contact}->cp_cv_id($self->{cv}->id);
116     if( $self->{contact}->cp_name ne '' || $self->{contact}->cp_givenname ne '' ) {
117       $self->{contact}->save();
118     }
119
120     if( $self->{note}->subject ne '' && $self->{note}->body ne '' ) {
121
122       if ( !$self->{note_followup}->follow_up_date ) {
123         $::form->error($::locale->text('Date missing!'));
124       }
125
126       $self->{note}->trans_id($self->{cv}->id);
127       $self->{note}->save();
128
129       $self->{note_followup}->save();
130
131       $self->{note_followup_link}->follow_up_id($self->{note_followup}->id);
132       $self->{note_followup_link}->trans_id($self->{cv}->id);
133       $self->{note_followup_link}->save();
134
135       SL::Helper::Flash::flash_later('info', $::locale->text('Follow-Up saved.'));
136     }
137
138     $self->{shipto}->trans_id($self->{cv}->id);
139     if( $self->{shipto}->shiptoname ne '' ) {
140       $self->{shipto}->save();
141     }
142
143     my $snumbers = $self->is_vendor() ? 'vendornumber_'. $self->{cv}->vendornumber : 'customernumber_'. $self->{cv}->customernumber;
144     SL::DB::History->new(
145       trans_id => $self->{cv}->id,
146       snumbers => $snumbers,
147       employee_id => SL::DB::Manager::Employee->current->id,
148       addition => 'SAVED',
149     )->save();
150
151     if ( $::form->{delete_notes} ) {
152       foreach my $note_id (@{ $::form->{delete_notes} }) {
153         my $note = SL::DB::Note->new(id => $note_id)->load();
154         if ( $note->follow_up ) {
155           if ( $note->follow_up->follow_up_link ) {
156             $note->follow_up->follow_up_link->delete(cascade => 'delete');
157           }
158           $note->follow_up->delete(cascade => 'delete');
159         }
160         $note->delete(cascade => 'delete');
161       }
162     }
163   }) || die($db->error);
164
165 }
166
167 sub action_save {
168   my ($self) = @_;
169
170   $self->_save();
171
172   my @redirect_params = (
173     action => 'edit',
174     id     => $self->{cv}->id,
175     db     => ($self->is_vendor() ? 'vendor' : 'customer'),
176   );
177
178   if ( $self->{contact}->cp_id ) {
179     push(@redirect_params, contact_id => $self->{contact}->cp_id);
180   }
181
182   if ( $self->{shipto}->shipto_id ) {
183     push(@redirect_params, shipto_id => $self->{shipto}->shipto_id);
184   }
185
186   $self->redirect_to(@redirect_params);
187 }
188
189 sub action_save_and_close {
190   my ($self) = @_;
191
192   $self->_save();
193
194   my $msg = $self->is_vendor() ? $::locale->text('Vendor saved') : $::locale->text('Customer saved');
195   $::form->redirect($msg);
196 }
197
198 sub _transaction {
199   my ($self, $script) = @_;
200
201   $::auth->assert('general_ledger         | invoice_edit         | vendor_invoice_edit | ' .
202                  ' request_quotation_edit | sales_quotation_edit | sales_order_edit    | purchase_order_edit');
203
204   $self->_save();
205
206   my $callback = $::form->escape($::form->{callback}, 1);
207   my $name = $::form->escape($self->{cv}->name, 1);
208   my $db = $self->is_vendor() ? 'vendor' : 'customer';
209
210   my $url = $self->url_for(
211     controller => $script,
212     action     => 'add',
213     vc         => $db,
214     $db .'_id' => $self->{cv}->id,
215     $db        => $name,
216     type       => $::form->{type},
217     callback   => $callback,
218   );
219
220   print $::form->redirect_header($url);
221 }
222
223 sub action_save_and_ar_transaction {
224   my ($self) = @_;
225
226   $main::auth->assert('general_ledger');
227
228   $self->_transaction('ar.pl');
229 }
230
231 sub action_save_and_ap_transaction {
232   my ($self) = @_;
233
234   $main::auth->assert('general_ledger');
235
236   $self->_transaction('ap.pl');
237 }
238
239 sub action_save_and_invoice {
240   my ($self) = @_;
241
242   if ( $self->is_vendor() ) {
243     $::auth->assert('vendor_invoice_edit');
244   } else {
245     $::auth->assert('invoice_edit');
246   }
247
248   $::form->{type} = 'invoice';
249   $self->_transaction($self->is_vendor() ? 'ir.pl' : 'is.pl');
250 }
251
252 sub action_save_and_order {
253   my ($self) = @_;
254
255   if ( $self->is_vendor() ) {
256     $::auth->assert('purchase_order_edit');
257   } else {
258     $::auth->assert('sales_order_edit');
259   }
260
261   $::form->{type} = $self->is_vendor() ? 'purchase_order' : 'sales_order';
262   $self->_transaction('oe.pl');
263 }
264
265 sub action_save_and_rfq {
266   my ($self) = @_;
267
268   $::auth->assert('request_quotation_edit');
269
270   $::form->{type} = 'request_quotation';
271   $self->_transaction('oe.pl');
272 }
273
274 sub action_save_and_quotation {
275   my ($self) = @_;
276
277   $::auth->assert('sales_quotation_edit');
278
279   $::form->{type} = 'sales_quotation';
280   $self->_transaction('oe.pl');
281 }
282
283 sub action_delete {
284   my ($self) = @_;
285
286   my $db = $self->{cv}->db;
287
288   if( !$self->is_orphaned() ) {
289     $self->action_edit();
290   } else {
291
292     $db->do_transaction(sub {
293       $self->{cv}->delete(cascade => 1);
294
295       my $snumbers = $self->is_vendor() ? 'vendornumber_'. $self->{cv}->vendornumber : 'customernumber_'. $self->{cv}->customernumber;
296       SL::DB::History->new(
297         trans_id => $self->{cv}->id,
298         snumbers => $snumbers,
299         employee_id => SL::DB::Manager::Employee->current->id,
300         addition => 'DELETED',
301       )->save();
302     }) || die($db->error);
303
304     my $msg = $self->is_vendor() ? $::locale->text('Vendor deleted!') : $::locale->text('Customer deleted!');
305     $::form->redirect($msg);
306   }
307
308 }
309
310
311 sub action_delete_contact {
312   my ($self) = @_;
313
314   my $db = $self->{contact}->db;
315
316   if ( !$self->{contact}->cp_id ) {
317     SL::Helper::Flash::flash('error', $::locale->text('No contact selected to delete'));
318   } else {
319
320     $db->do_transaction(sub {
321       if ( $self->{contact}->used ) {
322         $self->{contact}->detach();
323         $self->{contact}->save();
324         SL::Helper::Flash::flash('info', $::locale->text('Contact is in use and was flagged invalid.'));
325       } else {
326         $self->{contact}->delete(cascade => 1);
327         SL::Helper::Flash::flash('info', $::locale->text('Contact deleted.'));
328       }
329     }) || die($db->error);
330
331     $self->{contact} = SL::DB::Contact->new();
332   }
333
334   $self->action_edit();
335 }
336
337 sub action_delete_shipto {
338   my ($self) = @_;
339
340   my $db = $self->{shipto}->db;
341
342   if ( !$self->{shipto}->shipto_id ) {
343     SL::Helper::Flash::flash('error', $::locale->text('No shipto selected to delete'));
344   } else {
345
346     $db->do_transaction(sub {
347       if ( $self->{shipto}->used ) {
348         $self->{shipto}->detach();
349         $self->{shipto}->save(cascade => 1);
350         SL::Helper::Flash::flash('info', $::locale->text('Shipto is in use and was flagged invalid.'));
351       } else {
352         $self->{shipto}->delete(cascade => 1);
353         SL::Helper::Flash::flash('info', $::locale->text('Shipto deleted.'));
354       }
355     }) || die($db->error);
356
357     $self->{shipto} = SL::DB::Shipto->new();
358   }
359
360   $self->action_edit();
361 }
362
363
364 sub action_search {
365   my ($self) = @_;
366
367   my @url_params = (
368     controller => 'ct.pl',
369     action => 'search',
370     db => $self->is_vendor() ? 'vendor' : 'customer',
371   );
372
373   if ( $::form->{callback} ) {
374     push(@url_params, callback => $::form->{callback});
375   }
376
377   $self->redirect_to(@url_params);
378 }
379
380
381 sub action_search_contact {
382   my ($self) = @_;
383
384   my $url = 'ct.pl?action=search_contact&db=customer';
385
386   if ( $::form->{callback} ) {
387     $url .= '&callback='. $::form->escape($::form->{callback});
388   }
389
390   print $::form->redirect_header($url);
391 }
392
393
394 sub action_get_delivery {
395   my ($self) = @_;
396
397   $::auth->assert('sales_all_edit');
398
399   my $dbh = $::form->get_standard_dbh();
400
401   my ($arap, $db, $qty_sign);
402   if ( $self->is_vendor() ) {
403     $arap = 'ap';
404     $db = 'vendor';
405     $qty_sign = ' * -1 AS qty';
406   } else {
407     $arap = 'ar';
408     $db = 'customer';
409     $qty_sign = '';
410   }
411
412   my $where = ' WHERE 1=1';
413   my @values;
414
415   if ( !$self->is_vendor() && $::form->{shipto_id} && $::form->{shipto_id} ne 'all' ) {
416     $where .= " AND ${arap}.shipto_id = ?";
417     push(@values, $::form->{shipto_id});
418   } else {
419     $where .= " AND ${arap}.${db}_id = ?";
420     push(@values, $::form->{id});
421   }
422
423   if ( $::form->{delivery_from} ) {
424     $where .= " AND ${arap}.transdate >= ?";
425     push(@values, conv_date($::form->{delivery_from}));
426   }
427
428   if ( $::form->{delivery_to} ) {
429     $where .= " AND ${arap}.transdate <= ?";
430     push(@values, conv_date($::form->{delivery_to}));
431   }
432
433   my $query =
434     "SELECT
435        s.shiptoname,
436        i.qty ${qty_sign},
437        ${arap}.id,
438        ${arap}.transdate,
439        ${arap}.invnumber,
440        ${arap}.ordnumber,
441        i.description,
442        i.unit,
443        i.sellprice,
444        oe.id AS oe_id,
445        invoice
446      FROM ${arap}
447
448      LEFT JOIN shipto s
449       ON ". ($arap eq 'ar' ? '(ar.shipto_id = s.shipto_id) ' : '(ap.id = s.trans_id) ') ."
450
451      LEFT JOIN invoice i
452        ON ${arap}.id = i.trans_id
453
454      LEFT JOIN parts p
455        ON p.id = i.parts_id
456
457      LEFT JOIN oe
458        ON (oe.ordnumber = ${arap}.ordnumber AND NOT ${arap}.ordnumber = '')
459
460      ${where}
461      ORDER BY ${arap}.transdate DESC LIMIT 15";
462
463   $self->{delivery} = selectall_hashref_query($::form, $dbh, $query, @values);
464
465   $self->render('customer_vendor/get_delivery', { layout => 0 });
466 }
467
468 sub action_ajaj_get_shipto {
469   my ($self) = @_;
470
471   my $data = {
472     map(
473       {
474         my $name = 'shipto'. $_;
475         $name => $self->{shipto}->$name;
476       }
477       qw(_id name department_1 department_2 street zipcode city country contact phone fax email)
478     )
479   };
480
481   $self->render(\SL::JSON::to_json($data), { type => 'json', process => 0 });
482 }
483
484 sub action_ajaj_get_contact {
485   my ($self) = @_;
486
487   my $data;
488
489   $data->{contact} = {
490     map(
491       {
492         my $name = 'cp_'. $_;
493
494         if ( $_ eq 'birthday' && $self->{contact}->$name ) {
495           $name => $self->{contact}->$name->to_lxoffice;
496         } else {
497           $name => $self->{contact}->$name;
498         }
499       }
500       qw(
501         id gender abteilung title position givenname name email phone1 phone2 fax mobile1 mobile2
502         satphone satfax project street zipcode city privatphone privatemail birthday
503       )
504     )
505   };
506
507   $data->{contact_cvars} = {
508     map(
509       {
510         if ( $_->config->type eq 'number' ) {
511           $_->config->name => $::form->format_amount(\%::myconfig, $_->value, -2);
512         } else {
513           $_->config->name => $_->value;
514         }
515       }
516       grep(
517         { $_->is_valid; }
518         @{$self->{contact}->cvars_by_config}
519       )
520     )
521   };
522
523   $self->render(\SL::JSON::to_json($data), { type => 'json', process => 0 });
524 }
525
526 sub action_ajaj_customer_autocomplete {
527   my ($self, %params) = @_;
528
529   my $limit = $::form->{limit} || 20;
530   my $type  = $::form->{type}  || {};
531   my $query = { ilike => '%'. $::form->{term} .'%' };
532
533   my @filter;
534   push(
535     @filter,
536     $::form->{column} ? ($::form->{column} => $query) : (or => [ customernumber => $query, name => $query ])
537   );
538
539   my $customers = SL::DB::Manager::Customer->get_all(query => [ @filter ], limit => $limit);
540   my $value_col = $::form->{column} || 'name';
541
542   my $data = [
543     map(
544       {
545         {
546           value => $_->can($value_col)->($_),
547           label => $_->displayable_name,
548           id    => $_->id,
549           customernumber => $_->customernumber,
550           name  => $_->name,
551         }
552       }
553       @{$customers}
554     )
555   ];
556
557   $self->render(\SL::JSON::to_json($data), { layout => 0, type => 'json' });
558 }
559
560 sub is_vendor {
561   return $::form->{db} eq 'vendor';
562 }
563
564 sub is_customer {
565   return $::form->{db} eq 'customer';
566 }
567
568 sub is_orphaned {
569   my ($self) = @_;
570
571   if ( defined($self->{_is_orphaned}) ) {
572     return $self->{_is_orphaned};
573   }
574
575   my $arap      = $self->is_vendor ? 'ap' : 'ar';
576   my $num_args  = 2;
577
578   my $cv = $self->is_vendor ? 'vendor' : 'customer';
579
580   my $query =
581    'SELECT a.id
582     FROM '. $arap .' AS a
583     JOIN '. $cv .' ct ON (a.'. $cv .'_id = ct.id)
584     WHERE ct.id = ?
585
586     UNION
587
588     SELECT a.id
589     FROM oe a
590     JOIN '. $cv .' ct ON (a.'. $cv .'_id = ct.id)
591     WHERE ct.id = ?';
592
593
594   if ( $self->is_vendor ) {
595     $query .=
596      ' UNION
597       SELECT 1 FROM makemodel mm WHERE mm.make = ?';
598     $num_args++;
599   }
600
601   my ($dummy) = selectrow_query($::form, $::form->get_standard_dbh(), $query, (conv_i($self->{cv}->id)) x $num_args);
602
603   return $self->{_is_orphaned} = !$dummy;
604 }
605
606 sub _instantiate_args {
607   my ($self) = @_;
608
609   my $curr_employee = SL::DB::Manager::Employee->current;
610
611   if ( $::form->{cv}->{id} ) {
612     if ( $self->is_vendor() ) {
613       $self->{cv} = SL::DB::Vendor->new(id => $::form->{cv}->{id})->load();
614     } else {
615       $self->{cv} = SL::DB::Customer->new(id => $::form->{cv}->{id})->load();
616     }
617   } else {
618     if ( $self->is_vendor() ) {
619       $self->{cv} = SL::DB::Vendor->new();
620     } else {
621       $self->{cv} = SL::DB::Customer->new();
622     }
623   }
624   $self->{cv}->assign_attributes(%{$::form->{cv}});
625
626   if ( $self->is_customer() && $::form->{cv}->{taxincluded_checked} eq '' ) {
627     $self->{cv}->taxincluded_checked(undef);
628   }
629
630
631   foreach my $cvar (@{$self->{cv}->cvars_by_config()}) {
632     my $value = $::form->{cv_cvars}->{$cvar->config->name};
633
634     if ( $cvar->config->type eq 'number' ) {
635       $value = $::form->parse_amount(\%::myconfig, $value);
636     }
637
638     $cvar->value($value);
639   }
640
641   if ( $::form->{note}->{id} ) {
642     $self->{note} = SL::DB::Note->new(id => $::form->{note}->{id})->load();
643     $self->{note_followup} = $self->{note}->follow_up;
644     $self->{note_followup_link} = $self->{note_followup}->follow_up_link;
645   } else {
646     $self->{note} = SL::DB::Note->new();
647     $self->{note_followup} = SL::DB::FollowUp->new();
648     $self->{note_followup_link} = SL::DB::FollowUpLink->new();
649   }
650
651   $self->{note}->assign_attributes(%{$::form->{note}});
652   $self->{note}->created_by($curr_employee->id);
653   $self->{note}->trans_module('ct');
654
655   $self->{note_followup}->assign_attributes(%{$::form->{note_followup}});
656   $self->{note_followup}->note($self->{note});
657   $self->{note_followup}->created_by($curr_employee->id);
658
659   $self->{note_followup_link}->trans_type($self->is_vendor() ? 'vendor' : 'customer');
660   $self->{note_followup_link}->trans_info($self->{cv}->name);
661
662   if ( $::form->{shipto}->{shipto_id} ) {
663     $self->{shipto} = SL::DB::Shipto->new(shipto_id => $::form->{shipto}->{shipto_id})->load();
664   } else {
665     $self->{shipto} = SL::DB::Shipto->new();
666   }
667   $self->{shipto}->assign_attributes(%{$::form->{shipto}});
668   $self->{shipto}->module('CT');
669
670   if ( $::form->{contact}->{cp_id} ) {
671     $self->{contact} = SL::DB::Contact->new(cp_id => $::form->{contact}->{cp_id})->load();
672   } else {
673     $self->{contact} = SL::DB::Contact->new();
674   }
675   $self->{contact}->assign_attributes(%{$::form->{contact}});
676
677   foreach my $cvar (@{$self->{contact}->cvars_by_config()}) {
678     my $value = $::form->{contact_cvars}->{$cvar->config->name};
679
680     if ( $cvar->config->type eq 'number' ) {
681       $value = $::form->parse_amount(\%::myconfig, $value);
682     }
683
684     $cvar->value($value);
685   }
686 }
687
688 sub _load_customer_vendor {
689   my ($self) = @_;
690
691   if ( $self->is_vendor() ) {
692     $self->{cv} = SL::DB::Vendor->new(id => $::form->{id})->load();
693   } else {
694     $self->{cv} = SL::DB::Customer->new(id => $::form->{id})->load();
695   }
696
697   if ( $::form->{note_id} ) {
698     $self->{note} = SL::DB::Note->new(id => $::form->{note_id})->load();
699     $self->{note_followup} = $self->{note}->follow_up;
700     $self->{note_followup_link} = $self->{note_followup}->follow_up_link;
701   } else {
702     $self->{note} = SL::DB::Note->new();
703     $self->{note_followup} = SL::DB::FollowUp->new();
704     $self->{note_followup_link} = SL::DB::FollowUpLink->new();
705   }
706
707   if ( $::form->{shipto_id} ) {
708     $self->{shipto} = SL::DB::Shipto->new(shipto_id => $::form->{shipto_id})->load();
709
710     if ( $self->{shipto}->trans_id != $self->{cv}->id ) {
711       die($::locale->text('Error'));
712     }
713   } else {
714     $self->{shipto} = SL::DB::Shipto->new();
715   }
716
717   if ( $::form->{contact_id} ) {
718     $self->{contact} = SL::DB::Contact->new(cp_id => $::form->{contact_id})->load();
719
720     if ( $self->{contact}->cp_cv_id != $self->{cv}->id ) {
721       die($::locale->text('Error'));
722     }
723   } else {
724     $self->{contact} = SL::DB::Contact->new();
725   }
726 }
727
728 sub _create_customer_vendor {
729   my ($self) = @_;
730
731   if ( $self->is_vendor() ) {
732     $self->{cv} = SL::DB::Vendor->new();
733   } else {
734     $self->{cv} = SL::DB::Customer->new();
735   }
736   $self->{cv}->currency_id($::instance_conf->get_currency_id());
737
738   $self->{note} = SL::DB::Note->new();
739
740   $self->{note_followup} = SL::DB::FollowUp->new();
741
742   $self->{shipto} = SL::DB::Shipto->new();
743
744   $self->{contact} = SL::DB::Contact->new();
745 }
746
747 sub _pre_render {
748   my ($self) = @_;
749
750   my $dbh = $::form->get_standard_dbh();
751
752   my $query;
753
754   $self->{all_business} = SL::DB::Manager::Business->get_all();
755
756   $self->{all_employees} = SL::DB::Manager::Employee->get_all(query => [ deleted => 0 ]);
757
758   $query =
759     'SELECT DISTINCT(greeting)
760      FROM customer
761      WHERE greeting IS NOT NULL AND greeting != \'\'
762      UNION
763        SELECT DISTINCT(greeting)
764        FROM vendor
765        WHERE greeting IS NOT NULL AND greeting != \'\'
766      ORDER BY greeting';
767   $self->{all_greetings} = [
768     map(
769       { $_->{greeting}; }
770       selectall_hashref_query($::form, $dbh, $query)
771     )
772   ];
773
774   $query =
775     'SELECT DISTINCT(cp_title) AS title
776      FROM contacts
777      WHERE cp_title IS NOT NULL AND cp_title != \'\'
778      ORDER BY cp_title';
779   $self->{all_titles} = [
780     map(
781       { $_->{title}; }
782       selectall_hashref_query($::form, $dbh, $query)
783     )
784   ];
785
786   $self->{all_currencies} = SL::DB::Manager::Currency->get_all();
787
788   $self->{all_languages} = SL::DB::Manager::Language->get_all();
789
790   $self->{all_taxzones} = SL::DB::Manager::TaxZone->get_all();
791
792   if ( $::instance_conf->get_vertreter() ) {
793     $query =
794       'SELECT id
795        FROM business
796        WHERE salesman';
797     my $business_ids = [
798       map(
799         { $_->{id}; }
800         selectall_hashref_query($::form, $dbh, $query)
801       )
802     ];
803
804     if ( $business_ids->[0] ) {
805       $self->{all_salesman_customers} = SL::DB::Manager::Customer->get_all(query => [business_id => $business_ids]);
806     } else {
807       $self->{all_salesman_customers} = [];
808     }
809   } else {
810     $self->{all_salesmen} = SL::DB::Manager::Employee->get_all(query => [ or => [ id => $self->{cv}->salesman_id,  deleted => 0 ] ]);
811   }
812
813   $self->{all_payment_terms} = SL::DB::Manager::PaymentTerm->get_all();
814
815   $self->{all_delivery_terms} = SL::DB::Manager::DeliveryTerm->get_all();
816
817   $self->{all_pricegroups} = SL::DB::Manager::Pricegroup->get_all();
818
819   $query =
820     'SELECT DISTINCT(cp_abteilung) AS department
821      FROM contacts
822      WHERE cp_abteilung IS NOT NULL AND cp_abteilung != \'\'
823      ORDER BY cp_abteilung';
824   $self->{all_departments} = [
825     map(
826       { $_->{department}; }
827       selectall_hashref_query($::form, $dbh, $query)
828     )
829   ];
830
831   $self->{contacts} = $self->{cv}->contacts;
832   $self->{contacts} ||= [];
833
834   $self->{shiptos} = $self->{cv}->shipto;
835   $self->{shiptos} ||= [];
836
837   $self->{notes} = SL::DB::Manager::Note->get_all(
838     query => [
839       trans_id => $self->{cv}->id,
840       trans_module => 'ct',
841     ],
842     with_objects => ['follow_up'],
843   );
844
845   $self->{template_args} ||= {};
846
847   $::request->{layout}->add_javascripts('autocomplete_customer.js');
848   $::request->{layout}->add_javascripts('kivi.CustomerVendor.js');
849 }
850
851 1;