bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Initial part of reporting.

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-12-19 11:49:26 -05:00
parent 865a4f39e2
commit 051e241768
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
external-account-totals-reconcile.plx
View file

@ -86,14 +86,15 @@ while (my $line = <ACCT_DATA>) {
} }
close(ACCT_DATA); die "error reading ledger output for chart of accounts: $!" unless $? == 0; close(ACCT_DATA); die "error reading ledger output for chart of accounts: $!" unless $? == 0;
print "EXTERNAL: \n";
foreach my $acct (sort keys %externalBalances) { foreach my $acct (sort keys %externalBalances) {
print "$acct: $externalBalances{$acct}\n"; if (not defined $internalBalances{$acct}) {
print "$acct EXISTS in external data, but does not appear in Ledger.\n";
}
delete $internalBalances{$acct};
} }
print "INTERNAL: \n";
foreach my $acct (sort keys %internalBalances) { foreach my $acct (sort keys %internalBalances) {
print "$acct: $internalBalances{$acct}\n"; print "$acct EXISTS in Ledger, but does not appear in external data.\n";
} }
############################################################################### ###############################################################################
# #