my $db = $invoice->db;
- $db->do_transaction( sub {
+ $db->with_transaction( sub {
my $tax = SL::DB::Manager::Tax->find_by(taxkey => 0, rate => 0);
_save_and_pay_and_check(invoice => $invoice, bank => $bank, pay => 1, check => 1);
+ 1;
+
}) || die "something went wrong: " . $db->error;
return $invoice->invnumber;
};
my $db = $invoice->db;
- $db->do_transaction( sub {
+ $db->with_transaction( sub {
# TODO: check for currency and exchange rate
$invoice->create_ar_row( chart => $ar_chart );
_save_and_pay_and_check(invoice => $invoice, bank => $bank, pay => 1, check => 1);
+ 1;
}) || die "something went wrong: " . $db->error;
return $invoice->invnumber;
};
if ($datev_check) {
my $datev = SL::DATEV->new(
- exporttype => DATEV_ET_BUCHUNGEN,
- format => DATEV_FORMAT_KNE,
dbh => $invoice->db->dbh,
trans_id => $invoice->id,
);
- $datev->export;
+ $datev->generate_datev_data;
+
if ($datev->errors) {
$invoice->db->dbh->rollback;
die join "\n", $::locale->text('DATEV check returned errors:'), $datev->errors;