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")) ]]>