t/datev/datev_format_2018.t

   1 use strict;
   2 use Test::More;
   3 use Test::Deep qw(cmp_deeply);
   4
   5 use lib 't';
   6
   7 use_ok 'Support::TestSetup';
   8 use SL::DATEV qw(:CONSTANTS);
   9 use SL::Dev::ALL qw(:ALL);
  10 use List::Util qw(sum);
  11 use SL::DB::Buchungsgruppe;
  12 use SL::DB::Chart;
  13 use DateTime;
  14 use Data::Dumper;
  15 use utf8;
  16
  17 Support::TestSetup::login();
  18
  19 my $dbh = SL::DB->client->dbh;
  20
  21 clear_up();
  22
  23 my $d = SL::DB::Default->get;
  24 $d->update_attributes(datev_export_format => 'cp1252');
  25
  26 my $ustid           = 'DE123456788';
  27 my $buchungsgruppe7 = SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 7%') || die "No accounting group for 7\%";
  28 my $date            = DateTime->new(year => 2017, month =>  7, day => 19);
  29 my $department      = create_department(description => 'Kästchenweiße heiße Preise');
  30 my $project         = create_project(projectnumber => 2017, description => '299');
  31 my $bank            = SL::DB::Manager::Chart->find_by(description => 'Bank') || die 'Can\'t find chart "Bank"';
  32 my $customer        = new_customer(name => 'Test customer', ustid => $ustid)->save();
  33 my $part1 = new_part(partnumber => '19', description => 'Part 19%')->save;
  34 my $part2 = new_part(
  35   partnumber         => '7',
  36   description        => 'Part 7%',
  37   buchungsgruppen_id => $buchungsgruppe7->id,
  38 )->save;
  39
  40 my $invoice = create_sales_invoice(
  41   invnumber    => "ݗݘݰݶ",
  42   itime        => $date,
  43   gldate       => $date,
  44   taxincluded  => 0,
  45   transdate    => $date,
  46   invoiceitems => [ create_invoice_item(part => $part1, qty =>  3, sellprice => 550),
  47                     create_invoice_item(part => $part2, qty => 10, sellprice => 50),
  48                   ],
  49   department_id    => $department->id,
  50   globalproject_id => $project->id,
  51   customer_id      => $customer->id,
  52 );
  53
  54 # lets make a boom
  55 # generate_datev_* doesn't care about encoding but
  56 # csv_buchungsexport does! all arabic will be deleted
  57 # and no string will be left as invnumber
  58
  59 my $datev1 = SL::DATEV->new(
  60   dbh        => $dbh,
  61   trans_id   => $invoice->id,
  62 );
  63
  64 my $startdate = DateTime->new(year => 2017, month =>  1, day =>  1);
  65 my $enddate   = DateTime->new(year => 2017, month => 12, day => 31);
  66 my $today     = DateTime->new(year => 2017, month =>  3, day => 17);
  67
  68 $datev1->from($startdate);
  69 $datev1->to($enddate);
  70
  71 $datev1->generate_datev_data;
  72 $datev1->generate_datev_lines;
  73
  74 # check conversion to csv
  75 $datev1->from($startdate);
  76 $datev1->to($enddate);
  77 my ($datev_csv, $die_message);
  78 eval {
  79   $datev_csv = SL::DATEV::CSV->new(datev_lines  => $datev1->generate_datev_lines,
  80                                    from         => $startdate,
  81                                    to           => $enddate,
  82                                    locked       => $datev1->locked,
  83                                   );
  84   my $lines_aref = $datev_csv->lines; # dies only if we assign (do stuff with the data)
  85   1;
  86 } or do {
  87   $die_message = $@;
  88 };
  89 ok($die_message =~ m/Falscher Feldwert 'ݗݘݰݶ' für Feld 'belegfeld1' bei der Transaktion mit dem Umsatz von/, 'wrong_encoding');
  90
  91
  92 $invoice->invnumber('ݗݘݰݶmuh');
  93 $invoice->save();
  94
  95 my $datev3 = SL::DATEV->new(
  96   dbh        => $dbh,
  97   trans_id   => $invoice->id,
  98 );
  99
 100 $datev3->from($startdate);
 101 $datev3->to($enddate);
 102 $datev3->generate_datev_data;
 103 $datev3->generate_datev_lines;
 104 my ($datev_csv2, $die_message2);
 105 eval {
 106   $datev_csv2 = SL::DATEV::CSV->new(datev_lines  => $datev3->generate_datev_lines,
 107                                     from         => $startdate,
 108                                     to           => $enddate,
 109                                     locked       => $datev3->locked,
 110                                    );
 111 my $lines_aref = $datev_csv2->lines; # dies only if we assign (do stuff with the data)
 112
 113   1;
 114 } or do {
 115   $die_message2 = $@;
 116 };
 117
 118 # redefine invnumber, we have mixed encodings, should still fail
 119 ok($die_message2 =~ m/Falscher Feldwert 'ݗݘݰݶmuh' für Feld 'belegfeld1' bei der Transaktion mit dem Umsatz von/, 'mixed_wrong_encoding');
 120
 121 # check with good number
 122 $invoice->invnumber('meine muh');
 123 $invoice->save();
 124
 125 $invoice->pay_invoice(chart_id      => $bank->id,
 126                       amount        => $invoice->open_amount,
 127                       transdate     => $invoice->transdate->clone->add(days => 10),
 128                       memo          => 'foobar',
 129                       source        => 'barfoo',
 130                      );
 131
 132 my $datev4 = SL::DATEV->new(
 133   dbh        => $dbh,
 134   trans_id   => $invoice->id,
 135 );
 136
 137 $datev4->from($startdate);
 138 $datev4->to($enddate);
 139 $datev4->generate_datev_data;
 140 $datev4->generate_datev_lines;
 141
 142 my ($datev_csv4, $die_message3, $lines_aref);
 143 eval {
 144   $datev_csv4 = SL::DATEV::CSV->new(datev_lines  => $datev4->generate_datev_lines,
 145                                     from         => $startdate,
 146                                     to           => $enddate,
 147                                     locked       => $datev4->locked,
 148                                    );
 149   $lines_aref = $datev_csv4->lines; # dies only if we assign (do stuff with the data)
 150
 151   1;
 152 } or do {
 153   $die_message3 = $@;
 154 };
 155 ok(!($die_message3), 'no die message');
 156 ok(scalar @{ $datev_csv4->warnings } == 0, 'no warnings');
 157
 158
 159 note('testing invoice without deliverydate');
 160 my @sorted =  sort { $a->[0] cmp $b->[0] } @{ $lines_aref }; # sort by string-comparison of amount
 161 cmp_deeply $sorted[0],
 162            [ '1963,5', 'S', 'EUR', '', '', '',
 163              '1400', '8400', '', '1907', 'meine muh',
 164              '', '', 'Test customer', '', '', '', '', '', '',
 165              '', '', '', '', '', '', '', '', '',
 166              '', '', '', '', '', '', '', "K\x{e4}stchen",
 167              '299', '', $ustid, '', '', '',
 168              '', '', '', '', '', '', '', '', '',
 169              '', '', '', '', '', '', '', '', '',
 170              '', '', '', '', '', '', '', '', '',
 171              '', '', '', '', '', '', '', '', '',
 172              '', '', '', '', '', '', '', '', '',
 173              '', '', '', '', '', '', '', '', '',
 174              '', '', '', '', '', '', '', '', '',
 175              '', '', '', '', '', '', '', '1', '',
 176              '', '', '', '', '',
 177            ],
 178            'invoice without deliverydate 19% tax export ok';
 179 cmp_deeply $sorted[2],
 180            [ '535', 'S', 'EUR', '', '', '',
 181              '1400', '8300', '', '1907','meine muh',
 182              '', '', 'Test customer', '', '', '', '', '', '',
 183              '', '', '', '', '', '', '', '', '',
 184              '', '', '', '', '', '', '', "K\x{e4}stchen",
 185              '299', '', $ustid, '', '', '',
 186              '', '', '', '', '', '', '', '', '',
 187              '', '', '', '', '', '', '', '', '',
 188              '', '', '', '', '', '', '', '', '',
 189              '', '', '', '', '', '', '', '', '',
 190              '', '', '', '', '', '', '', '', '',
 191              '', '', '', '', '', '', '', '', '',
 192              '', '', '', '', '', '', '', '', '',
 193              '', '', '', '', '', '', '', '1', '',
 194              '', '', '', '', '',
 195            ],
 196            'invoice without deliverydate 16% tax export ok';
 197 cmp_deeply $sorted[1],
 198            [ '2498,5', 'S', 'EUR', '', '', '',
 199              '1200', '1400', '', '2907','meine muh',
 200              '', '', 'Test customer', '', '', '', '', '', '',
 201              '', '', '', '', '', '', '', '', '',
 202              '', '', '', '', '', '', '', "K\x{e4}stchen",
 203              '299', '', $ustid, '', '', '',
 204              '', '', '', '', '', '', '', '', '',
 205              '', '', '', '', '', '', '', '', '',
 206              '', '', '', '', '', '', '', '', '',
 207              '', '', '', '', '', '', '', '', '',
 208              '', '', '', '', '', '', '', '', '',
 209              '', '', '', '', '', '', '', '', '',
 210              '', '', '', '', '', '', '', '', '',
 211              '', '', '', '', '', '', '', '1', '',
 212              '', '', '', '', '',
 213            ],
 214            'invoice without deliverydate payment export ok';
 215
 216 # create one haben buchung with GLTransaction today
 217
 218 my $expense_chart = SL::DB::Manager::Chart->find_by(accno => '4660'); # Reisekosten
 219 my $cash_chart    = SL::DB::Manager::Chart->find_by(accno => '1000'); # Kasse
 220
 221 note('testing gl transaction without deliverydate');
 222 my $gl_transaction = create_gl_transaction(
 223   reference      => "Reise März 2018",
 224   description    => "Reisekosten März 2018 / Ma Schmidt",
 225   transdate      => $today,
 226   taxincluded    => 1,
 227   type           => undef,
 228   bookings       => [
 229                       {
 230                         chart  => $expense_chart,
 231                         taxkey => 9,
 232                         debit  => 100, # net 84.03
 233                       },
 234                       {
 235                         chart  => $cash_chart,
 236                         taxkey => 0,
 237                         credit => 100,
 238                       },
 239                     ],
 240 );
 241
 242 my $datev2 = SL::DATEV->new(
 243   dbh        => $dbh,
 244   trans_id   => $gl_transaction->id,
 245 );
 246
 247 $datev2->from($startdate);
 248 $datev2->to($enddate);
 249 $datev2->generate_datev_data;
 250
 251 my $datev_csv3  = SL::DATEV::CSV->new(datev_lines  => $datev2->generate_datev_lines,
 252                                       from         => $startdate,
 253                                       to           => $enddate,
 254                                       locked       => $datev2->locked,
 255                                      );
 256
 257 my @data_csv    = sort { $a->[0] cmp $b->[0] } @{ $datev_csv3->lines };
 258 cmp_deeply($data_csv[0],
 259            [ '100', 'S', 'EUR', '', '', '', '4660', '1000', 9, '1703', 'Reise März 2',
 260              '', '', 'Reisekosten März 2018 / Ma Schmidt', '', '', '', '', '', '', '', '',
 261              '', '', '', '', '', '', '', '', '', '', '', '', '',
 262              '', '', '', '', '', '', '', '', '', '', '',
 263              '', '', '', '', '', '', '', '', '', '', '', '', '',
 264              '', '', '', '', '', '', '', '', '', '', '', '', '',
 265              '', '', '', '', '', '', '', '', '', '', '', '', '',
 266              '', '', '', '', '', '', '', '', '', '', '', '', '',
 267              '', '', '', '', '', '', '', '', '', '', '', '', '',
 268              '', '', '1', '', '', '', '', '', '',
 269            ],
 270            'gl datev export without delivery date ok');
 271
 272
 273 note('testing same invoice, but with deliverydate');
 274 # 8400 and 8300 should have deliverydate in datev, payment should not
 275 $invoice->deliverydate(DateTime->new(year => 2017, month =>  7, day => 18));
 276 $invoice->save();
 277
 278 $datev1 = SL::DATEV->new(
 279   dbh        => $dbh,
 280   trans_id   => $invoice->id,
 281 );
 282
 283 $datev1->from($startdate);
 284 $datev1->to($enddate);
 285 $datev1->generate_datev_data;
 286 $datev1->generate_datev_lines;
 287
 288 $datev_csv = SL::DATEV::CSV->new(datev_lines  => $datev1->generate_datev_lines,
 289                                  from         => $startdate,
 290                                  to           => $enddate,
 291                                  locked       => $datev1->locked,
 292 );
 293 @sorted    = sort { $a->[0] cmp $b->[0] } @{ $datev_csv->lines };
 294 cmp_deeply $sorted[0],
 295            [ '1963,5', 'S', 'EUR', '', '', '',
 296              '1400', '8400', '', '1907', 'meine muh',
 297              '', '', 'Test customer', '', '', '', '', '', '',
 298              '', '', '', '', '', '', '', '', '',
 299              '', '', '', '', '', '', '', "K\x{e4}stchen",
 300              '299', '', $ustid, '', '', '',
 301              '', '', '', '', '', '', '', '', '',
 302              '', '', '', '', '', '', '', '', '',
 303              '', '', '', '', '', '', '', '', '',
 304              '', '', '', '', '', '', '', '', '',
 305              '', '', '', '', '', '', '', '', '',
 306              '', '', '', '', '', '', '', '', '',
 307              '', '', '', '', '', '', '', '', '',
 308              '', '', '', '', '', '', '', '1', '18072017',
 309              '', '', '', '', '',
 310            ],
 311            'invoice with deliverydate 19% tax export ok';
 312
 313 cmp_deeply $sorted[2],
 314            [ '535', 'S', 'EUR', '', '', '',
 315              '1400', '8300', '', '1907','meine muh',
 316              '', '', 'Test customer', '', '', '', '', '', '',
 317              '', '', '', '', '', '', '', '', '',
 318              '', '', '', '', '', '', '', "K\x{e4}stchen",
 319              '299', '', $ustid, '', '', '',
 320              '', '', '', '', '', '', '', '', '',
 321              '', '', '', '', '', '', '', '', '',
 322              '', '', '', '', '', '', '', '', '',
 323              '', '', '', '', '', '', '', '', '',
 324              '', '', '', '', '', '', '', '', '',
 325              '', '', '', '', '', '', '', '', '',
 326              '', '', '', '', '', '', '', '', '',
 327              '', '', '', '', '', '', '', '1', '18072017',
 328              '', '', '', '', '',
 329            ],
 330            'invoice with deliverydate 16% tax export ok';
 331
 332 cmp_deeply $sorted[1],
 333            [ '2498,5', 'S', 'EUR', '', '', '',
 334              '1200', '1400', '', '2907','meine muh',
 335              '', '', 'Test customer', '', '', '', '', '', '',
 336              '', '', '', '', '', '', '', '', '',
 337              '', '', '', '', '', '', '', "K\x{e4}stchen",
 338              '299', '', $ustid, '', '', '',
 339              '', '', '', '', '', '', '', '', '',
 340              '', '', '', '', '', '', '', '', '',
 341              '', '', '', '', '', '', '', '', '',
 342              '', '', '', '', '', '', '', '', '',
 343              '', '', '', '', '', '', '', '', '',
 344              '', '', '', '', '', '', '', '', '',
 345              '', '', '', '', '', '', '', '', '',
 346              '', '', '', '', '', '', '', '1', '',
 347              '', '', '', '', '',
 348            ],
 349            'invoice with deliverydate payment export ok';
 350
 351 note('testing same gl transaction with deliverydate');
 352 $gl_transaction->deliverydate(DateTime->new(year => 2017, month =>  7, day => 18));
 353 $gl_transaction->save;
 354
 355 $datev1 = SL::DATEV->new(
 356   dbh        => $dbh,
 357   trans_id   => $gl_transaction->id,
 358 );
 359
 360 $datev1->from($startdate);
 361 $datev1->to($enddate);
 362 $datev1->generate_datev_data;
 363
 364 $datev_csv   = SL::DATEV::CSV->new(datev_lines  => $datev1->generate_datev_lines,
 365                                    from         => $startdate,
 366                                    to           => $enddate,
 367                                    locked       => $datev1->locked,
 368 );
 369
 370 @sorted      = sort { $a->[0] cmp $b->[0] } @{ $datev_csv->lines };
 371 cmp_deeply($sorted[0],
 372            [ '100', 'S', 'EUR', '', '', '', '4660', '1000', 9, '1703', 'Reise März 2',
 373              '', '', 'Reisekosten März 2018 / Ma Schmidt', '', '', '', '', '', '', '', '',
 374              '', '', '', '', '', '', '', '', '', '', '', '', '',
 375              '', '', '', '', '', '', '', '', '', '', '',
 376              '', '', '', '', '', '', '', '', '', '', '', '', '',
 377              '', '', '', '', '', '', '', '', '', '', '', '', '',
 378              '', '', '', '', '', '', '', '', '', '', '', '', '',
 379              '', '', '', '', '', '', '', '', '', '', '', '', '',
 380              '', '', '', '', '', '', '', '', '', '', '', '', '',
 381              '', '', '1', '18072017', '', '', '', '', '',
 382            ],
 383           'testing gl transaction with delivery date datev export ok');
 384
 385 # TODO warnings are not yet tested
 386 # currently most of the valid_checks are senseless because of
 387 # the strict input_checks before. Maybe something like encoding mismatch of invnumber,
 388 # can be altered to just a warning (not a mandantory field!)
 389
 390 done_testing();
 391 clear_up();
 392
 393
 394 sub clear_up {
 395   SL::DB::Manager::AccTransaction->delete_all( all => 1);
 396   SL::DB::Manager::GLTransaction->delete_all(  all => 1);
 397   SL::DB::Manager::InvoiceItem->delete_all(    all => 1);
 398   SL::DB::Manager::Invoice->delete_all(        all => 1);
 399   SL::DB::Manager::Customer->delete_all(       all => 1);
 400   SL::DB::Manager::Part->delete_all(           all => 1);
 401   SL::DB::Manager::Project->delete_all(        all => 1);
 402   SL::DB::Manager::Department->delete_all(     all => 1);
 403   SL::DATEV->clean_temporary_directories;
 404 };
 405
 406 1;