projekt kivitendo

sub convert_to_invoice {

my ($self, %params) = @_;

croak("Conversion to invoices is only supported for sales records") unless $self->customer_id;

my $invoice;

if (!$self->db->with_transaction(sub {

require SL::DB::Invoice;

$invoice = SL::DB::Invoice->new_from($self)->post(%params) || die;

$self->link_to_record($invoice);

foreach my $item (@{ $invoice->items }) {

foreach (qw(delivery_order_items)) { # expand if needed (delivery_order_items)

if ($item->{"converted_from_${_}_id"}) {

die unless $item->{id};

RecordLinks->create_links('mode' => 'ids',

'from_table' => $_,

'from_ids' => $item->{"converted_from_${_}_id"},

'to_table' => 'invoice',

'to_id' => $item->{id},

) || die;

delete $item->{"converted_from_${_}_id"};

}

}

}

$self->update_attributes(closed => 1);

1;

})) {

return undef;

}

return $invoice;

}

=item C<convert_to_invoice %params>

Creates a new invoice with C<$self> as the basis by calling

L<SL::DB::Invoice::new_from>. That invoice is posted, and C<$self> is

linked to the new invoice via L<SL::DB::RecordLink>. C<$self>'s

C<closed> attribute is set to C<true>, and C<$self> is saved.

The arguments in C<%params> are passed to L<SL::DB::Invoice::post>.

Returns the new invoice instance on success and C<undef> on

failure. The whole process is run inside a transaction. On failure

nothing is created or changed in the database.

At the moment only sales delivery orders can be converted.

use Test::More tests => 29;

use strict;

use lib 't';

use utf8;

use Support::TestSetup;

use Carp;

use Data::Dumper;

use Support::TestSetup;

use Test::Exception;

use List::Util qw(max);

use SL::DB::Buchungsgruppe;

use SL::DB::Currency;

use SL::DB::Customer;

use SL::DB::Employee;

use SL::DB::Invoice;

use SL::DB::Order;

use SL::DB::DeliveryOrder;

use SL::DB::Part;

use SL::DB::Unit;

use SL::DB::TaxZone;

my ($customer, $currency_id, $buchungsgruppe, $employee, $vendor, $taxzone, $buchungsgruppe7, $tax, $tax7,

$unit, @parts);

sub clear_up {

foreach (qw(DeliveryOrderItem DeliveryOrder InvoiceItem Invoice Part Customer Vendor Employee Department PaymentTerm)) {

"SL::DB::Manager::${_}"->delete_all(all => 1);

}

};

sub reset_state {

my %params = @_;

clear_up();

$buchungsgruppe = SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 19%', %{ $params{buchungsgruppe} }) || croak "No accounting group 19\%";

$buchungsgruppe7 = SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 7%', %{ $params{buchungsgruppe} }) || croak "No accounting group 7\%";

$taxzone = SL::DB::Manager::TaxZone->find_by( description => 'Inland') || croak "No taxzone";

$tax = SL::DB::Manager::Tax->find_by(taxkey => 3, rate => 0.19, %{ $params{tax} }) || croak "No tax for 19\%";

$tax7 = SL::DB::Manager::Tax->find_by(taxkey => 2, rate => 0.07) || croak "No tax for 7\%";

$unit = SL::DB::Manager::Unit->find_by(name => 'kg', %{ $params{unit} }) || croak "No unit";

$currency_id = $::instance_conf->get_currency_id;

$customer = SL::DB::Customer->new(

name => '520484567dfaedc9e60fc',

currency_id => $currency_id,

taxzone_id => $taxzone->id,

%{ $params{customer} }

)->save;

# some od.rnr real anonym data

my $employee_bk = SL::DB::Employee->new(

'id' => 31915,

'login' => 'barbuschka.kappes',

'name' => 'Barbuschka Kappes',

)->save;

my $department_do = SL::DB::Department->new(

'description' => 'Maisenhaus-Versand',

'id' => 32149,

'itime' => undef,

'mtime' => undef

)->save;

my $payment_do = SL::DB::PaymentTerm->new(

'description' => '14Tage 2%Skonto, 30Tage netto',

'description_long' => "Innerhalb von 14 Tagen abzüglich 2 % Skonto, innerhalb von 30 Tagen rein netto.|Bei einer Zahlung bis zum <%skonto_date%> gewähren wir 2 % Skonto (EUR <%skonto_amount%>) entspricht EUR <%total_wo_skonto%>.Bei einer Zahlung bis zum <%netto_date%> ist der fällige Betrag in Höhe von <%total%> <%currency%> zu überweisen.",

'id' => 11276,

'itime' => undef,

'mtime' => undef,

'percent_skonto' => '0.02',

'ranking' => undef,

'sortkey' => 4,

'terms_netto' => 30,

'auto_calculation' => undef,

'terms_skonto' => 14

)->save;

# two real parts

@parts = ();

push @parts, SL::DB::Part->new(

'id' => 26321,

'image' => '',

'lastcost' => '49.95000',

'listprice' => '0.00000',

'onhand' => '5.00000',

'partnumber' => 'v-519160549',

#'partsgroup_id' => 111645,

'rop' => '0',

'sellprice' => '242.20000',

#'warehouse_id' => 64702,

'weight' => '0.79',

description => "Nussbaum, Gr.5, Unterfilz weinrot, genietet[[Aufschnittbreite: 11,0, Kernform: US]]\"" ,

buchungsgruppen_id => $buchungsgruppe->id,

unit => $unit->name,

id => 26321,

)->save;

push @parts, SL::DB::Part->new(

'description' => "[[0640]]Flügel Hammerstiele bestehend aus:

70 Stielen Standard in Weißbuche und

20 Stielen Diskant abgekehlt in Weißbuche

mit Röllchen aus Synthetikleder,

Kapseln mit Yamaha Profil, Kerbenabstand 3,6 mm mit eingedrehten Abnickschrauben",

'id' => 25505,

'lastcost' => '153.00000',

'listprice' => '0.00000',

'onhand' => '9.00000',

'partnumber' => 'v-120160086',

# 'partsgroup_id' => 111639,

'rop' => '0',

'sellprice' => '344.30000',

'weight' => '0.9',

buchungsgruppen_id => $buchungsgruppe->id,

unit => $unit->name,

)->save;

}

