Revision b019bd39
Von Sven Schöling vor mehr als 7 Jahren hinzugefügt
| SL/Controller/GoBD.pm | ||
|---|---|---|
| 35 | 35 |
return; |
| 36 | 36 |
} |
| 37 | 37 |
|
| 38 |
my $filename; |
|
| 38 | 39 |
my $gobd = SL::GoBD->new( |
| 39 | 40 |
company => $::instance_conf->get_company, |
| 40 | 41 |
location => $::instance_conf->get_address, |
| ... | ... | |
| 42 | 43 |
to => $self->to, |
| 43 | 44 |
); |
| 44 | 45 |
|
| 45 |
my $filename = $gobd->generate_export; |
|
| 46 |
eval {
|
|
| 47 |
$filename = $gobd->generate_export; |
|
| 48 |
} or do {
|
|
| 49 |
my $errors = $@; |
|
| 50 |
flash('error', t8('The export failed because of malformed transactions. Please fix those before exporting.'));
|
|
| 51 |
|
|
| 52 |
$::lxdebug->dump(0, "GoBD errors:", \@$errors); |
|
| 53 |
$self->action_filter; |
|
| 54 |
return; |
|
| 55 |
}; |
|
| 46 | 56 |
|
| 47 | 57 |
$self->send_file($filename, name => t8('gobd-#1-#2.zip', $self->from->ymd, $self->to->ymd), unlink => 1);
|
| 48 | 58 |
} |
Auch abrufbar als: Unified diff
GoBD: Bei unbalanced ledger Fehlern abbrechen und Fehler zeigen