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 $line->{tax_value
} = $line->{tax_value_on_receiving
};
131 $line->{tax_rate
} = $line->{tax_rate_on_receiving
};
133 $foot{$$line{tax_rate
}}{tax_rate
} = $$line{tax_rate
};
134 $foot{$$line{tax_rate
}}{tax_value
} += $$line{tax_value
};
135 $total_tax_value += $$line{tax_value
};
136 $foot{$$line{tax_rate
}}{quantity
} += $$line{quantity
};
137 $total_quantity += $$line{quantity
};
138 $foot{$$line{tax_rate
}}{total_tax_excluded
} += $$line{total_tax_excluded
};
139 $total_tax_excluded += $$line{total_tax_excluded
};
140 $foot{$$line{tax_rate
}}{total_tax_included
} += $$line{total_tax_included
};
141 $total_tax_included += $$line{total_tax_included
};
143 $line->{orderline
} = $line->{parent_ordernumber
};
144 push @orders_loop, $line;
147 push @foot_loop, map {$_} values %foot;
149 my $budgets = GetBudgets
();
151 my $shipmentcost_budgetid = $details->{shipmentcost_budgetid
};
152 foreach my $budget (@
$budgets) {
153 next unless CanUserUseBudget
( $loggedinuser, $budget, $flags );
154 my %line = %{$budget};
155 if ( $shipmentcost_budgetid
156 and $budget->{budget_id
} == $shipmentcost_budgetid )
160 push @budgets_loop, \
%line;
164 invoiceid
=> $details->{'invoiceid'},
165 invoicenumber
=> $details->{'invoicenumber'},
166 suppliername
=> $details->{'suppliername'},
167 booksellerid
=> $details->{'booksellerid'},
168 shipmentdate
=> $details->{'shipmentdate'},
169 billingdate
=> $details->{'billingdate'},
170 invoiceclosedate
=> $details->{'closedate'},
171 shipmentcost
=> $details->{'shipmentcost'},
172 orders_loop
=> \
@orders_loop,
173 foot_loop
=> \
@foot_loop,
174 total_quantity
=> $total_quantity,
175 total_tax_excluded
=> $total_tax_excluded,
176 total_tax_included
=> $total_tax_included,
177 total_tax_value
=> $total_tax_value,
178 total_tax_excluded_shipment
=> $total_tax_excluded + $details->{shipmentcost
},
179 total_tax_included_shipment
=> $total_tax_included + $details->{shipmentcost
},
180 invoiceincgst
=> $bookseller->{invoiceincgst
},
181 currency
=> Koha
::Acquisition
::Currencies
->get_active,
182 budgets_loop
=> \
@budgets_loop,
185 defined( $invoice_files ) && $template->param( files
=> $invoice_files->GetFilesInfo() );
188 # Fonction dupplicated from basket.pl
189 # Code must to be exported. Where ??
192 my $bookseller = shift;
193 my $qty = $order->{'quantity'} || 0;
194 if ( !defined $order->{quantityreceived
} ) {
195 $order->{quantityreceived
} = 0;
197 my $budget = GetBudget
( $order->{'budget_id'} );
199 my %line = %{ $order };
200 $line{order_received
} = ( $qty == $order->{'quantityreceived'} );
201 $line{budget_name
} = $budget->{budget_name
};
203 if ( $line{uncertainprice
} ) {
204 $template->param( uncertainprices
=> 1 );
205 $line{rrp
} .= ' (Uncertain)';
207 if ( $line{'title'} ) {
208 my $volume = $order->{'volume'};
209 my $seriestitle = $order->{'seriestitle'};
210 $line{'title'} .= " / $seriestitle" if $seriestitle;
211 $line{'title'} .= " / $volume" if $volume;
217 output_html_with_http_headers
$input, $cookie, $template->output;