sub new_delivery_order {

my %params = @_;

return SL::DB::DeliveryOrder->new(

currency_id => $currency_id,

taxzone_id => $taxzone->id,

%params,

)->save;

}

Support::TestSetup::login();

reset_state();

# we create L20199 with two items

my $do1 = new_delivery_order('department_id' => 32149,

'donumber' => 'L20199',

'employee_id' => 31915,

'intnotes' => 'Achtung: Neue Lieferadresse ab 16.02.2015 in der Carl-von-Ossietzky-Str.32! 13.02.2015/MH

Steinway-Produkte (201...) immer plus 25% dazu rechnen / BK 13.02.2014',

'ordnumber' => 'A16399',

'payment_id' => 11276,

'salesman_id' => 31915,

'shippingpoint' => 'Maisenhaus',

# 'shipto_id' => 451463,

'is_sales' => 'true',

'shipvia' => 'DHL, Versand am 06.03.2015, 1 Paket 17,00 kg',

'taxzone_id' => 4,

'closed' => undef,

# 'currency_id' => 1,

'cusordnumber' => 'b84da',

'customer_id' => $customer->id,

'id' => 464003,

);

my $do1_item1 = SL::DB::DeliveryOrderItem->new('delivery_order_id' => 464003,

'description' => "Flügel Hammerkopf bestehend aus:

Bass/Diskant 26/65 Stück, Gesamtlänge 80/72, Bohrlänge 56/48

Nussbaum, Gr.5, Unterfilz weinrot, genietet[[Aufschnittbreite: 11,0, Kernform: US]]",

'discount' => '0.25',

'id' => 144736,

'lastcost' => '49.95000',

'longdescription' => '',

'marge_price_factor' => 1,

'mtime' => undef,

'ordnumber' => 'A16399',

'parts_id' => 26321,

'position' => 1,

'price_factor' => 1,

'qty' => '2.00000',

'sellprice' => '242.20000',

'transdate' => '06.03.2015',

'unit' => 'kg')->save;

my $do1_item2 = SL::DB::DeliveryOrderItem->new('delivery_order_id' => 464003,

'description' => "[[0640]]Flügel Hammerstiele bestehend aus:

70 Stielen Standard in Weißbuche und

20 Stielen Diskant abgekehlt in Weißbuche

mit Röllchen aus Synthetikleder,

Kapseln mit Yamaha Profil, Kerbenabstand 3,6 mm mit eingedrehten Abnickschrauben",

'discount' => '0.25',

'id' => 144737,

'itime' => undef,

'lastcost' => '153.00000',

'longdescription' => '',

'marge_price_factor' => 1,

'mtime' => undef,

'ordnumber' => 'A16399',

'parts_id' => 25505,

'position' => 2,

'price_factor' => 1,

'price_factor_id' => undef,

'pricegroup_id' => undef,

'project_id' => undef,

'qty' => '3.00000',

'reqdate' => undef,

'sellprice' => '344.30000',

'serialnumber' => '',

'transdate' => '06.03.2015',

'unit' => 'kg')->save;

