Skip to content

I
intranet-invoices
Commit 6289f7ea authored by Frank Bergmann's avatar Frank Bergmann
Browse files
Options

-- new invoice type -> showing Quotes / Project Nr. 

-- Allow server side PDF Generation using intranet-office
parent 5646fb4f
Hide whitespace changes
Inline Side-by-side
Showing with 123 additions and 4 deletions
www/view.tcl
View file @ 6289f7ea
......@@ -32,6 +32,7 @@ ad_page_contract {
{ output_format "html" }
{ err_mess "" }
{ item_list_type:integer 0 }
{ pdf_p 0 }
}
# ---------------------------------------------------------------
......@@ -942,7 +943,113 @@ if { 0 == $item_list_type } {
append invoice_item_html "<tr><td>[lang::message::lookup $locale intranet-timesheet2-invoices.No_Information]</td></tr>"
}
} elseif { 110 == $item_list_type } {
# Get Sub-Projects
set invoice_items_sql "
select distinct
ii.project_id,
ii.currency
from
im_invoice_items ii
left outer join im_projects p on (p.project_id in (select c.project_id from im_costs c where cost_id=:invoice_id) )
where
invoice_id=:invoice_id
order by
ii.project_id
"
set old_project_id -1
set amount_total 0
set amount_sub_total 0
set ctr 0
db_foreach related_projects $invoice_items_sql {
# SUBTOTALS
if { $old_project_id != $project_id } {
# Customer Project Number of sub-project, internal Project-Nr of sub-project, internal Project Name of sub-project
db_1row get_project_attributes "
select
company_project_nr,
project_nr,
project_name
from
im_projects
where
project_id = $project_id
"
# Write header
append invoice_item_html "
<tr><td class='invoiceroweven' colspan ='100' align='left'>$company_project_nr - $project_nr - $project_name</td></tr>
"
set old_project_id $project_id
}
# Get all quotes for sub-project
set quotes_sql "
select distinct
item_source_invoice_id,
currency
from
im_invoice_items
where
project_id = $project_id and
invoice_id = $invoice_id
"
db_foreach quotes $quotes_sql {
if { ![info exists item_source_invoice_id] || "" == $item_source_invoice_id } {
ad_return_complaint 1 "Preview not supported.<br>Maybe you have created a quote for project <a href='/intranet/projects/view?project_id=$project_id'>$project_id</a> with an earlier version of PO"
}
set sum_sql "
select
sum(a.line_total) as sum_quote
from
(select
trunc((ii.price_per_unit * ii.item_units) :: numeric, 2) as line_total
from
im_invoice_items ii
where
project_id = $project_id and
item_source_invoice_id = $item_source_invoice_id
) a
"
set sum_quote [db_string get_sum_quote $sum_sql -default 0]
set quote_name [db_string get_quote_name "select cost_name from im_costs where cost_id = $item_source_invoice_id" -default 0]
# Write Quote
append invoice_item_html "
<tr>
<td $bgcolor([expr $ctr % 2]) align=right>$quote_name</td>
<td $bgcolor([expr $ctr % 2]) align=left colspan='2'>&nbsp;</td>
<td $bgcolor([expr $ctr % 2]) align=right>$sum_quote</td>
</tr>
"
set amount_sub_total [expr $amount_sub_total + $sum_quote]
} if_no_rows {
append invoice_item_html "<tr><td>[lang::message::lookup $locale intranet-timesheet2-invoices.No_Information]</td></tr>"
}
# Subtotal for sub-project
append invoice_item_html "
<tr><td class='invoiceroweven' colspan ='100' align='right'>
[lc_numeric [im_numeric_add_trailing_zeros [expr $amount_sub_total+0] $rounding_precision] "" $locale]&nbsp;$currency</td></tr>
"
set amount_total [expr $amount_sub_total + $amount_total]
set amount_sub_total 0
incr ctr
} if_no_rows {
ad_return_complaint 1 "Preview not supported, maybe you created the invoice with an older version of PO"
}
if { 0 != $amount_sub_total } {
append invoice_item_html "
<tr><td class='invoiceroweven' colspan ='100' align='right'>
[lc_numeric [im_numeric_add_trailing_zeros [expr $amount_sub_total+0] $rounding_precision] "" $locale]&nbsp;$currency</td></tr>
"
}
} else {
set indent_level [db_string get_view_id "
select
tree_level(children.tree_sortkey) - tree_level(parent.tree_sortkey) as level
......@@ -1370,10 +1477,22 @@ if {0 != $render_template_id || "" != $send_to_user_as} {
# ------------------------------------------------
# Return the file
ns_log Notice "view.tcl: before returning file"
set outputheaders [ns_conn outputheaders]
ns_set cput $outputheaders "Content-Disposition" "attachment; filename=${invoice_nr}.odt"
ns_returnfile 200 application/odt $odt_zip
if {$pdf_p} {
if { ![db_string memorized_transaction_installed_p "select count(*) from apm_packages where package_key = 'intranet-openoffice'"] } {
ad_return_complaint 1 "Please contact your System Administrator. Package 'intranet-openoffice' is missing."
}
set pdf_filename "[file rootname $odt_zip].pdf"
intranet_oo::jodconvert -oo_file $odt_zip -output_file $pdf_filename
set outputheaders [ns_conn outputheaders]
ns_set cput $outputheaders "Content-Disposition" "attachment; filename=${invoice_nr}.pdf"
ns_returnfile 200 application/pdf $pdf_filename
} else {
ns_log Notice "view.tcl: before returning file"
set outputheaders [ns_conn outputheaders]
ns_set cput $outputheaders "Content-Disposition" "attachment; filename=${invoice_nr}.odt"
ns_returnfile 200 application/odt $odt_zip
}
# ------------------------------------------------
# Delete the temporary files
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment