Index: APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepaler/NietBenelux.cls.xml =================================================================== diff -u -r56552 -r56674 --- APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepaler/NietBenelux.cls.xml (.../NietBenelux.cls.xml) (revision 56552) +++ APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepaler/NietBenelux.cls.xml (.../NietBenelux.cls.xml) (revision 56674) @@ -65,9 +65,6 @@ Do ..ZetDoorHandelMeeleverensVoorRol(Lijn,HalffabItemsBoom,Rol.FrontBevestiging) Do ..ZetDoorHandelMeeleverensVoorRol(Lijn,HalffabItemsBoom,Rol.FrontBevestigingSchroef) - - Do ..ZetDoorHandelMeeleverensVoorRol(Lijn,HalffabItemsBoom,Rol.Koppeling) - Do ..ZetDoorHandelMeeleverensVoorRol(Lijn,HalffabItemsBoom,Rol.KoppelingSchroef) ]]> @@ -78,15 +75,12 @@ Set RolTAX = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol.AutoComplete).%New() Set ProductieRoute = ##class(DOM.PM.Maatwerk.Calc.HF.enu.ProductieRoute.AutoComplete).%New() #dim HFItemIterator as TECH.Iterator = HalffabItemsBoom.GeefHalffabItemsIterator( Rol ) - While (HFItemIterator.HasNext()){ - + While (HFItemIterator.HasNext()){ #dim Item as DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = HFItemIterator.Next() - If $$$Not(((Lijn.GeefIngegevenKenmerken().GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox())) && ((Rol = RolTAX.Koppeling)||(Rol = RolTAX.KoppelingSchroef)) && (Item.GeefProductieRoute() = ProductieRoute.TeMonteren )) { - #Dim PRNr as %String = Item.GeefHalffab().GeefProductID() - #dim OldAantal as %Numeric = Lijn.GeefAantalDoorHandelMeeLeveren(PRNr) - #Dim NieuwAantal as %Numeric = OldAantal + (##class(TECH.Math).Ceil(Item.GeefAantal(),1) * Lijn.GeefAantal()) - Do Lijn.ZetDoorHandelMeeleverenProductEnAantal(PRNr,NieuwAantal) - } + #Dim PRNr as %String = Item.GeefHalffab().GeefProductID() + #dim OldAantal as %Numeric = Lijn.GeefAantalDoorHandelMeeLeveren(PRNr) + #Dim NieuwAantal as %Numeric = OldAantal + (##class(TECH.Math).Ceil(Item.GeefAantal(),1) * Lijn.GeefAantal()) + Do Lijn.ZetDoorHandelMeeleverenProductEnAantal(PRNr,NieuwAantal) } ]]> Index: vhUnitTest/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepaler/NietBenelux/ZetDoorHandelMeeleverens.cls.xml =================================================================== diff -u -r56552 -r56674 --- vhUnitTest/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepaler/NietBenelux/ZetDoorHandelMeeleverens.cls.xml (.../ZetDoorHandelMeeleverens.cls.xml) (revision 56552) +++ vhUnitTest/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepaler/NietBenelux/ZetDoorHandelMeeleverens.cls.xml (.../ZetDoorHandelMeeleverens.cls.xml) (revision 56674) @@ -38,42 +38,6 @@ ]]> - - - - - -1 -vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom - - - 1 vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom