Index: APPS/Halux/PPS/Activiteit/impl/common/dto/ProductieUitvoeringInfo.cls.xml
===================================================================
diff -u -r63069 -r69900
--- APPS/Halux/PPS/Activiteit/impl/common/dto/ProductieUitvoeringInfo.cls.xml (.../ProductieUitvoeringInfo.cls.xml) (revision 63069)
+++ APPS/Halux/PPS/Activiteit/impl/common/dto/ProductieUitvoeringInfo.cls.xml (.../ProductieUitvoeringInfo.cls.xml) (revision 69900)
@@ -97,6 +97,10 @@
%String
+
+%Boolean
+
+
%Library.CacheStorage
ProductieUitvoeringInfoDefaultData
@@ -171,6 +175,9 @@
InschuifElementInfo
+
+IsMyLegra
+
Index: APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler.cls.xml
===================================================================
diff -u -r67555 -r69900
--- APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler.cls.xml (.../InfoBepaler.cls.xml) (revision 67555)
+++ APPS/Halux/PPS/Activiteit/impl/LBX/LBXLadePersen/InfoBepaler.cls.xml (.../InfoBepaler.cls.xml) (revision 69900)
@@ -83,6 +83,10 @@
}
Set Info = ..GeefInfoMetMelding(Info, FreeString)
}
+ If (IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Design()) {
+ #dim MyLegraString As TECH.String = "MyLegra"
+ Set Info = ..GeefInfoMetMelding(Info, FreeString)
+ }
If ..IngegevenKenmerkenAPI.HeeftGekoppeldeMat(IngegevenKenmerken){
#dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ..IngegevenKenmerkenAPI.GeefGekoppeldeKenmerken(IngegevenKenmerken,##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX())
Set Info = ..GeefInfoMetMelding(Info, "Mat:"_..MatFormatter.GeefKorteNotatie(MatKenmerken.Materiaal,MatKenmerken.Kleur))
Index: APPS/Halux/Docs/impl/ZaagEtiketBuilder.cls.xml
===================================================================
diff -u -r59479 -r69900
--- APPS/Halux/Docs/impl/ZaagEtiketBuilder.cls.xml (.../ZaagEtiketBuilder.cls.xml) (revision 59479)
+++ APPS/Halux/Docs/impl/ZaagEtiketBuilder.cls.xml (.../ZaagEtiketBuilder.cls.xml) (revision 69900)
@@ -64,7 +64,8 @@
%String
0) UitvoeringInfo.DwarsverdelingInfo = "DWARSV:" _IngegevenKenmerken.AantalDwarsverdelingen
}
+ If (IngegevenKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Design()) {
+ Set UitvoeringInfo.IsMyLegra = $$$True
+ }
+
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)