Initial part of reporting.
This commit is contained in:
		
							parent
							
								
									865a4f39e2
								
							
						
					
					
						commit
						051e241768
					
				
					 1 changed files with 5 additions and 4 deletions
				
			
		|  | @ -86,14 +86,15 @@ while (my $line = <ACCT_DATA>) { | |||
| } | ||||
| close(ACCT_DATA); die "error reading ledger output for chart of accounts: $!" unless $? == 0; | ||||
| 
 | ||||
| print "EXTERNAL: \n"; | ||||
| 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) { | ||||
|   print "$acct: $internalBalances{$acct}\n"; | ||||
|   print "$acct EXISTS in Ledger, but does not appear in external data.\n"; | ||||
| } | ||||
| ############################################################################### | ||||
| # | ||||
|  |  | |||
		Loading…
	
	Add table
		
		Reference in a new issue
	
	 Bradley M. Kuhn
						Bradley M. Kuhn