version 1.22, 2011/04/08 18:10:28 |
version 1.31, 2011/05/07 02:03:55 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $AFresh1: rt_invoices.pl,v 1.21 2011/03/24 20:03:49 andrew Exp $ |
# $AFresh1: rt_invoices.pl,v 1.30 2011/05/03 04:41:11 andrew Exp $ |
######################################################################## |
######################################################################## |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# |
# |
|
|
my $startdate; |
my $startdate; |
|
|
my $customers = $config->get('customers'); |
my $customers = $config->get('customers'); |
while ( my ( $custid, $cust ) = each %{$customers} ) { |
|
$cust->{id} = $custid; |
|
|
|
if ( my $invoice = make_invoice($cust) ) { |
|
$cust->{invoice} = $invoice; |
|
} |
|
} |
|
|
|
my @limits = map +{ |
my @limits = map +{ |
attribute => 'status', |
attribute => 'status', |
operator => '=', |
operator => '=', |
|
|
|
|
my $iterator = $results->get_iterator; |
my $iterator = $results->get_iterator; |
while ( my $ticket = &$iterator ) { |
while ( my $ticket = &$iterator ) { |
my $cust = find_customer_for_ticket( $customers, $ticket ); |
if ( !$ticket->time_worked ) { |
|
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; |
} |
} |
if ( !$cust->{invoice} ) { |
|
say "$cust->{id} has no open invoices [" . $ticket->id . ']'; |
say 'Ticket ' . $ticket->id . " belongs to $cust->{id}"; |
|
|
|
$cust->{invoice} ||= make_invoice($cust); |
|
if ( !$cust->{invoice}->{end} ) { |
|
say " $cust->{id} has no open invoices [" . $ticket->id . ']'; |
next; |
next; |
} |
} |
say 'Giving ticket ' . $ticket->id . " to $cust->{id}"; |
|
my $invoice = $cust->{invoice}; |
|
|
|
my $project = make_project( $ticket, $cust ); |
my $project = make_project( $ticket, $cust ); |
next unless @{ $project->{fees} } || @{ $project->{expenses} }; |
next unless @{ $project->{fees} } || @{ $project->{expenses} }; |
|
|
foreach my $fee ( @{ $project->{fees} } ) { |
foreach my $fee ( @{ $project->{fees} } ) { |
my $hours = hours_for_date( $invoice, $fee->{date} ); |
my $hours = hours_for_date( $cust->{invoice}, $fee->{date} ); |
|
|
my $h_type |
my $type = exists $hours->{ $fee->{type} } |
= exists $hours->{ $fee->{type} } |
&& $hours->{ $fee->{type} } > 0 ? $type : 'default'; |
? $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} > $fee->{count} ) { |
$hours->{$h_type} -= $fee->{count}; |
$hours->{$type} -= $fee->{count}; |
$discount_time = $fee->{count}; |
$discount_time = $fee->{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) { |
$invoice->{discount}{amount} |
$cust->{invoice}->{discount}->{amount} |
+= round( $discount_time * $fee->{rate} ); |
+= round( $discount_time * $fee->{rate} ); |
$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"; |
$fee->{detail} = "$discount_time $type Hours Discounted"; |
} |
} |
} |
} |
|
|
push @{ $invoice->{projects} }, $project; |
push @{ $cust->{invoice}->{projects} }, $project; |
} |
} |
|
|
while ( my ( $custid, $cust ) = each %{$customers} ) { |
foreach my $cust ( @{$customers} ) { |
my $invoice = $cust->{invoice}; |
my $invoice = $cust->{invoice}; |
next unless $invoice->{projects} && @{ $invoice->{projects} }; |
next unless $invoice && $invoice->{projects} && @{ $invoice->{projects} }; |
|
|
my %li = ( custid => $custid, invdate => DateTime->now->ymd, ); |
my %li = ( |
|
custid => $cust->{id}, |
|
invdate => DateTime->now( time_zone => 'local' )->ymd, |
|
); |
|
|
foreach my $project ( @{ $invoice->{projects} } ) { |
foreach my $project ( @{ $invoice->{projects} } ) { |
if ( $project->{transactions} ) { |
if ( $project->{transactions} ) { |
|
|
$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} || $custid ); |
$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'); |
|
|
|
|
$tt->process( $config->get('invoice_template'), $invoice, $file ) |
$tt->process( $config->get('invoice_template'), $invoice, $file ) |
or die $tt->error . "\n"; |
or die $tt->error . "\n"; |
|
|
printf "Generated %s for %s: \$%.02f\n", $invoice->{file}, $custid, |
printf "Generated %s for %s: \$%.02f\n", $invoice->{file}, $cust->{id}, |
$invoice->{total}; |
$invoice->{total}; |
} |
} |
|
|
|
|
} |
} |
|
|
sub find_customer_for_ticket { |
sub find_customer_for_ticket { |
my ( $customers, $ticket ) = @_; |
my ($ticket) = @_; |
|
|
foreach my $cust ( values %{$customers} ) { |
foreach my $cust ( @{$customers} ) { |
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 ); |
} |
} |
} |
} |
|
|
return fake_customer( $customers, $ticket ); |
# Fake customer if we didn't find one |
} |
|
|
|
sub fake_customer { |
|
my ( $customers, $ticket ) = @_; |
|
|
|
my $cust = $config->get('default') || {}; |
my $cust = $config->get('default') || {}; |
|
|
( $cust->{id} ) = $ticket->requestors; |
( $cust->{id} ) = $ticket->requestors; |
return unless $cust->{id}; |
return unless $cust->{id}; |
|
push @{$customers}, $cust; |
|
|
$cust->{match} = [ |
$cust->{match} = [ |
{ type => 'requestors', |
{ type => 'requestors', |
|
|
} |
} |
]; |
]; |
|
|
if ( my $invoice = make_invoice($cust) ) { |
|
$cust->{invoice} = $invoice; |
|
} |
|
|
|
$customers->{ $cust->{id} } = $cust; |
|
return $cust; |
return $cust; |
} |
} |
|
|
|
|
default { die "Unknown per [$per]\n" } |
default { die "Unknown per [$per]\n" } |
} |
} |
|
|
my $billends = DateTime->now->set( hour => 0, minute => 0, second => 0 ); |
my $billend = DateTime->now( time_zone => 'local' ) |
|
->set( hour => 0, minute => 0, second => 0 ); |
|
|
# XXX This is helpful, but monthly and billday > 28 == !!! |
# XXX This is helpful, but monthly and billday > 28 == !!! |
$billends->subtract( days => 1 ) |
$billend->subtract( days => 1 ) |
while $day && $billends->$day_method != $day; |
while $day && $billend->$day_method != $day; |
|
|
my $date = $billends->clone->subtract( $per => $freq ); |
my $date = $billend->clone->subtract( $per => $freq ); |
|
my %invoice = ( end => $billend->clone->subtract( seconds => 1 ) ); |
|
|
my %invoice = ( end => $billends->clone->subtract( seconds => 1 ) ); |
|
|
|
my $lastinvoice = $state->last_invoice( $cust->{id} ); |
my $lastinvoice = $state->last_invoice( $cust->{id} ); |
if ( $lastinvoice->{date} ) { |
if ( $lastinvoice->{date} ) { |
my $last_invoice_date = ymd_to_DateTime( $lastinvoice->{date} ); |
my $last_invoice_date = ymd_to_DateTime( $lastinvoice->{date} ); |
|
|
if !$startdate || $startdate > $date; |
if !$startdate || $startdate > $date; |
} |
} |
|
|
return if $billends <= $date; |
# Is the start date more than $freq $per before the end date? |
|
return {} |
|
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, |
{ startdate => $date, |
{ date => $date, |
enddate => $billends, |
billend => $billend, |
per => $per, |
per => $per, |
freq => $freq, |
freq => $freq, |
day => $day, |
|
day_method => $day_method, |
|
} |
} |
); |
); |
|
|
|
|
]; |
]; |
} |
} |
|
|
return if $invoice{start} && $invoice{end} < $invoice{start}; |
return {} if $invoice{start} && $invoice{end} < $invoice{start}; |
|
|
return \%invoice; |
return \%invoice; |
} |
} |
|
|
sub make_base_project { |
sub make_base_project { |
my ( $cust, $args ) = @_; |
my ( $cust, $args ) = @_; |
|
|
my $date = $args->{startdate}; |
my $date = $args->{date}; |
my $enddate = $args->{enddate}; |
my $billend = $args->{billend}; |
my $per = $args->{per}; |
my $per = $args->{per}; |
my $freq = $args->{freq}; |
my $freq = $args->{freq}; |
my $day = $args->{day}; |
|
my $day_method = $args->{day_method}; |
|
|
|
my $title |
my $title |
= $freq == 1 |
= $freq == 1 |
|
|
my %project = ( title => $title, start => $date->clone, fees => [], ); |
my %project = ( title => $title, start => $date->clone, fees => [], ); |
my @hours; |
my @hours; |
|
|
while ( $date < $enddate ) { |
while ( $date < $billend ) { |
my $start = $date->clone; |
my $start = $date->clone; |
|
|
$date->add( $per => $freq ); |
$date->add( $per => $freq ); |
$date = $enddate->clone if $date > $enddate; |
|
|
|
# XXX This is helpful, but monthly and billday > 28 == !!! |
|
$date->subtract( days => 1 ) while $day && $date->$day_method != $day; |
|
|
|
my $end = $date->clone->subtract( seconds => 1 ); |
my $end = $date->clone->subtract( seconds => 1 ); |
|
$end = $billend->clone->subtract( seconds => 1 ) if $date > $billend; |
|
|
last if $end < $start; |
|
|
|
$project{end} = $end->clone; |
$project{end} = $end->clone; |
|
|
push @{ $project{fees} }, |
push @{ $project{fees} }, |
|
|
} |
} |
|
|
my $invoice = $cust->{invoice}; |
my $invoice = $cust->{invoice}; |
next |
if ( $invoice->{start} && $invoice->{start} > $fee->{date} ) { |
if $invoice->{start} |
warn "Ticket " |
&& $invoice->{start} > $fee->{date}; |
. $ticket->id |
|
. " has uninvoiced Transaction " |
|
. $txn->id . "\n"; |
|
next; |
|
} |
next if $invoice->{end} < $fee->{date}; |
next if $invoice->{end} < $fee->{date}; |
|
|
push @{ $project{fees} }, $fee; |
push @{ $project{fees} }, $fee; |
|
|
my ( $hour, $minute, $second ) = split ':', $time if $time; |
my ( $hour, $minute, $second ) = split ':', $time if $time; |
|
|
return DateTime->new( |
return DateTime->new( |
year => $year, |
year => $year, |
month => $month, |
month => $month, |
day => $day, |
day => $day, |
hour => $hour || 0, |
hour => $hour || 0, |
minute => $minute || 0, |
minute => $minute || 0, |
second => $second || 0, |
second => $second || 0, |
|
time_zone => 'local', |
); |
); |
} |
} |
|
|
|
|
|
|
my $c = LoadFile($file) or die "Unable to load $file\n"; |
my $c = LoadFile($file) or die "Unable to load $file\n"; |
|
|
$c->{customers} ||= {}; |
$c->{customers} ||= []; |
if ( $c->{default} ) { |
if ( $c->{default} ) { |
foreach my $cust ( values %{ $c->{customers} } ) { |
foreach my $cust ( @{ $c->{customers} } ) { |
foreach my $k ( keys %{ $c->{default} } ) { |
foreach my $k ( keys %{ $c->{default} } ) { |
$cust->{$k} //= Load( Dump( $c->{default}->{$k} ) ); |
$cust->{$k} //= Load( Dump( $c->{default}->{$k} ) ); |
} |
} |
|
|
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' ); |
} |
} |
} |
} |
|
|