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 VoorWandType=$zcvt(..IngegevenKenmerken.VoorWandTypeVanCBinnenlade_..IngegevenKenmerken.VoorWandTypeVanKBinnenlade_..IngegevenKenmerken.VoorWandTypeVanMBinnenlade,"U") Set ..FrontCode=$S($zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE":$S(VoorWandType["GLAS":"GLAS",VoorWandType["RELING":"RELING",1:"BASIS"),1:"") 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() Do ..CreateInkorten() } Else { Set ..SpeciaalCode="ZNDR KENMERK" Do ..CreateResourceSpeciaal() } ]]> 5) Quit:..SpeciaalCode'="" Set Lijn=$S(..VerpakCode="V1":"L1",1:"L2&3") Do ..CreateOneResource("LBX&TBX",Lijn,"LBX","F:LBX;S:"_$S(..SpoelbakCode="":0,1:1)_";B:"_..BreedteCode,,1) ]]> 5)) ]]>