t/db_helper/convert_invoice.t

   1 use Test::More tests => 38;
   2
   3 use strict;
   4
   5 use lib 't';
   6 use utf8;
   7
   8 use Support::TestSetup;
   9
  10 use Carp;
  11 use Data::Dumper;
  12 use Support::TestSetup;
  13 use Test::Exception;
  14 use List::Util qw(max);
  15
  16 use SL::DB::Buchungsgruppe;
  17 use SL::DB::Currency;
  18 use SL::DB::Customer;
  19 use SL::DB::Employee;
  20 use SL::DB::Invoice;
  21 use SL::DB::Order;
  22 use SL::DB::DeliveryOrder;
  23 use SL::DB::Part;
  24 use SL::DB::Unit;
  25 use SL::DB::TaxZone;
  26
  27 my ($customer, $currency_id, $buchungsgruppe, $employee, $vendor, $taxzone, $buchungsgruppe7, $tax, $tax7,
  28     $unit, @parts);
  29
  30 my $VISUAL_TEST = 0;  # just a sleep to click around
  31
  32 sub clear_up {
  33   foreach (qw(DeliveryOrderItem DeliveryOrder InvoiceItem Invoice Part Customer Vendor Department PaymentTerm)) {
  34     "SL::DB::Manager::${_}"->delete_all(all => 1);
  35   }
  36   SL::DB::Manager::Employee->delete_all(where => [ id => 31915 ]);
  37 };
  38
  39 sub reset_state {
  40   my %params = @_;
  41
  42   clear_up();
  43
  44   $buchungsgruppe   = SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 19%', %{ $params{buchungsgruppe} }) || croak "No accounting group 19\%";
  45   $buchungsgruppe7  = SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 7%', %{ $params{buchungsgruppe} })  || croak "No accounting group 7\%";
  46   $taxzone          = SL::DB::Manager::TaxZone->find_by( description => 'Inland')                                           || croak "No taxzone";
  47   $tax              = SL::DB::Manager::Tax->find_by(taxkey => 3, rate => 0.19, %{ $params{tax} })                           || croak "No tax for 19\%";
  48   $tax7             = SL::DB::Manager::Tax->find_by(taxkey => 2, rate => 0.07)                                              || croak "No tax for 7\%";
  49   $unit             = SL::DB::Manager::Unit->find_by(name => 'kg', %{ $params{unit} })                                      || croak "No unit";
  50   $currency_id     = $::instance_conf->get_currency_id;
  51
  52   $customer     = SL::DB::Customer->new(
  53     name        => '520484567dfaedc9e60fc',
  54     currency_id => $currency_id,
  55     taxzone_id  => $taxzone->id,
  56     %{ $params{customer} }
  57   )->save;
  58
  59   # some od.rnr real anonym data
  60   my $employee_bk = SL::DB::Employee->new(
  61                 'id' => 31915,
  62                 'login' => 'barbuschka.kappes',
  63                 'name' => 'Barbuschka Kappes',
  64   )->save;
  65
  66   my $department_do = SL::DB::Department->new(
  67                  'description' => 'Maisenhaus-Versand',
  68                  'id' => 32149,
  69                  'itime' => undef,
  70                  'mtime' => undef
  71   )->save;
  72
  73   my $payment_do = SL::DB::PaymentTerm->new(
  74                  'description' => '14Tage 2%Skonto, 30Tage netto',
  75                  'description_long' => "Innerhalb von 14 Tagen abzüglich 2 % Skonto, innerhalb von 30 Tagen rein netto.|Bei einer Zahlung bis zum <%skonto_date%> gewähren wir 2 % Skonto (EUR <%skonto_amount%>) entspricht EUR <%total_wo_skonto%>.Bei einer Zahlung bis zum <%netto_date%> ist der fällige Betrag in Höhe von <%total%> <%currency%> zu überweisen.",
  76                  'id' => 11276,
  77                  'itime' => undef,
  78                  'mtime' => undef,
  79                  'percent_skonto' => '0.02',
  80                  'ranking' => undef,
  81                  'sortkey' => 4,
  82                  'terms_netto' => 30,
  83                  'auto_calculation' => undef,
  84                  'terms_skonto' => 14
  85   )->save;
  86
  87   # two real parts
  88   @parts = ();
  89   push @parts, SL::DB::Part->new(
  90                  'id' => 26321,
  91                  'image' => '',
  92                  'lastcost' => '49.95000',
  93                  'listprice' => '0.00000',
  94                  'onhand' => '5.00000',
  95                  'partnumber' => 'v-519160549',
  96                  #'partsgroup_id' => 111645,
  97                  'rop' => '0',
  98                  'sellprice' => '242.20000',
  99                  #'warehouse_id' => 64702,
 100                  'weight' => '0.79',
 101                  description        => "Nussbaum, Gr.5, Unterfilz weinrot, genietet[[Aufschnittbreite: 11,0, Kernform: US]]\"" ,
 102                  buchungsgruppen_id => $buchungsgruppe->id,
 103                  unit               => $unit->name,
 104                  id                 => 26321,
 105   )->save;
 106
 107   push @parts, SL::DB::Part->new(
 108                  'description' => "[[0640]]Flügel Hammerstiele bestehend aus:
 109 70 Stielen Standard in Weißbuche und
 110 20 Stielen Diskant abgekehlt in Weißbuche
 111 mit Röllchen aus Synthetikleder,
 112 Kapseln mit Yamaha Profil, Kerbenabstand 3,6 mm mit eingedrehten Abnickschrauben",
 113                  'id' => 25505,
 114                  'lastcost' => '153.00000',
 115                  'listprice' => '0.00000',
 116                  'onhand' => '9.00000',
 117                  'partnumber' => 'v-120160086',
 118                  # 'partsgroup_id' => 111639,
 119                  'rop' => '0',
 120                  'sellprice' => '344.30000',
 121                  'weight' => '0.9',
 122                   buchungsgruppen_id => $buchungsgruppe->id,
 123                   unit               => $unit->name,
 124   )->save;
 125 }
 126
 127 sub new_delivery_order {
 128   my %params  = @_;
 129
 130   return SL::DB::DeliveryOrder->new(
 131    currency_id => $currency_id,
 132    taxzone_id  => $taxzone->id,
 133     %params,
 134   )->save;
 135 }
 136
 137 Support::TestSetup::login();
 138
 139 reset_state();
 140
 141 # we create L20199 with two items
 142 my $do1 = new_delivery_order('department_id'    => 32149,
 143                              'donumber'         => 'L20199',
 144                              'employee_id'      => 31915,
 145                              'intnotes'         => 'Achtung: Neue Lieferadresse ab 16.02.2015 in der Carl-von-Ossietzky-Str.32!   13.02.2015/MH
 146
 147                                             Steinway-Produkte (201...) immer plus 25% dazu rechnen / BK 13.02.2014',
 148                               'ordnumber'       => 'A16399',
 149                               'payment_id'      => 11276,
 150                               'salesman_id'     => 31915,
 151                               'shippingpoint'   => 'Maisenhaus',
 152                               # 'shipto_id'     => 451463,
 153                               'is_sales'        => 'true',
 154                               'shipvia'         => 'DHL, Versand am 06.03.2015, 1 Paket  17,00 kg',
 155                               'taxzone_id'      => 4,
 156                               'closed'          => undef,
 157                               # 'currency_id'   => 1,
 158                               'cusordnumber'    => 'b84da',
 159                               'customer_id'     => $customer->id,
 160                               'id'              => 464003,
 161 );
 162
 163 my $do1_item1 = SL::DB::DeliveryOrderItem->new('delivery_order_id' => 464003,
 164                                                'description' => "Flügel Hammerkopf bestehend aus:
 165                                                                  Bass/Diskant 26/65 Stück, Gesamtlänge 80/72, Bohrlänge 56/48
 166                                                                  Nussbaum, Gr.5, Unterfilz weinrot, genietet[[Aufschnittbreite: 11,0, Kernform: US]]",
 167                                                'discount' => '0.25',
 168                                                'id' => 144736,
 169                                                'lastcost' => '49.95000',
 170                                                'longdescription' => '',
 171                                                'marge_price_factor' => 1,
 172                                                'mtime' => undef,
 173                                                'ordnumber' => 'A16399',
 174                                                'parts_id' => 26321,
 175                                                'position' => 1,
 176                                                'price_factor' => 1,
 177                                                'qty' => '2.00000',
 178                                                'sellprice' => '242.20000',
 179                                                'transdate' => '06.03.2015',
 180                                                'unit' => 'kg')->save;
 181
 182 my $do1_item2 = SL::DB::DeliveryOrderItem->new('delivery_order_id' => 464003,
 183                  'description' => "[[0640]]Flügel Hammerstiele bestehend aus:
 184 70 Stielen Standard in Weißbuche und
 185 20 Stielen Diskant abgekehlt in Weißbuche
 186 mit Röllchen aus Synthetikleder,
 187 Kapseln mit Yamaha Profil, Kerbenabstand 3,6 mm mit eingedrehten Abnickschrauben",
 188                  'discount' => '0.25',
 189                  'id' => 144737,
 190                  'itime' => undef,
 191                  'lastcost' => '153.00000',
 192                  'longdescription' => '',
 193                  'marge_price_factor' => 1,
 194                  'mtime' => undef,
 195                  'ordnumber' => 'A16399',
 196                  'parts_id' => 25505,
 197                  'position' => 2,
 198                  'price_factor' => 1,
 199                  'price_factor_id' => undef,
 200                  'pricegroup_id' => undef,
 201                  'project_id' => undef,
 202                  'qty' => '3.00000',
 203                  'reqdate' => undef,
 204                  'sellprice' => '344.30000',
 205                  'serialnumber' => '',
 206                  'transdate' => '06.03.2015',
 207                  'unit' => 'kg')->save;
 208
 209 # TESTS
 210
 211
 212 # test delivery order before any conversion
 213 ok($do1->donumber eq "L20199", 'Delivery Order Number created');
 214 ok((not $do1->closed) , 'Delivery Order is not closed');
 215 ok($do1_item1->parts_id eq '26321', 'doi linked with part');
 216 ok($do1_item1->qty == 2, 'qty check doi');
 217 ok($do1_item2->position == 2, 'doi2 position check');
 218 ok(2 ==  scalar@{ SL::DB::Manager::DeliveryOrderItem->get_all(where => [ delivery_order_id => $do1->id ]) }, 'two doi linked');
 219
 220
 221 # convert this do to invoice
 222 my $invoice = $do1->convert_to_invoice();
 223
 224 sleep (300) if $VISUAL_TEST; # we can do a real visual test via gui login
 225 # test invoice afterwards
 226
 227 ok ($invoice->shipvia eq "DHL, Versand am 06.03.2015, 1 Paket  17,00 kg", "ship via check");
 228 ok ($invoice->shippingpoint eq "Maisenhaus", "shipping point check");
 229 ok ($invoice->ordnumber eq "A16399", "ordnumber check");
 230 ok ($invoice->donumber eq "L20199", "donumber check");
 231 ok(($do1->closed) , 'Delivery Order is closed after conversion');
 232 ok (SL::DB::PaymentTerm->new(id => $invoice->{payment_id})->load->description eq "14Tage 2%Skonto, 30Tage netto", 'payment term description check');
 233
 234 # some test data from original client invoice console (!)
 235 # my $invoice3 = SL::DB::Manager::Invoice->find_by( ordnumber => 'A16399' );
 236 # which will fail due to PTC Calculation differs from GUI-Calculation, see issue: http://redmine.kivitendo-premium.de/issues/82
 237 # pp $invoice3
 238 # values from gui should be:
 239 #ok($invoice->amount == 1354.20000, 'amount check');
 240 #ok($invoice->marge_percent == 50.88666, 'marge percent check');
 241 #ok($invoice->marge_total == 579.08000, 'marge total check');
 242 #ok($invoice->netamount == 1137.98000, 'netamount check');
 243
 244
 245 # the values change if one reloads the object
 246 # without reloading we get this failures
 247 #not ok 17 - amount check
 248 #   Failed test 'amount check'
 249 #   at t/db_helper/convert_invoice.t line 272.
 250 #          got: '1354.17'
 251 #     expected: '1354.17000'
 252 #not ok 18 - marge percent check
 253 #   Failed test 'marge percent check'
 254 #   at t/db_helper/convert_invoice.t line 273.
 255 #          got: '50.8857956342929'
 256 #     expected: '50.88580'
 257 #not ok 19 - marge total check
 258 #   Failed test 'marge total check'
 259 #   at t/db_helper/convert_invoice.t line 274.
 260 #          got: '579.06'
 261 #     expected: '579.06000'
 262 #not ok 20 - netamount check
 263 #   Failed test 'netamount check'
 264 #   at t/db_helper/convert_invoice.t line 275.
 265 #          got: '1137.96'
 266 #     expected: '1137.96000'
 267
 268 $invoice->load;
 269
 270 ok($invoice->currency_id eq '1', 'currency_id');
 271 ok($invoice->cusordnumber eq 'b84da', 'cusordnumber check');
 272 ok(SL::DB::Department->new(id => $invoice->{department_id})->load->description eq "Maisenhaus-Versand", 'department description');
 273 is($invoice->amount, '1354.17000', 'amount check');
 274 is($invoice->marge_percent, '50.88580', 'marge percent check');
 275 is($invoice->marge_total, '579.06000', 'marge total check');
 276 is($invoice->netamount, '1137.96000', 'netamount check');
 277
 278 # some item checks
 279 ok(@ {$invoice->items_sorted}[0]->parts_id eq '26321', 'invoiceitem 1 linked with part');
 280 ok(2 ==  scalar@{ $invoice->invoiceitems }, 'two invoice items linked with invoice');
 281 is(@ {$invoice->items_sorted}[0]->position, 1, "position 1 order correct");
 282 is(@ {$invoice->items_sorted}[1]->position, 2, "position 2 order correct");
 283 is(@ {$invoice->items_sorted}[0]->part->partnumber, 'v-519160549', "partnumber 1 correct");
 284 is(@ {$invoice->items_sorted}[1]->part->partnumber, 'v-120160086', "partnumber 2 correct");
 285 is(@ {$invoice->items_sorted}[0]->qty, '2.00000', "pos 1 qty");
 286 is(@ {$invoice->items_sorted}[1]->qty, '3.00000', "pos 2 qty");
 287 is(@ {$invoice->items_sorted}[0]->discount, 0.25, "pos 1 discount");
 288 is(@ {$invoice->items_sorted}[1]->discount, 0.25, "pos 2 discount");
 289
 290 # more ideas: check onhand, lastcost (parsed lastcost)
 291
 292
 293
 294 # check linked records AND linked items
 295
 296 # we expect something like this in record links:
 297 # delivery_order_items |  144736 | invoice  |     9 | 2015-09-02 16:29:32.362562 |  5
 298 # delivery_order_items |  144737 | invoice  |    10 | 2015-09-02 16:29:32.362562 |  6
 299 # delivery_orders      |  464003 | ar       |     5 | 2015-09-02 16:29:32.362562 |  7
 300 # wir erwarten:
 301 # verkn�pfter beleg$VAR1 = {
 302 #           'from_id' => 464003,
 303 #           'from_table' => 'delivery_orders',
 304 #           'to_id' => 11,
 305 #           'to_table' => 'ar'
 306 #         };
 307 # verkn�pfte positionen$VAR1 = {
 308 #           'from_id' => 144737,
 309 #           'from_table' => 'delivery_order_items',
 310 #           'to_id' => 22,
 311 #           'to_table' => 'invoice'
 312 #         };
 313 # $VAR2 = {
 314 #           'from_id' => 144736,
 315 #           'from_table' => 'delivery_order_items',
 316 #           'to_id' => 21,
 317 #           'to_table' => 'invoice'
 318 #         };
 319
 320
 321
 322 my @links_record    = RecordLinks->get_links('from_table' => 'delivery_orders',
 323                                              'to_table'   => 'ar',
 324                                              'from_id'      => 464003);
 325 is($links_record[0]->{from_id}, '464003', "record from id check");
 326 is($links_record[0]->{from_table}, 'delivery_orders', "record from table check");
 327 is($links_record[0]->{to_table}, 'ar', "record to table check");
 328
 329 foreach (qw(144736 144737)) {
 330   my @links_record_item1 = RecordLinks->get_links('from_table' => 'delivery_order_items',
 331                                                  'to_table'   => 'invoice',
 332                                                  'from_id'      => $_);
 333   is($links_record_item1[0]->{from_id}, $_, "record from id check $_");
 334   is($links_record_item1[0]->{from_table}, 'delivery_order_items', "record from table check $_");
 335   is($links_record_item1[0]->{to_table}, 'invoice', "record to table check $_");
 336 }
 337
 338
 339 clear_up();
 340
 341 1;