version 1.13, 2011/03/22 02:16:53 |
version 1.17, 2011/03/22 05:06:05 |
|
|
my $startdate; |
my $startdate; |
|
|
my $customers = $config->get('customers'); |
my $customers = $config->get('customers'); |
CUSTOMER: while ( my ( $custid, $cust ) = each %{$customers} ) { |
while ( my ( $custid, $cust ) = each %{$customers} ) { |
|
$cust->{id} = $custid; |
|
|
my $invoice = make_invoice(); |
if ( my $invoice = make_invoice($cust) ) { |
|
$cust->{invoice} = $invoice; |
if ( $cust->{base_rate} ) { |
|
my $day = $cust->{day} || 1; |
|
my $freq = $cust->{frequency} || 1; |
|
|
|
my $per; |
|
my $day_method; |
|
given ( $cust->{per} ) { |
|
when ('week') { $per = 'weeks'; $day_method = 'dow' } |
|
when ('month') { $per = 'months'; $day_method = 'day' } |
|
default { die "Unknown per [$cust->{per}]\n" } |
|
} |
|
|
|
my $billends = $invoice->{end}->clone; |
|
$billends->subtract( days => 1 ) while $billends->$day_method != $day; |
|
|
|
my $date = $billends->clone->subtract( $per => $freq ); |
|
|
|
my $lastinvoice = $state->last_invoice($custid); |
|
if ( $lastinvoice->{date} ) { |
|
my $last_invoice_date = ymd_to_DateTime( $lastinvoice->{date} ); |
|
$date = $last_invoice_date->clone->add( days => 1 ); |
|
} |
|
|
|
next CUSTOMER if $billends <= $date; |
|
|
|
my $title |
|
= $freq == 1 |
|
? ucfirst( $cust->{per} . 'ly' ) |
|
: $freq . ' ' . ucfirst( $cust->{per} ); |
|
$title .= ' Retainer'; |
|
|
|
my %project = ( title => $title, fees => [], ); |
|
|
|
while ( $date < $billends ) { |
|
my $start = $date->clone; |
|
|
|
$date->add( $per => $freq ); |
|
$date = $billends->clone if $date > $billends; |
|
|
|
# XXX This is helpful, but monthly and billday > 28 == !!! |
|
$date->subtract( days => 1 ) while $date->$day_method != $day; |
|
|
|
my $end = $date->clone->subtract( seconds => 1 ); |
|
|
|
next if $end < $start; |
|
|
|
$startdate = $start->clone if !$startdate || $startdate > $start; |
|
$invoice->{start} ||= $start->clone; |
|
$invoice->{end} = $end->clone; |
|
my %hours = ( |
|
start => $start->clone, |
|
end => $end->clone, |
|
hours => { %{ $cust->{hours} } }, |
|
); |
|
|
|
push @{ $invoice->{hours} }, \%hours; |
|
push @{ $project{fees} }, |
|
{ |
|
count => 1, |
|
rate => $cust->{base_rate}, |
|
contents => $start->ymd . ' to ' . $end->ymd, |
|
}; |
|
|
|
} |
|
|
|
if ( @{ $project{fees} } ) { |
|
push @{ $invoice->{projects} }, \%project; |
|
} |
|
} |
} |
|
|
$cust->{address} ||= get_user($custid); |
|
$cust->{invoice} = $invoice; |
|
} |
} |
|
|
my @limits = map +{ |
my @limits = map +{ |
|
|
} |
} |
|
|
if ($discount_time) { |
if ($discount_time) { |
$invoice->{discount}{amount} += $discount_time * $fee->{rate}; |
$invoice->{discount}{amount} |
|
+= round( $discount_time * $fee->{rate} ); |
$invoice->{discount}{hours}{$h_type} += $discount_time; |
$invoice->{discount}{hours}{$h_type} += $discount_time; |
|
|
$h_type = '' if $h_type eq 'default'; |
$h_type = '' if $h_type eq 'default'; |
|
|
|
|
next unless $invoice->{total} > 0 || $invoice->{total_due}; |
next unless $invoice->{total} > 0 || $invoice->{total_due}; |
|
|
# XXX Here we need to "make_address" |
|
$invoice->{info} = $config->get('info'); |
$invoice->{info} = $config->get('info'); |
$invoice->{from} = make_address( $config->get('from') ); |
$invoice->{from} = make_address( $config->get('from') ); |
$invoice->{to} = make_address( $cust->{address} ); |
$invoice->{to} = make_address( $cust->{address} || $custid ); |
|
|
$state->{lastinvoice}++; |
$state->{lastinvoice}++; |
$invoice->{id} = $state->{lastinvoice}; |
$invoice->{id} = $state->{lastinvoice}; |
$invoice->{file} = 'invoice_' . $state->{lastinvoice} . '.pdf'; |
$invoice->{file} = sprintf 'invoice_%06d.pdf', $state->{lastinvoice}; |
|
|
foreach my $k (qw/ file transactions start end total past_due total_due /) |
foreach my $k (qw/ file transactions start end total past_due total_due /) |
{ |
{ |
|
|
sub fake_customer { |
sub fake_customer { |
my ( $customers, $ticket ) = @_; |
my ( $customers, $ticket ) = @_; |
|
|
# make the custid the first requestor |
|
my ($custid) = $ticket->requestors; |
|
return unless $custid; |
|
|
|
my $cust = $config->get('default') || {}; |
my $cust = $config->get('default') || {}; |
$cust->{address} = get_user($custid); |
|
|
|
$cust->{match} = [{ |
( $cust->{id} ) = $ticket->requestors; |
type => 'requestors', |
return unless $cust->{id}; |
regex => $custid, |
|
}]; |
|
|
|
my $invoice = make_invoice(); |
$cust->{match} = [ |
|
{ type => 'requestors', |
|
regex => $cust->{id}, |
|
} |
|
]; |
|
|
my $lastinvoice = $state->last_invoice($custid); |
if ( my $invoice = make_invoice($cust) ) { |
if ( $lastinvoice->{date} ) { |
|
my $last_invoice_date = ymd_to_DateTime( $lastinvoice->{date} ); |
|
$invoice->{start} = $last_invoice_date->clone->add( days => 1 ); |
|
} |
|
|
|
if ( !( $invoice->{start} && $invoice->{start} < $invoice->{end} ) ) { |
|
$cust->{invoice} = $invoice; |
$cust->{invoice} = $invoice; |
} |
} |
|
|
$customers->{$custid} = $cust; |
$customers->{ $cust->{id} } = $cust; |
return $cust; |
return $cust; |
} |
} |
|
|
|
|
} |
} |
|
|
sub make_invoice { |
sub make_invoice { |
|
my ($cust) = @_; |
|
|
my $billends |
my $day = $cust->{day} ||= 1; |
= DateTime->now->set( hour => 0, minute => 0, second => 0 ); |
my $per = $cust->{per} ||= 'week'; |
my %invoice = ( end => $billends->clone->subtract( days => 1, seconds => 1 ) ); |
my $freq = $cust->{frequency} ||= 1; |
|
|
|
my $day_method; |
|
given ($per) { |
|
when ('week') { $per = 'weeks'; $day_method = 'dow' } |
|
when ('month') { $per = 'months'; $day_method = 'day' } |
|
default { die "Unknown per [$per]\n" } |
|
} |
|
|
|
my $billends = DateTime->now->set( hour => 0, minute => 0, second => 0 ); |
|
|
|
# XXX This is helpful, but monthly and billday > 28 == !!! |
|
$billends->subtract( days => 1 ) while $billends->$day_method != $day; |
|
|
|
my $date = $billends->clone->subtract( $per => $freq ); |
|
|
|
my %invoice = ( end => $billends->clone->subtract( seconds => 1 ) ); |
|
|
|
my $lastinvoice = $state->last_invoice( $cust->{id} ); |
|
if ( $lastinvoice->{date} ) { |
|
my $last_invoice_date = ymd_to_DateTime( $lastinvoice->{date} ); |
|
$date = $last_invoice_date->clone->add( days => 1 ); |
|
|
|
$invoice{start} = $date->clone; |
|
|
|
$startdate = $date->clone->subtract( $per => $freq ) |
|
if !$startdate || $startdate > $date; |
|
} |
|
|
|
return if $billends <= $date; |
|
|
|
if ( $cust->{base_rate} ) { |
|
my ( $project, $hours ) = make_base_project( |
|
$cust, |
|
{ startdate => $date, |
|
enddate => $billends, |
|
per => $per, |
|
freq => $freq, |
|
day => $day, |
|
day_method => $day_method, |
|
} |
|
); |
|
|
|
if ( @{ $project->{fees} } ) { |
|
$invoice{end} = $project->{end}; |
|
$invoice{hours} = $hours; |
|
push @{ $invoice{projects} }, $project; |
|
} |
|
} |
|
elsif ( $cust->{hours} ) { |
|
$invoice{hours} = [ |
|
{ end => $invoice{end}->clone, |
|
hours => $cust->{hours}, |
|
} |
|
]; |
|
} |
|
|
|
return if $invoice{start} && $invoice{end} < $invoice{start}; |
|
|
return \%invoice; |
return \%invoice; |
} |
} |
|
|
|
sub make_base_project { |
|
my ( $cust, $args ) = @_; |
|
|
|
my $date = $args->{startdate}; |
|
my $enddate = $args->{enddate}; |
|
my $per = $args->{per}; |
|
my $freq = $args->{freq}; |
|
my $day = $args->{day}; |
|
my $day_method = $args->{day_method}; |
|
|
|
my $title |
|
= $freq == 1 |
|
? ucfirst( $cust->{per} . 'ly' ) |
|
: $freq . ' ' . ucfirst( $cust->{per} ); |
|
$title .= ' Retainer'; |
|
|
|
my %project = ( title => $title, start => $date->clone, fees => [], ); |
|
my @hours; |
|
|
|
while ( $date < $enddate ) { |
|
my $start = $date->clone; |
|
|
|
$date->add( $per => $freq ); |
|
$date = $enddate->clone if $date > $enddate; |
|
|
|
# XXX This is helpful, but monthly and billday > 28 == !!! |
|
$date->subtract( days => 1 ) while $date->$day_method != $day; |
|
|
|
my $end = $date->clone->subtract( seconds => 1 ); |
|
|
|
last if $end < $start; |
|
|
|
$project{end} = $end->clone; |
|
|
|
push @{ $project{fees} }, |
|
{ |
|
count => 1, |
|
rate => $cust->{base_rate}, |
|
contents => $start->ymd . ' to ' . $end->ymd, |
|
}; |
|
|
|
push @hours, |
|
{ |
|
start => $start->clone, |
|
end => $end->clone, |
|
hours => { %{ $cust->{hours} } }, |
|
}; |
|
} |
|
|
|
return \%project, \@hours; |
|
} |
|
|
sub make_address { |
sub make_address { |
my ($addr) = @_; |
my ($addr) = @_; |
my @adr; |
my @adr; |
|
|
|
$addr = get_user($addr) unless ref $addr; |
|
|
if ( $addr->{organization} ) { |
if ( $addr->{organization} ) { |
push @adr, $addr->{organization}; |
push @adr, $addr->{organization}; |
} |
} |
|
|
title => $ticket->subject, |
title => $ticket->subject, |
detail => 'Ticket: ' |
detail => 'Ticket: ' |
. $ticket->id |
. $ticket->id |
. ' Queue: ' |
. ' Status: ' |
. $ticket->queue |
. $ticket->status |
. ' Requestors: ' |
. ' Requestors: ' |
. join( ', ', $ticket->requestors ), |
. join( ', ', $ticket->requestors ), |
fees => [], |
fees => [], |