ConvertProductAbstract 600:2,1:1) Set ..DiepteCode=$S(..IngegevenKenmerken.LadeDiepte>550:2,1:1) Set ..SpoelbakCode=$S(..IngegevenKenmerken.Toepassing="L":"",$zcvt(..IngegevenKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1) Set ..FrontCode=$zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE" Set ..MatCode=..IngegevenKenmerken.MatMateriaal Set ..VerpakCode=..IngegevenKenmerken.VerpakkingType Set ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3) /// SPECIAAL (Front only, te kleine of te gorte breedte, afgerond front voor klant Dibo Set ..SpeciaalCode=..IngegevenKenmerken.ProductieWijze Set:..SpeciaalCode="V" ..SpeciaalCode="" If ((..IngegevenKenmerken.Internebreedte<79)||(..IngegevenKenmerken.Internebreedte>1600)) && (..IngegevenKenmerken.VerpakkingType="V1") { Set ..SpeciaalCode="BREEDTE" } If ((..IngegevenKenmerken.Internebreedte<165)||(..IngegevenKenmerken.Internebreedte>1500)) && (..IngegevenKenmerken.VerpakkingType'="V1") { Set ..SpeciaalCode="BREEDTE" } ]]> 50) { Do ..CreateResourceHoofdlijn() Do ..CreateResourceMat() Do ..CreateResourceVoormontage() Do ..CreateResourceSpoelbak() Do ..CreateResourceSpeciaal() } Else { Set ..SpeciaalCode="ZNDR KENMERK" Do ..CreateResourceSpeciaal() } ]]> 5) Quit:..SpeciaalCode'="" Set Lijn=$S(..VerpakCode="V1":"L1",1:"L2&3") Do ..CreateOneResource("LBX&TBX",Lijn,"F:LBX;S:"_..SpoelbakCode_";B:"_..BreedteCode) ]]>