Index: APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml
===================================================================
diff -u -r42267 -r42407
--- APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml (.../KantenbandBepaler.cls.xml) (revision 42267)
+++ APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml (.../KantenbandBepaler.cls.xml) (revision 42407)
@@ -45,7 +45,7 @@
Index: APPS/Halux/Machine/OpdeelZaag/impl/PlaatMateriaalBepaler.cls.xml
===================================================================
diff -u -r42267 -r42407
--- APPS/Halux/Machine/OpdeelZaag/impl/PlaatMateriaalBepaler.cls.xml (.../PlaatMateriaalBepaler.cls.xml) (revision 42267)
+++ APPS/Halux/Machine/OpdeelZaag/impl/PlaatMateriaalBepaler.cls.xml (.../PlaatMateriaalBepaler.cls.xml) (revision 42407)
@@ -8,11 +8,6 @@
1
-
-DOM.AKP.ToeleveringAPI
-1
-
-
APPS.Halux.PPS.enu.TAORDecor
1
@@ -39,8 +34,7 @@
1
@@ -52,7 +46,7 @@
set ..Dikte = UitvoeringInfo.OptimalisatieData.Dikte
set ..Materiaal = UitvoeringInfo.OptimalisatieData.Decor
- if $length(UitvoeringInfo.ToeleveringID) && ..ToeleveringApi.GeefToelevering(UitvoeringInfo.ToeleveringID).GeefKlantID() = ##class(DOM.VKP.enu.Klant).SFS() {
+ if UitvoeringInfo.PartijID = ##class(DOM.VKP.enu.Klant).SFS() {
set ..Kleur = $$$If(UitvoeringInfo.OptimalisatieData.Kleur = "W","W1",UitvoeringInfo.OptimalisatieData.Kleur)
} else {
set ..Kleur = UitvoeringInfo.OptimalisatieData.Kleur
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler.cls.xml
===================================================================
diff -u -r39632 -r42407
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler.cls.xml (.../EtiketInfoBepaler.cls.xml) (revision 39632)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler.cls.xml (.../EtiketInfoBepaler.cls.xml) (revision 42407)
@@ -133,7 +133,13 @@
Do:(UitvoeringInfo.IsRework) LijnItems.Insert("RE")
Do LijnItems.Insert(..LadeOnderdeelInfoBepaler.Bepaal(LadeOnderdeel, Product))
- Do LijnItems.Insert(..KleurcodeStringBepaler.GeefKleurcodeString(LadeOnderdeel))
+
+ If UitvoeringInfo.PartijID = ##class(DOM.VKP.enu.Klant).SFS() {
+ Do LijnItems.Insert($replace(..KleurcodeStringBepaler.GeefKleurcodeString(LadeOnderdeel),"W","W1")) ; ugly tijdelijke fix wetende dat de andere kleurcodes geen W bevatten
+ } else {
+ Do LijnItems.Insert(..KleurcodeStringBepaler.GeefKleurcodeString(LadeOnderdeel))
+ }
+
Do LijnItems.Insert(..PlaatDimensieStringBepaler.GeefDimensieString(LadeOnderdeel))
Do LijnItems.Insert(UitvoeringInfo.DossierCode)
Do LijnItems.Insert(..GeefAfdekkapBovenKleurString(Product))