--- /dev/null
+use strict;
+use Test::More;
+use Test::Deep qw(cmp_bag);
+
+use lib 't';
+
+use_ok 'Support::TestSetup';
+use SL::DATEV qw(:CONSTANTS);
+use SL::Dev::ALL qw(:ALL);
+use List::Util qw(sum);
+use SL::DB::Buchungsgruppe;
+use SL::DB::Chart;
+use DateTime;
+use Data::Dumper;
+use utf8;
+
+Support::TestSetup::login();
+
+my $dbh = SL::DB->client->dbh;
+
+clear_up();
+my $buchungsgruppe7 = SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 7%') || die "No accounting group for 7\%";
+my $date = DateTime->new(year => 2017, month => 7, day => 19);
+my $department = create_department(description => 'Kästchenweiße heiße Preise');
+my $project = create_project(projectnumber => 2017, description => '299');
+
+my $part1 = new_part(partnumber => '19', description => 'Part 19%')->save;
+my $part2 = new_part(
+ partnumber => '7',
+ description => 'Part 7%',
+ buchungsgruppen_id => $buchungsgruppe7->id,
+)->save;
+
+my $invoice = create_sales_invoice(
+ invnumber => "ݗݘݰݶ",
+ itime => $date,
+ gldate => $date,
+ taxincluded => 0,
+ transdate => $date,
+ invoiceitems => [ create_invoice_item(part => $part1, qty => 3, sellprice => 550),
+ create_invoice_item(part => $part2, qty => 10, sellprice => 50),
+ ],
+ department_id => $department->id,
+ globalproject_id => $project->id,
+);
+
+# lets make a boom
+# generate_datev_* doesnt care about encoding but
+# csv_buchungsexport does! all arabic will be deleted
+# and no string will be left as invnumber
+
+my $datev1 = SL::DATEV->new(
+ dbh => $dbh,
+ trans_id => $invoice->id,
+);
+
+my $startdate = DateTime->new(year => 2017, month => 1, day => 1);
+my $enddate = DateTime->new(year => 2017, month => 12, day => 31);
+my $today = DateTime->new(year => 2017, month => 3, day => 17);
+
+
+$datev1->from($startdate);
+$datev1->to($enddate);
+
+$datev1->generate_datev_data;
+$datev1->generate_datev_lines;
+
+# check conversion to csv
+$datev1->from($startdate);
+$datev1->to($enddate);
+eval {
+ $datev1->csv_buchungsexport();
+ 1; };
+like($@, qr/^Not a valid value: '' for 'belegfeld1' with .*/, "wrong encoding");
+
+# redefine invnumber, but still broken
+$invoice->invnumber('ݗݘݰݶmuh');
+$invoice->save();
+$datev1->generate_datev_data;
+$datev1->generate_datev_lines;
+eval {
+ $datev1->csv_buchungsexport();
+ 1; };
+like($@, qr/^Not a valid value: '' for 'belegfeld1' with amount/, "mixed encoding");
+
+
+# create one haben buchung with GLTransaction today
+
+my $expense_chart = SL::DB::Manager::Chart->find_by(accno => '4660'); # Reisekosten
+my $cash_chart = SL::DB::Manager::Chart->find_by(accno => '1000'); # Kasse
+my $tax_chart = SL::DB::Manager::Chart->find_by(accno => '1576'); # Vorsteuer
+my $tax_9 = SL::DB::Manager::Tax->find_by(taxkey => 9, rate => 0.19) || die "No tax";
+
+my @acc_trans;
+push(@acc_trans, SL::DB::AccTransaction->new(
+ chart_id => $expense_chart->id,
+ chart_link => $expense_chart->link,
+ amount => -84.03,
+ transdate => $today,
+ source => '',
+ taxkey => 9,
+ tax_id => $tax_9->id,
+ project_id => $project->id,
+));
+push(@acc_trans, SL::DB::AccTransaction->new(
+ chart_id => $tax_chart->id,
+ chart_link => $tax_chart->link,
+ amount => -15.97,
+ transdate => $today,
+ source => '',
+ taxkey => 9,
+ tax_id => $tax_9->id,
+ project_id => $project->id,
+));
+push(@acc_trans, SL::DB::AccTransaction->new(
+ chart_id => $cash_chart->id,
+ chart_link => $cash_chart->link,
+ amount => 100,
+ transdate => $today,
+ source => '',
+ taxkey => 0,
+ tax_id => 0,
+));
+
+my $gl_transaction = SL::DB::GLTransaction->new(
+ reference => "Reisekosten März 2018",
+ description => "Reisekonsten März 2018 / Ma Schmidt",
+ transdate => $today,
+ gldate => $today,
+ employee_id => SL::DB::Manager::Employee->current->id,
+ taxincluded => 1,
+ type => undef,
+ ob_transaction => 0,
+ cb_transaction => 0,
+ storno => 0,
+ storno_id => undef,
+ transactions => \@acc_trans,
+)->save;
+my $datev2 = SL::DATEV->new(
+ dbh => $dbh,
+ trans_id => $gl_transaction->id,
+);
+
+$datev2->from($startdate);
+$datev2->to($enddate);
+$datev2->generate_datev_data;
+$datev2->generate_datev_lines;
+
+my @data_csv = splice @{ $datev2->csv_buchungsexport() }, 2, 5;
+@data_csv = sort { $a->[0] <=> $b->[0] } @data_csv;
+
+
+my $cp1252_posting_text = SL::Iconv::convert("UTF-8", "CP1252", 'Reisekosten März 2018');
+cmp_bag($data_csv[0], [ 100, 'H', 'EUR', undef, undef, undef, '4660', '1000', 9, '1703', 'Reisekosten ',
+ undef, undef, $cp1252_posting_text, undef, undef, undef, undef, undef, undef, undef, undef,
+ undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef,
+ undef, undef, '', undef, undef, undef, undef, undef, undef, undef, undef,
+ undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef,
+ undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef,
+ undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef,
+ undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef,
+ undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef,
+ undef, undef, undef, undef, undef ]
+ );
+
+done_testing();
+clear_up();
+
+
+sub clear_up {
+ SL::DB::Manager::AccTransaction->delete_all( all => 1);
+ SL::DB::Manager::InvoiceItem->delete_all( all => 1);
+ SL::DB::Manager::Invoice->delete_all( all => 1);
+ SL::DB::Manager::Customer->delete_all( all => 1);
+ SL::DB::Manager::Part->delete_all( all => 1);
+ SL::DB::Manager::Project->delete_all( all => 1);
+ SL::DB::Manager::Department->delete_all( all => 1);
+ SL::DATEV->clean_temporary_directories;
+};
+
+1;
projects / kivitendo-erp.git / blobdiff