ConvertProductAbstract 600:2,1:1) Set ..DiepteCode=$S(..AXKenmerken.LadeDiepte>550:2,1:1) Set ..SpoelbakCode=$S("L"[..AXKenmerken.Toepassing:"",$zcvt(..AXKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1) Set ..FrontCode=$s($zcvt(..AXKenmerken.IsBinnenlade,"U")="TRUE":$S(..HoogteCode?1(1"D",1"C",1"B"):"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=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..PRNr,"ODSP")) 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" } 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() Do ..CreateResourceInkorten() Do ..CreateResourcePickingOnderdelen() Do ..CreateResourcePickingZijkanten() Do ..CreateResourceSnijdenHuls() } Else { Set ..SpeciaalCode="ZNDR KENMERK" Do ..CreateResourceSpeciaal() } ]]> BewerkingsTekst:%String 5) Quit:..SpeciaalCode'="" Set Lijn=$S(..VerpakCode="V1":"Lijn 1",1:"Lijn 4") Set Selector="S:"_$S(..SpoelbakCode="":0,1:1)_";B:"_..BreedteCode Do ..CreateOneResource("LBX&TBX",Lijn,"Lade","TBX",Selector,,2) ; leading and pitched ]]> 7)) ]]>