Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Duits/TestLegrabox.cls.xml
===================================================================
diff -u -r57974 -r57980
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Duits/TestLegrabox.cls.xml (.../TestLegrabox.cls.xml) (revision 57974)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Duits/TestLegrabox.cls.xml (.../TestLegrabox.cls.xml) (revision 57980)
@@ -4,12 +4,12 @@
vhUnitTest.APPS.EC.Winkelkar.WinkelkarControleur.Duits.TestBase
-Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,Aantal:%Integer
+Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,LadeVariant:DOM.PM.enu.LadeVariant,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,Aantal:%Integer
1
vhUnitTest.APPS.EC.Winkelkar.WinkelkarControleur.Nederlands.TestBase
-Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,Aantal:%Integer
+Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,LadeVariant:DOM.PM.enu.LadeVariant,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,Aantal:%Integer
1
vhUnitTest.APPS.EC.Winkelkar.WinkelkarControleur.Nederlands.TestBase
-
-Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,Aantal:%Integer
-1
-
-
-
-
-Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,Aantal:%Integer
-1
-
-
-
@@ -119,9 +93,9 @@
Set ..WinkelkarControleur = ##class(APPS.EC.Winkelkar.impl.WinkelkarControleur).%New(KlantInstellingenService)
#dim Winkelkar As DOM.EC.Winkelkar.InterneWinkelkar = ..GeefWinkelkarVoorSfs()
- Do ..VoegToeLegraboxLadenInWinkelkar(Winkelkar,##class(DOM.PM.enu.LBXVerpakkingType).Probox(),4)
- ; Do ..VoegToeTandemboxLadenInWinkelkar(Winkelkar,##class(DOM.PM.enu.TBXVerpakking).ProboxMetOnderdelen(),4)
- Do ..VoegToeTandemboxLadenInWinkelkar(Winkelkar,##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen(),1)
+ Do ..VoegToeLadenInWinkelkar(Winkelkar, ##class(DOM.PM.enu.LadeVariant).LBXPure(), ##class(DOM.PM.enu.LBXVerpakkingType).Probox(), 4)
+ ; Do ..VoegToeLadenInWinkelkar(Winkelkar, ##class(DOM.PM.enu.LadeVariant).TBXAntaro(), ##class(DOM.PM.enu.TBXVerpakking).ProboxMetOnderdelen(), 4)
+ Do ..VoegToeLadenInWinkelkar(Winkelkar, ##class(DOM.PM.enu.LadeVariant).TBXAntaro(), ##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen(), 1)
Do ..WinkelkarControleur.ControleerWinkelkar(Winkelkar)
]]>
@@ -148,31 +122,18 @@
]]>
-
-Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,VerpakkingType:DOM.PM.enu.TBXVerpakkingType,Aantal:%Integer
+
+Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,LadeVariant:DOM.PM.enu.LadeVariant,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,Aantal:%Integer
1
-
-
-VerpakkingType:DOM.PM.enu.TBXVerpakkingType
-1
-DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken
-
-
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Base.cls.xml
===================================================================
diff -u -r57974 -r57980
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Base.cls.xml (.../Base.cls.xml) (revision 57974)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Base.cls.xml (.../Base.cls.xml) (revision 57980)
@@ -63,7 +63,7 @@
1
@@ -105,11 +105,43 @@
Set Winkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")
Do Winkelkar.ZetKlantID("K||7587")
Do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
- Do ..VoegToeLadenInWinkelkar(Winkelkar,VerpakkingType,Aantal)
+ Do ..VoegToeLadenInWinkelkar(Winkelkar, ##class(DOM.PM.enu.LadeVariant).TAOR(), VerpakkingType, Aantal)
Quit Winkelkar
]]>
+
+LadeVariant:DOM.PM.enu.LadeVariant,VerpakkingType:DOM.PM.enu.LBXVerpakkingType
+1
+DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken
+
+
+
+
+VerpakkingType:DOM.PM.enu.TBXVerpakkingType
+1
+DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken
+
+
+
VerpakkingType:DOM.PM.enu.LBXVerpakkingType
1
@@ -138,16 +170,14 @@
1
-Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,Aantal:%Integer
+Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,LadeVariant:DOM.PM.enu.LadeVariant,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,Aantal:%Integer
1
Exception:TECH.String,Omschrijving:TECH.String
1
-
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestTaorbox.cls.xml
===================================================================
diff -u -r57974 -r57980
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestTaorbox.cls.xml (.../TestTaorbox.cls.xml) (revision 57974)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestTaorbox.cls.xml (.../TestTaorbox.cls.xml) (revision 57980)
@@ -4,12 +4,12 @@
vhUnitTest.APPS.EC.Winkelkar.WinkelkarControleur.Nederlands.TestBase
-Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,Aantal:%Integer
+Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,LadeVariant:DOM.PM.enu.LadeVariant,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,Aantal:%Integer
1