sub accounts {
  my $self = shift;
  my $rs = $self->search({},
           { select   => ["project_id", "chart.accno", "chart.description", "SUM(amount)"],
             as       => ["project_id", "accno", "description", "bal"],
             group_by => ["project_id", "chart.accno", "chart.description"],
             having   => { 'SUM(amount)' => { '!=', 0 } },
             join     => [ "chart" ],
           });
  $rs->result_class('DBIx::Class::ResultClass::HashRefInflator');
  unique map "$$_{accno} - $$_{description}", $rs->all;
}