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::DB::MetaSetup::Vendor;
   8 use SL::DB::Manager::Vendor;
   9 use SL::DB::Helper::TransNumberGenerator;
  10 use SL::DB::Helper::CustomVariables (
  11   module      => 'CT',
  12   cvars_alias => 1,
  13 );
  14
  15 use SL::DB::VC;
  16
  17 __PACKAGE__->meta->add_relationship(
  18   shipto => {
  19     type         => 'one to many',
  20     class        => 'SL::DB::Shipto',
  21     column_map   => { id      => 'trans_id' },
  22     manager_args => { sort_by => 'lower(shipto.shiptoname)' },
  23     query_args   => [ module  => 'CT' ],
  24   },
  25   contacts => {
  26     type         => 'one to many',
  27     class        => 'SL::DB::Contact',
  28     column_map   => { id      => 'cp_cv_id' },
  29     manager_args => { sort_by => 'lower(contacts.cp_name)' },
  30   },
  31 );
  32
  33 __PACKAGE__->meta->initialize;
  34
  35 __PACKAGE__->before_save('_before_save_set_vendornumber');
  36
  37 sub _before_save_set_vendornumber {
  38   my ($self) = @_;
  39
  40   $self->create_trans_number if !defined $self->vendornumber || $self->vendornumber eq '';
  41   return 1;
  42 }
  43
  44 sub validate {
  45   my ($self) = @_;
  46
  47   my @errors;
  48   push @errors, $::locale->text('The vendor name is missing.') if !$self->name;
  49
  50   return @errors;
  51 }
  52
  53 sub displayable_name {
  54   my $self = shift;
  55
  56   return join ' ', grep $_, $self->vendornumber, $self->name;
  57 }
  58
  59 sub is_customer { 0 };
  60 sub is_vendor   { 1 };
  61 sub payment_terms { goto &payment }
  62
  63 1;