Revision e04c32d3
Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
| 416 | 416 |
dbh => $dbh, |
| 417 | 417 |
from => $transdate, |
| 418 | 418 |
to => $transdate, |
| 419 |
trans_id => $form->{id},
|
|
| 419 | 420 |
); |
| 420 | 421 |
|
| 421 | 422 |
$datev->export; |
| SL/AR.pm | ||
|---|---|---|
| 331 | 331 |
dbh => $dbh, |
| 332 | 332 |
from => $transdate, |
| 333 | 333 |
to => $transdate, |
| 334 |
trans_id => $form->{id},
|
|
| 334 | 335 |
); |
| 335 | 336 |
|
| 336 | 337 |
$datev->export; |
| 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|; |
| SL/GL.pm | ||
|---|---|---|
| 198 | 198 |
dbh => $dbh, |
| 199 | 199 |
from => $transdate, |
| 200 | 200 |
to => $transdate, |
| 201 |
trans_id => $form->{id},
|
|
| 201 | 202 |
); |
| 202 | 203 |
|
| 203 | 204 |
$datev->export; |
| SL/IR.pm | ||
|---|---|---|
| 768 | 768 |
dbh => $dbh, |
| 769 | 769 |
from => $transdate, |
| 770 | 770 |
to => $transdate, |
| 771 |
trans_id => $form->{id},
|
|
| 771 | 772 |
); |
| 772 | 773 |
|
| 773 | 774 |
$datev->export; |
| SL/IS.pm | ||
|---|---|---|
| 1174 | 1174 |
dbh => $dbh, |
| 1175 | 1175 |
from => $transdate, |
| 1176 | 1176 |
to => $transdate, |
| 1177 |
trans_id => $form->{id},
|
|
| 1177 | 1178 |
); |
| 1178 | 1179 |
|
| 1179 | 1180 |
$datev->export; |
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.