Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestFlatpackV1.cls.xml
===================================================================
diff -u -r37970 -r57444
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestFlatpackV1.cls.xml (.../TestFlatpackV1.cls.xml) (revision 37970)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestFlatpackV1.cls.xml (.../TestFlatpackV1.cls.xml) (revision 57444)
@@ -5,6 +5,7 @@
Index: vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalWaardeGoederen/Test.cls.xml
===================================================================
diff -u -r37573 -r57444
--- vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalWaardeGoederen/Test.cls.xml (.../Test.cls.xml) (revision 37573)
+++ vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalWaardeGoederen/Test.cls.xml (.../Test.cls.xml) (revision 57444)
@@ -14,10 +14,10 @@
Set VerpakkingList.GetAt(3).Aantal = 1
Set VerpakkingList.GetAt(4).WaardeGoederen = 0.11
Set VerpakkingList.GetAt(4).Aantal = 1
- Set VerpakkingList.GetAt(5).WaardeGoederen = 0.13
- Set VerpakkingList.GetAt(5).Aantal = 1
+ ;Set VerpakkingList.GetAt(5).WaardeGoederen = 0.13
+ ;Set VerpakkingList.GetAt(5).Aantal = 1
- Do $$$AssertEquals(VerpakkingList.GeefTotaalWaardeGoederen(),1.74)
+ Do $$$AssertEquals(VerpakkingList.GeefTotaalWaardeGoederen(),1.61) // 1.74
]]>
@@ -32,10 +32,10 @@
Set VerpakkingList.GetAt(3).Aantal = 3
Set VerpakkingList.GetAt(4).WaardeGoederen = 0.11
Set VerpakkingList.GetAt(4).Aantal = 4
- Set VerpakkingList.GetAt(5).WaardeGoederen = 0.13
- Set VerpakkingList.GetAt(5).Aantal = 5
+ ;Set VerpakkingList.GetAt(5).WaardeGoederen = 0.13
+ ;Set VerpakkingList.GetAt(5).Aantal = 5
- Do $$$AssertEquals(VerpakkingList.GeefTotaalWaardeGoederen(),1.74)
+ Do $$$AssertEquals(VerpakkingList.GeefTotaalWaardeGoederen(),1.61) // 1.74
]]>
@@ -50,8 +50,8 @@
Set VerpakkingList.GetAt(3).Aantal = 3
Set VerpakkingList.GetAt(4).WaardeGoederen = 0.11
Set VerpakkingList.GetAt(4).Aantal = 4
- Set VerpakkingList.GetAt(5).WaardeGoederen = 0.13
- Set VerpakkingList.GetAt(5).Aantal = 5
+ ;Set VerpakkingList.GetAt(5).WaardeGoederen = 0.13
+ ;Set VerpakkingList.GetAt(5).Aantal = 5
#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Verpakking 3 heeft een WaardeGoederen met lege waarde.")
Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Omschrijvingen))
Index: vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefSamengesteldeProductID/Test.cls.xml
===================================================================
diff -u -r37571 -r57444
--- vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefSamengesteldeProductID/Test.cls.xml (.../Test.cls.xml) (revision 37571)
+++ vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefSamengesteldeProductID/Test.cls.xml (.../Test.cls.xml) (revision 57444)
@@ -10,9 +10,9 @@
Set VerpakkingList.GetAt(2).ProductID = "2"
Set VerpakkingList.GetAt(3).ProductID = "3"
Set VerpakkingList.GetAt(4).ProductID = "4"
- Set VerpakkingList.GetAt(5).ProductID = "5"
+ ;Set VerpakkingList.GetAt(5).ProductID = "5"
- Do $$$AssertEquals(VerpakkingList.GeefSamengesteldeProductID(),"\1\2\3\4\5")
+ Do $$$AssertEquals(VerpakkingList.GeefSamengesteldeProductID(),"\1\2\3\4") // \1\2\3\4\5
]]>
@@ -23,7 +23,7 @@
Set VerpakkingList.GetAt(2).ProductID = "2"
Set VerpakkingList.GetAt(3).ProductID = ""
Set VerpakkingList.GetAt(4).ProductID = "4"
- Set VerpakkingList.GetAt(5).ProductID = "5"
+ ;Set VerpakkingList.GetAt(5).ProductID = "5"
#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Verpakking heeft een ProductID met lege waarde.")
Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Omschrijvingen))
Index: vhUnitTest/APPS/VKP/impl/OfferteService/VerpakkingConvertor/Converteer/TAX/TestVerpakkingType.cls.xml
===================================================================
diff -u -r37574 -r57444
--- vhUnitTest/APPS/VKP/impl/OfferteService/VerpakkingConvertor/Converteer/TAX/TestVerpakkingType.cls.xml (.../TestVerpakkingType.cls.xml) (revision 37574)
+++ vhUnitTest/APPS/VKP/impl/OfferteService/VerpakkingConvertor/Converteer/TAX/TestVerpakkingType.cls.xml (.../TestVerpakkingType.cls.xml) (revision 57444)
@@ -14,7 +14,7 @@
-
Index: vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalVolumeAandeel/Test.cls.xml
===================================================================
diff -u -r37572 -r57444
--- vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalVolumeAandeel/Test.cls.xml (.../Test.cls.xml) (revision 37572)
+++ vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalVolumeAandeel/Test.cls.xml (.../Test.cls.xml) (revision 57444)
@@ -14,10 +14,10 @@
Set VerpakkingList.GetAt(3).Aantal = 1
Set VerpakkingList.GetAt(4).VolumeAandeel = 0.11
Set VerpakkingList.GetAt(4).Aantal = 1
- Set VerpakkingList.GetAt(5).VolumeAandeel = 0.13
- Set VerpakkingList.GetAt(5).Aantal = 1
+ ;Set VerpakkingList.GetAt(5).VolumeAandeel = 0.13
+ ;Set VerpakkingList.GetAt(5).Aantal = 1
- Do $$$AssertEquals(VerpakkingList.GeefTotaalVolumeAandeel(),1.74)
+ Do $$$AssertEquals(VerpakkingList.GeefTotaalVolumeAandeel(),1.61) // 1.74
]]>
@@ -32,10 +32,10 @@
Set VerpakkingList.GetAt(3).Aantal = 3
Set VerpakkingList.GetAt(4).VolumeAandeel = 0.11
Set VerpakkingList.GetAt(4).Aantal = 4
- Set VerpakkingList.GetAt(5).VolumeAandeel = 0.13
- Set VerpakkingList.GetAt(5).Aantal = 5
+ ;Set VerpakkingList.GetAt(5).VolumeAandeel = 0.13
+ ;Set VerpakkingList.GetAt(5).Aantal = 5
- Do $$$AssertEquals(VerpakkingList.GeefTotaalVolumeAandeel(),4.49)
+ Do $$$AssertEquals(VerpakkingList.GeefTotaalVolumeAandeel(),3.84) // 4.49
]]>
@@ -50,8 +50,8 @@
Set VerpakkingList.GetAt(3).Aantal = 3
Set VerpakkingList.GetAt(4).VolumeAandeel = 0.11
Set VerpakkingList.GetAt(4).Aantal = 4
- Set VerpakkingList.GetAt(5).VolumeAandeel = 0.13
- Set VerpakkingList.GetAt(5).Aantal = 5
+ ;Set VerpakkingList.GetAt(5).VolumeAandeel = 0.13
+ ;Set VerpakkingList.GetAt(5).Aantal = 5
#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Verpakking 3 heeft een VolumeAandeel met lege waarde.")
Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Omschrijvingen))
@@ -71,8 +71,8 @@
Set VerpakkingList.GetAt(3).Aantal = ""
Set VerpakkingList.GetAt(4).VolumeAandeel = 0.11
Set VerpakkingList.GetAt(4).Aantal = 4
- Set VerpakkingList.GetAt(5).VolumeAandeel = 0.13
- Set VerpakkingList.GetAt(5).Aantal = 5
+ ;Set VerpakkingList.GetAt(5).VolumeAandeel = 0.13
+ ;Set VerpakkingList.GetAt(5).Aantal = 5
#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Verpakking 3 heeft een Aantal met lege waarde.")
Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Omschrijvingen))
Index: vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/ZoekVerpakkingen/TestTax.cls.xml
===================================================================
diff -u -r37557 -r57444
--- vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/ZoekVerpakkingen/TestTax.cls.xml (.../TestTax.cls.xml) (revision 37557)
+++ vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/ZoekVerpakkingen/TestTax.cls.xml (.../TestTax.cls.xml) (revision 57444)
@@ -14,7 +14,7 @@
-
Index: vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalGewicht/Test.cls.xml
===================================================================
diff -u -r37572 -r57444
--- vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalGewicht/Test.cls.xml (.../Test.cls.xml) (revision 37572)
+++ vhUnitTest/APPS/VKP/Offerte/dto/VerpakkingList/GeefTotaalGewicht/Test.cls.xml (.../Test.cls.xml) (revision 57444)
@@ -14,10 +14,10 @@
Set VerpakkingList.GetAt(3).Aantal = 1
Set VerpakkingList.GetAt(4).Gewicht = 11.11
Set VerpakkingList.GetAt(4).Aantal = 1
- Set VerpakkingList.GetAt(5).Gewicht = 13.13
- Set VerpakkingList.GetAt(5).Aantal = 1
+ ;Set VerpakkingList.GetAt(5).Gewicht = 13.13
+ ;Set VerpakkingList.GetAt(5).Aantal = 1
- Do $$$AssertEquals(VerpakkingList.GeefTotaalGewicht(),40.74)
+ Do $$$AssertEquals(VerpakkingList.GeefTotaalGewicht(),27.61) // 40.74
]]>
@@ -32,10 +32,10 @@
Set VerpakkingList.GetAt(3).Aantal = 3
Set VerpakkingList.GetAt(4).Gewicht = 11.11
Set VerpakkingList.GetAt(4).Aantal = 4
- Set VerpakkingList.GetAt(5).Gewicht = 13.13
- Set VerpakkingList.GetAt(5).Aantal = 5
+ ;Set VerpakkingList.GetAt(5).Gewicht = 13.13
+ ;Set VerpakkingList.GetAt(5).Aantal = 5
- Do $$$AssertEquals(VerpakkingList.GeefTotaalGewicht(),147.49)
+ Do $$$AssertEquals(VerpakkingList.GeefTotaalGewicht(),81.84) // 147.49
]]>
@@ -50,8 +50,8 @@
Set VerpakkingList.GetAt(3).Aantal = 3
Set VerpakkingList.GetAt(4).Gewicht = 11.11
Set VerpakkingList.GetAt(4).Aantal = 4
- Set VerpakkingList.GetAt(5).Gewicht = 13.13
- Set VerpakkingList.GetAt(5).Aantal = 5
+ ;Set VerpakkingList.GetAt(5).Gewicht = 13.13
+ ;Set VerpakkingList.GetAt(5).Aantal = 5
#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Verpakking 3 heeft een Gewicht met lege waarde.")
Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Omschrijvingen))
@@ -71,8 +71,8 @@
Set VerpakkingList.GetAt(3).Aantal = ""
Set VerpakkingList.GetAt(4).Gewicht = 11.11
Set VerpakkingList.GetAt(4).Aantal = 4
- Set VerpakkingList.GetAt(5).Gewicht = 13.13
- Set VerpakkingList.GetAt(5).Aantal = 5
+ ;Set VerpakkingList.GetAt(5).Gewicht = 13.13
+ ;Set VerpakkingList.GetAt(5).Aantal = 5
#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Verpakking 3 heeft een Aantal met lege waarde.")
Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Omschrijvingen))
Index: vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/Standaard/Test.cls.xml
===================================================================
diff -u -r56894 -r57444
--- vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/Standaard/Test.cls.xml (.../Test.cls.xml) (revision 56894)
+++ vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/Standaard/Test.cls.xml (.../Test.cls.xml) (revision 57444)
@@ -35,7 +35,7 @@
set ..Korttekst = "171A5070 W-DIST NENE" ; random korttekst
set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.FlatpackV1
- do $$$AssertEqualsList(..GeefDetail(),..ToList("D:500xB:600"_$$$CRLF_"ladezijkant:Natuur notenfineer"_$$$CRLF_"kantenband:Natuur notenfineer"_$$$CRLF_"bodem sliced:Natuur notenfineer"_$$$CRLF_"rug:Natuur notenfineer"_$$$CRLF_"eindkap ladezijkant:Aluminium look"_$$$CRLF_"bevat: ongemont. lade;corpusprofiel Movento 40kg;BLUMOTION;frontbevest. schroef"_$$$CRLF_"verpakt: flatpack V1"))
+ do $$$AssertEqualsList(..GeefDetail(),..ToList("D:500xB:600"_$$$CRLF_"ladezijkant:Natuur notenfineer"_$$$CRLF_"kantenband:Natuur notenfineer"_$$$CRLF_"bodem:Natuur notenfineer"_$$$CRLF_"rug:Natuur notenfineer"_$$$CRLF_"eindkap ladezijkant:Aluminium look"_$$$CRLF_"bevat: ongemont. lade;corpusprofiel Movento 40kg;BLUMOTION;frontbevest. schroef"_$$$CRLF_"verpakt: flatpack V1"))
]]>