5 use Test::More tests => 13;
11 use Koha::Acquisition::Order;
13 use t::lib::TestBuilder;
15 my $schema = Koha::Database->schema;
16 $schema->storage->txn_begin;
17 my $builder = t::lib::TestBuilder->new;
19 # Set up configuration data
21 my $branch = $builder->build( { source => 'Branch' } );
22 my $bookseller = $builder->build( { source => 'Aqbookseller' } );
23 my $budget = $builder->build( { source => 'Aqbudget' } );
24 my $staffmember = $builder->build( { source => 'Borrower' } );
26 # Create baskets and orders
28 my $basketno = NewBasket(
30 $staffmember->{borrowernumber},
31 'Standing order basket', # basketname
33 '', # basketbooksellernote
34 undef, # basketcontractnumber
35 $branch->{branchcode}, # deliveryplace
36 $branch->{branchcode}, # billingplace
40 my $nonstandingbasketno = NewBasket(
42 $staffmember->{borrowernumber},
43 'Non-standing order basket', # basketname
45 '', # basketbooksellernote
46 undef, # basketcontractnumber
47 $branch->{branchcode}, # deliveryplace
48 $branch->{branchcode}, # billingplace
52 my $basket = GetBasket($basketno);
54 is( $basket->{is_standing}, 1, 'basket correctly created as standing order basket' );
56 my ( $biblionumber, $biblioitemnumber ) = C4::Biblio::AddBiblio( MARC::Record->new, '' );
59 my $ordernumber = Koha::Acquisition::Order->new(
61 basketno => $basketno,
62 biblionumber => $biblionumber,
63 budget_id => $budget->{budget_id},
67 rrp_tax_included => 42,
68 rrp_tax_excluded => 42,
70 ecost_tax_included => 22,
71 ecost_tax_excluded => 22,
73 unitprice_tax_included => 12,
74 unitprice_tax_excluded => 12,
76 tax_rate_on_ordering => 0,
77 tax_rate_on_receiving => 0,
79 )->insert->{ordernumber};
81 isnt( $ordernumber, undef, 'standing order successfully created' );
83 my $search_orders = SearchOrders( {
84 basketno => $basketno,
90 scalar @$search_orders == 1 && $search_orders->[0]->{ordernumber} == $ordernumber,
91 'standing order counts as a pending/ordered order'
94 my $invoiceid = AddInvoice(
95 invoicenumber => 'invoice',
96 booksellerid => $bookseller->{id},
100 my $order = Koha::Acquisition::Order->fetch( { ordernumber => $ordernumber } );
102 my ( $datereceived, $new_ordernumber ) = ModReceiveOrder(
104 biblionumber => $biblionumber,
106 quantityreceived => 2,
107 invoiceid => $invoiceid,
111 isnt( $ordernumber, $new_ordernumber, "standing order split on receive" );
113 #order has been updated, refetch
114 $order = Koha::Acquisition::Order->fetch( { ordernumber => $ordernumber } );
115 my $neworder = Koha::Acquisition::Order->fetch( { ordernumber => $new_ordernumber } );
117 is( $order->{orderstatus}, 'partial', 'original order set to partially received' );
118 is( $order->{quantity}, 1, 'original order quantity unchanged' );
119 is( $order->{quantityreceived}, 0, 'original order has no received items' );
120 isnt( $order->{unitprice}, 12, 'original order does not get cost' );
121 is( $neworder->{orderstatus}, 'complete', 'new order set to complete' );
122 is( $neworder->{quantityreceived}, 2, 'new order has received items' );
123 cmp_ok( $neworder->{unitprice}, '==', 12, 'new order does get cost' );
125 $search_orders = SearchOrders( {
126 basketno => $basketno,
131 is( scalar @$search_orders, 1, 'only one pending order after receive' );
132 is( $search_orders->[0]->{ordernumber}, $ordernumber, 'original order is only pending order' );
134 $schema->storage->txn_rollback();