View | Details | Raw Unified | Return to bug 11744
Collapse All | Expand All

(-)a/t/db_dependent/Acquisition/CancelReceipt.t (-1 / +98 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
3
use Modern::Perl;
4
5
use Test::More tests => 2;
6
use C4::Context;
7
use C4::Acquisition;
8
use C4::Biblio;
9
use C4::Items;
10
use C4::Bookseller;
11
use C4::Budgets;
12
use t::lib::Mocks;
13
14
use Koha::DateUtils;
15
use MARC::Record;
16
17
my $dbh = C4::Context->dbh;
18
$dbh->{RaiseError} = 1;
19
$dbh->{AutoCommit} = 0;
20
21
my $booksellerid1 = C4::Bookseller::AddBookseller(
22
    {
23
        name => "my vendor 1",
24
        address1 => "bookseller's address",
25
        phone => "0123456",
26
        active => 1
27
    }
28
);
29
30
my $basketno1 = C4::Acquisition::NewBasket(
31
    $booksellerid1
32
);
33
34
my $budgetid = C4::Budgets::AddBudget(
35
    {
36
        budget_code => "budget_code_test_transferorder",
37
        budget_name => "budget_name_test_transferorder",
38
    }
39
);
40
41
my $budget = C4::Budgets::GetBudget( $budgetid );
42
43
my ($biblionumber, $biblioitemnumber) = AddBiblio(MARC::Record->new, '');
44
my $itemnumber = AddItem({}, $biblionumber);
45
46
t::lib::Mocks::mock_preference('AcqCreateItem', 'receiving');
47
my ( undef, $ordernumber ) = C4::Acquisition::NewOrder(
48
    {
49
        basketno => $basketno1,
50
        quantity => 2,
51
        biblionumber => $biblionumber,
52
        budget_id => $budget->{budget_id},
53
    }
54
);
55
56
ModReceiveOrder(
57
    {
58
        biblionumber     => $biblionumber,
59
        ordernumber      => $ordernumber,
60
        quantityreceived => 2,
61
        datereceived     => dt_from_string
62
    }
63
);
64
65
NewOrderItem($itemnumber, $ordernumber);
66
67
CancelReceipt($ordernumber);
68
69
my $order = GetOrder( $ordernumber );
70
is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 0, "Create items on receiving: 0 item exist after cancelling a receipt");
71
72
t::lib::Mocks::mock_preference('AcqCreateItem', 'ordering');
73
( undef, $ordernumber ) = C4::Acquisition::NewOrder(
74
    {
75
        basketno => $basketno1,
76
        quantity => 2,
77
        biblionumber => $biblionumber,
78
        budget_id => $budget->{budget_id},
79
    }
80
);
81
82
ModReceiveOrder(
83
    {
84
        biblionumber     => $biblionumber,
85
        ordernumber      => $ordernumber,
86
        quantityreceived => 2,
87
        datereceived     => dt_from_string
88
    }
89
);
90
91
NewOrderItem($itemnumber, $ordernumber);
92
93
CancelReceipt($ordernumber);
94
95
$order = GetOrder( $ordernumber );
96
is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 1, "Create items on ordering: items are not deleted after cancelling a receipt");
97
98
$dbh->rollback;

Return to bug 11744