Return to report_paid.pl CVS log

Up to [local] / RT / Invoicing

Add some helper tools

#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

use YAML::XS qw/ LoadFile Dump /;

my $state = LoadFile('rt_invoice.state');

foreach my $invoice (keys %{ $state->{invoice}->{$date} }) {
	my $i = $state->{invoice}->{$date}->{$invoice};
	next unless $i->{custid};
	next unless $i->{custid} eq 'WireFree';
	#next unless $i->{custid} eq 'speakman';
	#next unless $i->{custid} eq 'jscherz@itc-home.com';
	next if $i->{void};
	#print Dump $i;

	printf "Invoice %s for \$%0.2f on %s\n", $invoice, $i->{total}, $i->{invdate};
	my $owes = $i->{total};
	if ($i->{paid}) {
		$owes -= $i->{paid};
		printf ' Paid: $%0.2f', $i->{paid};
		print ' on ', $i->{pmt_date} if $i->{pmt_date};
		print ' with check ', $i->{check} if $i->{check};
		print "\n";
	}
	printf " Owing \$%0.2f\n", $owes;
}