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

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