3 # Copyright 2011 BibLibre SARL
4 # This file is part of Koha.
6 # Koha is free software; you can redistribute it and/or modify it
7 # under the terms of the GNU General Public License as published by
8 # the Free Software Foundation; either version 3 of the License, or
9 # (at your option) any later version.
11 # Koha is distributed in the hope that it will be useful, but
12 # WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with Koha; if not, see <http://www.gnu.org/licenses>.
38 use Koha
::Acquisition
::Bookseller
;
40 use Koha
::Misc
::Files
;
43 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user
(
45 template_name
=> 'acqui/invoice.tt',
49 flagsrequired
=> { 'acquisition' => '*' },
54 my $invoiceid = $input->param('invoiceid');
55 my $op = $input->param('op');
58 if ( C4
::Context
->preference('AcqEnableFiles') ) {
59 $invoice_files = Koha
::Misc
::Files
->new(
60 tabletag
=> 'aqinvoices', recordid
=> $invoiceid );
63 if ( $op && $op eq 'close' ) {
64 CloseInvoice
($invoiceid);
65 my $referer = $input->param('referer');
67 print $input->redirect($referer);
71 elsif ( $op && $op eq 'reopen' ) {
72 ReopenInvoice
($invoiceid);
73 my $referer = $input->param('referer');
75 print $input->redirect($referer);
79 elsif ( $op && $op eq 'mod' ) {
80 my $shipmentcost = $input->param('shipmentcost');
81 my $shipment_budget_id = $input->param('shipment_budget_id');
83 invoiceid
=> $invoiceid,
84 shipmentdate
=> output_pref
( { str
=> $input->param('shipmentdate'), dateformat
=> 'iso', dateonly
=> 1 } ),
85 billingdate
=> output_pref
( { str
=> $input->param('billingdate'), dateformat
=> 'iso', dateonly
=> 1 } ),
86 shipmentcost
=> $shipmentcost,
87 shipmentcost_budgetid
=> $shipment_budget_id
89 if ($input->param('reopen')) {
90 ReopenInvoice
($invoiceid);
91 } elsif ($input->param('close')) {
92 CloseInvoice
($invoiceid);
93 } elsif ($input->param('merge')) {
94 my @sources = $input->param('merge');
95 MergeInvoices
($invoiceid, \
@sources);
96 defined($invoice_files) && $invoice_files->MergeFileRecIds(@sources);
98 $template->param( modified
=> 1 );
100 elsif ( $op && $op eq 'delete' ) {
101 DelInvoice
($invoiceid);
102 defined($invoice_files) && $invoice_files->DelAllFiles();
103 my $referer = $input->param('referer') || 'invoices.pl';
105 print $input->redirect($referer);
111 my $details = GetInvoiceDetails
($invoiceid);
112 my $bookseller = Koha
::Acquisition
::Bookseller
->fetch({ id
=> $details->{booksellerid
} });
113 my @orders_loop = ();
114 my $orders = $details->{'orders'};
117 my $total_quantity = 0;
120 my $total_gstvalue = 0;
121 foreach my $order (@
$orders) {
122 $order = C4
::Acquisition
::populate_order_with_prices
(
125 booksellerid
=> $bookseller->{id
},
129 my $line = get_infos
( $order, $bookseller);
131 $foot{$$line{gstrate
}}{gstrate
} = $$line{gstrate
};
132 $foot{$$line{gstrate
}}{gstvalue
} += $$line{gstvalue
};
133 $total_gstvalue += $$line{gstvalue
};
134 $foot{$$line{gstrate
}}{quantity
} += $$line{quantity
};
135 $total_quantity += $$line{quantity
};
136 $foot{$$line{gstrate
}}{totalgste
} += $$line{totalgste
};
137 $total_gste += $$line{totalgste
};
138 $foot{$$line{gstrate
}}{totalgsti
} += $$line{totalgsti
};
139 $total_gsti += $$line{totalgsti
};
141 $line->{orderline
} = $line->{parent_ordernumber
};
142 push @orders_loop, $line;
145 push @foot_loop, map {$_} values %foot;
148 my $budgets = GetBudgets
();
150 my $shipmentcost_budgetid = $details->{shipmentcost_budgetid
};
151 foreach my $budget (@
$budgets) {
152 next unless CanUserUseBudget
( $loggedinuser, $budget, $flags );
153 my %line = %{$budget};
154 if ( $shipmentcost_budgetid
155 and $budget->{budget_id
} == $shipmentcost_budgetid )
159 push @budgets_loop, \
%line;
163 invoiceid
=> $details->{'invoiceid'},
164 invoicenumber
=> $details->{'invoicenumber'},
165 suppliername
=> $details->{'suppliername'},
166 booksellerid
=> $details->{'booksellerid'},
167 shipmentdate
=> $details->{'shipmentdate'},
168 billingdate
=> $details->{'billingdate'},
169 invoiceclosedate
=> $details->{'closedate'},
170 shipmentcost
=> $details->{'shipmentcost'},
171 orders_loop
=> \
@orders_loop,
172 foot_loop
=> \
@foot_loop,
173 total_quantity
=> $total_quantity,
174 total_gste
=> sprintf( $format, $total_gste ),
175 total_gsti
=> sprintf( $format, $total_gsti ),
176 total_gstvalue
=> sprintf( $format, $total_gstvalue ),
177 total_gste_shipment
=> sprintf( $format, $total_gste + $details->{shipmentcost
}),
178 total_gsti_shipment
=> sprintf( $format, $total_gsti + $details->{shipmentcost
}),
179 invoiceincgst
=> $bookseller->{invoiceincgst
},
180 currency
=> GetCurrency
()->{currency
},
181 budgets_loop
=> \
@budgets_loop,
184 defined( $invoice_files ) && $template->param( files
=> $invoice_files->GetFilesInfo() );
187 # Fonction dupplicated from basket.pl
188 # Code must to be exported. Where ??
191 my $bookseller = shift;
192 my $qty = $order->{'quantity'} || 0;
193 if ( !defined $order->{quantityreceived
} ) {
194 $order->{quantityreceived
} = 0;
196 my $budget = GetBudget
( $order->{'budget_id'} );
198 my %line = %{ $order };
199 $line{order_received
} = ( $qty == $order->{'quantityreceived'} );
200 $line{budget_name
} = $budget->{budget_name
};
202 if ( $line{uncertainprice
} ) {
203 $template->param( uncertainprices
=> 1 );
204 $line{rrp
} .= ' (Uncertain)';
206 if ( $line{'title'} ) {
207 my $volume = $order->{'volume'};
208 my $seriestitle = $order->{'seriestitle'};
209 $line{'title'} .= " / $seriestitle" if $seriestitle;
210 $line{'title'} .= " / $volume" if $volume;
216 output_html_with_http_headers
$input, $cookie, $template->output;