Shopware-Proxy: Leeren Wert '' erlauben und danach regex prüfen
[kivitendo-erp.git] / t / datev / invoices.t
1 use strict;
2 use Test::More;
3 use Test::Deep qw(cmp_deeply cmp_bag);
4
5 use lib 't';
6 use utf8;
7
8 use_ok 'Support::TestSetup';
9 use SL::DATEV qw(:CONSTANTS);
10 use SL::Dev::ALL qw(:ALL);
11 use List::Util qw(sum);
12 use SL::DB::Buchungsgruppe;
13 use SL::DB::Chart;
14 use DateTime;
15
16 Support::TestSetup::login();
17
18 clear_up();
19
20 my $dbh = SL::DB->client->dbh;
21
22 my $buchungsgruppe7 = SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 7%') || die "No accounting group for 7\%";
23 my $bank            = SL::DB::Manager::Chart->find_by(description => 'Bank')                 || die 'Can\'t find chart "Bank"';
24 my $date            = DateTime->new(year => 2017, month =>  1, day => 1);
25 my $payment_date    = DateTime->new(year => 2017, month =>  1, day => 5);
26 my $gldate          = DateTime->new(year => 2017, month =>  2, day => 9); # simulate bookings for Jan being made in Feb
27 my $department      = create_department(description => 'Kostenstelle DATEV-Schnittstelle 2018');
28 my $project         = create_project(projectnumber => 2017, description => 'Crowd-Funding September 2017');
29 my $customer        = new_customer(customernumber => '10001', name => 'Testcustomer')->save;
30 my $vendor          = new_vendor(vendornumber => '70001', name => 'Testvendor')->save;
31
32 my $part1 = new_part(partnumber => '19', description => 'Part 19%')->save;
33 my $part2 = new_part(
34   partnumber         => '7',
35   description        => 'Part 7%',
36   buchungsgruppen_id => $buchungsgruppe7->id,
37 )->save;
38
39 my $invoice = create_sales_invoice(
40   invnumber    => "Þ sales ¥& invöice",
41   customer     => $customer,
42   itime        => $gldate,
43   gldate       => $gldate,
44   intnotes     => 'booked in February',
45   taxincluded  => 0,
46   transdate    => $date,
47   invoiceitems => [ create_invoice_item(part => $part1, qty =>  3, sellprice => 70),
48                     create_invoice_item(part => $part2, qty => 10, sellprice => 50),
49                   ],
50   department_id    => $department->id,
51   globalproject_id => $project->id,
52 );
53 $invoice->pay_invoice(chart_id      => $bank->id,
54                       amount        => $invoice->open_amount,
55                       transdate     => $payment_date->to_kivitendo,
56                       memo          => 'foobar',
57                       source        => 'barfoo',
58                      );
59 my $datev1 = SL::DATEV->new(
60   dbh        => $invoice->db->dbh,
61   trans_id   => $invoice->id,
62 );
63
64 $datev1->generate_datev_data;
65
66 my @data_datev   = sort { $a->{umsatz} <=> $b->{umsatz} } @{ $datev1->generate_datev_lines() };
67 cmp_deeply \@data_datev, [
68                                          {
69                                            'belegfeld1'   => "\x{de} sales \x{a5}& inv\x{f6}ice",
70                                            'buchungstext' => 'Testcustomer',
71                                            'datum'        => '01.01.2017',
72                                            'gegenkonto'   => '8400',
73                                            'konto'        => '1400',
74                                            'kost1'        => 'Kostenstelle DATEV-Schnittstelle 2018',
75                                            'kost2'        => 'Crowd-Funding September 2017',
76                                            'locked'       => undef,
77                                            'umsatz'       => '249.9',
78                                            'waehrung'     => 'EUR',
79                                          },
80                                          {
81                                            'belegfeld1'   => "\x{de} sales \x{a5}& inv\x{f6}ice",
82                                            'buchungstext' => 'Testcustomer',
83                                            'datum'        => '01.01.2017',
84                                            'gegenkonto'   => '8300',
85                                            'konto'        => '1400',
86                                            'kost1'        => 'Kostenstelle DATEV-Schnittstelle 2018',
87                                            'kost2'        => 'Crowd-Funding September 2017',
88                                            'locked'       => undef,
89                                            'umsatz'       => 535,
90                                            'waehrung'     => 'EUR',
91                                          },
92                                          {
93                                            'belegfeld1'   => "\x{de} sales \x{a5}& inv\x{f6}ice",
94                                            'buchungstext' => 'Testcustomer',
95                                            'buchungstext' => 'Testcustomer',
96                                            'datum'        => '05.01.2017',
97                                            'gegenkonto'   => '1400',
98                                            'konto'        => '1200',
99                                            'kost1'        => 'Kostenstelle DATEV-Schnittstelle 2018',
100                                            'kost2'        => 'Crowd-Funding September 2017',
101                                            'umsatz'       => '784.9',
102                                            'locked'       => undef,
103                                            'waehrung'     => 'EUR',
104                                          },
105                                        ], "trans_id datev check ok";
106
107 $datev1->use_pk(1);
108 $datev1->generate_datev_data;
109 # TODO for cmp_deeply we need to sort the incoming data structure (see below)
110 cmp_bag $datev1->generate_datev_lines, [
111                                          {
112                                            'belegfeld1'   => "\x{de} sales \x{a5}& inv\x{f6}ice",
113                                            'buchungstext' => 'Testcustomer',
114                                            'datum'        => '01.01.2017',
115                                            'gegenkonto'   => '8400',
116                                            'konto'        => $customer->customernumber,
117                                            'kost1'        => 'Kostenstelle DATEV-Schnittstelle 2018',
118                                            'kost2'        => 'Crowd-Funding September 2017',
119                                            'umsatz'       => '249.9',
120                                            'locked'       => undef,
121                                            'waehrung'     => 'EUR',
122                                          },
123                                          {
124                                            'belegfeld1'   => "\x{de} sales \x{a5}& inv\x{f6}ice",
125                                            'buchungstext' => 'Testcustomer',
126                                            'datum'        => '01.01.2017',
127                                            'gegenkonto'   => '8300',
128                                            'konto'        => $customer->customernumber,
129                                            'kost1'        => 'Kostenstelle DATEV-Schnittstelle 2018',
130                                            'kost2'        => 'Crowd-Funding September 2017',
131                                            'umsatz'       => 535,
132                                            'locked'       => undef,
133                                            'waehrung'     => 'EUR',
134                                          },
135                                          {
136                                            'belegfeld1'   => "\x{de} sales \x{a5}& inv\x{f6}ice",
137                                            'buchungstext' => 'Testcustomer',
138                                            'datum'        => '05.01.2017',
139                                            'gegenkonto'   => $customer->customernumber,
140                                            'konto'        => '1200',
141                                            'kost1'        => 'Kostenstelle DATEV-Schnittstelle 2018',
142                                            'kost2'        => 'Crowd-Funding September 2017',
143                                            'umsatz'       => '784.9',
144                                            'locked'       => undef,
145                                            'waehrung'     => 'EUR',
146                                          },
147                                        ], "trans_id datev check use_pk ok";
148
149
150 my $startdate = DateTime->new(year => 2017, month =>  1, day =>  1);
151 my $enddate   = DateTime->new(year => 2017, month => 12, day => 31);
152
153 # check conversion to csv
154 $datev1->from($startdate);
155 $datev1->to($enddate);
156 # reset use_pk for csv_buchungsexport
157 $datev1->use_pk(0);
158 $datev1->generate_datev_data;
159
160
161 my $datev_csv = SL::DATEV::CSV->new(datev_lines  => $datev1->generate_datev_lines,
162                                     from         => $startdate,
163                                     to           => $enddate,
164                                     locked       => $datev1->locked,
165                                    );
166 $datev_csv->lines;
167
168
169 # we need sort, because pay_invoice is not acc_trans_id order safe
170 my @data_csv    = sort { $a->[0] cmp $b->[0] } @{ $datev_csv->lines };
171 # warnings should be undef -> no array elements at all
172 is(scalar @{ $datev_csv->warnings }, 0);
173
174
175 cmp_deeply($data_csv[1], [ '535', 'S', 'EUR', '', '', '', '1400', '8300', '', '0101', "\x{de} sales \x{a5}& i",
176                      '', '', 'Testcustomer', '', '', '', '', '', '', '', '',
177                      '', '', '', '', '', '', '', '', '', '', '', '', '',
178                      '', 'Kostenst', 'Crowd-Fu', '', '', '', '', '', '', '', '',
179                      '', '', '', '', '', '', '', '', '', '', '', '', '',
180                      '', '', '', '', '', '', '', '', '', '', '', '', '',
181                      '', '', '', '', '', '', '', '', '', '', '', '', '',
182                      '', '', '', '', '', '', '', '', '', '', '', '', '',
183                      '', '', '', '', '', '', '', '', '', '', '', '', '',
184                      '', '', '1', '', '', '', '', '', '' ]
185        );
186
187 cmp_deeply($data_csv[0], [ '249,9', 'S', 'EUR', '', '', '', '1400', '8400', '', '0101', "\x{de} sales \x{a5}& i",
188                      '', '', 'Testcustomer', '', '', '', '', '', '', '', '',
189                      '', '', '', '', '', '', '', '', '', '', '', '', '',
190                      '', 'Kostenst', 'Crowd-Fu', '', '', '', '', '', '', '', '',
191                      '', '', '', '', '', '', '', '', '', '', '', '', '',
192                      '', '', '', '', '', '', '', '', '', '', '', '', '',
193                      '', '', '', '', '', '', '', '', '', '', '', '', '',
194                      '', '', '', '', '', '', '', '', '', '', '', '', '',
195                      '', '', '', '', '', '', '', '', '', '', '', '', '',
196                      '', '', '1', '', '', '', '', '', '' ]
197        );
198 cmp_deeply($data_csv[2], [ '784,9', 'S', 'EUR', '', '', '', '1200', '1400', '', '0501', "\x{de} sales \x{a5}& i",
199                      '', '', 'Testcustomer', '', '', '', '', '', '', '', '',
200                      '', '', '', '', '', '', '', '', '', '', '', '', '',
201                      '', 'Kostenst', 'Crowd-Fu', '', '', '', '', '', '', '', '',
202                      '', '', '', '', '', '', '', '', '', '', '', '', '',
203                      '', '', '', '', '', '', '', '', '', '', '', '', '',
204                      '', '', '', '', '', '', '', '', '', '', '', '', '',
205                      '', '', '', '', '', '', '', '', '', '', '', '', '',
206                      '', '', '', '', '', '', '', '', '', '', '', '', '',
207                      '', '', '1', '', '', '', '', '', '' ]
208         );
209 my $march_9 = DateTime->new(year => 2017, month =>  3, day => 9);
210 my $invoice2 = create_sales_invoice(
211   invnumber    => "2 sales invoice",
212   customer     => $customer,
213   itime        => $march_9,
214   gldate       => $march_9,
215   intnotes     => 'booked in March',
216   taxincluded  => 0,
217   transdate    => $date,
218   invoiceitems => [ create_invoice_item(part => $part1, qty =>  6, sellprice => 70),
219                     create_invoice_item(part => $part2, qty => 20, sellprice => 50),
220                   ]
221 );
222
223 my $credit_note = create_credit_note(
224   invnumber    => 'Gutschrift 34',
225   customer     => $customer,
226   itime        => $gldate,
227   gldate       => $gldate,
228   intnotes     => 'booked in February',
229   taxincluded  => 0,
230   transdate    => $date,
231   invoiceitems => [ create_invoice_item(part => $part1, qty =>  3, sellprice => 70),
232                     create_invoice_item(part => $part2, qty => 10, sellprice => 50),
233                   ]
234 );
235
236 my $datev = SL::DATEV->new(
237   dbh        => $dbh,
238   from       => $startdate,
239   to         => $enddate,
240 );
241 $datev->generate_datev_data(from_to => $datev->fromto);
242 my $datev_lines = $datev->generate_datev_lines;
243 my $umsatzsumme = sum map { $_->{umsatz} } @{ $datev_lines };
244 cmp_ok($::form->round_amount($umsatzsumme,2), '==', 3924.5, "Sum of all bookings ok");
245
246 $datev->generate_datev_data(use_pk => 1, from_to => $datev->fromto);
247 $datev_lines = $datev->generate_datev_lines;
248
249 note('testing purchase invoice');
250 my $purchase_invoice = create_ap_transaction(
251   vendor      => $vendor,
252   invnumber   => 'ap1',
253   amount      => '226',
254   netamount   => '200',
255   transdate   => $date,
256   gldate      => $date,
257   itime       => $date, # make sure itime is 1.1., as gldatefrom tests for itime!
258   taxincluded => 0,
259   bookings    => [
260                    {
261                      chart  => SL::DB::Manager::Chart->find_by(accno => '3400'),
262                      amount => 100,
263                    },
264                    {
265                      chart  => SL::DB::Manager::Chart->find_by(accno => '3300'),
266                      amount => 100,
267                    },
268                  ],
269 );
270
271 $datev1 = SL::DATEV->new(
272   dbh        => $purchase_invoice->db->dbh,
273   trans_id   => $purchase_invoice->id,
274 );
275
276 $datev1->generate_datev_data;
277 cmp_deeply $datev1->generate_datev_lines, [
278                                         {
279                                           'belegfeld1'             => 'ap1',
280                                           'buchungstext'           => 'Testvendor',
281                                           'datum'                  => '01.01.2017',
282                                           'gegenkonto'             => '1600',
283                                           'konto'                  => '3400',
284                                           'kost1'                  => undef,
285                                           'kost2'                  => undef,
286                                           'umsatz'                 => 119,
287                                           'locked'                 => undef,
288                                           'waehrung'               => 'EUR'
289                                         },
290                                         {
291                                           'belegfeld1'             => 'ap1',
292                                           'buchungstext'           => 'Testvendor',
293                                           'datum'                  => '01.01.2017',
294                                           'gegenkonto'             => '1600',
295                                           'konto'                  => '3300',
296                                           'kost1'                  => undef,
297                                           'kost2'                  => undef,
298                                           'umsatz'                 => 107,
299                                           'locked'                 => undef,
300                                           'waehrung'               => 'EUR'
301                                         }
302                                        ], "trans_id datev check purchase_invoice ok";
303 $datev1->use_pk(1);
304 $datev1->generate_datev_data;
305 cmp_deeply $datev1->generate_datev_lines, [
306                                         {
307                                           'belegfeld1'             => 'ap1',
308                                           'buchungstext'           => 'Testvendor',
309                                           'datum'                  => '01.01.2017',
310                                           'gegenkonto'             => $vendor->vendornumber,
311                                           'konto'                  => '3400',
312                                           'kost1'                  => undef,
313                                           'kost2'                  => undef,
314                                           'umsatz'                 => 119,
315                                           'locked'                 => undef,
316                                           'waehrung'               => 'EUR'
317                                         },
318                                         {
319                                           'belegfeld1'             => 'ap1',
320                                           'buchungstext'           => 'Testvendor',
321                                           'datum'                  => '01.01.2017',
322                                           'gegenkonto'             => $vendor->vendornumber,
323                                           'konto'                  => '3300',
324                                           'kost1'                  => undef,
325                                           'kost2'                  => undef,
326                                           'umsatz'                 => 107,
327                                           'locked'                 => undef,
328                                           'waehrung'               => 'EUR'
329                                         }
330                                        ], "trans_id datev check purchase_invoice use_pk ok";
331
332 note('testing gldatefrom');
333 # test an order with transdate in january, but that was booked in march
334 # gldatefrom in DATEV.pm checks for itime, not gldate!!!
335 $datev = SL::DATEV->new(
336   dbh        => $dbh,
337   from       => $startdate,
338   to         => DateTime->new(year => 2017, month => 01, day => 31),
339 );
340
341 $::form               = Support::TestSetup->create_new_form;
342 $::form->{gldatefrom} = DateTime->new(year => 2017, month => 3, day => 1)->to_kivitendo;
343
344 $datev->generate_datev_data(from_to => $datev->fromto);
345 $datev_lines = $datev->generate_datev_lines;
346 $umsatzsumme = sum map { $_->{umsatz} } @{ $datev_lines };
347 cmp_ok($umsatzsumme, '==', 1569.8, "Sum of bookings made after March 1st (only invoice2) ok");
348
349 $::form->{gldatefrom} = DateTime->new(year => 2017, month => 5, day => 1)->to_kivitendo;
350 $datev->generate_datev_data(from_to => $datev->fromto);
351 cmp_deeply $datev->generate_datev_lines, [], "no bookings for January made after May 1st: ok";
352
353 done_testing();
354 clear_up();
355
356 sub clear_up {
357   SL::DB::Manager::AccTransaction->delete_all(all => 1);
358   SL::DB::Manager::InvoiceItem->delete_all(   all => 1);
359   SL::DB::Manager::Invoice->delete_all(       all => 1);
360   SL::DB::Manager::PurchaseInvoice->delete_all(all => 1);
361   SL::DB::Manager::Customer->delete_all(      all => 1);
362   SL::DB::Manager::Part->delete_all(          all => 1);
363   SL::DB::Manager::Project->delete_all(       all => 1);
364   SL::DB::Manager::Department->delete_all(    all => 1);
365   SL::DATEV->clean_temporary_directories;
366 };
367
368 1;