projekt kivitendo

use SL::DBUtils;

sub get_coa {

  my ( $self, $form, $myconfig) = @_;

  my $query = q{ SELECT coa FROM defaults };

  my $dbh = $form->dbconnect($myconfig);

  my $sth = $dbh->prepare($query);

  $sth->execute() || $form->dberror($query);

  my ($coa) = selectrow_query($form, $dbh, $query);  

  $sth->finish;

  $dbh->disconnect;

  $form->{coa} = $coa;

  $form->{"COA_$coa"} = '1';

  $form->{COA_Germany} = '1' if ( $coa eq 'Germany-DATEV-SKR03EU' or $coa eq 'Germany-DATEV-SKR04EU');

  return;

}