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
+
+
+
+
+
+