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