Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 84c2f6a9

Von Moritz Bunkus vor etwa 4 Jahren hinzugefügt

  • ID 84c2f6a9df46ecb82df078ce6977e035ab28877a
  • Vorgänger 1acc9e56
  • Nachfolger e4723627

DATEV-Tests: eine gültige UStID-Nr benutzen

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.

Unterschiede anzeigen:

t/datev/datev_format_2018.t
23 23
my $d = SL::DB::Default->get;
24 24
$d->update_attributes(datev_export_format => 'cp1252');
25 25

  
26
my $ustid           = 'DE123456788';
26 27
my $buchungsgruppe7 = SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 7%') || die "No accounting group for 7\%";
27 28
my $date            = DateTime->new(year => 2017, month =>  7, day => 19);
28 29
my $department      = create_department(description => 'Kästchenweiße heiße Preise');
29 30
my $project         = create_project(projectnumber => 2017, description => '299');
30
my $customer        = new_customer(name => 'Test customer', ustid => 'DE12345678')->save();
31
my $customer        = new_customer(name => 'Test customer', ustid => $ustid)->save();
31 32
my $part1 = new_part(partnumber => '19', description => 'Part 19%')->save;
32 33
my $part2 = new_part(
33 34
  partnumber         => '7',
......
153 154
                            '', '', 'Test customer', '', '', '', '', '', '',
154 155
                            '', '', '', '', '', '', '', '', '',
155 156
                            '', '', '', '', '', '', '', "K\x{e4}stchen",
156
                            '299', '','DE12345678', '', '', '',
157
                            '299', '', $ustid, '', '', '',
157 158
                            '', '', '', '', '', '', '', '', '',
158 159
                            '', '', '', '', '', '', '', '', '',
159 160
                            '', '', '', '', '', '', '', '', '',
......
169 170
                            '', '', 'Test customer', '', '', '', '', '', '',
170 171
                            '', '', '', '', '', '', '', '', '',
171 172
                            '', '', '', '', '', '', '', "K\x{e4}stchen",
172
                            '299', '','DE12345678', '', '', '',
173
                            '299', '', $ustid, '', '', '',
173 174
                            '', '', '', '', '', '', '', '', '',
174 175
                            '', '', '', '', '', '', '', '', '',
175 176
                            '', '', '', '', '', '', '', '', '',

Auch abrufbar als: Unified diff