Index: APPS/Halux/Machine/Kantenband/data/PassageDefinitie.cls.xml =================================================================== diff -u -r58554 -r66194 --- APPS/Halux/Machine/Kantenband/data/PassageDefinitie.cls.xml (.../PassageDefinitie.cls.xml) (revision 58554) +++ APPS/Halux/Machine/Kantenband/data/PassageDefinitie.cls.xml (.../PassageDefinitie.cls.xml) (revision 66194) @@ -10,7 +10,7 @@ -PlaatAfwerking,Rol,Passage,KleurBoven,KleurOnder +PlaatAfwerking,Rol,Passage,KleurBoven,KleurOnder,IsSifonlade 1 @@ -65,6 +65,12 @@ 1 + +%String +1 + + + %Library.CacheStorage ^APPS.Halux8B15.PassageDefiD34FD @@ -103,6 +109,9 @@ KleurOnder + +IsSifonlade + Index: vhTest/Mock/APPS/Halux/Machine/Kantenband/impl/KantenbandDataBepaler.cls.xml =================================================================== diff -u -r54694 -r66194 --- vhTest/Mock/APPS/Halux/Machine/Kantenband/impl/KantenbandDataBepaler.cls.xml (.../KantenbandDataBepaler.cls.xml) (revision 54694) +++ vhTest/Mock/APPS/Halux/Machine/Kantenband/impl/KantenbandDataBepaler.cls.xml (.../KantenbandDataBepaler.cls.xml) (revision 66194) @@ -7,6 +7,13 @@ 1 APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler,vhTest.Mock.APPS.Halux.Machine.Kantenband.ProgrammaBepaler + +DimensieBepaler:APPS.Halux.Machine.Kantenband.impl.DimensieBepaler="",PassageBepaler:APPS.Halux.Machine.Kantenband.impl.PassageBepaler="" +%Status + + + UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo APPS.Halux.Machine.Kantenband.Data Index: APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml =================================================================== diff -u -r58556 -r66194 --- APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml (.../PassageBepaler.cls.xml) (revision 58556) +++ APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml (.../PassageBepaler.cls.xml) (revision 66194) @@ -38,7 +38,7 @@ %ListOfObjects -PlaatAfwerking:DOM.PM.enu.TAORPlaatAfwerking,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,KleurBoven:DOM.PM.enu.TAORKantenbandKleur,KleurOnder:DOM.PM.enu.TAORKantenbandKleur +PlaatAfwerking:DOM.PM.enu.TAORPlaatAfwerking,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,KleurBoven:DOM.PM.enu.TAORKantenbandKleur,KleurOnder:DOM.PM.enu.TAORKantenbandKleur,IsSifonlade:%Boolean=0 %ListOfObjects - Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller/Test.cls.xml =================================================================== diff -u -r65686 -r66194 --- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller/Test.cls.xml (.../Test.cls.xml) (revision 65686) +++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller/Test.cls.xml (.../Test.cls.xml) (revision 66194) @@ -16,6 +16,7 @@ #dim RandomPlaatAfwerking As %String = "RandomPlaatAfwerking" #dim RandomLadeKleur As %String = "RandomLadeKleur" #dim RandomKantenbandKleur As %String = "RandomKantenbandKleur" + #dim IsSifonlade As %Boolean = $$$False #dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo).%New() Set UitvoeringInfo.BatchID = "RandomBatchId" @@ -25,6 +26,7 @@ #dim LadeMock As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New() Do LadeMock.VerwachtMethodCall("GeefConcept").DanReturn(RandomConcept) Do LadeMock.VerwachtMethodCall("GeefDiepte").DanReturn(RandomLadeDiepte) + Do LadeMock.VerwachtMethodCall("IsSifonlade").DanReturn(IsSifonlade) Do LadeMock.VerwachtMethodCall("GeefKleur").DanReturn(RandomLadeKleur) #dim LadeOnderdeelMock As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel).%New() Index: APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder.cls.xml =================================================================== diff -u -r58575 -r66194 --- APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder.cls.xml (.../PassageDefinitieDefinieerder.cls.xml) (revision 58575) +++ APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder.cls.xml (.../PassageDefinitieDefinieerder.cls.xml) (revision 66194) @@ -14,6 +14,7 @@ Do ##class(APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.Front).%New().Definieer() Do ##class(APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.Rug).%New().Definieer() + Do ##class(APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.RugSifonlade).%New().Definieer() Do ##class(APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.Zijkant).%New().Definieer() ]]> Index: vhTest/Mock/DOM/PM/Maatwerk/LadeInfo/Lade.cls.xml =================================================================== diff -u -r63649 -r66194 --- vhTest/Mock/DOM/PM/Maatwerk/LadeInfo/Lade.cls.xml (.../Lade.cls.xml) (revision 63649) +++ vhTest/Mock/DOM/PM/Maatwerk/LadeInfo/Lade.cls.xml (.../Lade.cls.xml) (revision 66194) @@ -171,6 +171,12 @@ + + +%Boolean + + Index: APPS/Halux/PPS/Activiteit/impl/common/dto/KantenbandData.cls.xml =================================================================== diff -u -r65686 -r66194 --- APPS/Halux/PPS/Activiteit/impl/common/dto/KantenbandData.cls.xml (.../KantenbandData.cls.xml) (revision 65686) +++ APPS/Halux/PPS/Activiteit/impl/common/dto/KantenbandData.cls.xml (.../KantenbandData.cls.xml) (revision 66194) @@ -89,6 +89,10 @@ %String + +%Boolean + + Value:%Boolean %Status @@ -177,6 +181,9 @@ KleurOnder + +IsSifonlade + Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller.cls.xml =================================================================== diff -u -r65686 -r66194 --- APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller.cls.xml (.../KantenbandDataLadeInfoAanvuller.cls.xml) (revision 65686) +++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller.cls.xml (.../KantenbandDataLadeInfoAanvuller.cls.xml) (revision 66194) @@ -48,6 +48,7 @@ Set UitvoeringInfo.KantenbandData.BatchID = UitvoeringInfo.BatchID Set UitvoeringInfo.KantenbandData.Concept = Lade.GeefConcept() Set UitvoeringInfo.KantenbandData.LadeDiepte = Lade.GeefDiepte() + Set UitvoeringInfo.KantenbandData.IsSifonlade = Lade.IsSifonlade() Set UitvoeringInfo.KantenbandData.KleurBoven = ..KleurBepaler.Bepaal(..LadeOnderdeel, ..KantenbandRol.Boven) Set UitvoeringInfo.KantenbandData.KleurOnder = ..KleurBepaler.Bepaal(..LadeOnderdeel, ..KantenbandRol.Onder) Set UitvoeringInfo.KantenbandData.Rol = ..LadeOnderdeel.GeefRol() Index: APPS/Halux/Machine/Kantenband/impl/PassageDefinitieRepository.cls.xml =================================================================== diff -u -r58554 -r66194 --- APPS/Halux/Machine/Kantenband/impl/PassageDefinitieRepository.cls.xml (.../PassageDefinitieRepository.cls.xml) (revision 58554) +++ APPS/Halux/Machine/Kantenband/impl/PassageDefinitieRepository.cls.xml (.../PassageDefinitieRepository.cls.xml) (revision 66194) @@ -21,12 +21,17 @@ -PlaatAfwerking:DOM.PM.enu.TAORPlaatAfwerking,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,KleurBoven:DOM.PM.enu.TAORKantenbandKleur,KleurOnder:DOM.PM.enu.TAORKantenbandKleur +PlaatAfwerking:DOM.PM.enu.TAORPlaatAfwerking,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,KleurBoven:DOM.PM.enu.TAORKantenbandKleur,KleurOnder:DOM.PM.enu.TAORKantenbandKleur,IsSifonlade:%Boolean=0 %ListOfObjects Index: DOM/PM/Maatwerk/LadeInfo/Lade.cls.xml =================================================================== diff -u -r63649 -r66194 --- DOM/PM/Maatwerk/LadeInfo/Lade.cls.xml (.../Lade.cls.xml) (revision 63649) +++ DOM/PM/Maatwerk/LadeInfo/Lade.cls.xml (.../Lade.cls.xml) (revision 66194) @@ -140,6 +140,11 @@ 1 %Boolean + + +1 +%Boolean + Index: APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Base.cls.xml =================================================================== diff -u -r58572 -r66194 --- APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Base.cls.xml (.../Base.cls.xml) (revision 58572) +++ APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Base.cls.xml (.../Base.cls.xml) (revision 66194) @@ -44,7 +44,7 @@ -PlaatAfwerking:DOM.PM.enu.TAORPlaatAfwerking,KleurBoven:DOM.PM.enu.TAORKantenbandKleur,KleurOnder:DOM.PM.enu.TAORKantenbandKleur +PlaatAfwerking:DOM.PM.enu.TAORPlaatAfwerking,KleurBoven:DOM.PM.enu.TAORKantenbandKleur,KleurOnder:DOM.PM.enu.TAORKantenbandKleur,IsSifonlade:%Boolean=0 1 APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder Index: APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/RugSifonlade.cls.xml =================================================================== diff -u --- APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/RugSifonlade.cls.xml (revision 0) +++ APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/RugSifonlade.cls.xml (revision 66194) @@ -0,0 +1,95 @@ + + + +APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.Base + + +1 +1 +%Status +1 + + + + + + + + +1 + + + + +KantenbandKleurBoven:DOM.PM.enu.TAORKantenbandKleur,ProgrammaNaamBoven:APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam +1 + + + + +KantenbandKleurBoven:DOM.PM.enu.TAORKantenbandKleur,ProgrammaNaamBoven:APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam +1 + + + + +KantenbandDefinitie:APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.KantenbandDefinitie +1 + + + + + + Index: vhUnitTest/APPS/Halux/Machine/Kantenband/impl/PassageBepaler/Test.cls.xml =================================================================== diff -u -r58555 -r66194 --- vhUnitTest/APPS/Halux/Machine/Kantenband/impl/PassageBepaler/Test.cls.xml (.../Test.cls.xml) (revision 58555) +++ vhUnitTest/APPS/Halux/Machine/Kantenband/impl/PassageBepaler/Test.cls.xml (.../Test.cls.xml) (revision 66194) @@ -15,7 +15,7 @@ #dim DummyPassageDefinities As %ListOfObjects = ..GeefDummyPassageDefinities() #dim PassageDefinitieRepositoryMock As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.PassageDefinitieRepository = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.PassageDefinitieRepository).%New() - Do PassageDefinitieRepositoryMock.VerwachtMethodCall("GeefPassageDefinities", DummyKantenbandData.PlaatAfwerking, DummyKantenbandData.Rol, DummyKantenbandData.KleurBoven, DummyKantenbandData.KleurOnder).DanReturn(DummyPassageDefinities) + Do PassageDefinitieRepositoryMock.VerwachtMethodCall("GeefPassageDefinities", DummyKantenbandData.PlaatAfwerking, DummyKantenbandData.Rol, DummyKantenbandData.KleurBoven, DummyKantenbandData.KleurOnder,"").DanReturn(DummyPassageDefinities) #dim KantenbandBepalerMock As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler).%New() Do KantenbandBepalerMock.VerwachtMethodCall("BepaalKantenband", DummyKantenbandData, "Programma" _ ..PassageEnum.Een, ..PassageEnum.Een).DanReturn("DummyKantenband" _ ..PassageEnum.Een) Index: DOM/PM/Maatwerk/LadeInfo/impl/TAX/Lade.cls.xml =================================================================== diff -u -r63649 -r66194 --- DOM/PM/Maatwerk/LadeInfo/impl/TAX/Lade.cls.xml (.../Lade.cls.xml) (revision 63649) +++ DOM/PM/Maatwerk/LadeInfo/impl/TAX/Lade.cls.xml (.../Lade.cls.xml) (revision 66194) @@ -210,6 +210,12 @@ + + +%Boolean + +