sub add_company {
           my ($self,$data) = shift;
           $self->gen_add($data,'company');
        }

        sub add_financial_diary {
           my ($self,$data) = shift;
           $self->gen_add($data,'financialDiary');
        }

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