From 84c2f6a9df46ecb82df078ce6977e035ab28877a Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Mon, 16 Mar 2020 09:52:07 +0100 Subject: [PATCH] =?utf8?q?DATEV-Tests:=20eine=20g=C3=BCltige=20UStID-Nr=20?= =?utf8?q?benutzen?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Der DATEV-Export nutzt inzwischen Routinen zur Prüfung & sauberen Formatierung von UStID-Nummern, und die in den Tests verwendete war nach dem gültigen Algorithmus schlicht nicht gültig. --- t/datev/datev_format_2018.t | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/t/datev/datev_format_2018.t b/t/datev/datev_format_2018.t index d97c32998..5073cce0f 100644 --- a/t/datev/datev_format_2018.t +++ b/t/datev/datev_format_2018.t @@ -23,11 +23,12 @@ clear_up(); my $d = SL::DB::Default->get; $d->update_attributes(datev_export_format => 'cp1252'); +my $ustid = 'DE123456788'; 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 $customer = new_customer(name => 'Test customer', ustid => 'DE12345678')->save(); +my $customer = new_customer(name => 'Test customer', ustid => $ustid)->save(); my $part1 = new_part(partnumber => '19', description => 'Part 19%')->save; my $part2 = new_part( partnumber => '7', @@ -153,7 +154,7 @@ cmp_deeply $sorted[0], [ '1963,5', 'S', 'EUR', '', '', '', '', '', 'Test customer', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', "K\x{e4}stchen", - '299', '','DE12345678', '', '', '', + '299', '', $ustid, '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', @@ -169,7 +170,7 @@ cmp_deeply $sorted[1], [ '535', 'S', 'EUR', '', '', '', '', '', 'Test customer', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', "K\x{e4}stchen", - '299', '','DE12345678', '', '', '', + '299', '', $ustid, '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', -- 2.20.1