PriceSource: editable Dokumentation
[kivitendo-erp.git] / SL / DB / Vendor.pm
1 package SL::DB::Vendor;
2
3 use strict;
4
5 use Rose::DB::Object::Helpers qw(as_tree);
6
7 use SL::DBUtils ();
8 use SL::DB::MetaSetup::Vendor;
9 use SL::DB::Manager::Vendor;
10 use SL::DB::Helper::IBANValidation;
11 use SL::DB::Helper::TransNumberGenerator;
12 use SL::DB::Helper::CustomVariables (
13   module      => 'CT',
14   cvars_alias => 1,
15 );
16
17 use SL::DB::VC;
18
19 __PACKAGE__->meta->add_relationship(
20   shipto => {
21     type         => 'one to many',
22     class        => 'SL::DB::Shipto',
23     column_map   => { id      => 'trans_id' },
24     manager_args => { sort_by => 'lower(shipto.shiptoname)' },
25     query_args   => [ module  => 'CT' ],
26   },
27   contacts => {
28     type         => 'one to many',
29     class        => 'SL::DB::Contact',
30     column_map   => { id      => 'cp_cv_id' },
31     manager_args => { sort_by => 'lower(contacts.cp_name)' },
32   },
33 );
34
35 __PACKAGE__->meta->initialize;
36
37 __PACKAGE__->before_save('_before_save_set_vendornumber');
38
39 sub _before_save_set_vendornumber {
40   my ($self) = @_;
41
42   $self->create_trans_number if !defined $self->vendornumber || $self->vendornumber eq '';
43   return 1;
44 }
45
46 sub validate {
47   my ($self) = @_;
48
49   my @errors;
50   push @errors, $::locale->text('The vendor name is missing.') if !$self->name;
51   push @errors, $self->validate_ibans;
52
53   return @errors;
54 }
55
56 sub displayable_name {
57   my $self = shift;
58
59   return join ' ', grep $_, $self->vendornumber, $self->name;
60 }
61
62 sub is_customer { 0 };
63 sub is_vendor   { 1 };
64 sub payment_terms { goto &payment }
65 sub number { goto &vendornumber }
66
67 sub last_used_ap_chart {
68   my ($self) = @_;
69
70   my $query = <<EOSQL;
71     SELECT c.id
72     FROM chart c
73     JOIN acc_trans ac ON (ac.chart_id = c.id)
74     JOIN ap a         ON (a.id        = ac.trans_id)
75     WHERE (a.vendor_id = ?)
76       AND (c.category = 'E')
77       AND (c.link !~ '_(paid|tax)')
78       AND (a.id IN (SELECT max(a2.id) FROM ap a2 WHERE a2.vendor_id = ?))
79     ORDER BY ac.acc_trans_id ASC
80     LIMIT 1
81 EOSQL
82
83   my ($chart_id) = SL::DBUtils::selectfirst_array_query($::form, $self->db->dbh, $query, ($self->id) x 2);
84
85   return if !$chart_id;
86   return SL::DB::Chart->load_cached($chart_id);
87 }
88
89 1;