X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FChart.pm;h=d51332f7d8c1d29cbbd5198dec962693d92ba63d;hb=19f44ce2841706aff96243bdd7969cd6cf4241ee;hp=ee7ad6a69ec000e65295a602ec42735dcc2e006f;hpb=4f152ed21fb137de6d6f4d48ec28d67055bcf965;p=kivitendo-erp.git diff --git a/SL/DB/Chart.pm b/SL/DB/Chart.pm index ee7ad6a69..d51332f7d 100644 --- a/SL/DB/Chart.pm +++ b/SL/DB/Chart.pm @@ -77,20 +77,25 @@ sub formatted_balance_dc { sub number_of_transactions { my ($self) = @_; - - my ($acc_trans) = $self->db->dbh->selectrow_array('select count(acc_trans_id) from acc_trans where chart_id = ?', {}, $self->id); - - return $acc_trans; + require SL::DB::AccTransaction; + return SL::DB::Manager::AccTransaction->get_all_count( where => [ chart_id => $self->id ] ); }; sub has_transaction { my ($self) = @_; - my ($id) = $self->db->dbh->selectrow_array('select acc_trans_id from acc_trans where chart_id = ? limit 1', {}, $self->id) || 0; + $self->db->dbh->selectrow_array('select exists(select 1 from acc_trans where chart_id = ?)', {}, $self->id); +} - $id ? return 1 : return 0; +sub new_chart_valid { + my ($self) = @_; -}; + if ( $self->valid_from && DateTime->today >= $self->valid_from ) { + return 1; + } else { + return 0; + }; +} sub displayable_name { my ($self) = @_; @@ -161,6 +166,10 @@ the asofdate as the current day, and the accounting_method "accrual". Returns a formatted version of C, taking the absolute value and adding the translated abbreviation for debit or credit after the number. +=item C + +Returns number of transactions that exist for this chart in acc_trans. + =item C Returns 1 or 0, depending whether the chart has a transaction in the database @@ -171,6 +180,12 @@ or not. Returns the date of the last transaction of the chart in the database, which may lie in the future. +=item C + +Checks whether a follow-up chart is configured, and returns 1 or 0 depending on +whether the valid_from date is before or after the current date. +Is this even used anywhere? + =back =head1 BUGS