|
Lines 85-105
my $search = $input->param('receive');
Link Here
|
| 85 |
my $invoice = $input->param('invoice'); |
85 |
my $invoice = $input->param('invoice'); |
| 86 |
my $freight = $input->param('freight'); |
86 |
my $freight = $input->param('freight'); |
| 87 |
my $datereceived = $input->param('datereceived'); |
87 |
my $datereceived = $input->param('datereceived'); |
| 88 |
|
|
|
| 89 |
|
| 90 |
$datereceived = $datereceived ? C4::Dates->new($datereceived, 'iso') : C4::Dates->new(); |
88 |
$datereceived = $datereceived ? C4::Dates->new($datereceived, 'iso') : C4::Dates->new(); |
| 91 |
|
89 |
|
| 92 |
my $bookseller = GetBookSellerFromId($supplierid); |
90 |
my $bookseller = GetBookSellerFromId($supplierid); |
| 93 |
my $input_gst = ($input->param('gst') eq '' ? undef : $input->param('gst')); |
91 |
my $input_gst = ($input->param('gst') eq '' ? undef : $input->param('gst')); |
| 94 |
my $gst= $input_gst // $bookseller->{gstrate} // C4::Context->preference("gist") // 0; |
92 |
my $gst= $input_gst // $bookseller->{gstrate} // C4::Context->preference("gist") // 0; |
| 95 |
my $results = SearchOrder($ordernumber,$search); |
93 |
my $results = SearchOrder($ordernumber,$search); |
| 96 |
|
|
|
| 97 |
|
| 98 |
my $count = scalar @$results; |
94 |
my $count = scalar @$results; |
| 99 |
my $order = GetOrder($ordernumber); |
|
|
| 100 |
|
| 101 |
|
| 102 |
my $date = @$results[0]->{'entrydate'}; |
| 103 |
|
95 |
|
| 104 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
96 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
| 105 |
{ |
97 |
{ |
|
Lines 114-160
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Link Here
|
| 114 |
|
106 |
|
| 115 |
# prepare the form for receiving |
107 |
# prepare the form for receiving |
| 116 |
if ( $count == 1 ) { |
108 |
if ( $count == 1 ) { |
| 117 |
if (C4::Context->preference('AcqCreateItem') eq 'receiving') { |
109 |
my $order = GetOrder($results->[0]->{ordernumber}); |
|
|
110 |
my $biblionumber = $order->{biblionumber}; |
| 111 |
|
| 112 |
my @itemloop; |
| 113 |
if ( my @itemnumbers = GetItemnumbersFromOrder($ordernumber) ) { |
| 114 |
@itemloop = map PrepareItemrecordDisplay($biblionumber,$_), @itemnumbers; |
| 115 |
} |
| 116 |
elsif (C4::Context->preference('AcqCreateItem') eq 'receiving') { |
| 118 |
# prepare empty item form |
117 |
# prepare empty item form |
| 119 |
my $cell = PrepareItemrecordDisplay('','','','ACQ'); |
118 |
my $cell = PrepareItemrecordDisplay('','','','ACQ'); |
| 120 |
unless ($cell) { |
119 |
unless ($cell) { |
| 121 |
$cell = PrepareItemrecordDisplay('','','',''); |
120 |
$cell = PrepareItemrecordDisplay('','','',''); |
| 122 |
$template->param('NoACQframework' => 1); |
121 |
$template->param('NoACQframework' => 1); |
| 123 |
} |
122 |
} |
| 124 |
my @itemloop; |
|
|
| 125 |
push @itemloop,$cell; |
123 |
push @itemloop,$cell; |
| 126 |
|
|
|
| 127 |
$template->param(items => \@itemloop); |
| 128 |
} |
124 |
} |
|
|
125 |
|
| 126 |
$template->param(items => \@itemloop) if @itemloop; |
| 129 |
|
127 |
|
| 130 |
if ( @$results[0]->{'quantityreceived'} == 0 ) { |
128 |
if ( $order->{'unitprice'} == 0 ) { |
| 131 |
@$results[0]->{'quantityreceived'} = ''; |
129 |
$order->{'unitprice'} = ''; |
| 132 |
} |
|
|
| 133 |
if ( @$results[0]->{'unitprice'} == 0 ) { |
| 134 |
@$results[0]->{'unitprice'} = ''; |
| 135 |
} |
130 |
} |
| 136 |
$template->param( |
131 |
$template->param( |
| 137 |
count => 1, |
132 |
count => 1, |
| 138 |
biblionumber => @$results[0]->{'biblionumber'}, |
133 |
biblionumber => $biblionumber, |
| 139 |
ordernumber => @$results[0]->{'ordernumber'}, |
134 |
ordernumber => $order->{'ordernumber'}, |
| 140 |
biblioitemnumber => @$results[0]->{'biblioitemnumber'}, |
135 |
biblioitemnumber => $order->{'biblioitemnumber'}, |
| 141 |
supplierid => @$results[0]->{'booksellerid'}, |
136 |
supplierid => $supplierid, |
| 142 |
freight => $freight, |
137 |
freight => $freight, |
| 143 |
gst => $gst, |
138 |
gst => $gst, |
| 144 |
name => $bookseller->{'name'}, |
139 |
name => $bookseller->{'name'}, |
| 145 |
date => format_date($date), |
140 |
date => format_date($order->{'entrydate'}), |
| 146 |
title => @$results[0]->{'title'}, |
141 |
title => $order->{'title'}, |
| 147 |
author => @$results[0]->{'author'}, |
142 |
author => $order->{'author'}, |
| 148 |
copyrightdate => @$results[0]->{'copyrightdate'}, |
143 |
copyrightdate => $order->{'copyrightdate'}, |
| 149 |
isbn => @$results[0]->{'isbn'}, |
144 |
isbn => $order->{'isbn'}, |
| 150 |
seriestitle => @$results[0]->{'seriestitle'}, |
145 |
seriestitle => $order->{'seriestitle'}, |
| 151 |
bookfund => @$results[0]->{'bookfundid'}, |
146 |
bookfund => $order->{'bookfundid'}, |
| 152 |
quantity => @$results[0]->{'quantity'}, |
147 |
quantity => $order->{'quantity'}, |
| 153 |
quantityreceivedplus1 => @$results[0]->{'quantityreceived'} + 1, |
148 |
quantityreceived => scalar(@itemloop) || 1, |
| 154 |
quantityreceived => @$results[0]->{'quantityreceived'}, |
149 |
origquantityrec => $order->{'quantityreceived'}, |
| 155 |
rrp => @$results[0]->{'rrp'}, |
150 |
rrp => $order->{'rrp'}, |
| 156 |
ecost => @$results[0]->{'ecost'}, |
151 |
ecost => $order->{'ecost'}, |
| 157 |
unitprice => @$results[0]->{'unitprice'}, |
152 |
unitprice => $order->{'unitprice'}, |
| 158 |
invoice => $invoice, |
153 |
invoice => $invoice, |
| 159 |
datereceived => $datereceived->output(), |
154 |
datereceived => $datereceived->output(), |
| 160 |
datereceived_iso => $datereceived->output('iso'), |
155 |
datereceived_iso => $datereceived->output('iso'), |