Index: APPS/VKP/Offerte/dto/Verpakking.cls.xml =================================================================== diff -u -r37506 -r37513 --- APPS/VKP/Offerte/dto/Verpakking.cls.xml (.../Verpakking.cls.xml) (revision 37506) +++ APPS/VKP/Offerte/dto/Verpakking.cls.xml (.../Verpakking.cls.xml) (revision 37513) @@ -27,8 +27,12 @@ TECH.Decimal + +%Boolean + + -Afmeting:APPS.TRANSP.dto.Afmeting="",Gewicht:TECH.Decimal="",WaardeGoederen:TECH.Decimal="",ProductID:%String="",Aantal:TECH.Integer="",VolumeAandeel:TECH.Decimal="" +Afmeting:APPS.TRANSP.dto.Afmeting="",Gewicht:TECH.Decimal="",WaardeGoederen:TECH.Decimal="",ProductID:%String="",Aantal:TECH.Integer="",VolumeAandeel:TECH.Decimal="",InProbox:%Boolean="" 1 1 %Status @@ -40,6 +44,7 @@ Set ..ProductID = ProductID Set ..Aantal = Aantal Set ..VolumeAandeel = VolumeAandeel + Set ..InProbox = InProbox quit $$$OK ]]> Index: vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/Test.cls.xml =================================================================== diff -u -r37506 -r37513 --- vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/Test.cls.xml (.../Test.cls.xml) (revision 37506) +++ vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/Test.cls.xml (.../Test.cls.xml) (revision 37513) @@ -33,7 +33,7 @@ ]]> - + @@ -48,7 +48,7 @@ ]]> - + @@ -58,17 +58,17 @@ ]]> - + - + - + @@ -78,12 +78,12 @@ ]]> - + - + @@ -196,7 +196,12 @@ 1 vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn + + +vhUnitTest.TestCase + + + + + + + + + + + + + + + + + + +AantalMaatwerklijnen:%Integer=1,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,VerwachtResultaat:%Boolean +1 + + + + +Verpakking:APPS.VKP.Offerte.dto.Verpakking,VerwachtResultaat:%Boolean +1 + + + + +AantalLijnen:%Integer=1,VerpakkingType:DOM.PM.enu.LBXVerpakkingType +1 +vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService + + + + +MaatwerkLijnNummer:%Integer,VerpakkingType:DOM.PM.enu.LBXVerpakkingType +1 +vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn + + + + +1 +APPS.VKP.Offerte.OfferteRepository + + + + + + Index: APPS/VKP/impl/OfferteService.cls.xml =================================================================== diff -u -r37506 -r37513 --- APPS/VKP/impl/OfferteService.cls.xml (.../OfferteService.cls.xml) (revision 37506) +++ APPS/VKP/impl/OfferteService.cls.xml (.../OfferteService.cls.xml) (revision 37513) @@ -285,14 +285,42 @@ #dim MaatwerkLijnIterator As TECH.Iterator = ..GeefMaatwerkLijnenIterator(..OfferteRepository.GeefViaID(OfferteID)) While (MaatwerkLijnIterator.HasNext()) { #dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = MaatwerkLijnIterator.Next() - #dim Afmeting As APPS.TRANSP.OfferteService.dto.Afmeting = ..ConverteerVerpakteAfmeting(Lijn.GeefVerpakteAfmeting()) - #dim Verpakking As APPS.VKP.Offerte.dto.Verpakking = ##class(APPS.VKP.Offerte.dto.Verpakking).%New(Afmeting ,Lijn.GeefTotaalGewicht(),Lijn.GeefTotaalPrijs(),Lijn.GeefProductID(),Lijn.GeefAantal(),Lijn.GeefVolumeAandeel()) + #dim Verpakking As APPS.VKP.Offerte.dto.Verpakking = ##class(APPS.VKP.Offerte.dto.Verpakking).%New() + Set Verpakking.Afmeting = ..ConverteerVerpakteAfmeting(Lijn.GeefVerpakteAfmeting()) + Set Verpakking.Gewicht = Lijn.GeefTotaalGewicht() + Set Verpakking.WaardeGoederen = Lijn.GeefTotaalPrijs() + Set Verpakking.ProductID = Lijn.GeefProductID() + Set Verpakking.Aantal = Lijn.GeefAantal() + Set Verpakking.VolumeAandeel = Lijn.GeefVolumeAandeel() + Set Verpakking.InProbox = ..InProbox(Lijn.GeefIngegevenKenmerken()) Do VerpakkingList.Insert(Verpakking) } Quit VerpakkingList ]]> + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken +1 +%Boolean + + + VerpakteAfmeting:APPS.Halux.common.impl.VerpakteAfmeting="" APPS.TRANSP.OfferteService.dto.Afmeting Index: vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/TAX/TestProbox.cls.xml =================================================================== diff -u --- vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/TAX/TestProbox.cls.xml (revision 0) +++ vhUnitTest/APPS/VKP/impl/OfferteService/GeefProductVerpakkingDetails/TAX/TestProbox.cls.xml (revision 37513) @@ -0,0 +1,90 @@ + + + +vhUnitTest.TestCase + + + + + + + + + + + + + + + + + + +AantalMaatwerklijnen:%Integer=1,VerpakkingType:DOM.PM.enu.TAORVerpakkingType,VerwachtResultaat:%Boolean +1 + + + + +Verpakking:APPS.VKP.Offerte.dto.Verpakking,VerwachtResultaat:%Boolean +1 + + + + +AantalLijnen:%Integer=1,VerpakkingType:DOM.PM.enu.TAORVerpakkingType +1 +vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService + + + + +MaatwerkLijnNummer:%Integer,VerpakkingType:DOM.PM.enu.TAORVerpakkingType +1 +vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn + + + + +1 +APPS.VKP.Offerte.OfferteRepository + + + + + +