Revision 6fda75b1
Von Kivitendo Admin vor fast 7 Jahren hinzugefügt
| t/db_helper/convert_invoice.t | ||
|---|---|---|
| 1 |
use Test::More tests => 42;
|
|
| 1 |
use Test::More tests => 41;
|
|
| 2 | 2 |
|
| 3 | 3 |
use strict; |
| 4 | 4 |
|
| ... | ... | |
| 11 | 11 |
use Data::Dumper; |
| 12 | 12 |
use Support::TestSetup; |
| 13 | 13 |
use Test::Exception; |
| 14 |
use List::Util qw(max); |
|
| 15 | 14 |
|
| 16 | 15 |
use SL::DB::Buchungsgruppe; |
| 17 | 16 |
use SL::DB::Currency; |
| ... | ... | |
| 22 | 21 |
use SL::DB::DeliveryOrder; |
| 23 | 22 |
use SL::DB::Part; |
| 24 | 23 |
use SL::DB::Unit; |
| 25 |
use SL::DB::TaxZone; |
|
| 26 | 24 |
|
| 27 |
my ($customer, $currency_id, $buchungsgruppe, $employee, $vendor, $taxzone, $buchungsgruppe7, $tax, $tax7, |
|
| 28 |
$unit, @parts); |
|
| 25 |
use SL::Dev::ALL; |
|
| 26 |
|
|
| 27 |
my ($customer, $employee, $payment_do, $unit, @parts, $department); |
|
| 29 | 28 |
|
| 30 | 29 |
my $VISUAL_TEST = 0; # just a sleep to click around |
| 31 | 30 |
|
| 32 | 31 |
sub clear_up {
|
| 33 |
foreach (qw(DeliveryOrderItem DeliveryOrder InvoiceItem PurchaseInvoice Invoice Part Customer Vendor Department PaymentTerm)) {
|
|
| 32 |
foreach (qw(DeliveryOrderItem DeliveryOrder InvoiceItem Invoice Part Customer Department PaymentTerm)) {
|
|
| 34 | 33 |
"SL::DB::Manager::${_}"->delete_all(all => 1);
|
| 35 | 34 |
} |
| 36 |
SL::DB::Manager::Employee->delete_all(where => [ id => 31915 ]);
|
|
| 35 |
SL::DB::Manager::Employee->delete_all(where => [ login => 'testuser' ]);
|
|
| 37 | 36 |
}; |
| 38 | 37 |
|
| 39 | 38 |
sub reset_state {
|
| ... | ... | |
| 41 | 40 |
|
| 42 | 41 |
clear_up(); |
| 43 | 42 |
|
| 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; |
|
| 43 |
$unit = SL::DB::Manager::Unit->find_by(name => 'kg') || die "Can't find unit 'kg'"; |
|
| 44 |
$customer = SL::Dev::CustomerVendor::create_customer->save; |
|
| 58 | 45 |
|
| 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', |
|
| 46 |
$employee = SL::DB::Employee->new( |
|
| 47 |
'login' => 'testuser', |
|
| 48 |
'name' => 'Test User', |
|
| 64 | 49 |
)->save; |
| 65 | 50 |
|
| 66 |
my $department_do = SL::DB::Department->new( |
|
| 67 |
'description' => 'Maisenhaus-Versand', |
|
| 68 |
'id' => 32149, |
|
| 69 |
'itime' => undef, |
|
| 70 |
'mtime' => undef |
|
| 51 |
$department = SL::DB::Department->new( |
|
| 52 |
'description' => 'Test Department', |
|
| 71 | 53 |
)->save; |
| 72 | 54 |
|
| 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; |
|
| 55 |
$payment_do = SL::Dev::Payment::create_payment_terms( |
|
| 56 |
'description' => '14Tage 2%Skonto, 30Tage netto', |
|
| 57 |
'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.", |
|
| 58 |
'percent_skonto' => '0.02', |
|
| 59 |
'terms_netto' => 30, |
|
| 60 |
'terms_skonto' => 14 |
|
| 61 |
); |
|
| 86 | 62 |
|
| 87 | 63 |
# two real parts |
| 88 | 64 |
@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 |
part_type => 'part', |
|
| 97 |
#'partsgroup_id' => 111645, |
|
| 98 |
'rop' => '0', |
|
| 99 |
'sellprice' => '242.20000', |
|
| 100 |
#'warehouse_id' => 64702, |
|
| 101 |
'weight' => '0.79', |
|
| 102 |
description => "Pflaumenbaum, Gr.5, Unterfilz weinrot, genietet[[Aufschnittbreite: 11,0, Kernform: US]]\"" , |
|
| 103 |
buchungsgruppen_id => $buchungsgruppe->id, |
|
| 104 |
unit => $unit->name, |
|
| 105 |
id => 26321, |
|
| 65 |
push @parts, SL::Dev::Part::create_part( |
|
| 66 |
description => "description 1", |
|
| 67 |
lastcost => '49.95000', |
|
| 68 |
listprice => '0.00000', |
|
| 69 |
partnumber => 'v-519160549', |
|
| 70 |
sellprice => '242.20000', |
|
| 71 |
unit => $unit->name, |
|
| 72 |
weight => '0.79', |
|
| 106 | 73 |
)->save; |
| 107 | 74 |
|
| 108 |
push @parts, SL::DB::Part->new( |
|
| 109 |
'description' => "[[0640]]Flügel Hammerstiele bestehend aus: |
|
| 110 |
70 Stielen Standard in Weißbuche und |
|
| 111 |
20 Stielen Diskant abgekehlt in Weißbuche |
|
| 112 |
mit Röllchen aus Synthetikleder, |
|
| 113 |
Kapseln mit Yamaha Profil, Kerbenabstand 3,6 mm mit eingedrehten Abnickschrauben", |
|
| 114 |
'id' => 25505, |
|
| 115 |
'lastcost' => '153.00000', |
|
| 116 |
'listprice' => '0.00000', |
|
| 117 |
'part_type' => 'part', |
|
| 118 |
'onhand' => '9.00000', |
|
| 119 |
'partnumber' => 'v-120160086', |
|
| 120 |
# 'partsgroup_id' => 111639, |
|
| 121 |
'rop' => '0', |
|
| 122 |
'sellprice' => '344.30000', |
|
| 123 |
'weight' => '0.9', |
|
| 124 |
buchungsgruppen_id => $buchungsgruppe->id, |
|
| 125 |
unit => $unit->name, |
|
| 75 |
push @parts, SL::Dev::Part::create_part( |
|
| 76 |
description => "description 2", |
|
| 77 |
lastcost => '153.00000', |
|
| 78 |
listprice => '0.00000', |
|
| 79 |
partnumber => 'v-120160086', |
|
| 80 |
sellprice => '344.30000', |
|
| 81 |
unit => $unit->name, |
|
| 82 |
weight => '0.9', |
|
| 126 | 83 |
)->save; |
| 127 |
} |
|
| 128 |
|
|
| 129 |
sub new_delivery_order {
|
|
| 130 |
my %params = @_; |
|
| 131 | 84 |
|
| 132 |
return SL::DB::DeliveryOrder->new( |
|
| 133 |
currency_id => $currency_id, |
|
| 134 |
taxzone_id => $taxzone->id, |
|
| 135 |
%params, |
|
| 136 |
)->save; |
|
| 137 | 85 |
} |
| 138 | 86 |
|
| 139 | 87 |
Support::TestSetup::login(); |
| ... | ... | |
| 141 | 89 |
reset_state(); |
| 142 | 90 |
|
| 143 | 91 |
# we create L20199 with two items |
| 144 |
my $do1 = new_delivery_order('department_id' => 32149,
|
|
| 145 |
'donumber' => 'L20199', |
|
| 146 |
'employee_id' => 31915, |
|
| 147 |
'intnotes' => 'Achtung: Neue Lieferadresse ab 16.02.2015 in der Otto-Merck-Str. 7a! 13.02.2015/MH |
|
| 148 |
|
|
| 149 |
Yamaha-Produkte (201...) immer plus 25% dazu rechnen / BK 13.02.2014', |
|
| 150 |
'ordnumber' => 'A16399', |
|
| 151 |
'payment_id' => 11276, |
|
| 152 |
'salesman_id' => 31915, |
|
| 153 |
'shippingpoint' => 'Maisenhaus', |
|
| 154 |
# 'shipto_id' => 451463, |
|
| 155 |
'is_sales' => 'true', |
|
| 156 |
'shipvia' => 'DHL, Versand am 06.03.2015, 1 Paket 17,00 kg', |
|
| 157 |
'taxzone_id' => 4, |
|
| 158 |
'closed' => undef, |
|
| 159 |
# 'currency_id' => 1, |
|
| 160 |
'cusordnumber' => 'b84da', |
|
| 161 |
'customer_id' => $customer->id, |
|
| 162 |
'id' => 464003, |
|
| 163 |
'notes' => '<ul><li><strong>fett</strong></li><li><strong>und</strong></li><li><strong>mit</strong></li><li><strong>bullets</strong></li><li> </li></ul>', |
|
| 92 |
my $do1 = SL::Dev::Record::create_sales_delivery_order( |
|
| 93 |
'department_id' => $department->id, |
|
| 94 |
'donumber' => 'L20199', |
|
| 95 |
'employee_id' => $employee->id, |
|
| 96 |
'intnotes' => 'some intnotes', |
|
| 97 |
'ordnumber' => 'A16399', |
|
| 98 |
'payment_id' => $payment_do->id, |
|
| 99 |
'salesman_id' => $employee->id, |
|
| 100 |
'shippingpoint' => 'sendtome', |
|
| 101 |
'shipvia' => 'DHL, Versand am 06.03.2015, 1 Paket 17,00 kg', |
|
| 102 |
'cusordnumber' => 'b84da', |
|
| 103 |
'customer_id' => $customer->id, |
|
| 104 |
'notes' => '<ul><li><strong>fett</strong></li><li><strong>und</strong></li><li><strong>mit</strong></li><li><strong>bullets</strong></li><li> </li></ul>', |
|
| 105 |
orderitems => [ |
|
| 106 |
SL::Dev::Record::create_delivery_order_item( |
|
| 107 |
part => $parts[0], |
|
| 108 |
discount => '0.25', |
|
| 109 |
lastcost => '49.95000', |
|
| 110 |
longdescription => "<ol><li>27</li><li>28</li><li>29</li><li><sub>asdf</sub></li><li><sub>asdf</sub></li><li><sup>oben</sup></li></ol><p><s>kommt nicht mehr vor</s></p>", |
|
| 111 |
marge_price_factor => 1, |
|
| 112 |
qty => '2.00000', |
|
| 113 |
sellprice => '242.20000', |
|
| 114 |
unit => $unit->name, |
|
| 115 |
), |
|
| 116 |
SL::Dev::Record::create_delivery_order_item( |
|
| 117 |
part => $parts[1], |
|
| 118 |
discount => '0.25', |
|
| 119 |
lastcost => '153.00000', |
|
| 120 |
qty => '3.00000', |
|
| 121 |
sellprice => '344.30000', |
|
| 122 |
transdate => '06.03.2015', |
|
| 123 |
unit => $unit->name, |
|
| 124 |
) |
|
| 125 |
] |
|
| 164 | 126 |
); |
| 165 | 127 |
|
| 166 |
my $do1_item1 = SL::DB::DeliveryOrderItem->new('delivery_order_id' => 464003,
|
|
| 167 |
'description' => "Flügel Hammerkopf bestehend aus: |
|
| 168 |
Bass/Diskant 26/65 Stück, Gesamtlänge 80/72, Bohrlänge 56/48 |
|
| 169 |
Pflaumenbaum, Gr.5, Unterfilz weinrot, genietet[[Aufschnittbreite: 11,0, Kernform: US]]", |
|
| 170 |
'discount' => '0.25', |
|
| 171 |
'id' => 144736, |
|
| 172 |
'lastcost' => '49.95000', |
|
| 173 |
'longdescription' => "<ol><li>27</li><li>28</li><li>29</li><li><sub>asdf</sub></li><li><sub>asdf</sub></li><li><sup>oben</sup></li></ol><p><s>kommt nicht mehr vor</s></p>", |
|
| 174 |
'marge_price_factor' => 1, |
|
| 175 |
'mtime' => undef, |
|
| 176 |
'ordnumber' => 'A16399', |
|
| 177 |
'parts_id' => 26321, |
|
| 178 |
'position' => 1, |
|
| 179 |
'price_factor' => 1, |
|
| 180 |
'qty' => '2.00000', |
|
| 181 |
'sellprice' => '242.20000', |
|
| 182 |
'transdate' => '06.03.2015', |
|
| 183 |
'unit' => 'kg')->save; |
|
| 184 |
|
|
| 185 |
my $do1_item2 = SL::DB::DeliveryOrderItem->new('delivery_order_id' => 464003,
|
|
| 186 |
'description' => "[[0640]]Flügel Hammerstiele bestehend aus: |
|
| 187 |
70 Stielen Standard in Weißbuche und |
|
| 188 |
20 Stielen Diskant abgekehlt in Weißbuche |
|
| 189 |
mit Röllchen aus Synthetikleder, |
|
| 190 |
Kapseln mit Yamaha Profil, Kerbenabstand 3,6 mm mit eingedrehten Abnickschrauben", |
|
| 191 |
'discount' => '0.25', |
|
| 192 |
'id' => 144737, |
|
| 193 |
'itime' => undef, |
|
| 194 |
'lastcost' => '153.00000', |
|
| 195 |
'longdescription' => '', |
|
| 196 |
'marge_price_factor' => 1, |
|
| 197 |
'mtime' => undef, |
|
| 198 |
'ordnumber' => 'A16399', |
|
| 199 |
'parts_id' => 25505, |
|
| 200 |
'position' => 2, |
|
| 201 |
'price_factor' => 1, |
|
| 202 |
'price_factor_id' => undef, |
|
| 203 |
'pricegroup_id' => undef, |
|
| 204 |
'project_id' => undef, |
|
| 205 |
'qty' => '3.00000', |
|
| 206 |
'reqdate' => undef, |
|
| 207 |
'sellprice' => '344.30000', |
|
| 208 |
'serialnumber' => '', |
|
| 209 |
'transdate' => '06.03.2015', |
|
| 210 |
'unit' => 'kg')->save; |
|
| 211 | 128 |
|
| 212 | 129 |
# TESTS |
| 213 | 130 |
|
| 131 |
my $do1_item1 = $do1->orderitems->[0]; |
|
| 132 |
my $do1_item2 = $do1->orderitems->[1]; |
|
| 214 | 133 |
|
| 215 | 134 |
# test delivery order before any conversion |
| 216 | 135 |
ok($do1->donumber eq "L20199", 'Delivery Order Number created'); |
| 217 | 136 |
ok($do1->notes eq '<ul><li><strong>fett</strong></li><li><strong>und</strong></li><li><strong>mit</strong></li><li><strong>bullets</strong></li><li> </li></ul>', "do RichText notes saved"); |
| 218 | 137 |
ok((not $do1->closed) , 'Delivery Order is not closed'); |
| 219 |
ok($do1_item1->parts_id eq '26321', 'doi linked with part');
|
|
| 138 |
is($do1_item1->parts_id, $parts[0]->id, 'doi linked with part');
|
|
| 220 | 139 |
ok($do1_item1->qty == 2, 'qty check doi'); |
| 221 | 140 |
ok($do1_item1->longdescription eq "<ol><li>27</li><li>28</li><li>29</li><li><sub>asdf</sub></li><li><sub>asdf</sub></li><li><sup>oben</sup></li></ol><p><s>kommt nicht mehr vor</s></p>", |
| 222 | 141 |
"do item1 rich text longdescripition"); |
| 223 | 142 |
ok ($do1_item2->position == 2, 'doi2 position check'); |
| 224 |
ok (2 == scalar@{ SL::DB::Manager::DeliveryOrderItem->get_all(where => [ delivery_order_id => $do1->id ]) }, 'two doi linked');
|
|
| 143 |
is (SL::DB::Manager::DeliveryOrderItem->get_all_count(where => [ delivery_order_id => $do1->id ]), 2 , 'two doi linked');
|
|
| 225 | 144 |
|
| 226 | 145 |
|
| 227 | 146 |
# convert this do to invoice |
| ... | ... | |
| 231 | 150 |
# test invoice afterwards |
| 232 | 151 |
|
| 233 | 152 |
ok ($invoice->shipvia eq "DHL, Versand am 06.03.2015, 1 Paket 17,00 kg", "ship via check"); |
| 234 |
ok ($invoice->shippingpoint eq "Maisenhaus", "shipping point check");
|
|
| 153 |
ok ($invoice->shippingpoint eq "sendtome", "shipping point check");
|
|
| 235 | 154 |
ok ($invoice->ordnumber eq "A16399", "ordnumber check"); |
| 236 | 155 |
ok ($invoice->donumber eq "L20199", "donumber check"); |
| 237 | 156 |
ok ($invoice->notes eq '<ul><li><strong>fett</strong></li><li><strong>und</strong></li><li><strong>mit</strong></li><li><strong>bullets</strong></li><li> </li></ul>', "do RichText notes saved"); |
| 238 | 157 |
ok(($do1->closed) , 'Delivery Order is closed after conversion'); |
| 239 |
ok (SL::DB::PaymentTerm->new(id => $invoice->{payment_id})->load->description eq "14Tage 2%Skonto, 30Tage netto", 'payment term description check');
|
|
| 158 |
is($invoice->payment_terms->description, "14Tage 2%Skonto, 30Tage netto", 'payment term description check');
|
|
| 240 | 159 |
|
| 241 | 160 |
# some test data from original client invoice console (!) |
| 242 | 161 |
# my $invoice3 = SL::DB::Manager::Invoice->find_by( ordnumber => 'A16399' ); |
| ... | ... | |
| 274 | 193 |
|
| 275 | 194 |
$invoice->load; |
| 276 | 195 |
|
| 277 |
ok($invoice->currency_id eq '1', 'currency_id'); |
|
| 278 |
ok($invoice->cusordnumber eq 'b84da', 'cusordnumber check'); |
|
| 279 |
ok(SL::DB::Department->new(id => $invoice->{department_id})->load->description eq "Maisenhaus-Versand", 'department description');
|
|
| 280 |
is($invoice->amount, '1354.17000', 'amount check'); |
|
| 281 |
is($invoice->marge_percent, '50.88580', 'marge percent check'); |
|
| 282 |
is($invoice->marge_total, '579.06000', 'marge total check'); |
|
| 283 |
is($invoice->netamount, '1137.96000', 'netamount check'); |
|
| 196 |
is($invoice->cusordnumber , 'b84da' , 'cusordnumber check'); |
|
| 197 |
is($invoice->department->description , "Test Department" , 'department description ok'); |
|
| 198 |
is($invoice->amount , '1354.17000' , 'amount check'); |
|
| 199 |
is($invoice->marge_percent , '50.88580' , 'marge percent check'); |
|
| 200 |
is($invoice->marge_total , '579.06000' , 'marge total check'); |
|
| 201 |
is($invoice->netamount , '1137.96000' , 'netamount check'); |
|
| 284 | 202 |
|
| 285 | 203 |
# some item checks |
| 286 |
ok(@ {$invoice->items_sorted}[0]->parts_id eq '26321', 'invoiceitem 1 linked with part');
|
|
| 287 |
ok(2 == scalar@{ $invoice->invoiceitems }, 'two invoice items linked with invoice');
|
|
| 288 |
is(@ {$invoice->items_sorted}[0]->position, 1, "position 1 order correct");
|
|
| 289 |
is(@ {$invoice->items_sorted}[1]->position, 2, "position 2 order correct");
|
|
| 290 |
is(@ {$invoice->items_sorted}[0]->longdescription, "<ol><li>27</li><li>28</li><li>29</li><li><sub>asdf</sub></li><li><sub>asdf</sub></li><li><sup>oben</sup></li></ol><p><s>kommt nicht mehr vor</s></p>",
|
|
| 204 |
is($invoice->items_sorted->[0]->parts_id , $parts[0]->id , 'invoiceitem 1 linked with part'); |
|
| 205 |
is(scalar @{ $invoice->invoiceitems } , 2 , 'two invoice items linked with invoice');
|
|
| 206 |
is($invoice->items_sorted->[0]->position , 1 , "position 1 order correct"); |
|
| 207 |
is($invoice->items_sorted->[1]->position , 2 , "position 2 order correct"); |
|
| 208 |
is($invoice->items_sorted->[0]->part->partnumber , 'v-519160549' , "partnumber 1 correct"); |
|
| 209 |
is($invoice->items_sorted->[1]->part->partnumber , 'v-120160086' , "partnumber 2 correct"); |
|
| 210 |
is($invoice->items_sorted->[0]->qty , '2.00000' , "pos 1 qty"); |
|
| 211 |
is($invoice->items_sorted->[1]->qty , '3.00000' , "pos 2 qty"); |
|
| 212 |
is($invoice->items_sorted->[0]->discount , 0.25 , "pos 1 discount"); |
|
| 213 |
is($invoice->items_sorted->[1]->discount , 0.25 , "pos 2 discount"); |
|
| 214 |
is($invoice->items_sorted->[0]->longdescription , "<ol><li>27</li><li>28</li><li>29</li><li><sub>asdf</sub></li><li><sub>asdf</sub></li><li><sup>oben</sup></li></ol><p><s>kommt nicht mehr vor</s></p>", |
|
| 291 | 215 |
"invoice item1 rich text longdescripition"); |
| 292 |
is(@ {$invoice->items_sorted}[0]->part->partnumber, 'v-519160549', "partnumber 1 correct");
|
|
| 293 |
is(@ {$invoice->items_sorted}[1]->part->partnumber, 'v-120160086', "partnumber 2 correct");
|
|
| 294 |
is(@ {$invoice->items_sorted}[0]->qty, '2.00000', "pos 1 qty");
|
|
| 295 |
is(@ {$invoice->items_sorted}[1]->qty, '3.00000', "pos 2 qty");
|
|
| 296 |
is(@ {$invoice->items_sorted}[0]->discount, 0.25, "pos 1 discount");
|
|
| 297 |
is(@ {$invoice->items_sorted}[1]->discount, 0.25, "pos 2 discount");
|
|
| 298 |
|
|
| 299 | 216 |
# more ideas: check onhand, lastcost (parsed lastcost) |
| 300 | 217 |
|
| 301 | 218 |
|
| ... | ... | |
| 327 | 244 |
# }; |
| 328 | 245 |
|
| 329 | 246 |
|
| 330 |
|
|
| 331 | 247 |
my @links_record = RecordLinks->get_links('from_table' => 'delivery_orders',
|
| 332 | 248 |
'to_table' => 'ar', |
| 333 |
'from_id' => 464003); |
|
| 334 |
is($links_record[0]->{from_id}, '464003', "record from id check");
|
|
| 335 |
is($links_record[0]->{from_table}, 'delivery_orders', "record from table check");
|
|
| 336 |
is($links_record[0]->{to_table}, 'ar', "record to table check");
|
|
| 249 |
'from_id' => $do1->id, |
|
| 250 |
); |
|
| 251 |
|
|
| 252 |
is($links_record[0]->{from_id} , $do1->id , "record from id check");
|
|
| 253 |
is($links_record[0]->{from_table} , 'delivery_orders' , "record from table check");
|
|
| 254 |
is($links_record[0]->{to_table} , 'ar' , "record to table check");
|
|
| 337 | 255 |
|
| 338 |
foreach (qw(144736 144737)) {
|
|
| 256 |
foreach ( $do1_item1->id, $do1_item2->id ) {
|
|
| 339 | 257 |
my @links_record_item1 = RecordLinks->get_links('from_table' => 'delivery_order_items',
|
| 340 |
'to_table' => 'invoice', |
|
| 341 |
'from_id' => $_); |
|
| 342 |
is($links_record_item1[0]->{from_id}, $_, "record from id check $_");
|
|
| 343 |
is($links_record_item1[0]->{from_table}, 'delivery_order_items', "record from table check $_");
|
|
| 344 |
is($links_record_item1[0]->{to_table}, 'invoice', "record to table check $_");
|
|
| 345 |
} |
|
| 258 |
'to_table' => 'invoice', |
|
| 259 |
'from_id' => $_, |
|
| 260 |
); |
|
| 346 | 261 |
|
| 262 |
is($links_record_item1[0]->{from_id} , $_ , "record from id check $_");
|
|
| 263 |
is($links_record_item1[0]->{from_table} , 'delivery_order_items' , "record from table check $_");
|
|
| 264 |
is($links_record_item1[0]->{to_table} , 'invoice' , "record to table check $_");
|
|
| 265 |
} |
|
| 347 | 266 |
|
| 348 | 267 |
clear_up(); |
| 349 | 268 |
|
Auch abrufbar als: Unified diff
t/db_helper/convert_invoice.t mit SL::Dev refactored