Index: vhUnitTest/APPS/TRANSP/UPS/impl/OfferteBerekenaar/Test.cls.xml =================================================================== diff -u -r33164 -r33167 --- vhUnitTest/APPS/TRANSP/UPS/impl/OfferteBerekenaar/Test.cls.xml (.../Test.cls.xml) (revision 33164) +++ vhUnitTest/APPS/TRANSP/UPS/impl/OfferteBerekenaar/Test.cls.xml (.../Test.cls.xml) (revision 33167) @@ -74,7 +74,7 @@ Set OfferteItem1.Kostprijs = 70 Set OfferteItem1.CarbonNeutralPrijs = 7 Set OfferteItem1.OphaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016") - Set OfferteItem1.Optie = "" + Set OfferteItem1.Optie = "1" Do OfferteData.Items.Insert(OfferteItem1) #dim OfferteItem2 As APPS.TRANSP.OfferteService.dto.OfferteItem = ##class(APPS.TRANSP.OfferteService.dto.OfferteItem).%New() @@ -85,7 +85,7 @@ Set OfferteItem2.Kostprijs = 70 Set OfferteItem2.CarbonNeutralPrijs = 7 Set OfferteItem2.OphaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016") - Set OfferteItem2.Optie = "" + Set OfferteItem2.Optie = "1" Do OfferteData.Items.Insert(OfferteItem2) #dim OfferteItem3 As APPS.TRANSP.OfferteService.dto.OfferteItem = ##class(APPS.TRANSP.OfferteService.dto.OfferteItem).%New() @@ -96,7 +96,7 @@ Set OfferteItem3.Kostprijs = 110 Set OfferteItem3.CarbonNeutralPrijs = 11 Set OfferteItem3.OphaalDatum = ##class(TECH.DateTime).TextToDate("10/03/2016") - Set OfferteItem3.Optie = "" + Set OfferteItem3.Optie = "1" Do OfferteData.Items.Insert(OfferteItem3) Quit OfferteData