Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision d0816eaf

Von Jan Büren vor 5 Tagen hinzugefügt

  • ID d0816eaf82c961dbf6d1e2a1000d8e37c99a5ccf
  • Vorgänger ea42fafb

DATEV: transaction_type darf undef sein

Unterschiede anzeigen:

SL/DATEV.pm
85 85
  $self->{transaction_type} = $_[0] if @_;
86 86

  
87 87
  die "Invalid DATEV Transaction Type"
88
    unless $self->{transaction_type} =~ m/^(ar|ap|all)$/;
88
    if $self->{transaction_type} && $self->{transaction_type} !~ m/^(ar|ap|all)$/;
89 89

  
90 90
  return $self->{transaction_type};
91 91
}
......
540 540

  
541 541
  my $filter   = '';            # Useful for debugging purposes
542 542

  
543
  $filter .= ' AND ac.trans_id in (SELECT id from ar) ' if $self->transaction_type eq 'ar';
544
  $filter .= ' AND ac.trans_id in (SELECT id from ap) ' if $self->transaction_type eq 'ap';
543
  $filter .= ' AND ac.trans_id in (SELECT id from ar) ' if $self->transaction_type // '' eq 'ar';
544
  $filter .= ' AND ac.trans_id in (SELECT id from ap) ' if $self->transaction_type // '' eq 'ap';
545 545

  
546 546
  my %all_taxchart_ids = selectall_as_map($form, $self->dbh, qq|SELECT DISTINCT chart_id, TRUE AS is_set FROM tax|, 'chart_id', 'is_set');
547 547

  

Auch abrufbar als: Unified diff