Index: APPS/Halux/common/enu/ProductieGroep/AutoComplete.cls.xml =================================================================== diff -u -r59124 -r59170 --- APPS/Halux/common/enu/ProductieGroep/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 59124) +++ APPS/Halux/common/enu/ProductieGroep/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 59170) @@ -226,9 +226,9 @@ 1 - + %String -"TBX-SPOELBAK" +"TBX-SIFON" 1 1 Index: APPS/Halux/common/enu/ProductieGroep/Verwerker.cls.xml =================================================================== diff -u -r59124 -r59170 --- APPS/Halux/common/enu/ProductieGroep/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 59124) +++ APPS/Halux/common/enu/ProductieGroep/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 59170) @@ -74,8 +74,8 @@ Do ..VerwerkStandaard() } ElseIf ProductieGroep = "S" { Do ..VerwerkStuk() - } ElseIf ProductieGroep = "TBX-SPOELBAK" { - Do ..VerwerkTBXSpoelbak() + } ElseIf ProductieGroep = "TBX-SIFON" { + Do ..VerwerkTBXSifon() } Else { Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(ProductieGroep,"APPS.Halux.common.enu.ProductieGroep",$classname()) Do ##class(TECH.ExceptionHandler).Throw(Exceptie) @@ -269,7 +269,7 @@ - + 1 1 Index: APPS/Halux/common/enu/ProductieGroep.cls.xml =================================================================== diff -u -r59124 -r59170 --- APPS/Halux/common/enu/ProductieGroep.cls.xml (.../ProductieGroep.cls.xml) (revision 59124) +++ APPS/Halux/common/enu/ProductieGroep.cls.xml (.../ProductieGroep.cls.xml) (revision 59170) @@ -6,7 +6,7 @@ TECH.Enumeration -,P,A,S,+,X,Std,Special,SpecialPM,Opstartfase,KAD-PSV-EV,KAD-PSV-IL,KAD-PSV-WE,KAD-PSV-S,KAD-PSA-EV,KAD-PSA-CR,KAD-PSA-IL,KAD-PSG-EV,KAD-PBG-EV,KAD-PBG-S,KAD-PBA-EV,KAD-PBR-EV,KAD-PBK-EV,KAD-PB9-EV,KAD-PB9-S,KAD-P05-EV,KAD-PSS-WE,KAD-VUL-VUL,LBX-SPOELBAK,LBX-SPOELBAK-VHOSS,TAX-LC,TAX-FPV,TAX-BOG,TBX-SPOELBAK +,P,A,S,+,X,Std,Special,SpecialPM,Opstartfase,KAD-PSV-EV,KAD-PSV-IL,KAD-PSV-WE,KAD-PSV-S,KAD-PSA-EV,KAD-PSA-CR,KAD-PSA-IL,KAD-PSG-EV,KAD-PBG-EV,KAD-PBG-S,KAD-PBA-EV,KAD-PBR-EV,KAD-PBK-EV,KAD-PB9-EV,KAD-PB9-S,KAD-P05-EV,KAD-PSS-WE,KAD-VUL-VUL,LBX-SPOELBAK,LBX-SPOELBAK-VHOSS,TAX-LC,TAX-FPV,TAX-BOG,TBX-SIFON @@ -233,10 +233,10 @@ ]]> - + 1 APPS.Halux.common.enu.ProductieGroep - Index: APPS/Halux/common/impl/AantallenInToeleveringTeller.cls.xml =================================================================== diff -u -r59126 -r59170 --- APPS/Halux/common/impl/AantallenInToeleveringTeller.cls.xml (.../AantallenInToeleveringTeller.cls.xml) (revision 59126) +++ APPS/Halux/common/impl/AantallenInToeleveringTeller.cls.xml (.../AantallenInToeleveringTeller.cls.xml) (revision 59170) @@ -45,7 +45,7 @@ Set Key = ##class(APPS.Halux.common.enu.ProductieGroepGroepering).LBXSpSiSl() } - If (ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).TBXSpoelbak()) { + If (ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).TBXSifon()) { Set Key = ##class(APPS.Halux.common.enu.ProductieGroepGroepering).TbxManueleBewerking() } Index: APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml =================================================================== diff -u -r59168 -r59170 --- APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 59168) +++ APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 59170) @@ -56,7 +56,7 @@ } ElseIf (..IsBijzonderGroteLade(TBXLade)) || (..IsBijzonderSmalleLade(TBXLade)) { Set ProductieGroep = ..ProductieGroep.Specials } ElseIf (TBXLade.HeeftProductSpecificatie() && (..IsSifonlade(TBXLade) && ..IsAfsplitsenNodigVoorTbxManueleBewerking())) { - Set ProductieGroep = ..ProductieGroep.TBXSpoelbak + Set ProductieGroep = ..ProductieGroep.TBXSifon } ElseIf ((Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen()) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastZonderOnderdelen())) { set ProductieGroep = ..ProductieGroep.Pallet If (..IsKastKlant(KlantId)) { Index: vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml =================================================================== diff -u -r59168 -r59170 --- vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 59168) +++ vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 59170) @@ -136,7 +136,7 @@ Set ToeleveringSplitserMock = ##class(vhTest.Mock.APPS.Halux.common.ToeleveringSplitser).%New() Do ToeleveringSplitserMock.VerwachtMethodCall("IsNodigTeSplitsen",##class(APPS.Halux.common.enu.ProductieGroepGroepering).TbxManueleBewerking()).DanReturn($$$True) - Do ..AssertProductieGroep(TBXLade, IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).TBXSpoelbak(),,,ToeleveringSplitserMock, $$$True) + Do ..AssertProductieGroep(TBXLade, IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).TBXSifon(),,,ToeleveringSplitserMock, $$$True) Do ToeleveringSplitserMock.Verifieer() ]]> @@ -149,7 +149,7 @@ Do TBXLade.IndienMethodCall("HeeftProductSpecificatie").DanReturn($$$False) Do TBXLade.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(IngegevenKenmerken) - #dim VerwachteProductieGroep As APPS.Halux.common.enu.ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).TBXSpoelbak() + #dim VerwachteProductieGroep As APPS.Halux.common.enu.ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).TBXSifon() #dim VerwachteProductieGroepAangezienGeenToeleveringssplitser As APPS.Halux.common.enu.ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk() #dim ProductTypeApiStub As vhTest.Mock.DOM.PM.ProductTypeAPI = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).%New()