From 42ea98b4883178877c2bd47a032cea5891998e5a Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Wed, 12 Jan 2011 16:24:11 +0100 Subject: [PATCH] Umwandeln von Angebot/Auftrag in Rechnung implementiert Conflicts: SL/DB/Order.pm --- SL/DB/Order.pm | 41 ++++++++++++++++++++++++++++++++++++++++- 1 file changed, 40 insertions(+), 1 deletion(-) diff --git a/SL/DB/Order.pm b/SL/DB/Order.pm index c81deae7d..ebf099442 100644 --- a/SL/DB/Order.pm +++ b/SL/DB/Order.pm @@ -3,7 +3,9 @@ package SL::DB::Order; use utf8; use strict; -use SL::RecordLinks; +use Carp; +use DateTime; +use List::Util qw(max); use SL::DB::MetaSetup::Order; use SL::DB::Manager::Order; @@ -11,6 +13,7 @@ use SL::DB::Invoice; use SL::DB::Helper::LinkedRecords; use SL::DB::Helper::PriceTaxCalculator; use SL::DB::Helper::TransNumberGenerator; +use SL::RecordLinks; __PACKAGE__->meta->add_relationship( orderitems => { @@ -83,6 +86,42 @@ sub end_invoice { return shift()->invoices(query => [ abschlag => 0 ]); } +sub convert_to { + my ($self, %params) = @_; + + my $destination_type = lc(delete $params{destination_type}); + + if ($destination_type eq 'invoice') { + $self->convert_to_invoice(%params); + } else { + croak("Unsupported destination type `$destination_type'"); + } +} + +sub convert_to_invoice { + my ($self, %params) = @_; + + if (!$params{ar_id}) { + my $chart = SL::DB::Manager::Chart->get_all(query => [ SL::DB::Manager::Chart->link_filter('AR') ], + sort_by => 'id ASC', + limit => 1)->[0]; + croak("No AR chart found and no parameter `ar_id' given") unless $chart; + $params{ar_id} = $chart->id; + } + + my $invoice; + if (!$self->db->do_transaction(sub { + $invoice = SL::DB::Invoice->new_from($self)->post(%params) || die; + $self->link_to_record($invoice); + $self->update_attributes(closed => 1); + # die; + })) { + return undef; + } + + return $invoice; +} + 1; __END__ -- 2.20.1