Revision 6683b7fb
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 226 | 226 |
|
| 227 | 227 |
my $dbh = $form->get_standard_dbh($myconfig); |
| 228 | 228 |
|
| 229 |
my @errors = (); |
|
| 230 |
|
|
| 229 | 231 |
$fromto =~ s/transdate/ac\.transdate/g; |
| 230 | 232 |
|
| 231 | 233 |
my %taxes = selectall_as_map($form, $dbh, qq|SELECT id, rate FROM tax|, 'id', 'rate'); |
| ... | ... | |
| 352 | 354 |
} |
| 353 | 355 |
|
| 354 | 356 |
if (abs($absumsatz) > 0.01) {
|
| 355 |
$form->error("Datev-Export fehlgeschlagen! Bei Transaktion $trans->[0]->{trans_id} $absumsatz\n");
|
|
| 357 |
push @errors, "Datev-Export fehlgeschlagen! Bei Transaktion $trans->[0]->{trans_id} ($absumsatz)\n";
|
|
| 356 | 358 |
} |
| 357 | 359 |
} |
| 358 |
$sth->finish; |
|
| 359 |
$dbh->disconnect; |
|
| 360 |
|
|
| 361 |
$sth->finish(); |
|
| 362 |
|
|
| 363 |
$form->error(join("<br>\n", @errors)) if (@errors);
|
|
| 360 | 364 |
|
| 361 | 365 |
$main::lxdebug->leave_sub(); |
| 362 | 366 |
} |
Auch abrufbar als: Unified diff
DATEV-Export nicht beim ersten Fehler abbrechen, sondern eine Liste aller Fehler für den ausgewählten Zeitraum ausgeben und dann erst abbrechen. Das Datenbankhandle nicht schließen, das geschieht automatisch beim Programmende.