Revision 2400dcdc
| SL/DATEV.pm | ||
|---|---|---|
| 80 | 80 |
|
| 81 | 81 |
$obj; |
| 82 | 82 |
} |
| 83 |
sub transaction_type {
|
|
| 84 |
my $self = shift; |
|
| 85 |
$self->{transaction_type} = $_[0] if @_;
|
|
| 86 |
|
|
| 87 |
die "Invalid DATEV Transaction Type" |
|
| 88 |
unless $self->{transaction_type} =~ m/^(ar|ap|all)$/;
|
|
| 89 |
|
|
| 90 |
return $self->{transaction_type};
|
|
| 91 |
} |
|
| 92 |
|
|
| 83 | 93 |
|
| 84 | 94 |
sub exporttype {
|
| 85 | 95 |
my $self = shift; |
| ... | ... | |
| 530 | 540 |
|
| 531 | 541 |
my $filter = ''; # Useful for debugging purposes |
| 532 | 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'; |
|
| 545 |
|
|
| 533 | 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'); |
| 534 | 547 |
|
| 535 | 548 |
my $ar_accno = "c.accno"; |
Auch abrufbar als: Unified diff
DATEV-Export: Filter nach Kreditoren- oder Debitorenbuchungen