version 1.28, 2011/04/19 04:35:12 |
version 1.39, 2011/12/21 02:21:54 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $AFresh1: rt_invoices.pl,v 1.27 2011/04/19 03:21:06 andrew Exp $ |
# $AFresh1: rt_invoices.pl,v 1.38 2011/06/21 00:20:28 andrew Exp $ |
######################################################################## |
######################################################################## |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# |
# |
|
|
|
|
my $iterator = $results->get_iterator; |
my $iterator = $results->get_iterator; |
while ( my $ticket = &$iterator ) { |
while ( my $ticket = &$iterator ) { |
if (!$ticket->time_worked) { |
my $cust = find_customer_for_ticket($ticket); |
say "Ticket " . $ticket->id . " has no time worked"; |
|
next; |
|
} |
|
|
|
my $cust = find_customer_for_ticket( $ticket ); |
|
if ( !$cust ) { |
if ( !$cust ) { |
warn "No customer found for ticket " . $ticket->id; |
warn "No customer found for ticket " . $ticket->id; |
next; |
next; |
|
|
foreach my $fee ( @{ $project->{fees} } ) { |
foreach my $fee ( @{ $project->{fees} } ) { |
my $hours = hours_for_date( $cust->{invoice}, $fee->{date} ); |
my $hours = hours_for_date( $cust->{invoice}, $fee->{date} ); |
|
|
my $h_type |
my $type = 'unknown'; |
= exists $hours->{ $fee->{type} } |
my $count = $fee->{count}; |
? $fee->{type} |
while ( $type && $count > 0 && $type ne 'default' ) { |
: 'default'; |
$type = exists $hours->{ $fee->{type} } |
|
&& $hours->{ $fee->{type} } > 0 ? $fee->{type} : 'default'; |
|
|
next unless exists $hours->{$h_type} && $hours->{$h_type} > 0; |
next unless exists $hours->{$type} && $hours->{$type} > 0; |
|
|
my $discount_time = 0; |
my $discount_time = 0; |
if ( $hours->{$h_type} > $fee->{count} ) { |
if ( $hours->{$type} > $count ) { |
$hours->{$h_type} -= $fee->{count}; |
$hours->{$type} -= $count; |
$discount_time = $fee->{count}; |
$discount_time = $count; |
} |
} |
else { |
else { |
$discount_time = $hours->{$h_type}; |
$discount_time = $hours->{$type}; |
$hours->{$h_type} = 0; |
$hours->{$type} = 0; |
} |
} |
|
|
if ($discount_time) { |
if ($discount_time) { |
$cust->{invoice}->{discount}->{amount} |
$cust->{invoice}->{discount}->{amount} |
+= round( $discount_time * $fee->{rate} ); |
+= round( $discount_time * $fee->{rate} ); |
$cust->{invoice}->{discount}->{hours}{$h_type} += $discount_time; |
$cust->{invoice}->{discount}->{hours}{$type} |
|
+= $discount_time; |
|
|
$h_type = '' if $h_type eq 'default'; |
$type = '' if $type eq 'default'; |
$fee->{detail} = "$discount_time $h_type Hours Discounted"; |
$count -= $discount_time; |
|
$fee->{detail} .= " $discount_time $type Hours Discounted"; |
|
} |
} |
} |
} |
} |
|
|
|
|
my $invoice = $cust->{invoice}; |
my $invoice = $cust->{invoice}; |
next unless $invoice && $invoice->{projects} && @{ $invoice->{projects} }; |
next unless $invoice && $invoice->{projects} && @{ $invoice->{projects} }; |
|
|
my %li = ( custid => $cust->{id}, invdate => |
my %li = ( |
DateTime->now( time_zone => 'local' )->ymd, ); |
custid => $cust->{id}, |
|
invdate => DateTime->now( time_zone => 'local' )->ymd, |
|
transactions => [], |
|
); |
|
|
|
my %transactions; |
foreach my $project ( @{ $invoice->{projects} } ) { |
foreach my $project ( @{ $invoice->{projects} } ) { |
if ( $project->{transactions} ) { |
if ( $project->{transactions} ) { |
push @{ $li{transactions} }, @{ $project->{transactions} }; |
%transactions = ( %transactions, %{ $project->{transactions} } ); |
} |
} |
my $subtotal = 0; |
my $subtotal = 0; |
foreach my $fee ( @{ $project->{fees} } ) { |
foreach my $fee ( @{ $project->{fees} } ) { |
|
|
$project->{total} = $subtotal; |
$project->{total} = $subtotal; |
$invoice->{total} += $subtotal; |
$invoice->{total} += $subtotal; |
} |
} |
|
@{ $li{transactions} } = sort { $a <=> $b } keys %transactions; |
|
|
if ( $invoice->{discount} ) { |
if ( $invoice->{discount} ) { |
my $c = "Included Hours\n"; |
my $c = "Included Hours\n"; |
if ( $invoice->{discount}{hours} ) { |
if ( $invoice->{discount}{hours} ) { |
foreach my $t ( keys %{ $invoice->{discount}{hours} } ) { |
foreach my $t ( keys %{ $invoice->{discount}{hours} } ) { |
$c .= "\n$invoice->{discount}{hours}{$t} $t hour"; |
my $type = $t eq 'default' ? '' : $t; |
|
$c .= "\n$invoice->{discount}{hours}{$t} $type hour"; |
$c .= 's' if $invoice->{discount}{hours}{$t} != 1; |
$c .= 's' if $invoice->{discount}{hours}{$t} != 1; |
$c .= "\n"; |
$c .= "\n"; |
} |
} |
|
|
$from = get_user($from) if !ref $from; |
$from = get_user($from) if !ref $from; |
|
|
$invoice->{organization} = $from->{organization} || $from->{name}; |
$invoice->{organization} = $from->{organization} || $from->{name}; |
$invoice->{from} = make_address($from); |
$invoice->{from} = make_address($from); |
$invoice->{to} = make_address( $cust->{address} || $cust->{id} ); |
$invoice->{to} = make_address( $cust->{address} || $cust->{id} ); |
|
|
$state->{lastinvoice}++; |
$state->{lastinvoice}++; |
$invoice->{id} = $state->{lastinvoice}; |
$invoice->{id} = $state->{lastinvoice}; |
$invoice->{file} = sprintf 'invoice_%06d.pdf', $state->{lastinvoice}; |
$invoice->{file} = sprintf 'invoice_%06d.pdf', $state->{lastinvoice}; |
$invoice->{logo} = $config->get('logo'); |
$invoice->{logo} = $config->get('logo'); |
|
|
|
|
} |
} |
} |
} |
} |
} |
$state->{invoice}->{ $li{end} }{ $invoice->{id} } = \%li; |
$state->{invoice}->{ $invoice->{id} } = \%li; |
|
|
foreach my $key (qw/ start end /) { |
foreach my $key (qw/ start end /) { |
if ( exists $invoice->{$key} ) { |
if ( exists $invoice->{$key} ) { |
|
|
next unless $cust->{match}; |
next unless $cust->{match}; |
foreach my $m ( @{ $cust->{match} } ) { |
foreach my $m ( @{ $cust->{match} } ) { |
my $type = $m->{type}; |
my $type = $m->{type}; |
my $match = exists $m->{$type} ? lc($m->{$type}) : qr/\Q$m->{regex}\E/; |
my $match |
my $thing = [ map { lc } $ticket->$type ]; |
= exists $m->{$type} |
|
? lc( $m->{$type} ) |
|
: qr/\Q$m->{regex}\E/; |
|
my $thing = [ map {lc} $ticket->$type ]; |
|
|
if (! $match) { |
if ( !$match ) { |
warn "Invalid match!"; |
warn "Invalid match!"; |
next; |
next; |
} |
} |
return $cust if ($match ~~ $thing); |
return $cust if ( $match ~~ $thing ); |
} |
} |
} |
} |
|
|
|
|
$billend->subtract( days => 1 ) |
$billend->subtract( days => 1 ) |
while $day && $billend->$day_method != $day; |
while $day && $billend->$day_method != $day; |
|
|
my $date = $billend->clone->subtract( $per => $freq ); |
my $date = $billend->clone->subtract( $per => $freq ); |
my %invoice = ( end => $billend->clone->subtract( seconds => 1 ) ); |
my %invoice = ( end => $billend->clone->subtract( seconds => 1 ) ); |
|
|
my $lastinvoice = $state->last_invoice( $cust->{id} ); |
my $lastinvoice = $state->last_invoice( $cust->{id} ); |
|
|
} |
} |
|
|
# Is the start date more than $freq $per before the end date? |
# Is the start date more than $freq $per before the end date? |
my $diff = $billend - $date; |
return {} |
return {} if $diff->in_units($per) < 1; |
if DateTime->compare( $date->clone->add( $per => $freq ), $billend ) |
|
> 0; |
|
|
if ( $cust->{base_rate} ) { |
if ( $cust->{base_rate} ) { |
my ( $project, $hours ) = make_base_project( |
my ( $project, $hours ) = make_base_project( |
$cust, |
$cust, |
{ date => $date, |
{ date => $date, |
billend => $billend, |
billend => $billend, |
per => $per, |
per => $per, |
freq => $freq, |
freq => $freq, |
} |
} |
); |
); |
|
|
|
|
my $txns = $ticket->transactions( type => [qw(Comment Correspond)] ); |
my $txns = $ticket->transactions( type => [qw(Comment Correspond)] ); |
my $txn_i = $txns->get_iterator; |
my $txn_i = $txns->get_iterator; |
while ( my $txn = $txn_i->() ) { |
while ( my $txn = $txn_i->() ) { |
next unless $txn->time_taken; |
|
next if $state->txn_is_invoiced( $txn->id ); |
next if $state->txn_is_invoiced( $txn->id ); |
|
|
|
if ( my $expense = make_expense( $txn, $ticket ) ) { |
|
push @{ $project{expenses} }, $expense; |
|
$project{transactions}{ $txn->id } = 1; |
|
} |
|
|
|
next unless $txn->time_taken; |
|
|
my $fee = make_fee( $txn, $cust->{rates}, $ticket ); |
my $fee = make_fee( $txn, $cust->{rates}, $ticket ); |
|
|
if ( !( $fee->{rate} && $fee->{count} ) ) { |
if ( !( $fee->{rate} && $fee->{count} ) ) { |
|
|
} |
} |
|
|
my $invoice = $cust->{invoice}; |
my $invoice = $cust->{invoice}; |
if ($invoice->{start} && $invoice->{start} > $fee->{date}) { |
if ( $invoice->{start} && $invoice->{start} > $fee->{date} ) { |
warn "Ticket " . $ticket->id |
warn "Ticket " |
. " has old uninvoiced Transaction " . $txn->id . "\n"; |
. $ticket->id |
|
. " has uninvoiced Transaction " |
|
. $txn->id . "\n"; |
next; |
next; |
} |
} |
next if $invoice->{end} < $fee->{date}; |
next if $invoice->{end} < $fee->{date}; |
|
|
push @{ $project{fees} }, $fee; |
push @{ $project{fees} }, $fee; |
push @{ $project{transactions} }, $txn->id; |
$project{transactions}{ $txn->id } = 1; |
} |
} |
|
|
return \%project; |
return \%project; |
|
|
my $work_time = sprintf "%.03f", $txn->time_taken / 60; |
my $work_time = sprintf "%.03f", $txn->time_taken / 60; |
my $work_type = $txn->cf('WorkType'); |
my $work_type = $txn->cf('WorkType'); |
|
|
|
if ( $work_type =~ s/\s*Onsite//i ) { |
|
|
|
# XXX Do something special for onsite activities |
|
} |
|
|
|
$work_type =~ s/^\s+|\s+$//g; |
|
$work_type ||= 'Normal'; |
|
|
my %fee = ( |
my %fee = ( |
id => $txn->id, |
id => $txn->id, |
contents => $txn->created . ' (' |
contents => $txn->created . ' (' |
|
|
return \%fee; |
return \%fee; |
} |
} |
|
|
|
sub make_expense { |
|
my ( $txn, $ticket ) = @_; |
|
|
|
my $amount = $txn->cf('ExpenseAmount') or return; |
|
|
|
my %expense = ( |
|
id => $txn->id, |
|
contents => $txn->created . ' (' |
|
. $txn->id . ')' . "\n\n" |
|
. ( $txn->data || $ticket->subject ), |
|
amount => $amount, |
|
date => ymd_to_DateTime( $txn->created ), |
|
|
|
# detail => ???, |
|
); |
|
|
|
return \%expense; |
|
} |
|
|
sub hours_for_date { |
sub hours_for_date { |
my ( $invoice, $date ) = @_; |
my ( $invoice, $date ) = @_; |
|
|
|
|
my $value = Load( Dump( $self->{_config}->{$key} ) ); |
my $value = Load( Dump( $self->{_config}->{$key} ) ); |
|
|
return $value if $value; |
return $value if $value; |
my ($volume,$directories,$file) =File::Spec->splitpath( |
my ( $volume, $directories, $file ) |
File::Spec->rel2abs( $self->{file} )); |
= File::Spec->splitpath( File::Spec->rel2abs( $self->{file} ) ); |
|
|
given ($key) { |
given ($key) { |
when ('state') { |
when ('state') { |
|
|
$value =~ s/(?:\.[^.]+)?$/\.state/; |
$value =~ s/(?:\.[^.]+)?$/\.state/; |
} |
} |
when ('invoice_dir') { |
when ('invoice_dir') { |
$value = File::Spec->catdir($volume, $directories, 'invoices' ); |
$value = File::Spec->catdir( $volume, $directories, 'invoices' ); |
} |
} |
when ('template_dir') { |
when ('template_dir') { |
$value = File::Spec->catdir( $volume, $directories ); |
$value = File::Spec->catdir( $volume, $directories ); |
|
|
$value = 'invoice.tex.tt'; |
$value = 'invoice.tex.tt'; |
} |
} |
when ('logo') { |
when ('logo') { |
$value = File::Spec->catfile($volume, $directories, 'Logo.pdf' ); |
$value = File::Spec->catfile( $volume, $directories, 'Logo.pdf' ); |
} |
} |
} |
} |
|
|