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
+
+