use SL::DB::Helper::ALL; # since we work on meta data, we need everything
use SL::DB::Helper::Mappings;
use SL::Locale::String qw(t8);
+use SL::Version;
use Rose::Object::MakeMethods::Generic (
scalar => [ qw(from to writer company location) ],
taxkey => { type => 'Rose::DB::Object::Metadata::Column::Integer', text => t8('Taxkey'), },
tax_accname => { type => 'Rose::DB::Object::Metadata::Column::Text', text => t8('Tax Account Name'), },
tax_accno => { type => 'Rose::DB::Object::Metadata::Column::Text', text => t8('Tax Account'), },
- transdate => { type => 'Rose::DB::Object::Metadata::Column::Date', text => t8('Invoice Date'), },
+ transdate => { type => 'Rose::DB::Object::Metadata::Column::Date', text => t8('Transdate'), },
vcnumber => { type => 'Rose::DB::Object::Metadata::Column::Text', text => t8('Customer/Vendor Number'), },
customer_id => { type => 'Rose::DB::Object::Metadata::Column::Integer', text => t8('Customer (database ID)'), },
vendor_id => { type => 'Rose::DB::Object::Metadata::Column::Integer', text => t8('Vendor (database ID)'), },
itime => { type => 'Rose::DB::Object::Metadata::Column::Date', text => t8('Create Date'), },
- gldate => { type => 'Rose::DB::Object::Metadata::Column::Date', text => t8('Booking Date'), },
+ gldate => { type => 'Rose::DB::Object::Metadata::Column::Date', text => t8('Gldate'), },
);
my @datev_columns = qw(
my $datev = SL::DATEV->new(from => $self->from, to => $self->to);
- $datev->_get_transactions(from_to => $datev->fromto);
+ $datev->generate_datev_data(from_to => $datev->fromto);
+
+ if ($datev->errors) {
+ die [ $datev->errors ];
+ }
for my $transaction (@{ $datev->{DATEV} }) {
for my $entry (@{ $transaction }) {
my $query = "SELECT " . join(', ', @select_tokens) . " FROM $table $where_clause";
my $sth = $::form->get_standard_dbh->prepare($query);
- $sth->execute(@values) or die "error executing query $query: " . $sth->errstr;
+ $sth->execute(@values) or $::form->dberror($query);
while (my $row = $sth->fetch) {
for my $keep_col (@{ $known_tables{$table}{keep} || [] }) {
sub make_comment {
my $gobd_version = API_VERSION();
- my $kivi_version = $::form->read_version;
+ my $kivi_version = SL::Version->get_version;
my $person = $::myconfig{name};
my $contact = join ', ',
(t8("Email") . ": $::myconfig{email}" ) x!! $::myconfig{email},