t/tax/tax.t

   1 use Test::More tests => 48;
   2 use Test::Deep qw(cmp_deeply);
   3
   4 use strict;
   5
   6 use lib 't';
   7 use utf8;
   8
   9 use Support::TestSetup;
  10 use Test::Exception;
  11
  12 use SL::DB::Customer;
  13 use SL::DB::Vendor;
  14 use SL::DB::Invoice;
  15 use SL::DB::GLTransaction;
  16 use SL::DB::AccTransaction;
  17 use SL::DB::Part;
  18 use SL::DB::PaymentTerm;
  19 use SL::DBUtils qw(selectall_hashref_query);
  20 use SL::Dev::Record qw(:ALL);
  21 use SL::Dev::CustomerVendor qw(new_customer new_vendor);
  22 use SL::Dev::Part qw(new_part);
  23 use SL::Dev::Payment qw(create_payment_terms);
  24 use Data::Dumper;
  25
  26 Support::TestSetup::login();
  27 my $dbh = SL::DB->client->dbh;
  28
  29 clear_up();
  30
  31 # TODOs: Storno muß noch korrekt funktionieren
  32 #  neue Konten für 5% anlegen
  33 #  Leistungszeitraum vs. Datum Zuord. Steuerperiodest
  34
  35 note('checking if all tax entries exist for Konjunkturprogramm');
  36
  37 # create dates to test on
  38 my $date_2006   = DateTime->new(year => 2006, month => 6, day => 15);
  39 my $date_2020_1 = DateTime->new(year => 2020, month => 6, day => 15);
  40 my $date_2020_2 = DateTime->new(year => 2020, month => 7, day => 15);
  41 my $date_2021   = DateTime->new(year => 2021, month => 1, day => 15);
  42
  43 # The only way to discern the pre-2007 16% tax from the 2020 16% tax is by
  44 # their configured automatic tax charts, so look them up here:
  45
  46 my ($chart_vst_19, $chart_vst_16, $chart_vst_5, $chart_vst_7);
  47 my ($chart_ust_19, $chart_ust_16, $chart_ust_5, $chart_ust_7);
  48 my ($income_19_accno, $income_7_accno);
  49 my ($ar_accno, $ap_accno);
  50 my ($chart_reisekosten_accno, $chart_cash_accno, $chart_bank_accno);
  51
  52 my ($skonto_5, $skonto_16, $skonto_7, $skonto_19); # store acc_trans entries during tests
  53
  54 my $test_kontenrahmen = $::instance_conf->get_coa eq 'Germany-DATEV-SKR04EU' ? 'skr04' : 'skr03';
  55
  56 if ( $test_kontenrahmen eq 'skr03' ) {
  57
  58   is(SL::DB::Default->get->coa, 'Germany-DATEV-SKR03EU', "coa SKR03 ok");
  59
  60   $chart_ust_19 = '1776';
  61   $chart_ust_16 = '1775';
  62   $chart_ust_5  = '1773';
  63   $chart_ust_7  = '1771';
  64
  65   $chart_vst_19 = '1576';
  66   $chart_vst_16 = '1575';
  67   $chart_vst_5  = '1568';
  68   $chart_vst_7  = '1571';
  69
  70   $income_19_accno = '8400';
  71   $income_7_accno  = '8300';
  72
  73   $chart_reisekosten_accno = 4660;
  74   $chart_cash_accno        = 1000;
  75   $chart_bank_accno        = 1200;
  76
  77   $ar_accno = 1400;
  78   $ap_accno = 1600;
  79
  80 } elsif ( $test_kontenrahmen eq 'skr04') { # skr04 - test can be ran manually by running t/000setup_database.t with coa for SKR04
  81   is(SL::DB::Default->get->coa, 'Germany-DATEV-SKR04EU', "coa SKR04 ok");
  82   $chart_vst_19 = '1406';
  83   $chart_vst_16 = '1405';
  84   $chart_vst_5  = '1403';
  85   $chart_vst_7  = '1401';
  86
  87   $chart_ust_19 = '3806';
  88   $chart_ust_16 = '3805';
  89   $chart_ust_5  = '3803';
  90   $chart_ust_7  = '3801';
  91
  92   $income_19_accno = '4400';
  93   $income_7_accno  = '4300';
  94
  95   $chart_reisekosten_accno = 6650;
  96   $chart_cash_accno        = 1600;
  97   $chart_bank_accno        = 1800;
  98
  99   $ar_accno = 1200;
 100   $ap_accno = 3300;
 101 }
 102
 103 my $tax_vst_19 = SL::DB::Manager::Chart->find_by(accno => $chart_vst_19) or die; # 19%
 104 my $tax_vst_16 = SL::DB::Manager::Chart->find_by(accno => $chart_vst_16) or die; # 16%
 105 my $tax_vst_5  = SL::DB::Manager::Chart->find_by(accno => $chart_vst_5 ) or die; #  5%
 106 my $tax_vst_7  = SL::DB::Manager::Chart->find_by(accno => $chart_vst_7 ) or die; #  7%
 107
 108 my $tax_ust_19 = SL::DB::Manager::Chart->find_by(accno => $chart_ust_19) or die; # 19%
 109 my $tax_ust_16 = SL::DB::Manager::Chart->find_by(accno => $chart_ust_16) or die; # 16%
 110 my $tax_ust_5  = SL::DB::Manager::Chart->find_by(accno => $chart_ust_5)  or die; #  5%
 111 my $tax_ust_7  = SL::DB::Manager::Chart->find_by(accno => $chart_ust_7)  or die; #  7%
 112
 113 my $chart_income_19  = SL::DB::Manager::Chart->find_by(accno => $income_19_accno) or die;
 114 my $chart_income_7   = SL::DB::Manager::Chart->find_by(accno => $income_7_accno) or die;
 115
 116 my $chart_reisekosten = SL::DB::Manager::Chart->find_by(accno => $chart_reisekosten_accno) or die;
 117 my $chart_cash        = SL::DB::Manager::Chart->find_by(accno => $chart_cash_accno) or die;
 118 my $chart_bank        = SL::DB::Manager::Chart->find_by(accno => $chart_bank_accno) or die;
 119
 120 my $payment_terms = create_payment_terms();
 121
 122 is(defined SL::DB::Manager::Tax->find_by(taxkey => 2, rate => 0.05), 1, "tax for taxkey 2 with 5% was created ok");
 123 is(defined SL::DB::Manager::Tax->find_by(taxkey => 3, rate => 0.16, chart_id => $tax_ust_16->id), 1, "new sales tax for taxkey 3 with 16% exists ok");
 124 is(defined SL::DB::Manager::Tax->find_by(taxkey => 3, rate => 0.19, chart_id => $tax_ust_19->id), 1, "old sales tax for taxkey 3 with 19% exists ok");
 125 # is(defined SL::DB::Manager::Tax->find_by(taxkey => 5, rate => 0.16, chart_id => $tax_ust_16->id), 1, "new sales tax for taxkey 5 with 16% exists ok");
 126
 127 # is(defined SL::DB::Manager::Tax->find_by(taxkey => 7, rate => 0.16, chart_id => $tax_ust_16->id), 1, "old purchase tax for taxkey 7 with 16% exists ok");
 128 is(defined SL::DB::Manager::Tax->find_by(taxkey => 8, rate => 0.07, chart_id => $tax_vst_7->id ), 1, "purchase tax for taxkey 8 with 7% exists ok");
 129 is(defined SL::DB::Manager::Tax->find_by(taxkey => 9, rate => 0.19, chart_id => $tax_vst_19->id), 1, "old purchase tax for taxkey 9 with 19% exists ok");
 130 is(defined SL::DB::Manager::Tax->find_by(taxkey => 9, rate => 0.16, chart_id => $tax_vst_16->id), 1, "new purchase tax for taxkey 9 with 16% exists ok");
 131
 132 my $vendor   = new_vendor(  name => 'Testvendor',   payment_id => $payment_terms->id)->save;
 133 my $customer = new_customer(name => 'Testcustomer', payment_id => $payment_terms->id)->save;
 134
 135 cmp_ok($chart_income_7->get_active_taxkey($date_2020_1)->tax->rate, '==', 0.07, "get_active_taxkey rate for 8300 in 2020_1 ok");
 136 cmp_ok($chart_income_7->get_active_taxkey($date_2020_2)->tax->rate, '==', 0.05, "get_active_taxkey rate for 8300 in 2020_2 ok");
 137 cmp_ok($chart_income_7->get_active_taxkey($date_2021  )->tax->rate, '==', 0.07, "get_active_taxkey rate for 8300 in 2021   ok");
 138 cmp_ok($chart_income_7->get_active_taxkey($date_2020_1)->tax->rate, '==', 0.07, "get_active_taxkey rate for $income_7_accno in 2020_1 ok");
 139 cmp_ok($chart_income_7->get_active_taxkey($date_2020_2)->tax->rate, '==', 0.05, "get_active_taxkey rate for $income_7_accno in 2020_2 ok");
 140 cmp_ok($chart_income_7->get_active_taxkey($date_2021  )->tax->rate, '==', 0.07, "get_active_taxkey rate for $income_7_accno in 2021   ok");
 141 cmp_ok($chart_income_7->get_active_taxkey($date_2006  )->tax->rate, '==', 0.07, "get_active_taxkey rate for $income_7_accno in 2016   ok");
 142
 143 cmp_ok($chart_income_19->get_active_taxkey($date_2020_1)->tax->rate, '==', 0.19, "get_active_taxkey rate for $income_19_accno in 2020_1 ok");
 144 cmp_ok($chart_income_19->get_active_taxkey($date_2020_2)->tax->rate, '==', 0.16, "get_active_taxkey rate for $income_19_accno in 2020_2 ok");
 145 cmp_ok($chart_income_19->get_active_taxkey($date_2021  )->tax->rate, '==', 0.19, "get_active_taxkey rate for $income_19_accno in 2021   ok");
 146 cmp_ok($chart_income_19->get_active_taxkey($date_2006  )->tax->rate, '==', 0.16, "get_active_taxkey rate for $income_19_accno in 2016   ok");
 147
 148 my $bugru19 = SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 19%') or die "Can't find bugru19";
 149 my $bugru7  = SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 7%' ) or die "Can't find bugru7";
 150
 151 my $part1 = new_part(partnumber => '1', description => 'part19', buchungsgruppen_id => $bugru19->id)->save;
 152 my $part2 = new_part(partnumber => '2', description => 'part7',  buchungsgruppen_id => $bugru7->id )->save;
 153
 154 note('sales invoices');
 155 my $sales_invoice_2006   = create_invoice_for_date('2006',   $date_2006);
 156 my $sales_invoice_2020_1 = create_invoice_for_date('2020_1', $date_2020_1);
 157 my $sales_invoice_2020_2 = create_invoice_for_date('2020_2', $date_2020_2);
 158 my $sales_invoice_2021   = create_invoice_for_date('2021',   $date_2021);
 159
 160 is($sales_invoice_2006->amount,   223, '2006 sales invoice has 16% and 7% tax ok'   ); # 116 + 7
 161 is($sales_invoice_2020_1->amount, 226, '2020_01 sales invoice has 19% and 7% tax ok'); # 119 + 7
 162 is($sales_invoice_2020_2->amount, 221, '2020_02 sales invoice has 16% and 5% tax ok'); # 116 + 5
 163 is($sales_invoice_2021->amount,   226, '2021 sales invoice has 19% and 7% tax ok'   ); # 119 + 7
 164
 165 &datev_test($sales_invoice_2020_2,
 166            [
 167              {
 168                'belegfeld1' => 'test is 2020_2',
 169                'buchungstext' => 'Testcustomer',
 170                'datum' => '15.07.2020',
 171                'leistungsdatum' => '15.07.2020', # should leistungsdatum be empty if it doesn't exist?
 172                'gegenkonto' => $income_7_accno,
 173                'konto' => $ar_accno,
 174                'kost1' => undef,
 175                'kost2' => undef,
 176                'locked' => undef,
 177                'umsatz' => 105,
 178                'waehrung' => 'EUR'
 179              },
 180              {
 181                'belegfeld1' => 'test is 2020_2',
 182                'buchungstext' => 'Testcustomer',
 183                'datum' => '15.07.2020',
 184                'leistungsdatum' => '15.07.2020',
 185                'gegenkonto' => $income_19_accno,
 186                'konto' => $ar_accno,
 187                'kost1' => undef,
 188                'kost2' => undef,
 189                'locked' => undef,
 190                'umsatz' => 116,
 191                'waehrung' => 'EUR'
 192              }
 193           ],
 194           "datev check for 16/5 ok, no taxkey"
 195 );
 196
 197 note('sales invoice with differing delivery dates');
 198 my $sales_invoice_2020_1_with_delivery_date_2020_2 = create_invoice_for_date('deliverydate 2020_1', $date_2020_1, $date_2020_2);
 199 is($sales_invoice_2020_1_with_delivery_date_2020_2->amount, 221, "sales_invoice from 2020_1 with future delivery_date 2020_2 tax ok");
 200
 201 my $sales_invoice_2020_2_with_delivery_date_2020_1 = create_invoice_for_date('deliverydate 2020_2', $date_2020_2, $date_2020_1);
 202 is($sales_invoice_2020_2_with_delivery_date_2020_1->amount, 226, "sales_invoice from 2020_2 with   past delivery_date 2020_1 tax ok");
 203
 204 &datev_test($sales_invoice_2020_2_with_delivery_date_2020_1,
 205             [
 206               {
 207                 'belegfeld1' => 'test is deliverydate 2020_2',
 208                 'buchungstext' => 'Testcustomer',
 209                 'datum' => '15.07.2020',
 210                 'gegenkonto' => $income_7_accno,
 211                 'konto' => $ar_accno,
 212                 'kost1' => undef,
 213                 'kost2' => undef,
 214                 'leistungsdatum' => '15.06.2020',
 215                 'locked' => undef,
 216                 'umsatz' => 107,
 217                 'waehrung' => 'EUR'
 218               },
 219               {
 220                 'belegfeld1' => 'test is deliverydate 2020_2',
 221                 'buchungstext' => 'Testcustomer',
 222                 'datum' => '15.07.2020',
 223                 'gegenkonto' => $income_19_accno,
 224                 'konto' => $ar_accno,
 225                 'kost1' => undef,
 226                 'kost2' => undef,
 227                 'leistungsdatum' => '15.06.2020',
 228                 'locked' => undef,
 229                 'umsatz' => 119,
 230                 'waehrung' => 'EUR'
 231               }
 232             ],
 233             "datev check for datev export with delivery_date 19/7 ok, no taxkey"
 234 );
 235
 236 my $sales_invoice_2021_with_delivery_date_2020_2   = create_invoice_for_date('deliverydate 2020_2', $date_2021, $date_2020_2);
 237 is($sales_invoice_2021_with_delivery_date_2020_2->amount,   221, "sales_invoice from 2021   with   past delivery_date 2020_2 tax ok");
 238
 239 my $sales_invoice_2020_2_with_delivery_date_2021   = create_invoice_for_date('deliverydate 2021', $date_2020_2, $date_2021);
 240 is($sales_invoice_2020_2_with_delivery_date_2021->amount,   226, "sales_invoice from 2020_2 with future delivery_date 2021   tax ok");
 241
 242
 243 note('ap transactions');
 244 # in the test we want to test for Reisekosten with 19% and 7%. Normally the user
 245 # would select the entries from the dropdown, as they may differ from the
 246 # default, so we have to pass the tax we want to create_ap_transaction
 247
 248 # my $tax_9_16_old = SL::DB::Manager::Tax->find_by(taxkey => 7, rate => 0.16, chart_id => $tax_vst_16->id);
 249 my $tax_9_19     = SL::DB::Manager::Tax->find_by(taxkey => 9, rate => 0.19, chart_id => $tax_vst_19->id) or die "missing 9_19";
 250 my $tax_9_16     = SL::DB::Manager::Tax->find_by(taxkey => 9, rate => 0.16, chart_id => $tax_vst_16->id) or die "missing 9_16";
 251 my $tax_8_7      = SL::DB::Manager::Tax->find_by(taxkey => 8, rate => 0.07, chart_id => $tax_vst_7->id)  or die "missing 8_7";
 252 my $tax_8_5      = SL::DB::Manager::Tax->find_by(taxkey => 8, rate => 0.05, chart_id => $tax_vst_5->id)  or die "missing 8_5";
 253
 254 # simulate user selecting the "correct" taxes in dropdown:
 255 my $ap_transaction_2006   = create_ap_transaction_for_date('2006',   $date_2006,   undef, $tax_9_16, $tax_8_7);
 256 my $ap_transaction_2020_1 = create_ap_transaction_for_date('2020_1', $date_2020_1, undef, $tax_9_19, $tax_8_7);
 257 my $ap_transaction_2020_2 = create_ap_transaction_for_date('2020_2', $date_2020_2, undef, $tax_9_16, $tax_8_5);
 258 my $ap_transaction_2021   = create_ap_transaction_for_date('2021',   $date_2021,   undef, $tax_9_19, $tax_8_7);
 259
 260
 261 is($ap_transaction_2006->amount,   223, '2006    ap transaction has 16% and 7% tax ok'); # 116 + 7
 262 is($ap_transaction_2020_1->amount, 226, '2020_01 ap transaction has 19% and 7% tax ok'); # 119 + 7
 263 is($ap_transaction_2020_2->amount, 221, '2020_02 ap transaction has 16% and 5% tax ok'); # 116 + 5
 264 is($ap_transaction_2021->amount,   226, '2021    ap transaction has 19% and 7% tax ok'); # 119 + 7
 265
 266 # ap transaction in july, but use old tax
 267 my $ap_transaction_2020_2_with_delivery_date_2020_1 = create_ap_transaction_for_date('2020_2 with delivery date 2020_1', $date_2020_2, $date_2020_1, $tax_9_19, $tax_8_7);
 268 is($ap_transaction_2020_2_with_delivery_date_2020_1->amount,   226, 'ap transaction 2020_2 with delivery date 2020_1, 19% and 7% tax ok'); # 119 + 7
 269 &datev_test($ap_transaction_2020_2_with_delivery_date_2020_1,
 270             [
 271               {
 272                 'belegfeld1' => 'test ap_transaction 2020_2 with delivery date 2020_1',
 273                 'buchungsschluessel' => 8,
 274                 'buchungstext' => 'Testvendor',
 275                 'datum' => '15.07.2020',
 276                 'gegenkonto' => $ap_accno,
 277                 'konto' => $chart_reisekosten_accno,
 278                 'kost1' => undef,
 279                 'kost2' => undef,
 280                 'leistungsdatum' => '15.06.2020',
 281                 'locked' => undef,
 282                 'umsatz' => 107,
 283                 'waehrung' => 'EUR'
 284               },
 285               {
 286                 'belegfeld1' => 'test ap_transaction 2020_2 with delivery date 2020_1',
 287                 'buchungsschluessel' => 9,
 288                 'buchungstext' => 'Testvendor',
 289                 'datum' => '15.07.2020',
 290                 'gegenkonto' => $ap_accno,
 291                 'konto' => $chart_reisekosten_accno,
 292                 'kost1' => undef,
 293                 'kost2' => undef,
 294                 'leistungsdatum' => '15.06.2020',
 295                 'locked' => undef,
 296                 'umsatz' => 119,
 297                 'waehrung' => 'EUR'
 298               }
 299             ],
 300             "datev check for ap transaction 2020_2 with delivery date 2020_1, 19% and 7% tax ok"
 301 );
 302
 303 note('ar transactions');
 304
 305 my $ar_transaction_2006   = create_ar_transaction_for_date('2006',   $date_2006);
 306 my $ar_transaction_2020_1 = create_ar_transaction_for_date('2020_1', $date_2020_1);
 307 my $ar_transaction_2020_2 = create_ar_transaction_for_date('2020_2', $date_2020_2);
 308 my $ar_transaction_2021   = create_ar_transaction_for_date('2021',   $date_2021);
 309
 310 is($ar_transaction_2006->amount,   223, '2006    ar transaction has 16% and 7% tax ok'); # 116 + 7
 311 is($ar_transaction_2020_1->amount, 226, '2020_01 ar transaction has 19% and 7% tax ok'); # 119 + 7
 312 is($ar_transaction_2020_2->amount, 221, '2020_02 ar transaction has 16% and 5% tax ok'); # 116 + 5
 313 is($ar_transaction_2021->amount,   226, '2021    ar transaction has 19% and 7% tax ok'); # 119 + 7
 314
 315 note('gl transactions');
 316
 317 my $gl_2006   = create_gl_transaction_for_date('glincome 2006',   $date_2006,   223);
 318 my $gl_2020_1 = create_gl_transaction_for_date('glincome 2020_1', $date_2020_1, 226);
 319 my $gl_2020_2 = create_gl_transaction_for_date('glincome 2020_2', $date_2020_2, 221);
 320 my $gl_2021   = create_gl_transaction_for_date('glincome 2021',   $date_2021,   226);
 321
 322 is(SL::DB::Manager::GLTransaction->get_all_count(), 4, "4 gltransactions created correctly");
 323
 324 my $result = &get_account_balances;
 325 # print Dumper($result);
 326 is_deeply( &get_account_balances,
 327         [
 328           # {
 329           #   'accno' => '1000',
 330           #   # 'description' => 'Kasse',
 331           #   'sum' => '-896.00000'
 332           # },
 333           # {
 334           #   'accno' => '1400',
 335           #   # 'description' => 'Ford. a.Lieferungen und Leistungen',
 336           #   'sum' => '-2686.00000'
 337           # },
 338           {
 339             'accno' => '1568',
 340             # 'description' => 'Abziehbare Vorsteuer 7%',
 341             'sum' => '-5.00000'
 342           },
 343           {
 344             'accno' => '1571',
 345             # 'description' => 'Abziehbare Vorsteuer 7%',
 346             'sum' => '-28.00000'
 347           },
 348           {
 349             'accno' => '1575',
 350             # 'description' => 'Abziehbare Vorsteuer 16%',
 351             'sum' => '-32.00000'
 352           },
 353           {
 354             'accno' => '1576',
 355             # 'description' => 'Abziehbare Vorsteuer 19 %',
 356             'sum' => '-57.00000'
 357           },
 358           # {
 359           #   'accno' => '1600',
 360           #   # 'description' => 'Verbindlichkeiten aus Lief.u.Leist.',
 361           #   'sum' => '896.00000'
 362           # },
 363           {
 364             'accno' => '1771',
 365             # 'description' => 'Umsatzsteuer 7%',
 366             'sum' => '77.00000'
 367           },
 368           {
 369             'accno' => '1773',
 370             # 'description' => 'Umsatzsteuer 5 %',
 371             'sum' => '25.00000'
 372           },
 373           {
 374             'accno' => '1775',
 375             # 'description' => 'Umsatzsteuer 16%',
 376             'sum' => '128.00000'
 377           },
 378           {
 379             'accno' => '1776',
 380             # 'description' => 'Umsatzsteuer 19 %',
 381             'sum' => '152.00000'
 382           },
 383           # {
 384           #   'accno' => '4660',
 385           #   # 'description' => 'Reisekosten Arbeitnehmer',
 386           #   'sum' => '-800.00000'
 387           # },
 388           # {
 389           #   'accno' => $income_7_accno,
 390           #   # 'description' => "Erl\x{f6}se 7%USt",
 391           #   'sum' => '1600.00000'
 392           # },
 393           # {
 394           #   'accno' => $income_19_accno,
 395           #   # 'description' => "Erl\x{f6}se 16%/19% USt.",
 396           #   'sum' => '1600.00000'
 397           # }
 398         ],
 399         'account balances after invoices'
 400 );
 401
 402 note('testing payments with skonto');
 403
 404 my %params = ( chart_id     => $chart_bank->id,
 405                payment_type => 'with_skonto_pt',
 406              );
 407
 408 $sales_invoice_2020_2->pay_invoice( %params,
 409                                     amount    => $sales_invoice_2020_2->amount_less_skonto,
 410                                     transdate => $date_2020_2->to_kivitendo,
 411                                   );
 412
 413
 414 $skonto_5 = SL::DB::Manager::AccTransaction->find_by(trans_id => $sales_invoice_2020_2->id, amount => -5.25);
 415 like($skonto_5->chart->description, qr/Skonti.*5/, "sales_invoice 2020_2 paid in 2020_2 - skonto 5% ok");
 416 $skonto_16 = SL::DB::Manager::AccTransaction->find_by(trans_id => $sales_invoice_2020_2->id, amount => -5.80);
 417 like($skonto_16->chart->description, qr/Skonti.*16/, "sales_invoice 2020_2 paid in 2020_2 - skonto 16% ok");
 418
 419 $sales_invoice_2020_1->pay_invoice( %params,
 420                                     amount    => $sales_invoice_2020_1->amount_less_skonto,
 421                                     transdate => $date_2020_2->to_kivitendo,
 422                                   );
 423 $skonto_7 = SL::DB::Manager::AccTransaction->find_by(trans_id => $sales_invoice_2020_1->id, amount => -5.35);
 424 like($skonto_7->chart->description, qr/Skonti.*7/, "sales_invoice 2020_1 paid with skonto in 2020_2 - skonto 7% ok");
 425 $skonto_19 = SL::DB::Manager::AccTransaction->find_by(trans_id => $sales_invoice_2020_1->id, amount => -5.95);
 426 like($skonto_19->chart->description, qr/Skonti.*19/, "sales_invoice 2020_1 paid with skonto in 2020_2 - skonto 19% ok");
 427
 428 $ap_transaction_2020_1->pay_invoice( %params,
 429                                      amount    => $ap_transaction_2020_1->amount_less_skonto,
 430                                      transdate => $date_2020_2->to_kivitendo,
 431                                    );
 432 $skonto_7 = SL::DB::Manager::AccTransaction->find_by(trans_id => $ap_transaction_2020_1->id, amount => 5.35);
 433 like($skonto_7->chart->description, qr/Skonti.*7/, "ap transaction 2020_1 paid with skonto in 2020_2 - skonto 7% ok");
 434 $skonto_19 = SL::DB::Manager::AccTransaction->find_by(trans_id => $ap_transaction_2020_1->id, amount => 5.95);
 435 like($skonto_19->chart->description, qr/Skonti.*19/, "ap transaction 2020_1 paid with skonto in 2020_2 - skonto 19% ok");
 436
 437
 438 $ap_transaction_2020_2->pay_invoice( %params,
 439                                      amount    => $ap_transaction_2020_2->amount_less_skonto,
 440                                      transdate => $date_2021->to_kivitendo,
 441                                    );
 442 $skonto_5 = SL::DB::Manager::AccTransaction->find_by(trans_id => $ap_transaction_2020_2->id, amount => 5.25);
 443 like($skonto_5->chart->description, qr/Skonti.*5/, "ap transaction 2020_2 paid in 2021 - skonto 5% ok");
 444
 445 $skonto_16 = SL::DB::Manager::AccTransaction->find_by(trans_id => $ap_transaction_2020_2->id, amount => 5.80);
 446 like($skonto_16->chart->description, qr/Skonti.*16/, "sales_invoice 2020_2 paid in 2021 - skonto 16% ok");
 447
 448 clear_up();
 449
 450 done_testing();
 451
 452 ###### functions for setting up data
 453
 454 sub create_invoice_for_date {
 455   my ($invnumber, $transdate, $deliverydate) = @_;
 456
 457   $deliverydate = $transdate unless defined $deliverydate;
 458
 459   my $sales_invoice = create_sales_invoice(
 460     invnumber    => 'test is ' . $invnumber,
 461     transdate    => $transdate,
 462     customer     => $customer,
 463     deliverydate => $deliverydate,
 464     payment_terms => $payment_terms,
 465     taxincluded  => 0,
 466     invoiceitems => [ create_invoice_item(part => $part1, qty => 10, sellprice => 10),
 467                       create_invoice_item(part => $part2, qty => 10, sellprice => 10),
 468                     ]
 469   );
 470   return $sales_invoice;
 471 }
 472
 473 sub create_ar_transaction_for_date {
 474   my ($invnumber, $transdate) = @_;
 475
 476   my $ar_transaction = create_ar_transaction(
 477     customer      => $customer,
 478     invnumber   => 'test ar' . $invnumber,
 479     taxincluded => 0,
 480     transdate   => $transdate,
 481     ar_chart     => SL::DB::Manager::Chart->find_by(accno => $ar_accno), # pass ar_chart, as it is hardcoded for SKR03 in SL::Dev::Record
 482     bookings    => [
 483                      {
 484                        chart  => $chart_income_19,
 485                        amount => 100,
 486                      },
 487                      {
 488                        chart  => $chart_income_7,
 489                        amount => 100,
 490                      },
 491                    ]
 492   );
 493   return $ar_transaction;
 494 }
 495
 496 sub create_ap_transaction_for_date {
 497   my ($invnumber, $transdate, $deliverydate, $tax_high, $tax_low) = @_;
 498
 499   # printf("invnumber = %s  tax_high = %s   tax_low = %s\n", $invnumber, $tax_high->accno , $tax_low->accno);
 500   my $taxkey_ = $chart_reisekosten->get_active_taxkey($transdate);
 501
 502   my $ap_transaction = create_ap_transaction(
 503     vendor       => $vendor,
 504     invnumber    => 'test ap_transaction ' . $invnumber,
 505     taxincluded  => 0,
 506     transdate    => $transdate,
 507     deliverydate => $deliverydate,
 508     payment_id   => $payment_terms->id,
 509     ap_chart     => SL::DB::Manager::Chart->find_by(accno => $ap_accno), # pass ap_chart, as it is hardcoded for SKR03 in SL::Dev::Record
 510     bookings     => [
 511                      {
 512                        chart  => $chart_reisekosten,
 513                        amount => 100,
 514                        tax_id => $tax_high->id,
 515                      },
 516                      {
 517                        chart  => $chart_reisekosten,
 518                        amount => 100,
 519                        tax_id => $tax_low->id,
 520                      },
 521                    ]
 522   );
 523   return $ap_transaction;
 524 }
 525
 526 sub create_gl_transaction_for_date {
 527   my ($reference, $transdate, $debitamount) = @_;
 528
 529   my $gl_transaction = create_gl_transaction(
 530     reference   => $reference,
 531     taxincluded => 0,
 532     transdate   => $transdate,
 533     bookings    => [
 534                      {
 535                        chart  => $chart_income_19,
 536                        memo   => 'gl 19',
 537                        source => 'gl 19',
 538                        credit => 100,
 539                      },
 540                      {
 541                        chart  => $chart_income_7,
 542                        memo   => 'gl 7',
 543                        source => 'gl 7',
 544                        credit => 100,
 545                      },
 546                      {
 547                        chart  => $chart_cash,
 548                        debit  => $debitamount,
 549                        memo   => 'gl 19+7',
 550                        source => 'gl 19+7',
 551                      },
 552                    ],
 553   );
 554   return $gl_transaction;
 555 }
 556
 557 sub get_account_balances {
 558   my $query = <<SQL;
 559   select c.accno, sum(a.amount)
 560     from acc_trans a
 561          left join chart c on (c.id = a.chart_id)
 562    where c.accno ~ '^17' or c.accno ~ '^15'
 563 group by c.accno, c.description
 564 order by c.accno
 565 SQL
 566
 567   my $result = selectall_hashref_query($::form, $dbh, $query);
 568   return $result;
 569 };
 570
 571 sub datev_test {
 572   my ($invoice, $expected_data, $msg) = @_;
 573
 574   my $datev = SL::DATEV->new(
 575     dbh        => $invoice->db->dbh,
 576     trans_id   => $invoice->id,
 577   );
 578
 579   $datev->generate_datev_data;
 580   my @data_datev   = sort { $a->{umsatz} <=> $b->{umsatz} } @{ $datev->generate_datev_lines() };
 581
 582   # print Dumper(\@data_datev);
 583
 584   cmp_deeply(\@data_datev, $expected_data, $msg);
 585 }
 586
 587 sub clear_up {
 588   SL::DB::Manager::OrderItem->delete_all(all => 1);
 589   SL::DB::Manager::Order->delete_all(all => 1);
 590   SL::DB::Manager::InvoiceItem->delete_all(all => 1);
 591   SL::DB::Manager::Invoice->delete_all(all => 1);
 592   SL::DB::Manager::PurchaseInvoice->delete_all(all => 1);
 593   SL::DB::Manager::GLTransaction->delete_all(all => 1);
 594   SL::DB::Manager::Part->delete_all(all => 1);
 595   SL::DB::Manager::Customer->delete_all(all => 1);
 596   SL::DB::Manager::Vendor->delete_all(all => 1);
 597   SL::DB::Manager::PaymentTerm->delete_all(all => 1);
 598 };
 599
 600 1;