|
use Test::More;
|
|
|
|
use strict;
|
|
|
|
use lib 't';
|
|
use utf8;
|
|
|
|
use Carp;
|
|
use Data::Dumper;
|
|
use Support::TestSetup;
|
|
use Test::Exception;
|
|
|
|
use SL::DB::Order;
|
|
use SL::DB::Customer;
|
|
use SL::DB::Department;
|
|
use SL::DB::Currency;
|
|
use SL::DB::PaymentTerm;
|
|
use SL::DB::DeliveryTerm;
|
|
use SL::DB::Employee;
|
|
use SL::DB::Part;
|
|
use SL::DB::Unit;
|
|
|
|
use SL::Dev::ALL qw(:ALL);
|
|
|
|
my ($customer, $employee, $payment_term, $delivery_term, $unit, @parts, $department);
|
|
|
|
|
|
sub clear_up {
|
|
foreach (qw(OrderItem Order Part Customer Department PaymentTerm DeliveryTerm)) {
|
|
"SL::DB::Manager::${_}"->delete_all(all => 1);
|
|
}
|
|
SL::DB::Manager::Employee->delete_all(where => [ login => 'testuser' ]);
|
|
};
|
|
|
|
sub reset_state {
|
|
my %params = @_;
|
|
|
|
clear_up();
|
|
|
|
$unit = SL::DB::Manager::Unit->find_by(name => 'kg') || die "Can't find unit 'kg'";
|
|
$customer = new_customer()->save;
|
|
|
|
$employee = SL::DB::Employee->new(
|
|
'login' => 'testuser',
|
|
'name' => 'Test User',
|
|
)->save;
|
|
|
|
$department = SL::DB::Department->new(
|
|
'description' => 'Test Department',
|
|
)->save;
|
|
|
|
$payment_term = create_payment_terms(
|
|
'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.",
|
|
'percent_skonto' => '0.02',
|
|
'terms_netto' => 30,
|
|
'terms_skonto' => 14
|
|
);
|
|
|
|
$delivery_term = SL::DB::DeliveryTerm->new(
|
|
'description' => 'Test Delivey Term',
|
|
'description_long' => 'Test Delivey Term Test Delivey Term',
|
|
)->save;
|
|
|
|
# some parts/services
|
|
@parts = ();
|
|
push @parts, new_part(
|
|
partnumber => 'T4254',
|
|
unit => $unit->name,
|
|
)->save;
|
|
push @parts, new_service(
|
|
partnumber => 'Serv1',
|
|
)->save;
|
|
push @parts, new_part(
|
|
partnumber => 'P2445',
|
|
)->save;
|
|
push @parts, new_service(
|
|
partnumber => 'Serv2'
|
|
)->save;
|
|
}
|
|
|
|
Support::TestSetup::login();
|
|
|
|
reset_state();
|
|
|
|
|
|
#####
|
|
my $order1 = SL::Dev::Record::create_sales_order(
|
|
save => 1,
|
|
customer => $customer,
|
|
shippingpoint => "sp",
|
|
transaction_description => "td1",
|
|
payment_terms => $payment_term,
|
|
delivery_term => $delivery_term,
|
|
taxincluded => 0,
|
|
orderitems => [ SL::Dev::Record::create_order_item(part => $parts[0], qty => 3, sellprice => 70),
|
|
SL::Dev::Record::create_order_item(part => $parts[1], qty => 10, sellprice => 50),
|
|
]
|
|
);
|
|
|
|
my $delivery_term2 = SL::DB::DeliveryTerm->new(
|
|
'description' => 'Test Delivey Term2',
|
|
'description_long' => 'Test Delivey Term2 Test Delivey Term2',
|
|
)->save;
|
|
|
|
my $order2 = SL::Dev::Record::create_sales_order(
|
|
save => 1,
|
|
customer => $customer,
|
|
shippingpoint => "sp",
|
|
transaction_description => "td2",
|
|
payment_terms => $payment_term,
|
|
delivery_term => $delivery_term2,
|
|
taxincluded => 0,
|
|
orderitems => [ SL::Dev::Record::create_order_item(part => $parts[2], qty => 1, sellprice => 60),
|
|
SL::Dev::Record::create_order_item(part => $parts[3], qty => 20, sellprice => 40),
|
|
]
|
|
);
|
|
|
|
my $order = SL::DB::Order->new_from_multi([$order1, $order2]);
|
|
|
|
ok $order->items->[0]->part->id == $parts[0]->id
|
|
&& $order->items->[1]->part->id == $parts[1]->id
|
|
&& $order->items->[2]->part->id == $parts[2]->id
|
|
&& $order->items->[3]->part->id == $parts[3]->id,
|
|
'new from multi: positions added ok';
|
|
|
|
ok $order->shippingpoint eq "sp", 'new from multi: keep same info';
|
|
ok !$order->transaction_description, 'new from multi: undefine differnt info';
|
|
ok $order->payment_id == $payment_term->id, 'new from multi: keep same info';
|
|
ok !$order->delivery_term, 'new from multi: undefine differnt info';
|
|
|
|
reset_state();
|
|
|
|
#####
|
|
$order1 = SL::Dev::Record::create_sales_order(
|
|
save => 1,
|
|
taxincluded => 0,
|
|
orderitems => [ SL::Dev::Record::create_order_item(part => $parts[0], qty => 3, sellprice => 70),
|
|
SL::Dev::Record::create_order_item(part => $parts[1], qty => 10, sellprice => 50),
|
|
]
|
|
);
|
|
$order2 = SL::Dev::Record::create_sales_order(
|
|
save => 1,
|
|
customer => $customer,
|
|
taxincluded => 0,
|
|
orderitems => [ SL::Dev::Record::create_order_item(part => $parts[2], qty => 1, sellprice => 60),
|
|
SL::Dev::Record::create_order_item(part => $parts[3], qty => 20, sellprice => 40),
|
|
]
|
|
);
|
|
|
|
my $err_msg;
|
|
eval { $order = SL::DB::Order->new_from_multi([$order1, $order2]); 1 } or do {$err_msg = $@};
|
|
|
|
ok $err_msg =~ "^Cannot create order from source records of different customers", 'new from multi: fail on different customers';
|
|
|
|
|
|
####
|
|
clear_up();
|
|
|
|
done_testing;
|
|
|
|
1;
|
|
|
|
|
|
# set emacs to perl mode
|
|
# Local Variables:
|
|
# mode: perl
|
|
# End:
|