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
;
39 use Koha
::Acquisition
::Currencies
;
41 use Koha
::Misc
::Files
;
44 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user
(
46 template_name
=> 'acqui/invoice.tt',
50 flagsrequired
=> { 'acquisition' => '*' },
55 my $invoiceid = $input->param('invoiceid');
56 my $op = $input->param('op');
59 if ( C4
::Context
->preference('AcqEnableFiles') ) {
60 $invoice_files = Koha
::Misc
::Files
->new(
61 tabletag
=> 'aqinvoices', recordid
=> $invoiceid );
64 if ( $op && $op eq 'close' ) {
65 CloseInvoice
($invoiceid);
66 my $referer = $input->param('referer');
68 print $input->redirect($referer);
72 elsif ( $op && $op eq 'reopen' ) {
73 ReopenInvoice
($invoiceid);
74 my $referer = $input->param('referer');
76 print $input->redirect($referer);
80 elsif ( $op && $op eq 'mod' ) {
81 my $shipmentcost = $input->param('shipmentcost');
82 my $shipment_budget_id = $input->param('shipment_budget_id');
83 my $invoicenumber = $input->param('invoicenumber');
85 invoiceid
=> $invoiceid,
86 invoicenumber
=> $invoicenumber,
87 shipmentdate
=> output_pref
( { str
=> scalar $input->param('shipmentdate'), dateformat
=> 'iso', dateonly
=> 1 } ),
88 billingdate
=> output_pref
( { str
=> scalar $input->param('billingdate'), dateformat
=> 'iso', dateonly
=> 1 } ),
89 shipmentcost
=> $shipmentcost,
90 shipmentcost_budgetid
=> $shipment_budget_id
92 if ($input->param('reopen')) {
93 ReopenInvoice
($invoiceid);
94 } elsif ($input->param('close')) {
95 CloseInvoice
($invoiceid);
96 } elsif ($input->param('merge')) {
97 my @sources = $input->multi_param('merge');
98 MergeInvoices
($invoiceid, \
@sources);
99 defined($invoice_files) && $invoice_files->MergeFileRecIds(@sources);
101 $template->param( modified
=> 1 );
103 elsif ( $op && $op eq 'delete' ) {
104 DelInvoice
($invoiceid);
105 defined($invoice_files) && $invoice_files->DelAllFiles();
106 my $referer = $input->param('referer') || 'invoices.pl';
108 print $input->redirect($referer);
114 my $details = GetInvoiceDetails
($invoiceid);
115 my $bookseller = Koha
::Acquisition
::Bookseller
->fetch({ id
=> $details->{booksellerid
} });
116 my @orders_loop = ();
117 my $orders = $details->{'orders'};
120 my $total_quantity = 0;
121 my $total_tax_excluded = 0;
122 my $total_tax_included = 0;
123 my $total_tax_value = 0;
124 foreach my $order (@
$orders) {
125 my $line = get_infos
( $order, $bookseller);
127 $line->{total_tax_excluded
} = Koha
::Number
::Price
->new( $line->{unitprice_tax_excluded
} * $line->{quantity
} )->format;
128 $line->{total_tax_included
} = Koha
::Number
::Price
->new( $line->{unitprice_tax_included
} * $line->{quantity
} )->format;
130 $foot{$$line{tax_rate
}}{tax_rate
} = $$line{tax_rate
};
131 $foot{$$line{tax_rate
}}{tax_value
} += $$line{tax_value
};
132 $total_tax_value += $$line{tax_value
};
133 $foot{$$line{tax_rate
}}{quantity
} += $$line{quantity
};
134 $total_quantity += $$line{quantity
};
135 $foot{$$line{tax_rate
}}{total_tax_excluded
} += $$line{total_tax_excluded
};
136 $total_tax_excluded += $$line{total_tax_excluded
};
137 $foot{$$line{tax_rate
}}{total_tax_included
} += $$line{total_tax_included
};
138 $total_tax_included += $$line{total_tax_included
};
140 $line->{orderline
} = $line->{parent_ordernumber
};
141 push @orders_loop, $line;
144 push @foot_loop, map {$_} values %foot;
146 my $budgets = GetBudgets
();
148 my $shipmentcost_budgetid = $details->{shipmentcost_budgetid
};
149 foreach my $budget (@
$budgets) {
150 next unless CanUserUseBudget
( $loggedinuser, $budget, $flags );
151 my %line = %{$budget};
152 if ( $shipmentcost_budgetid
153 and $budget->{budget_id
} == $shipmentcost_budgetid )
157 push @budgets_loop, \
%line;
161 invoiceid
=> $details->{'invoiceid'},
162 invoicenumber
=> $details->{'invoicenumber'},
163 suppliername
=> $details->{'suppliername'},
164 booksellerid
=> $details->{'booksellerid'},
165 shipmentdate
=> $details->{'shipmentdate'},
166 billingdate
=> $details->{'billingdate'},
167 invoiceclosedate
=> $details->{'closedate'},
168 shipmentcost
=> $details->{'shipmentcost'},
169 orders_loop
=> \
@orders_loop,
170 foot_loop
=> \
@foot_loop,
171 total_quantity
=> $total_quantity,
172 total_tax_excluded
=> $total_tax_excluded,
173 total_tax_included
=> $total_tax_included,
174 total_tax_value
=> $total_tax_value,
175 total_tax_excluded_shipment
=> $total_tax_excluded + $details->{shipmentcost
},
176 total_tax_included_shipment
=> $total_tax_included + $details->{shipmentcost
},
177 invoiceincgst
=> $bookseller->{invoiceincgst
},
178 currency
=> Koha
::Acquisition
::Currencies
->get_active,
179 budgets_loop
=> \
@budgets_loop,
182 defined( $invoice_files ) && $template->param( files
=> $invoice_files->GetFilesInfo() );
185 # Fonction dupplicated from basket.pl
186 # Code must to be exported. Where ??
189 my $bookseller = shift;
190 my $qty = $order->{'quantity'} || 0;
191 if ( !defined $order->{quantityreceived
} ) {
192 $order->{quantityreceived
} = 0;
194 my $budget = GetBudget
( $order->{'budget_id'} );
196 my %line = %{ $order };
197 $line{order_received
} = ( $qty == $order->{'quantityreceived'} );
198 $line{budget_name
} = $budget->{budget_name
};
200 if ( $line{uncertainprice
} ) {
201 $template->param( uncertainprices
=> 1 );
202 $line{rrp
} .= ' (Uncertain)';
204 if ( $line{'title'} ) {
205 my $volume = $order->{'volume'};
206 my $seriestitle = $order->{'seriestitle'};
207 $line{'title'} .= " / $seriestitle" if $seriestitle;
208 $line{'title'} .= " / $volume" if $volume;
214 output_html_with_http_headers
$input, $cookie, $template->output;