Revision e04c32d3
Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 193 | 193 |
return $self->{to};
|
| 194 | 194 |
} |
| 195 | 195 |
|
| 196 |
sub trans_id {
|
|
| 197 |
my $self = shift; |
|
| 198 |
|
|
| 199 |
if (@_) {
|
|
| 200 |
$self->{trans_id} = $_[0];
|
|
| 201 |
} |
|
| 202 |
|
|
| 203 |
return $self->{trans_id};
|
|
| 204 |
} |
|
| 205 |
|
|
| 196 | 206 |
sub accnofrom {
|
| 197 | 207 |
my $self = shift; |
| 198 | 208 |
|
| ... | ... | |
| 342 | 352 |
|
| 343 | 353 |
my $form = $main::form; |
| 344 | 354 |
|
| 355 |
my $trans_id_filter = ''; |
|
| 356 |
|
|
| 357 |
$trans_id_filter = 'AND ac.trans_id = ' . $self->trans_id if $self->trans_id; |
|
| 358 |
|
|
| 345 | 359 |
my ($notsplitindex); |
| 346 | 360 |
|
| 347 | 361 |
$fromto =~ s/transdate/ac\.transdate/g; |
| ... | ... | |
| 363 | 377 |
LEFT JOIN chart c ON (ac.chart_id = c.id) |
| 364 | 378 |
WHERE (ar.id IS NOT NULL) |
| 365 | 379 |
AND $fromto |
| 380 |
$trans_id_filter |
|
| 366 | 381 |
$filter |
| 367 | 382 |
|
| 368 | 383 |
UNION ALL |
| ... | ... | |
| 378 | 393 |
LEFT JOIN chart c ON (ac.chart_id = c.id) |
| 379 | 394 |
WHERE (ap.id IS NOT NULL) |
| 380 | 395 |
AND $fromto |
| 396 |
$trans_id_filter |
|
| 381 | 397 |
$filter |
| 382 | 398 |
|
| 383 | 399 |
UNION ALL |
| ... | ... | |
| 392 | 408 |
LEFT JOIN chart c ON (ac.chart_id = c.id) |
| 393 | 409 |
WHERE (gl.id IS NOT NULL) |
| 394 | 410 |
AND $fromto |
| 411 |
$trans_id_filter |
|
| 395 | 412 |
$filter |
| 396 | 413 |
|
| 397 | 414 |
ORDER BY trans_id, acc_trans_id|; |
Auch abrufbar als: Unified diff
DATEV-Check für nur eine Buchung
Bisher hat der DATEV-Check nach Erstellung einer Buchung immer den
ganzen Tag geprüft. Jetzt wird nur noch die Buchung selbst auf
DATEV-Kompatibilität geprüft.