Revision d0816eaf
Von Jan Büren vor 5 Tagen hinzugefügt
- ID d0816eaf82c961dbf6d1e2a1000d8e37c99a5ccf
- Vorgänger ea42fafb
| 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
DATEV: transaction_type darf undef sein