# untested
sub add_company {
   return gen_add('company',@_);
}

sub add_financial_diary {
   return gen_add('financialDiary',@_);
}

sub gen_add {
   my ($table,$self,$data) = @_;
   my $return = $self->_generic_insert( $data, $table );
   $self->{ _dbh }->commit if ! $self->{ _error };
   return $return;
}