SL/DB/Order.pm

   1 package SL::DB::Order;
   2
   3 use utf8;
   4 use strict;
   5
   6 use Carp;
   7 use DateTime;
   8 use List::Util qw(max);
   9
  10 use SL::DB::MetaSetup::Order;
  11 use SL::DB::Manager::Order;
  12 use SL::DB::Invoice;
  13 use SL::DB::Helper::LinkedRecords;
  14 use SL::DB::Helper::PriceTaxCalculator;
  15 use SL::DB::Helper::TransNumberGenerator;
  16 use SL::RecordLinks;
  17
  18 __PACKAGE__->meta->add_relationship(
  19   orderitems => {
  20     type         => 'one to many',
  21     class        => 'SL::DB::OrderItem',
  22     column_map   => { id => 'trans_id' },
  23     manager_args => {
  24       with_objects => [ 'part' ]
  25     }
  26   },
  27   periodic_invoices_config => {
  28     type                   => 'one to one',
  29     class                  => 'SL::DB::PeriodicInvoicesConfig',
  30     column_map             => { id => 'oe_id' },
  31   },
  32   periodic_invoices        => {
  33     type                   => 'one to many',
  34     class                  => 'SL::DB::PeriodicInvoice',
  35     column_map             => { id => 'oe_id' },
  36   },
  37   payment_term => {
  38     type       => 'one to one',
  39     class      => 'SL::DB::PaymentTerm',
  40     column_map => { payment_id => 'id' },
  41   },
  42 );
  43
  44 __PACKAGE__->meta->initialize;
  45
  46 # methods
  47
  48 sub items { goto &orderitems; }
  49
  50 sub type {
  51   my $self = shift;
  52
  53   return 'sales_order'       if $self->customer_id && ! $self->quotation;
  54   return 'purchase_order'    if $self->vendor_id   && ! $self->quotation;
  55   return 'sales_quotation'   if $self->customer_id &&   $self->quotation;
  56   return 'request_quotation' if $self->vendor_id   &&   $self->quotation;
  57
  58   return;
  59 }
  60
  61 sub is_type {
  62   return shift->type eq shift;
  63 }
  64
  65 sub invoices {
  66   my $self   = shift;
  67   my %params = @_;
  68
  69   if ($self->quotation) {
  70     return [];
  71   } else {
  72     return SL::DB::Manager::Invoice->get_all(
  73       query => [
  74         ordnumber => $self->ordnumber,
  75         @{ $params{query} || [] },
  76       ]
  77     );
  78   }
  79 }
  80
  81 sub abschlag_invoices {
  82   return shift()->invoices(query => [ abschlag => 1 ]);
  83 }
  84
  85 sub end_invoice {
  86   return shift()->invoices(query => [ abschlag => 0 ]);
  87 }
  88
  89 sub convert_to {
  90   my ($self, %params) = @_;
  91
  92   my $destination_type = lc(delete $params{destination_type});
  93
  94   if ($destination_type eq 'invoice') {
  95     $self->convert_to_invoice(%params);
  96   } else {
  97     croak("Unsupported destination type `$destination_type'");
  98   }
  99 }
 100
 101 sub convert_to_invoice {
 102   my ($self, %params) = @_;
 103
 104   if (!$params{ar_id}) {
 105     my $chart = SL::DB::Manager::Chart->get_all(query   => [ SL::DB::Manager::Chart->link_filter('AR') ],
 106                                                 sort_by => 'id ASC',
 107                                                 limit   => 1)->[0];
 108     croak("No AR chart found and no parameter `ar_id' given") unless $chart;
 109     $params{ar_id} = $chart->id;
 110   }
 111
 112   my $invoice;
 113   if (!$self->db->do_transaction(sub {
 114     $invoice = SL::DB::Invoice->new_from($self)->post(%params) || die;
 115     $self->link_to_record($invoice);
 116     $self->update_attributes(closed => 1);
 117     # die;
 118   })) {
 119     return undef;
 120   }
 121
 122   return $invoice;
 123 }
 124
 125 1;
 126
 127 __END__
 128
 129 =head1 NAME
 130
 131 SL::DB::Order - Order Datenbank Objekt.
 132
 133 =head1 FUNCTIONS
 134
 135 =head2 type
 136
 137 Returns one of the following string types:
 138
 139 =over 4
 140
 141 =item saes_order
 142
 143 =item purchase_order
 144
 145 =item sales_quotation
 146
 147 =item request_quotation
 148
 149 =back
 150
 151 =head2 is_type TYPE
 152
 153 Rreturns true if the order is of the given type.
 154
 155 =head1 BUGS
 156
 157 Nothing here yet.
 158
 159 =head1 AUTHOR
 160
 161 Sven Schöling <s.schoeling@linet-services.de>
 162
 163 =cut