ConvertProductAbstract 600:2,1:1) Set ..DiepteCode=$S(..AXKenmerken.LadeDiepte>550:2,1:1) Set ..SpoelbakCode=$S(..AXKenmerken.Toepassing="L":"",$zcvt(..AXKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1) Set VoorWandType=$zcvt(..AXKenmerken.VoorWandTypeVanCBinnenlade_..AXKenmerken.VoorWandTypeVanKBinnenlade_..AXKenmerken.VoorWandTypeVanMBinnenlade,"U") Set ..FrontCode=$S($zcvt(..AXKenmerken.IsBinnenlade,"U")="TRUE":$S(VoorWandType["GLAS":"GLAS",VoorWandType["RELING":"RELING",1:"BASIS"),1:"") Set ..MatCode=..AXKenmerken.MatMateriaal Set ..VerpakCode=..AXKenmerken.VerpakkingType Set ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3) /// SPECIAAL (Front only, te kleine of te grote breedte, afgerond front voor klant Dibo Set ..SpeciaalCode=..AXKenmerken.ProductieWijze Set:..SpeciaalCode="V" ..SpeciaalCode="" If ((..AXKenmerken.Internebreedte<79)||(..AXKenmerken.Internebreedte>1600)) && (..AXKenmerken.VerpakkingType="V1") { Set ..SpeciaalCode="BREEDTE" } If ((..AXKenmerken.Internebreedte<165)||(..AXKenmerken.Internebreedte>1500)) && (..AXKenmerken.VerpakkingType'="V1") { Set ..SpeciaalCode="BREEDTE" } ]]> 50) { Do ..CreateResourceHoofdlijn() Do ..CreateResourceMat() Do ..CreateResourceVoormontage() Do ..CreateResourceSpoelbak() Do ..CreateResourceSpeciaal() Do ..CreateInkorten() Do ..CreateResourcePickingOnderdelen() Do ..CreateResourcePickingZijkanten() Do ..CreateResourceSnijdenHuls() } Else { Set ..SpeciaalCode="ZNDR KENMERK" Do ..CreateResourceSpeciaal() } ]]> 5) Quit:..SpeciaalCode'="" Set Lijn=$S(..VerpakCode="V1":"Lijn 1",1:"Lijn 2&3") Set Selector="S:"_$S(..SpoelbakCode="":0,1:1)_";B:"_..BreedteCode Do ..CreateOneResource("LBX&TBX",Lijn,"Lade","LBX",Selector,,2) ; leading and pitched ]]> 5)) ]]>