Index: DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml =================================================================== diff -u -r67665 -r70310 --- DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml (.../TBXLadeImpl.cls.xml) (revision 67665) +++ DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml (.../TBXLadeImpl.cls.xml) (revision 70310) @@ -100,6 +100,12 @@ ]]> + +%Boolean + + + %Boolean + +%Integer + + + %Integer - -IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken -1 -%Boolean - - - IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom 1 Index: vhTest/Mock/DOM/PM/TBXProduct/TBXLade.cls.xml =================================================================== diff -u -r57725 -r70310 --- vhTest/Mock/DOM/PM/TBXProduct/TBXLade.cls.xml (.../TBXLade.cls.xml) (revision 57725) +++ vhTest/Mock/DOM/PM/TBXProduct/TBXLade.cls.xml (.../TBXLade.cls.xml) (revision 70310) @@ -13,6 +13,12 @@ ]]> + +%Boolean + + + %Boolean + +%Integer + + + %Integer 0 { Set Info = ..GeefInfoMetMelding(Info, "DWV:"_IngegevenKenmerken.AantalDwarsverdelingen) } - if ..MoetInfoZijstabiliseringstangVermelden(IngegevenKenmerken) { + If (IngegevenKenmerken.HeeftZijstabilisering) { Set Info = ..GeefInfoMetMelding(Info,"ZIJSTB") } Quit Info @@ -117,17 +117,6 @@ ]]> - -IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken -1 -%Boolean - - - HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom 1 Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml =================================================================== diff -u -r68020 -r70310 --- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml (.../Test.cls.xml) (revision 68020) +++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml (.../Test.cls.xml) (revision 70310) @@ -93,28 +93,16 @@ ]]> - + - - - - InfoBepaler:APPS.Halux.PPS.Activiteit.impl.LBX.LBXLadePersen.InfoBepaler,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem 1 Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml =================================================================== diff -u -r67554 -r70310 --- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml (.../Test.cls.xml) (revision 67554) +++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/MVX/MVXLadePersen/InfoBepaler/GeefInfo2/Test.cls.xml (.../Test.cls.xml) (revision 70310) @@ -115,7 +115,6 @@ + +1 +%Boolean + + 1 %Boolean @@ -216,6 +221,11 @@ + +1 +%Integer + + 1 DOM.PM.enu.TBXAntislipmat Index: BL/PPS/TBX/WPPers/InfoBepaler.cls.xml =================================================================== diff -u -r70280 -r70310 --- BL/PPS/TBX/WPPers/InfoBepaler.cls.xml (.../InfoBepaler.cls.xml) (revision 70280) +++ BL/PPS/TBX/WPPers/InfoBepaler.cls.xml (.../InfoBepaler.cls.xml) (revision 70310) @@ -82,6 +82,14 @@ Set Info1=..GeefInfoMetMelding(Info1,"stalen rug",##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Groen()) } + If (TBX.BevatDwarsverdeling()) { + Set Info1 = ..GeefInfoMetMelding(Info1,"DWV:"_TBX.GeefAantalDwarsverdelingen()) + } + + If (TBX.BevatStabilisator()) { + Set Info1 = ..GeefInfoMetMelding(Info1,"ZIJSTB") + } + If (..BevatSynchro(TBX) || ..BevatTOBSynchroStang(TBX)) { Set Info1 = ..GeefInfoMetMelding(Info1,"SYNCST") } Index: APPS/Halux/PPS/Activiteit/impl/MVX/VoorbereidingZaag.cls.xml =================================================================== diff -u -r70298 -r70310 --- APPS/Halux/PPS/Activiteit/impl/MVX/VoorbereidingZaag.cls.xml (.../VoorbereidingZaag.cls.xml) (revision 70298) +++ APPS/Halux/PPS/Activiteit/impl/MVX/VoorbereidingZaag.cls.xml (.../VoorbereidingZaag.cls.xml) (revision 70310) @@ -155,18 +155,13 @@ Set UitvoeringInfo.Opmerking = ..ZaagUtils.GeefOpmerking(IngegevenKenmerken) Set UitvoeringInfo.IsTipon = $$$False Set:(HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionSynchronisatieStang())) UitvoeringInfo.SynchronisatieStangInfo = "SYNCST" + Set:(IngegevenKenmerken.AantalDwarsverdelingen>0) UitvoeringInfo.DwarsverdelingInfo = "DWARSV:" _IngegevenKenmerken.AantalDwarsverdelingen + Set:(IngegevenKenmerken.HeeftZijstabilisering) UitvoeringInfo.ZijstabiliseringInfo = "ZIJSTB" #dim IsInschuifElementNietMeegeleverd As %Boolean = ##class(TECH.ListUtils).Contains(IngegevenKenmerken.NietMeeleveren, ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXNietMeeleveren).InschuifElementZijkant()) #dim ZonderInschuifElement As %String = "ZI" Set:IsInschuifElementNietMeegeleverd UitvoeringInfo.InschuifElementInfo = ZonderInschuifElement - #dim IsVerpakkingTypeV1 As %Boolean = (IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.MVXVerpakkingType).V1()) - - If $$$Not(IsVerpakkingTypeV1) { - Set:(IngegevenKenmerken.HeeftZijstabilisering) UitvoeringInfo.ZijstabiliseringInfo = "ZIJSTB" - Set:(IngegevenKenmerken.AantalDwarsverdelingen>0) UitvoeringInfo.DwarsverdelingInfo = "DWARSV:" _IngegevenKenmerken.AantalDwarsverdelingen - } - If SequentieItemItem.%Extends(##class(APPS.Halux.common.VHOSSProductieSequentieItem).%ClassName(1)) { #dim VHossItem As APPS.Halux.common.VHOSSProductieSequentieItem = SequentieItemItem Set UitvoeringInfo.VHossInfo = ##class(APPS.Halux.common.impl.VHossService).%New().GeefVHossInfo(VHossItem.VHOSSID, VHossItem.ZijVlakID, VHossItem.SlotID) Index: vhUnitTest/BL/PPS/TBX/WPPers/InfoBepaler/Test.cls.xml =================================================================== diff -u -r70286 -r70310 --- vhUnitTest/BL/PPS/TBX/WPPers/InfoBepaler/Test.cls.xml (.../Test.cls.xml) (revision 70286) +++ vhUnitTest/BL/PPS/TBX/WPPers/InfoBepaler/Test.cls.xml (.../Test.cls.xml) (revision 70310) @@ -90,6 +90,8 @@ Do ..TBXLadeMock.VerwachtMethodCall("BevatSynchro").DanReturn($$$True) Do ..TBXLadeMock.VerwachtMethodCall("BevatGreep").DanReturn($$$False) Do ..TBXLadeMock.VerwachtMethodCall("BevatMeenemer").DanReturn($$$False) + Do ..TBXLadeMock.VerwachtMethodCall("BevatDwarsverdeling").DanReturn($$$False) + Do ..TBXLadeMock.VerwachtMethodCall("BevatStabilisator").DanReturn($$$False) Set InfoBepaler = ##class(BL.PPS.TBX.WPPers.InfoBepaler).%New(..MatFormatterMock,..TBXMatToEnuMatConverterMock,..ProductAPIMock) #dim Info1 As %String = InfoBepaler.GeefInfo1("ProductNummer",$$$tsWachtend) @@ -117,6 +119,8 @@ Do ..TBXLadeMock.IndienMethodCall("IsSpoelbakLade").DanReturn($$$True) Do ..TBXLadeMock.IndienMethodCall("BevatGreep").DanReturn($$$False) Do ..TBXLadeMock.IndienMethodCall("BevatMeenemer").DanReturn($$$False) + Do ..TBXLadeMock.IndienMethodCall("BevatDwarsverdeling").DanReturn($$$False) + Do ..TBXLadeMock.IndienMethodCall("BevatStabilisator").DanReturn($$$False) Set InfoBepaler = ##class(BL.PPS.TBX.WPPers.InfoBepaler).%New(..MatFormatterMock,..TBXMatToEnuMatConverterMock,..ProductAPIMock) #dim Info1 As %String = InfoBepaler.GeefInfo1("ProductNummer",$$$tsWachtend) @@ -145,6 +149,8 @@ Do ..TBXLadeMock.IndienMethodCall("IsSpoelbakLade").DanReturn($$$True) Do ..TBXLadeMock.IndienMethodCall("BevatGreep").DanReturn($$$False) Do ..TBXLadeMock.IndienMethodCall("BevatMeenemer").DanReturn($$$False) + Do ..TBXLadeMock.IndienMethodCall("BevatDwarsverdeling").DanReturn($$$False) + Do ..TBXLadeMock.IndienMethodCall("BevatStabilisator").DanReturn($$$False) Set InfoBepaler = ##class(BL.PPS.TBX.WPPers.InfoBepaler).%New(..MatFormatterMock,..TBXMatToEnuMatConverterMock,..ProductAPIMock) #dim Info1 As %String = InfoBepaler.GeefInfo1("ProductNummer",$$$tsWachtend) @@ -172,6 +178,8 @@ Do ..TBXLadeMock.IndienMethodCall("IsSpoelbakLade").DanReturn($$$True) Do ..TBXLadeMock.IndienMethodCall("BevatGreep").DanReturn($$$True) Do ..TBXLadeMock.IndienMethodCall("BevatMeenemer").DanReturn($$$False) + Do ..TBXLadeMock.IndienMethodCall("BevatDwarsverdeling").DanReturn($$$False) + Do ..TBXLadeMock.IndienMethodCall("BevatStabilisator").DanReturn($$$False) Set InfoBepaler = ##class(BL.PPS.TBX.WPPers.InfoBepaler).%New(..MatFormatterMock,..TBXMatToEnuMatConverterMock,..ProductAPIMock) #dim Info1 As %String = InfoBepaler.GeefInfo1("ProductNummer",$$$tsWachtend) @@ -199,6 +207,8 @@ Do ..TBXLadeMock.IndienMethodCall("IsSpoelbakLade").DanReturn($$$True) Do ..TBXLadeMock.IndienMethodCall("BevatGreep").DanReturn($$$True) Do ..TBXLadeMock.IndienMethodCall("BevatMeenemer").DanReturn($$$True) + Do ..TBXLadeMock.IndienMethodCall("BevatDwarsverdeling").DanReturn($$$False) + Do ..TBXLadeMock.IndienMethodCall("BevatStabilisator").DanReturn($$$False) Set InfoBepaler = ##class(BL.PPS.TBX.WPPers.InfoBepaler).%New(..MatFormatterMock,..TBXMatToEnuMatConverterMock,..ProductAPIMock) #dim Info1 As %String = InfoBepaler.GeefInfo1("ProductNummer",$$$tsWachtend) @@ -207,6 +217,36 @@ Do ..TBXLadeMock.Verifieer() ]]> + + + + Index: APPS/Halux/PPS/Activiteit/impl/LBX/VoorbereidingZaag.cls.xml =================================================================== diff -u -r70298 -r70310 --- APPS/Halux/PPS/Activiteit/impl/LBX/VoorbereidingZaag.cls.xml (.../VoorbereidingZaag.cls.xml) (revision 70298) +++ APPS/Halux/PPS/Activiteit/impl/LBX/VoorbereidingZaag.cls.xml (.../VoorbereidingZaag.cls.xml) (revision 70310) @@ -152,6 +152,8 @@ Set UitvoeringInfo.Opmerking = ..ZaagUtils.GeefOpmerking(IngegevenKenmerken) Set UitvoeringInfo.IsTipon = (IngegevenKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON()) Set:(..HeeftHalffabItemVoorStang(HalffabItemsBoom)) UitvoeringInfo.SynchronisatieStangInfo = "SYNCST" + Set:(IngegevenKenmerken.AantalDwarsverdelingen>0) UitvoeringInfo.DwarsverdelingInfo = "DWARSV:" _IngegevenKenmerken.AantalDwarsverdelingen + Set:(IngegevenKenmerken.HeeftZijstabilisering) UitvoeringInfo.ZijstabiliseringInfo = "ZIJSTB" #dim IsInschuifElementNietMeegeleverd As %Boolean = ##class(TECH.ListUtils).Contains(IngegevenKenmerken.NietMeeleveren, ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXNietMeeleveren).InschuifElementZijkant()) #dim ZonderInschuifElement As %String = "ZI" @@ -160,13 +162,6 @@ Set UitvoeringInfo.InschuifElementInfo = ZonderInschuifElement } - #dim IsVerpakkingTypeV1 As %Boolean = (IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()) - - If $$$Not(IsVerpakkingTypeV1) { - Set:(IngegevenKenmerken.HeeftZijstabilisering) UitvoeringInfo.ZijstabiliseringInfo = "ZIJSTB" - Set:(IngegevenKenmerken.AantalDwarsverdelingen>0) UitvoeringInfo.DwarsverdelingInfo = "DWARSV:" _IngegevenKenmerken.AantalDwarsverdelingen - } - If (IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Design()) { Set UitvoeringInfo.IsMyLegra = $$$True Set UitvoeringInfo.LadeKleurBuitenInfo = IngegevenKenmerken.LadeKleurBuiten