ConvertProductAbstract 600:2,1:1) Set ..DiepteCode=$S(..IngegevenKenmerken.LadeDiepte>550:2,1:1) Set ..SpoelbakCode=$S("L"[..IngegevenKenmerken.Toepassing:"",$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=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..PRNr,"ODSP")) 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" } If $isObject(..ProductieOrderLijn.Toelevering.Klant) && (..ProductieOrderLijn.Toelevering.Klant.%Id()=9197) ;$$$KlantDibo { Set:$D(^PRBS("IP",1155091,..PRNr)) ..SpeciaalCode="DIBO" ; component SLFXB40C588B-ROUND BZDG Set:$D(^PRBS("IP",1155092,..PRNr)) ..SpeciaalCode="DIBO" ; component SLFXB40R588B-LEFT BZDG Set:$D(^PRBS("IP",1155093,..PRNr)) ..SpeciaalCode="DIBO" ; component SLFXB40R588B-RIGHT BZDG } ]]> 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:"L4") Do ..CreateOneResource("LBX&TBX",Lijn,"F:TBX;S:"_$S(..SpoelbakCode:1,1:0)_";B:"_..BreedteCode) ]]>