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