# TESTS

# test delivery order before any conversion

ok($do1->donumber eq "L20199", 'Delivery Order Number created');

ok((not $do1->closed) , 'Delivery Order is not closed');

ok($do1_item1->parts_id eq '26321', 'doi linked with part');

ok($do1_item1->qty == 2, 'qty check doi');

ok($do1_item2->position == 2, 'doi2 position check');

ok(2 == scalar@{ SL::DB::Manager::DeliveryOrderItem->get_all(where => [ delivery_order_id => $do1->id ]) }, 'two doi linked');

# convert this do to invoice

my $invoice = $do1->convert_to_invoice();

# test invoice afterwards

ok ($invoice->shipvia eq "DHL, Versand am 06.03.2015, 1 Paket 17,00 kg", "ship via check");

ok ($invoice->shippingpoint eq "Maisenhaus", "shipping point check");

ok ($invoice->ordnumber eq "A16399", "ordnumber check");

ok ($invoice->donumber eq "L20199", "donumber check");

ok(($do1->closed) , 'Delivery Order is closed after conversion');

ok (SL::DB::PaymentTerm->new(id => $invoice->{payment_id})->load->description eq "14Tage 2%Skonto, 30Tage netto", 'payment term description check');

# some test data from original client invoice console (!)

# my $invoice3 = SL::DB::Manager::Invoice->find_by( ordnumber => 'A16399' );

# which will fail due to PTC Calculation differs from GUI-Calculation, see issue: http://redmine.kivitendo-premium.de/issues/82

# pp $invoice3

# values from gui should be:

#ok($invoice->amount == 1354.20000, 'amount check');

#ok($invoice->marge_percent == 50.88666, 'marge percent check');

#ok($invoice->marge_total == 579.08000, 'marge total check');

#ok($invoice->netamount == 1137.98000, 'netamount check');

# the values change if one reloads the object

# without reloading we get this failures

#not ok 17 - amount check

# Failed test 'amount check'

# at t/db_helper/convert_invoice.t line 272.

# got: '1354.17'

# expected: '1354.17000'

#not ok 18 - marge percent check

# Failed test 'marge percent check'

# at t/db_helper/convert_invoice.t line 273.

# got: '50.8857956342929'

# expected: '50.88580'

#not ok 19 - marge total check

# Failed test 'marge total check'

# at t/db_helper/convert_invoice.t line 274.

# got: '579.06'

# expected: '579.06000'

#not ok 20 - netamount check

# Failed test 'netamount check'

# at t/db_helper/convert_invoice.t line 275.

# got: '1137.96'

# expected: '1137.96000'

$invoice->load;

ok($invoice->currency_id eq '1', 'currency_id');

ok($invoice->cusordnumber eq 'b84da', 'cusordnumber check');

ok(SL::DB::Department->new(id => $invoice->{department_id})->load->description eq "Maisenhaus-Versand", 'department description');

is($invoice->amount, '1354.17000', 'amount check');

is($invoice->marge_percent, '50.88580', 'marge percent check');

is($invoice->marge_total, '579.06000', 'marge total check');

is($invoice->netamount, '1137.96000', 'netamount check');

# some item checks

ok(@ {$invoice->items_sorted}[0]->parts_id eq '26321', 'invoiceitem 1 linked with part');

ok(2 == scalar@{ $invoice->invoiceitems }, 'two invoice items linked with invoice');

is(@ {$invoice->items_sorted}[0]->position, 1, "position 1 order correct");

is(@ {$invoice->items_sorted}[1]->position, 2, "position 2 order correct");

is(@ {$invoice->items_sorted}[0]->part->partnumber, 'v-519160549', "partnumber 1 correct");

is(@ {$invoice->items_sorted}[1]->part->partnumber, 'v-120160086', "partnumber 2 correct");

is(@ {$invoice->items_sorted}[0]->qty, '2.00000', "pos 1 qty");

is(@ {$invoice->items_sorted}[1]->qty, '3.00000', "pos 2 qty");

is(@ {$invoice->items_sorted}[0]->discount, 0.25, "pos 1 discount");

is(@ {$invoice->items_sorted}[1]->discount, 0.25, "pos 2 discount");

# more ideas: check onhand, lastcost (parsed lastcost)

clear_up();

1;